Разработка аис с использованием среды Delphi

Создаем Базу данных молочного завода. В нее входят таблицы: директор, поставки, поставщики, сырье, вид сырья, изготовление, товар, вид товара, клиенты, продажа.

Заполняем таблицы, начиная с родительских.

Разработка главной формы

1. ЗапуститьDelphi 7

2. Сохранить проект в папке: Unit - UnitMain, Project - ProjectKombinat

3. Свойствоcaption «molochnyizavod»

4. Свойствоname – MainForm

5. Свойство formstyle – MDIForm – только для этой формы, так как она родительская

6. Свойство Windowsstate – maximized

Для главной формы создать меню. Для этого расположить не визуальный компонент на вкладке Standart – mainmenu. Дважды щелкнуть, и в редакторе прописать команды меню: caption – справочники.

Установка связи с бд

Для установления связи с существующей БД Project добавляется элемент file->new->datemodule. Сохранить его под именем UnitBD.

Свойствоname – DateBD

На DateBD расположить ADOconection с вкладки ADO. name – kombinat

Далее свойство connectionstring нажать«…»и в появившемся окне Biuk выбираем Microsoftjet 4.0 OLEBDprovider. Далее обзор ->выбираем файл и удаляем путь кроме имени БД. Проверить подключение – ок – ок-ок.

СвойствоloginPrompt - false

Свойствоconnect – true

Saveall

Создание справочника поставщиков

Выполнить file->new ->form. Saveas UnitPostavchik

Установить свойство caption – справочник поставщиков

Свойствоname – FormPostavchik

Form style – MDIchild

Position – defaultonly

Чтобы дочерняя форма не запускалась, необходимо project->optionвсе дочерние формы справа, кроме DateBD.

Для вызова формы перейти в главную форму, дважды щелкнуть по конструктору меню. Поставщик. Прописать: «application.Createform(TFormPostavchik,formpostavchik);»

Для того, чтобы сработало необходимо подключить модуль вызываемой формы: file-UseUnit-post

Для того, чтобы справочник закрывался при нажатии на крестик, активировать его и открыть вкладку Events-OneClose-дважды щелкнуть и прописать: «caFree;»

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

С вкладки ADOдобавить ADOtable. Установить свойства: name –AdoPostavchik, connection-выбираем, tablename- выбираем, active – true

В модуль DateBDс вкладки DateAccessрасположить DateSource. Свойства: name – postavchik, `dataset – AdoPostavchik

К модулю UnitPostavchik нужно подключить модуль UnitBD: fileUseUnit

Расположить на справочнике компонент DBGrid с вклDateControls. Установить свойство:

Для отображения данных в сетке DBGridправильно, надо перейти компонент dateBD,дважды щелкнуть ADOPostavchik. Правой кнопкой кликнуть addallfields. Установить свойство visible – true

Displaylabelимя отчество установить ширину widht

Добавить навигатор с DateControl

dataSource – Postavchik

Создание справочника клиентов

Выполнить file->new ->form. Saveas UnitClient

Установить свойство caption – справочник клиентов

Свойство name – FormClient

Form style – MDIchild

Position – defaultonly

Чтобы дочерняя форма не запускалась, необходимо project->option все дочерние формы справа, кроме DateBD.

Для вызова формы перейти в главную форму, дважды щелкнуть по конструктору меню. Поставщик. Прописать: «application.Createform(TFormClient,formclient);»

Для того, чтобы сработало необходимо подключить модуль вызываемой формы: file-UseUnit-post

Для того, чтобы справочник закрывался при нажатии на крестик, активировать его и открыть вкладку Events-OneClose-дважды щелкнуть и прописать: «caFree;»

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

С вкладки ADOдобавить ADOtable. Установить свойства: name –AdoClient, connection-выбираем, tablename- выбираем, active – true

В модуль DateBD с вкладки DateAccess расположить DateSource. Свойства: name – client, `dataset – AdoClient

К модулю UnitClient нужно подключить модуль UnitBD: fileUseUnit

Расположить на справочнике компонент DBGrid с вклDateControls. Установить свойство:

Для отображения данных в сетке DBGridправильно, надо перейти компонент dateBD,дважды щелкнуть ADOClient. Правой кнопкой кликнуть addallfields. Установить свойство visible – true

Displaylabelимя отчество установить ширину widht

Добавить навигатор с DateControl

dataSource – Client