ADOQuery1.Filter:=«Дата_выдачи=»«»+edit7.Text+«»«»;radiogroup1.ItemIndex=4 then
ADOQuery1.Filter:=«Дата_возврата=»«»+edit8.Text+«»«»;radiogroup1.ItemIndex=5 then
ADOQuery1.Filter:=«Задолженность=»«»+edit9.Text+«»«»;radiogroup1.ItemIndex=6 then
ADOQuery1.Filter:=«Дни_задолженности»«»+edit10.Text+«»«»; radiogroup1.ItemIndex=7 then ADOQuery1.Filter:=«»; end;
В результаті введення даних по запрашіваніе потрібного тексту у відповідному полі ми отримаємо потрібний результат (малюнок № 40). Наприклад, відфильтруем таблицю по полю «Заборгованість». Вписуємо в рядок «Заборгованість» параметр «True» і натискаємо кнопку відфільтрувати. У результаті з'явиться таблиця:
Малюнок № 40. Результат фільтрації по полю «Заборгованість»
Тепер спробуємо відфільтрувати таблицю по полю «код читача». Впишемо в рядок «код читача» параметр наприклад «7». Далі натискаємо кнопку «Фільтрувати». Перед нами з'явитися відфільтрована таблиця:
Малюнок № 41. Результат фільтрації по полю «ПІБ туриста»
-ий крок. Експорт в Excel
Для експорту даних з таблиці «Клієнти» в Excel, скористаємося і кнопкою Button. Перейменуємо її в «Експорт до Excel». Щелкнем подвійним клацанням по кнопці «Експорт до Excel» і пропишемо наступну процедуру:
procedure TForm1.Button14Click (Sender: TObject);, Xarr: Variant;: Integer;: Integer;:=VarArrayCreate([1,ADOQuery1.FieldCount],varVariant);:=CreateOLEObject(«Excel.Application»);.WorkBooks.add;.visible:=true;:= 1;. First; not ADOQuery1.Eof do:=1; i <= ADOQuery1.FieldCount do [i]:=ADOQuery1.Fields [i - 1]. Value;:=i +1;;. Range [«A» ; + IntToStr (j), (64 + ADOQuery1.FieldCount) + IntToStr (j)]. Value:=Xarr;.Next;:=j+1;;.Range[«A1»,CHR(64+ADOQuery1.FieldCount)+IntToStr(j)].select;.Selection.Font.Name:=«Arial cur»;.Selection.Font.Size:=10;.selection.Columns.AutoFit;.Range[«A1»,«A1»].select;;
Запускаємо програму і натискаємо кнопку «Експорт до Excel».
На малюнку 42 представлено експорт даних з таблиці «ФОНД» в Microsoft Office Excel.
Малюнок № 42. Експортовані дані з таблиці «ТУРИСТИ»
-ой крок. Пошук
Для вкладки «Пошук» розташованої на PageControl головної форми таблиці «ФОНД», розташуємо компонент RadioGroup. У властивостях виберемо поле Items і пропишемо у вікні, поля, які будуть відображатися як Radio кнопки (малюнок № 43).
Малюнок № 43. Найменування полів
Додамо на форму компонент Edit, він призначений для введення даних пошуку. Для кнопки «Виконати пошук» пропишемо процедуру пошуку даних, що вводяться:
procedure TForm1.Button18Click (Sender: TObject); RadioGroup5.ItemIndex...
