Разработка АИС для автоматизации учета выпуска и реализации готовой продукции

ВВЕДЕНИЕ

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

 

ТЕОРИТИЧЕСКАЯ ЧАСТЬ

Любое приложение баз данных имеет в своем составе  или использует сторонний механизм доступа к данным, который берет на себя подавляющее большинство стандартных низкоуровневых операций работы с базами данных. Например, любое такое приложение при открытии таблицы БД должно выполнить примерно одинаковый набор операций. 

• поиск местоположения базы данных; 
• поиск таблицы, ее открытие и чтение служебной информации; 
• чтение данных в соответствии с форматом хранения данных
• и т. д.

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

Одним из традиционных способов взаимодействия приложения, созданного в среде разработки Delphi, и базы данных является использование процессора баз данных Borland Database Engine. Его интерфейс с прикладными программами называется Integrated Database Application Programming Interface (IDAPI). В принципе, сейчас не различают эти два названия (BDE и IDAPI) и считают их синонимами. BDE позволяет осуществлять доступ к данным как с использованием традиционного record-ориентированного (навигационного) подхода, так и с использованием set-ориентированного подхода, используемого в SQL-серверах баз данных. Кроме BDE, Delphi позволяет осуществлять доступ к базам данных, используя технологию (и, соответственно, драйверы) Open DataBase Connectivity (ODBC) фирмы Microsoft. Но, как показывает практика, производительность систем с использованием BDE гораздо выше, чем оных при использовании ODBC. ODBC драйвера работают через специальный “ODBC socket”, который позволяет встраивать их в BDE.

Для работы с  источниками данных при посредстве BDE в Delphi имеется специальный набор  компонентов, расположенных на странице BDE Палитры компонентов. Эти компоненты для работы с базами данных используют возможности BDE, обращаясь к его функциям и процедурам. Механизм доступа к BDE инкапсулирован в базовом классе TBDEDataSet. (Подробно базовые классы компонентов доступа к данным рассмотрены далее в этой части.) Поэтому в процессе программирования у вас не будет необходимости использовать функции BDE напрямую. Почти все, что можно сделать путем прямого обращения, можно сделать и через компоненты — это проще и надежнее.

BDE взаимодействует  с базами данных при посредстве  драйверов. Для особенно распространенных  локальных СУБД разработан набор  стандартных драйверов. Работа  с наиболее распространенными  серверами БД осуществляется  при помощи драйверов системы  SQL Links. Кроме этого, если для базы данных существует драйвер ODBC, то можно использовать и его. Достаточно зарегистрировать этот драйвер в BDE. 
СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ

	Бакаревич Ю.Б., Пушкина  Н.В. Самоучитель Microsoft Access 2002. – СПб.: БХВ-Петербург, 2002-356 ст.
	Бондарева Г.А., Сахарова Е.В., Королькова Л.Н., Информатика. Методические указания. Ставрополь, СТИС, 2006-251 ст.
	Гончаров А. Ю. Access 2003. Самоучитель с примерами., Москва, 2004г-124 ст.
	Григорьев В.А., Ревунков В.И. Банки  данных. Учебник для вузов. – М., МВТУ им.Баумана, 2002-673 ст.
	Домашняя страница Access: справка и обучение http://office.microsoft.com/ru-ru/access/FX100487571049.aspx
	Симонович С. В., Евсеев Г. А., Алексеев А. Г. Специальная информатика: Учебное пособие. – М.: АСТ-ПРЕСС: Инфорком-Пресс, 2000-382 ст.

 

 

ТЕОРИТИЧЕСКАЯ ЧАСТЬ

листинг 1-основная программа

procedure TForm1.Button1Click(Sender: TObject);

begin

module.zakaz.Insert;

dbgrid6.SetFocus;

form3.ShowModal;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

module.zakaz.Delete;

end;

procedure TForm1.N7Click(Sender: TObject);

begin

form6.showmodal;

end;

procedure TForm1.N2Click(Sender: TObject);

begin

close;

end;

procedure TForm1.N17Click(Sender: TObject);

begin

form7.showmodal;

end;

procedure TForm1.N14Click(Sender: TObject);

begin

form8.showmodal;

end;

procedure TForm1.N8Click(Sender: TObject);

