 |
Фильтрация данных в таблице товаров БД.
|
|
|
|
- Для модуля Unit1 - флажка CheckBox1 с используемым для фильтра значением и события OnClick создайте событийную процедуру, устанавливающую свойство фильтрации Filtered для таблицы товаров:
procedure TForm1.CheckBox1Click(Sender: TObject);
Begin
DM.ADOTbTovar. Filtered:= CheckBox1.Checked;
end;
- Перейтите в модуль данных DM. Для объекта таблицы ADOTbTovar и события для нее OnFilterRecord создайте событийную процедуру, устанавливающую условие фильтрации Accept для таблицы товаров:
procedure TDM.ADOTbTovar FilterRecord (DataSet: TDataSet;
var Accept: Boolean);
Begin
Accept:= ADOTbTovarStorage_Life.Value <= StrToInt(form1.Edit2.Text);
end;
- Отладьте процедуру фильтрации товаров. Сохраните приложение.
Задание 2
К созданному Delphi – приложению добавьте главную форму Form3/ Unit3, содержащую меню программы, и форму Form4/Unit4, которая выполняет заполнение таблицы справочника фирм. Формы должны иметь вид, представленный на Рис.6, 7.
Рис.6 Form3 – главная форма проекта.
Рис.7. Форма Form4 – доступ к фирмам
Добавление в проект таблицы FIRM.
19. Добавьте в область модуля DM-Unit2 объекты ADO/ ADOTable, Data Access/ DataSource. Используя свойство Name, переименуйте их в ADOTbFirm и DSFirm – рис.8
Рис.8
20. Последовательно в инспекторе объектов установите следующие свойства для новых объектов модуля данных DM:
| Объект | Свойство | Значение |
| ADOTbFirm | Connection | ADOConnection1 |
| TableName | Firm | |
| Active | True | |
| DSFirm | DataSet | ADOTbFirm |
21. Используя правую кнопку мыши над объектом ADOTBFirm, войдите в редактор полей Fields Editor и добавьте поля таблицы в объект (опция Add All Fields)
Добавление в проект новых форм.
22. Создайте новую главную форму проекта Form3 и форму для фирм – Form4: File/New/Form.
23. Поместите на главную форму Form3 объект MainMenu и включите в него опции СПРАВОЧНИКИ, ТОВАРЫ, ФИРМЫ, ВЫХОД (рис.6).
|
|
|
24. Сделайте главную форму стартовой: Project/Options/Main Form /Form3.
25. Подключите к модулю главной формы модули справочников: File/Use Unit/ Unit1 и File/Use Unit/ Unit4.
26. Для главной формы 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;
27. Сохраните файлы форм и файл проекта. Отладьте многоформное приложение пока без интерфейса доступа к справочнику фирм.
Разработка интерфейса заполнения справочника фирм.
28. Установите на форму Form4 интерфейсные объекты из разделов Standard и DataControls палитры компонентов, изображенные на рисунке 9.
Рис. 9
29. Подключите к модулю формы Form4 модуль данных DM: File/Use Unit/ Unit2
30. Установите у созданных объектов следующие свойства:
| Объект | Свойство | Значение |
| 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 строки.
Поиск в таблице фирм БД.
- Для модуля Unit4 - поля Edit1 с искомым значением и события OnChange изменения поля создайте событийную процедуру для навигации по строкам таблицы и поиска записи с нужным значением поля Firm_Name:
procedure TForm4. Edit1 Change (Sender: TObject);
Begin
DM.ADOTbFirm. First; // К первой записи таблице
While NOT(DM.ADOTbFirm. Eof) do Begin // Пока не закончатся все записи
// Если в записи есть искомый фрагмент, то она искомая. Закончить перебор.
If Pos (Edit1.Text,DM.ADOTbFirmFirm _ Name.Value) <> 0 Then Exit;
|
|
|
DM.ADOTbFirm. Next;
End;
end;
- Отладьте процедуру поиска фирм и сохраните приложение.
|
|
|
