ИПС "Музыкальный магазин"

Размещено на http://www.allbest.ru/

Министерство образования Республики Беларусь

УО Витебский государственный политехнический колледж

Курсовой проект

по дисциплине: Основы алгоритмизации и программирования

ИПС «Музыкальный магазин»

ВГПК.2 400101.К12.025-ЛУ

Исполнитель

Юрченко А.С.

Руководитель проекта

Сутович С.Г.

Нормоконтролер

Тыбербай С.Г.

2012г.

ВВЕДЕНИЕ

Цель курсового проекта:

- приобретение навыков разработки программ;

- на практике более подробнее освоить язык программирования;

- развитие навыков самостоятельной и творческой работы;

- закрепление практических навыков работы в среде разработки Delphi 7;

- применение на практике теоретических навыков;

- получение навыков по работе с научно-технической литературой;

- приобретение опыта оформения проектной документации;

- отработка навыков по алгоритмизации, программированию и отладке программ;

Программный продукт «Информационно-поисковая система Музыкальный магазин» предназначена для просмотра информации о музыкальных инструментах .Программный продукт позволяет просмотреть все необходимые данные на актёров. В программе предусмотрено введение данных инструменты, описание и цена, поиск нужного инструмента.

Характеристика языка Delphi 7:

Язык программирования Delphi 7 - объектно-ориентированный язык программирования под операционную систему Windows, построенный на основе языка Pascal имеет развитую интегрированную среду разработчика, процесс создания программного продукта в которой строиться на основе набора компонентов (объектов).

В сравнении с другими языками программирования язык Delphi 7 имеет следующие отличия:

· возможность работы с локальными и удаленными данными любых типов (InterBase, Sybase, Microsoft SQL, dBase, Paradox и другие).

· Высокопроизводительный компилятор в машинный код;

· Объектно-ориентированная модель компонент;

· Delphi 7 - система программирования, ориентированная на «быструю разработку». В основе этой системы (RAD-системы) лежит технология визуального проектирования и событийного программирования;

· Масштабируемые средства для построения баз данных.

К недостаткам данного языка можно отнести:

· большой объем получаемых исполняемых файлов;

· для работы необходим большой объем оперативной памяти (~60 Мб).

1. НАЗНАЧЕНИЕ И ОБЛАСТЬ ПРИМЕНЕНИЯ

Программа предназначена для создания, отображения, поиска . Данный программый продукт может применяться в любой сфере, в качестве ознакомления с товаром музыкальных инструментов.

2. ТЕХНИЧЕСКИЕ ХАРАКТЕРИСТИКИ

2.1 Постановка задачи

Данный программный продукт «ИПС Музыкальный магазин» представляет собой программу состаящую из главной формы, формы добавления записей. Программа имеет возможность загружать фото, добавлять новые записи, редактировать существующие в программе и удалять необходимые, ненужные.

При разработке программы предусмотрено наличие следующих режимов:

Главное меню - содержит различные кнопки отвечающие за различные функции (Выход).

· О программе - просмотр источника данных о предоставлении информации для ИПС ”Музыкальный магазин”

· О разработчике - просмотр информации о разработчике программы.

· Выход - выход из программы.

2.2 Описание алгоритма

При запуске программы на экране монитора появляется окно приветствие, после выбора открывается сама программа.

Окно приветствия представлено следующими пунктами: Вход(Вход в ИПС), Выход (выход из ИПС).

«Список» просмотр информации о музыкальных инструментах

«Список - Фото» просмотр фотографий музыкальных инструментов;

«Список - Добавление» добавление новой записи;

«Список - Удаление записи » удаление информации о инструменте;

«Спиок - Сортировка » сортировка записей по заданному признаку;

« О программе » вызывает файл, в котором находится информация о программе;

«Разработчик» просмотр информации о разработчике программы;

«Выход» закрывает программу;

3. ОПИСАНИЕ ПРОГРАММЫ

3.1 Общие сведения

Обозначение программы - Project1

Наименование программы - Программа «ИПС Музыкальный магазин»

Автор - Юрченко А.С.

Дата создания - 27.05.2012

Программная среда - Delphi 7

Программное обеспечение - Windows 7

Язык программирования - Pascal

3.2 Функциональное назначение

Данный программный продукт «ИПС Музыкальный магазин» представляет собой программу состаящую из меню приветствия, формы просмотра, формы добавления. Программа имеет возможность загружать фото и добавлять их базу. Также в программе можно удалять и добавлять записи. Программа предназначена для работы в сферах магазинов музыкальных товаров.

3.3 Описание логической структуры

Unit1.pas - модуль содержащий главное меню.

Unit2. pas - модуль содержащий информацию о разработчике.

