- •Лабораторная работа по курсу Базы данных.
- •Доступ к бд из среды Delphi.
- •Создание базы данных
- •Интерфейс доступа к бд.
- •Поиск в таблице товаров бд.
- •Фильтрация данных в таблице товаров бд.
- •Добавление в проект таблицы firm .
- •Добавление в проект новых форм.
- •Разработка интерфейса заполнения справочника фирм.
- •Поиск в таблице фирм бд.
Добавление в проект таблицы firm .
Добавьте в область модуля DM-Unit2 объекты ADO/ADOTable, Data Access/DataSource. Используя свойство Name, переименуйте их в ADOTbFirm и DSFirm – рис.8
Рис.8
Последовательно в инспекторе объектов установите следующие свойства для новых объектов модуля данных DM:
Объект
Свойство
Значение
ADOTbFirm
Connection
ADOConnection1
TableName
Firm
Active
True
DSFirm
DataSet
ADOTbFirm
Используя правую кнопку мыши над объектом ADOTBFirm, войдите в редактор полей Fields Editor и добавьте поля таблицы в объект (опция Add All Fields)
Добавление в проект новых форм.
Создайте новую главную форму проекта Form3 и форму для фирм – Form4: File/New/Form.
Поместите на главную форму Form3 объект MainMenu и включите в него опции СПРАВОЧНИКИ, ТОВАРЫ, ФИРМЫ, ВЫХОД (рис.6).
Сделайте главную форму стартовой: Project/Options/Main Form/Form3.
Подключите к модулю главной формы модули справочников: File/Use Unit/ Unit1 и File/Use Unit/ Unit4.
Для главной формы Form3 cоздайте три событийные процедуры для событий нажатия пунктов меню ТОВАРЫ, ФИРМЫ, ВЫХОД.
procedure TForm3.N2Click(Sender: TObject);
begin
// открыть форму ТОВАРОВ
Form1.ShowModal;
end;
procedure TForm3.N3Click(Sender: TObject);
begin
// открыть форму ФИРМ
Form4.ShowModal;
end;
procedure TForm3.N4Click(Sender: TObject);
begin
Close;
end;
Сохраните файлы форм и файл проекта. Отладьте многоформное приложение пока без интерфейса доступа к справочнику фирм.
Разработка интерфейса заполнения справочника фирм.
Установите на форму Form4 интерфейсные объекты из разделов Standard и DataControls палитры компонентов, изображенные на рисунке 9.
Рис. 9
Подключите к модулю формы Form4 модуль данных DM: File/Use Unit/ Unit2
Установите у созданных объектов следующие свойства:
Объект |
Свойство |
Значение |
Panel1 |
Align |
AlClient |
|
Caption |
пусто |
Panel2 |
Align |
AlBottom |
|
Caption |
пусто |
Panel3 |
Align |
AlTop |
|
Caption |
пусто |
Edit1 |
Text |
пусто |
|
Font |
10, жирный |
Label1 |
Caption |
Поиск по названию |
Label2 |
Caption |
Код фирмы |
Label3 |
Caption |
Фирма |
DBNavigator1 |
DataSource |
DM.DSFirm |
|
Align |
AlClient |
DBEdit1 |
DataSource |
DM.DSFirm |
|
DataField |
Firm_ID |
DBEdit2 |
DataSource |
DM.DSFirm |
|
DataField |
Firm_Name |
Сохраните приложение.
Запустите приложение и добавьте данные в таблицу фирм, измените значения полей и удалите 1-2 строки.