begin

form14.ShowModal;

end;

procedure TForm1.N9Click(Sender: TObject);

begin

form13.showmodal;

end;

procedure TForm1.N10Click(Sender: TObject);

begin

form11.showmodal;

end;

procedure TForm1.N11Click(Sender: TObject);

begin

form9.showmodal;

end;

procedure TForm1.N12Click(Sender: TObject);

begin

form12.showmodal;

end;

procedure TForm1.N13Click(Sender: TObject);

begin

form10.showmodal;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

form17.showmodal;

end;

procedure TForm1.Button10Click(Sender: TObject);

begin

module.Sotrydnik.Insert;

form5.ShowModal;

end;

procedure TForm1.N5Click(Sender: TObject);

begin

form15.showmodal;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

module.tovar.Insert;

DBgrid5.SetFocus;

form18.showmodal;

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

form20.showmodal;

end;

procedure TForm1.Button6Click(Sender: TObject);

begin

module.tovar.Delete;

end;

procedure TForm1.Button7Click(Sender: TObject);

begin

module.klient.Insert;

DBgrid4.SetFocus;

form22.showmodal;

end;

procedure TForm1.Button8Click(Sender: TObject);

begin

form24.showmodal;

end;

procedure TForm1.Button9Click(Sender: TObject);

      begin

module.klient.Delete;

end;

procedure TForm1.Button11Click(Sender: TObject);

begin

form26.showmodal;

end;

procedure TForm1.Button12Click(Sender: TObject);

begin

module.sotrydnik.Delete;

end;

procedure TForm1.Button15Click(Sender: TObject);

begin

module.postavshik.Delete;

end;

procedure TForm1.Button18Click(Sender: TObject);

begin

module.postavki.Delete;

end;

procedure TForm1.Button13Click(Sender: TObject);

begin

module.postavshik.Insert;

dbgrid2.SetFocus;

form27.ShowModal;

end;

procedure TForm1.Button14Click(Sender: TObject);

begin

form28.showmodal;

end;

procedure TForm1.Button16Click(Sender: TObject);

begin

module.postavki.Insert;

dbgrid1.SetFocus;

form29.ShowModal;

end;

procedure TForm1.Button17Click(Sender: TObject);

begin

form30.showmodal;

end;

procedure TForm1.Button19Click(Sender: TObject);

begin

module.zakaz.IndexFieldNames:='КодЗаказа';

end;

procedure TForm1.Button20Click(Sender: TObject);

begin

module.zakaz.IndexFieldNames:='кодТовара';

end;

procedure TForm1.Image7Click(Sender: TObject);

begin

module.zakaz.Insert;

dbgrid6.SetFocus;

form3.ShowModal;

end;

procedure TForm1.Image8Click(Sender: TObject);

begin

form3.showmodal;

end;

procedure TForm1.Image9Click(Sender: TObject);

begin

module.zakaz.Delete;

end;

procedure TForm1.Image10Click(Sender: TObject);

begin

module.tovar.Insert;

DBgrid5.SetFocus;

form18.showmodal;

end;

procedure TForm1.Image11Click(Sender: TObject);

begin

form18.showmodal;

end;

procedure TForm1.Image12Click(Sender: TObject);

begin

module.tovar.Delete;

end;

procedure TForm1.Image15Click(Sender: TObject);

begin

module.klient.Delete;

end;

procedure TForm1.Image14Click(Sender: TObject);

begin

form22.showmodal;

end;

procedure TForm1.Image13Click(Sender: TObject);

begin

module.klient.Insert;

DBgrid4.SetFocus;

form22.showmodal;

end;

procedure TForm1.Image20Click(Sender: TObject);

begin

module.Sotrydnik.Insert;

form5.ShowModal;

end;

procedure TForm1.Image21Click(Sender: TObject);

begin

form5.showmodal;

end;

procedure TForm1.Image23Click(Sender: TObject);

begin

module.sotrydnik.Delete;

end;

procedure TForm1.Image16Click(Sender: TObject);

begin

module.postavshik.Insert;

dbgrid2.SetFocus;

form27.ShowModal;

end;

procedure TForm1.Image17Click(Sender: TObject);

begin

form27.showmodal;