Unit3. pas - модуль содержащий окно для добавления информации.

Unit4. pas - модуль содержащий окно для входа в программу.

Unit6. pas - модуль содержащий информацию о программе.

поисковый загрузка данные delphi

3.4 Используемые технические средства

Процессор - Intel Pentium 433 и выше.

Видеоадаптер - SVGA.

Свободное место на жестком диске - не менее 20 Мб.

Оперативная память - 128 Мб и выше.

Монитор с разрешением 1280x1024.

3.5 Вызов и загрузка

Запуск программы осуществляется одним из перечисленных способов:

· Вызовом в проводнике файла Project1.exe из директории программы;

· Выбором соответствующего ярлыка на Рабочем столе.

3.6 Входные данные

К входным данным относятся:

1) Введённые с клавиатуры символьные данные;

2) Все изменения, производимые при добавлении информации.

3.7 Выходные данные

К выходным данным относятся:

1) Данные, которые образуются после добавления.

2) Вывод информации по запросу поиска.

4. ПРОГРАММА И МЕТОДИКА ИСПЫТАНИЙ

4.1 Объект испытаний

Наименование программы - Программа «ИПС Музыкальный магазин»

Обозначение программы - Project1.exe

Программа предназначена для пользователей Windows 7.

4.2 Цель испытаний

Для выявления ошибок работы программы.

4.3 Средства и порядок испытаний

Использованы следующие технические средства, необходимые для проведения испытаний: Ноутбук Acer ASPIRE 5733z; процессор Intel Pentium P6200; видеокарта Intel HD Graphics-128mb, HDD-320 GB, Ram-2048 mb.

4.4 Протокол испытаний

Комиссия во главе: председатель комиссии председатель цикловой комиссии, С.Г. Тыбербай (занимаемая должность, фамилия, инициалы) основной руководитель проекта преподаватель спецдисциплины, Сутович С.Г (занимаемая должность, фамилия, инициалы).

