Active: = false;. SQL.Clear;. SQL.Add ('SELECT * FROM book ORDER BY Назва');. ExecSQL;. Active: = true;. Columns.Items [ 0]. Width: = 200;. Columns.Items [1]. Width: = 200;. Columns.Items [2]. Width: = 200;. Columns.Items [3]. Width: = 200;. Width: = 840;. Width: = 900;;
Пошук
Щоб організувати пошук в компоненті MainMenu створюється вкладка В«ПошукВ». По натискання виконується код:
Form9.Show;
Form9.Edit1.Text: ='';
Form9.ComboBox1.Items [0]: = 'Фамілія_ІО';. ComboBox1.Items [1]: = 'Жанр';. ComboBox1.Items [2]: = 'Видавництво';
Form1.SelectedForm: = 3;
Таким чином, відкривається форма пошуку Form9, яка викликається таким же чином і в решті таблицях. На Form9 розташовується також кнопка В«Виконати пошукВ», після натискання на яку виконується код:
case (Form1.SelectedForm) of
: (Edit1.Text ='') then ('Введіть що потрібно шукати', mtInformation, [mbOK], 0) (Form2.DBGridBook.DataSource.DataSet.Locate (ComboBox1.Text, Edit1 . Text, [])) then.DBGridBook.DataSource.DataSet.Locate (ComboBox1.Text, Edit1.Text, []) ('Запис не знайдено', mtInformation, [mbOK], 0);
Form9.Close;;
// Далі також для всіх форм
Таким чином, через оператор CASE здійснюється пошук в потрібній таблиці.
Звіти
Щоб організувати висновок звітів на екран створюється форма, на яку поміщаються компоненти QuickRep, QRLabel, QRDBText.
QuickRep і QRDBText через властивість DataSet зв'язуються з компонентом ADOQuery1. Далі властивості DataField компонента QRDBText присвоюється значення стовпця таблиці зі списку, щоб відображати записи з даного стовпця. p align="justify"> Реалізація аналогічних функцій в інших таблицях здійснюється способами, описаними вище.
3. Технологічна частина
.1 Вимоги до складу і параметрів технічних засобів
Системні вимоги:
В· ОС Windows XP SP2 і старше
В· Процесор Pentium квітня 2000 MHz.
В· Оперативну пам'ять 256 Mb.
В· відео directx сумісна з розміром пам'яті не менше 128Mb.
В· Клавіатура.
В· Миша.
В· Монітор c підтримкою дозволу 800х600.
<...