end;

procedure TForm1.Image18Click(Sender: TObject);

begin

module.postavshik.Delete;

end;

procedure TForm1.Image24Click(Sender: TObject);

begin

module.postavki.Insert;

dbgrid1.SetFocus;

form29.ShowModal;

end;

procedure TForm1.Image26Click(Sender: TObject);

begin

form29.showmodal;

end;

procedure TForm1.Image27Click(Sender: TObject);

begin

module.postavki.Delete;

end;

procedure TForm1.N15Click(Sender: TObject);

begin

form31.showmodal;

end;

procedure TForm1.N22Click(Sender: TObject);

begin

Form32.showmodal;

end;

end.

рисунок 1-основная программа

Листинг 2-добавление и редактирование заказа

procedure TForm3.BitBtn1Click(Sender: TObject);

begin

if module.zakaz.modified then

module.zakaz.post;

end;

procedure TForm3.Button1Click(Sender: TObject);

begin

module.Sotrydnik.Insert;

form5.showmodal;

end;

procedure TForm3.Button2Click(Sender: TObject);

begin

module.tovar.Insert;

form18.showmodal;

end;

procedure TForm3.Button3Click(Sender: TObject);

begin

module.klient.Insert;

form22.showmodal;

end;

procedure TForm3.Image2Click(Sender: TObject);

begin

if module.zakaz.modified then

module.zakaz.post;

close;

end;

procedure TForm3.Image4Click(Sender: TObject);

begin

module.Sotrydnik.Insert;

form5.showmodal;

end;

procedure TForm3.Image5Click(Sender: TObject);

begin

module.tovar.Insert;

form18.showmodal;

end;

procedure TForm3.Image6Click(Sender: TObject);

begin

module.klient.Insert;

form22.showmodal;

end;

procedure TForm3.Image3Click(Sender: TObject);

begin

module.zakaz.Cancel;

close;

end;

рисунок 2-форма добавление и редактирования заказа

листинг 3-добавление и редактирования товара

procedure TForm18.BitBtn1Click(Sender: TObject);

begin

if module.tovar.Modified then

module.tovar.Post;

close;

end;

procedure TForm18.BitBtn2Click(Sender: TObject);

begin

module.tovar.Cancel;

close;

end;

procedure TForm18.Image2Click(Sender: TObject);

begin

module.postavki.Insert;

form29.ShowModal;

end;

procedure TForm18.Image4Click(Sender: TObject);

begin

if module.tovar.Modified then

module.tovar.Post;

close;

end;

procedure TForm18.Image3Click(Sender: TObject);

begin

module.tovar.cancel;

close;

end;

end.

Рисунок 3- Форма добавления и редактирования товара

листинг 4-добавление и редактирования клиента

procedure TForm22.Button1Click(Sender: TObject);

begin

if module.klient.Modified then

module.klient.Post;

close;

end;

procedure TForm22.Image3Click(Sender: TObject);

begin

if module.klient.Modified then

module.klient.Post;

close;

end;

procedure TForm22.Image2Click(Sender: TObject);

begin

module.klient.cancel;

close;

end;

рисунок 4-форма добавление и редактирования клиента

листинг 5-добавление и редактирования клиента сотрудника

procedure TForm5.BitBtn1Click(Sender: TObject);

begin

if module.Sotrydnik.Modified then

module.Sotrydnik.Post;

close;

end;

procedure TForm5.Image3Click(Sender: TObject);

begin

if module.Sotrydnik.Modified then

module.Sotrydnik.Post;

close;

end;

procedure TForm5.Image2Click(Sender: TObject);

begin

module.Sotrydnik.cancel;

close;

end;

рисунок 5-форма добавление и редактирования сотрудника

листинг 6-добавление и редактирования поставщиков

procedure TForm27.Button1Click(Sender: TObject);

begin

if module.postavshik.Modified then

module.postavshik.Post;

end;

procedure TForm27.Image2Click(Sender: TObject);

begin

if module.postavshik.Modified then

module.postavshik.Post;

close;

end;

procedure TForm27.Image3Click(Sender: TObject);

begin

module.postavshik.cancel;

close;

end;

рисунок 6-форма добавление и редактирования поставщиков

