онтролювати видачу запитів. p align="justify"> Програма застосовується тільки з пакетом Borland Delphi 7 або вище, так як перед початком роботи з програмою потрібно налаштувати компонент доступу до даних BDE.
.2 Порядок запуску програми
Перед запуском програми потрібно встановити пакет програм Borland Delphi 7.
Після цього, оскільки програма працює з використанням компонента доступу до даних BDE, для запуску програми потрібно налаштувати альянс, виконавши такі дії:
Зайти в папку В«C: Program Files Common Files Borland Shared BDEВ»;
Запустити файл В«bdeadmin.exeВ»;
Натиснути В«Object New InterbaseВ»;
У лівій частині екрана, в деревовидному списку вибрати тільки що створену базу;
Перейменувати базу і дати їй ім'я В«1В»;
Вибрати пункт LANGDRIVER, і в випадаючому списку вибрати назву драйвера В«Pdox ANSI CyrillicВ»
Вибрати пункт SERVER NAME, задавши шлях до бази даних з ім'ям В«BEL.GDBВ»;
Вибрати пункт USERNAME і ввести туди ім'я профілю В«SYSDBAВ»
Після налаштування альянсу потрібно, зайди в папку з програмою, і запустити В«Project1.exeВ»
.3 Екранні форми програми
При запуску програми виводиться головна форма, на ній розташовується меню з вкладками файл, звіти і допомогу, а так само кнопки пошуку даних, компонент DataSource (Малюнок 8).
В
Рисунок 8 - Головна форма програми
На формі знаходяться 3 компоненти Query, 3 DataSource, 3 UpdateSQL, 3 DBGrid і компонент Database1, службовці для організації програми БД, що забезпечують доступ до даних через механізм Borland Database Engine, призначені для роботи з самими даними для редагування, навігації, виведення на екран.
Елемент MainMenu мають наступний лістинг:
procedure TForm1.N4Click (Sender: TObject); IBDataSet1.Active then IBDataSet1.Close;. Terminate;; TForm1.N1Click (Sender: TObject);. Active: = false;. Active: = false;. Active: = false;
DBGrid1.DataSource: = DataSource3;
DBNavigator1.DataSource: = DataSource3;. Active: = true;;
Кнопка знайти має наступний лістинг:
procedure TForm1.Button1Click (Sender: TObject); IBDataSet1.Active then.Locate ('SurName', Edit1.Text, [lopartialkey, locaseinsensitive]) if IBDataSet2.Active then.Locate ('SurName' , Edit1.Text, [lopartialkey, locaseinsensitive]);
end;