Произвёл проверку работоспособности программы ИПС `Музыкальный магазин' (название программы) учащегося гр. ПЗ-33 Витебского государственного политехнического колледжа Юрченко Алексея Сергеевича (фамилия, имя, отчество) разработанную в порядке курсового проекта.

Программа написана на языке программирования Delphi 7 (название языка программирования) и работает под управлением операционной системы Windows 7 (название операционной системы)

Программа предназначена для добавления и хранения информации (назначение программы) и выполняет следующие функции: просмотр, добавление информации поиск по полю инструменты, загрузка фотографий.

Работоспособность программы проверена на контрольных примерах, предусматривающих все возможные варианты исходных и промежуточных данных.

Программа признана работоспособной и соответствующей техническому заданию и позволяет решать поставленные перед ней задачи.

Председатель цикловой комиссии ____________ C. Г. Тыбербай

Основной руководитель проекта _____________С. Г. Сутович

ЗАКЛЮЧЕНИЕ

За время написания курсового проекта, изучены функции и возможности визуальной, объектно-ориентированной среды разработки Delphi 7, приобрёл навыки рационального использования программного обеспечения современных персональных компьютеров при решении разнообразных задач.

Информационно-поисковая система «Музыкальный магазин» соответствует исходному техническому заданию. На основе выполненных тестов можно сделать вывод: отвечает эксплуатационным, технологическим требованиям, обладает высокой надёжностью, наглядностью и универсальностью.

ЛИТЕРАТУРА

1. Гофман В.Э. Delphi. Быстрый старт./ В.Э.Гофман, А.Д. Хоменко. - СПб. : БХВ-Петербург, 2003. - 288 с.: ил.

2. Дарахвелидзе П.Г. Программирование в Delphi 7/ П.Г. Дарахвелидзе, Е.П. Макров. - СПб. : БХВ-Петербург, 2003. - 784 с: ил.

3. Архангельский А.Я. Приемы программирования в Delphi на основе VC/ А.Я. Архан-гельский. - М. : ООО «Бином-Пресс», 2006. - 944 с.: ил

4. Архангельский А.Я. Программирование в Delphi. Учебник по классическим версиям Delphi/ А.Я. Архангельский. - М. : ООО «Бином-Пресс», 2006. - 1152 с.: ил.

5. Фаронов В.В. Система программирования DELPHI/ В.В. Фаронов. - СПб. : БХВ-Петербург, 2004. - 320 с.: ил.

Приложение А

ТЕКСТ ПРОГРАММЫ

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Menus, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids, jpeg, XPMan,

StdCtrls, Mask, ExtDlgs;

type

TForm1 = class(TForm)

Image1: TImage;

DBGrid1: TDBGrid;

DataSource1: TDataSource;

ADOConnection1: TADOConnection;

ADOQuery1: TADOQuery;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

XPManifest1: TXPManifest;

N5: TMenuItem;

DBEdit1: TDBEdit;

DBMemo1: TDBMemo;

DBEdit2: TDBEdit;

ADOQuery1id: TAutoIncField;

ADOQuery1DSDesigner: TWideStringField;

ADOQuery1DSDesigner2: TWideStringField;

ADOQuery1DSDesigner3: TWideStringField;

ADOQuery1Image: TBlobField;

DBImage1: TDBImage;

OpenPictureDialog1: TOpenPictureDialog;

Edit1: TEdit;

Label1: TLabel;

Image2: TImage;

Image3: TImage;

Image4: TImage;

Image5: TImage;

N3: TMenuItem;

N4: TMenuItem;

Image6: TImage;

Image7: TImage;

N6: TMenuItem;

procedure N5Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Edit1Change(Sender: TObject);

procedure Image2Click(Sender: TObject);

procedure Image3Click(Sender: TObject);

procedure Image5Click(Sender: TObject);

procedure Image4Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure Image6Click(Sender: TObject);

procedure Image7Click(Sender: TObject);

procedure N6Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4, Unit6;

{$R *.dfm}

procedure TForm1.N5Click(Sender: TObject);

begin

close;

end;

procedure TForm1.N2Click(Sender: TObject);

begin

Form2.visible:=true

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Form3.show;

ADOQuery1.Insert;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

ADOQuery1.Delete();

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

if edit1.Text='' then showmessage('Введите имя инструмента')

else

begin

if adoquery1.Locate('инструменты',edit1.text,[])

then

sleep(1)

else

showmessage('Извените,таких моделей у нас нет');

end;

end;

procedure TForm1.Edit1Change(Sender: TObject);

begin

if Edit1.Text<>'' then begin

ADOQuery1.Filtered:=false;

ADOQuery1.Filter:='инструменты LIKE '+#39+'%'+Edit1.Text+'%'+#39;

ADOQuery1.Filtered:=true;

end;

end;

procedure TForm1.Image2Click(Sender: TObject);

begin

ADOQuery1.Next;

end;

procedure TForm1.Image3Click(Sender: TObject);

begin

ADOQuery1.Prior;

end;

procedure TForm1.Image5Click(Sender: TObject);

begin

ADOQuery1.Last;

end;

procedure TForm1.Image4Click(Sender: TObject);

begin

ADOQuery1.First;

end;

procedure TForm1.N3Click(Sender: TObject);

begin

Form6.show;

end;

procedure TForm1.Image6Click(Sender: TObject);

begin

Form3.show;

ADOQuery1.Insert;

end;

procedure TForm1.Image7Click(Sender: TObject);

begin

ADOQuery1.Delete();

end;

procedure TForm1.N6Click(Sender: TObject);

begin

Form1.ADOQuery1.Sort:='стоимость';

end;

end.

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, jpeg, ExtCtrls;

type

TForm2 = class(TForm)

Image1: TImage;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

{$R *.dfm}

end.

unit Unit3;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, jpeg, ExtCtrls, ExtDlgs, StdCtrls, DBCtrls, Mask;

type

TForm3 = class(TForm)

Image1: TImage;

Label1: TLabel;

DBImage1: TDBImage;

Button1: TButton;

Button3: TButton;

OpenPictureDialog1: TOpenPictureDialog;

DBEdit1: TDBEdit;

DBMemo1: TDBMemo;

DBEdit2: TDBEdit;

Label2: TLabel;

Label3: TLabel;

procedure Button1Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);

begin

if (OpenPictureDialog1.Execute) then

begin

DBImage1.Picture.LoadFromFile(OpenPictureDialog1.FileName);

DBImage1.Update();

end;

end;

procedure TForm3.Button3Click(Sender: TObject);

begin

Form1.ADOQuery1.Post;

FORM3.Close;

end;

end.

unit Unit4;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, StdCtrls, jpeg, ExtDlgs;

type

TForm4 = class(TForm)

Image1: TImage;

Button1: TButton;

Button2: TButton;

Label1: TLabel;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);

begin

Form1.show;

Form4.Hide;

end;

procedure TForm4.Button2Click(Sender: TObject);

begin

Form4.close;

end;

end.

unit Unit6;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, jpeg, ExtCtrls;

type

TForm6 = class(TForm)

Image1: TImage;

Label1: TLabel;

Label2: TLabel;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

implementation

{$R *.dfm}

end.

Приложение Б

ПРИМЕР РАБОТЫ ПРОГРАММЫ

После запуска исполняющего файла Project1.exe появляется меню приветствия программы:

Форма «Просмотр информации»

Форма «Добавление записи»



Размещено на Allbest.ur