листинг 7-добавление и редактирования поставок

procedure TForm29.Button1Click(Sender: TObject);

begin

if module.postavki.Modified then

module.postavki.Post;

end;

procedure TForm29.Image3Click(Sender: TObject);

begin

if module.postavki.Modified then

module.postavki.Post;

close;

end;

procedure TForm29.Image2Click(Sender: TObject);

begin

module.postavki.Cancel;

close;

end;

procedure TForm29.Image4Click(Sender: TObject);

begin

module.postavshik.Insert;

form27.ShowModal;

end;

рисунок 7-форма добавление и редактирования поставок

листинг 8-просмотр списка заказа

procedure TForm14.N1Click(Sender: TObject);

begin

close;

end;

procedure TForm14.Image2Click(Sender: TObject);

begin

module.zakaz.IndexFieldNames:='Кодзаказа';

end;

procedure TForm14.Image3Click(Sender: TObject);

begin

module.zakaz.IndexFieldNames:='Кодтовара';

end;

procedure TForm14.Image4Click(Sender: TObject);

begin

module.zakaz.IndexFieldNames:='Кодсотрудника';

end;

procedure TForm14.Image5Click(Sender: TObject);

begin

module.zakaz.IndexFieldNames:='КодКлиента';

end;

procedure TForm14.Image6Click(Sender: TObject);

begin

module.zakaz.IndexFieldNames:='Датазазмещения';

end;

procedure TForm14.Image7Click(Sender: TObject);

begin

module.zakaz.IndexFieldNames:='датаисполнения';

end;

рисунок 8-форма список заказов

листинг 9-просмотр списка товаров

procedure TForm13.N1Click(Sender: TObject);

begin

close;

end;

procedure TForm13.Image2Click(Sender: TObject);

begin

module.tovar.IndexFieldNames:='КодТовара';

end;

procedure TForm13.Image3Click(Sender: TObject);

begin

module.tovar.IndexFieldNames:='Кодпоставки';

end;

procedure TForm13.Image4Click(Sender: TObject);

begin

module.tovar.IndexFieldNames:='наименованиеТовара';

end;

procedure TForm13.Image5Click(Sender: TObject);

begin

module.tovar.IndexFieldNames:='стоимостьзакупки';

end;

procedure TForm13.Image6Click(Sender: TObject);

begin

module.tovar.IndexFieldNames:='Кол-во';

end;

рисунок 9-форма просмотра списка товаров

листинг 10-просмотр списка клиентов

procedure TForm11.N1Click(Sender: TObject);

begin

close;

end;

procedure TForm11.Image2Click(Sender: TObject);

begin

module.klient.IndexFieldNames:='Код';

end;

procedure TForm11.Image3Click(Sender: TObject);

begin

module.klient.IndexFieldNames:='ФИО';

end;

procedure TForm11.Image4Click(Sender: TObject);

begin

module.klient.IndexFieldNames:='Адрес';

end;

рисунок 10-форма просмотра списка клиентов

листинг 11-просмотр списка сотрудников

procedure TForm9.N1Click(Sender: TObject);

begin

close;

end;

procedure TForm9.Image2Click(Sender: TObject);

begin

module.Sotrydnik.IndexFieldNames:='Кодсотрудника';

end;

procedure TForm9.Image3Click(Sender: TObject);

begin

module.Sotrydnik.IndexFieldNames:='Фамилия';

end;

procedure TForm9.Image4Click(Sender: TObject);

begin

module.Sotrydnik.IndexFieldNames:='Должность';

end;

рисунок 11-форма просмотра списка сотрудников

листинг 12-просмотр списка поставщиков

procedure TForm12.N1Click(Sender: TObject);

begin

close;

end;

procedure TForm12.Image2Click(Sender: TObject);

begin

module.postavshik.IndexFieldNames:='Кодпоставщика';

end;

procedure TForm12.Image3Click(Sender: TObject);

begin

module.postavshik.IndexFieldNames:='Названиепоставщика';

end;

procedure TForm12.Image4Click(Sender: TObject);

begin

module.postavshik.IndexFieldNames:='Представительпоставщика';

end;

рисунок 12-форма просмотра списка поставщиков

листинг 13-просмотр список поставок