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

Министерство образования Республики Беларусь УО Витебский государственный политехнический колледж Курсовой проект по дисциплине: Основы алгоритмизации и программирования ИПС «Музыкальный магазин».

ВГПК.2 400 101.К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 Мб и выше.

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

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 появляется меню приветствия программы:

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

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

.ur.