Создание программы на Delphi 7

Открыв Delphi создаем проект, наша главная форма должна выглядеть такой:

Рисунок 3.

Для этого в форму помещаем Panel и к свойству Align присваиваем AlClient для того чтобы он заполнил всю форму. Потом в панель кидаем DBGrid и DBMemo из вкладки DataControls палитры компонентов.

Далее добавляем один Edit и три BitBtn из вкладки Additional.

Для вывода таблицы Tovar используется DBGrid, а для вывода таблицы Op используем DBMemo.

Далее для поиска используем Edit и для трех кнопок BitBtn в свойствах Caption пишем редактировать, добавить, удалить.

Затем сохраняем, и свойству Name формы присваиваем fMain, свойству Caption по умолчанию, нажимаем кнопку SaveAll, сохраняем модуль под именем Main. pas, а проект в целом назовем Project1.

Рисунок 4.

Связывание Delphi с БД

Для этого добавляем модуль данных, File-New-DataModule. Он нужен для того чтобы связать БД Access с Delphi.

Рисунок 5.

Свойству Name модуля данных мы присвоим имя fDM, а модуль сохраним как DM.pas.. Добавляем в модуль компонент ADOConnection с вкладки ADO палитры компонентов. Этот компонент обеспечит связь других компонентов с базой данных при помощи механизма ADO.

Теперь нужно соединить для этого нажимаем дважды по свойству ConnectionString компонента ADOConnection. Откроется окно подключения компонента к ADO:

Рисунок 6.

Нажимаем кнопку Build. В открывшемся окне настроек подключения выбираем Microsoft Jet 4.0 OLE DB Provider далее:

Рисунок 7.

В окне соединение выбираем БД, потом нажимаем на кнопку «проверить соединение» после того как соединение прошло успешно нажимаем ОК.

Рисунок 8.

Потом выделяем первый компонент ADOTable. Переименовываем его свойство Name в TTovar, а в свойстве TableName выбераем главную таблицу базы — Tovar. Буква «Т» в начале названия компонента указывает, что в дальнейшем, что это таблица. Рядом с компонентом устанавливаем компонент DataSource из вкладки Data Access палитры компонентов. Компонент DataSource предназначен для организации связи с наборами данных, и служит посредником между такими компонентами как ADOTable и между компонентами отображения данных, например, DBGrid, DBEdit и т. п. Свойство Name компонента DataSource переименовываем в DSNeims (DS — DataSource). В свойстве DataSet выбераем таблицу TTovar.

Проделываем аналогично таким же образов оставшуюся таблицу, подключая аналогичным образом компонент DataSource к таблице:

Рисунок 9.

Потом переходим в главную форму, и выбираем команду File-UseUnit и подключаем к ней модуль DM и переходим в модуль данных и так же подключаем главную форму Main к DM.

Рисунок 10.

Далее свойство Active обеих таблиц ADOTable переведем в True.

Переходим в главную форму и свойстве DataSource компонента DBGrid выбираем fDM. DSTovar, а в свойствах DataSource компонентов DBMemo и DBEdit-ов выбираем fDM. DSOp, а в свойстве DataField выбираем соответствующее ему поле.

Теперь устанавливаем связь для того чтобы в DBMemo и DBEdit-ах выходили выделенные данные только на ту звезду (планету, астероид и тд), выделенную в таблице DBGrid. Для этого переходим в модуль данных DM и двойным щелчком по первой таблице ADOTable открываем редактор полей. Правой кнопкой щелкаем по редактору и выбираем команду Add all fields (добавить все поля). Теперь в окне редактора полей появились все поля таблицы. Аналогично действую со второй ADOTable.

Рисунок 11.

Далее кнопкой переходим в редактор кода. В нижней части окна переходим на вкладку Diagram,. Делаем такую связь:

Рисунок 12.

Для начала в окно диаграммы добавляем таблицы. Они находятся в окне дерева объектов Object TreeView. Перетаскиваем из окна главную таблицу Tovar (TTovar) мышью в окно диаграмм. Таблица вместе с полями отобразится в окне. Точно также перетаскиваем другую таблицу. Связь «главная — подчиненная» делаем кнопкой Master / Detail Connector, которая находиться в верхней части окна диаграмм. Нажимаем на кнопку, затем подводим указатель мыши к боковой границе главной таблицы (Tovar), нажимаем левую кнопку и, удерживая ее, проводим линию к боковой границе таблицы Op. Отпускаем кнопку, появляется окно связей:

Рисунок 13.

В поле Detail Fields выбираем поле, по которому будет осуществляться связь, поле «Код». В поле Master Fields выбираем ключевое поле «Ключ». Затем нажимаем кнопку Add и кнопку OK. Связь установлена.