Шевчук Андрій. ПМП-42, Львів – 2000
Створення клієнтської програми для користування базою данних MS ACCESS в Delphi 4.0
Для компоненти Database1 в вікні “Object Inspector” надамо наступні значення для властивостей: AliasName = “_db6” (вказуємо псевдонім нашої бази даних), DatabaseName = “_db1” (ім'я бази даних яке будуть використовувати решта компоненти DataAccess), LoginPromt = “False” (не запрошувати ім'я користувача і пароль при відкритті бази даних). Для компонент Table1, Table2, Table3 встановимо DatabasName = “_db1”,TableName відповідно “Товар”, “Рахунок”, “Партія товару”, і після цього для кожної компоненти Active присвоїмо значення True. Для компонент Datasource1, DataSource2, Datasource3 присвоїмо властивості DataSet відповідно значень “Table1”, “Table2”, “Table3”.
З вкладки Win32 на форму From1 помістимо компоненту PageControl, в вікні “Object Inspector” якої вкажемо Align = “AllClient”. Викликавши правою кнопкою миші контекстне меню виберемо пункт “New Page” і для нової закладки TabSheet1 властивість Caption присвоїмо значення “Товари”, яке буде назвою нашої закладки. На закладку помістимо компоненту DBGrid1 з закладки DataControls палітри компонентів. Надамо їй наступних властивостей: Align = “allClient”, DataSource = “DataModule1.DataSource1”. Тепер в вікні закладки “Товари” ми можемо переглядати дані з таблиці товар. Для можливості оперування з цими даними додамо на форму елемент управління DBNavigator. Для цього створимо для нашої форми Form1 панель інструментів. Помістимо на форму CoolBar1 з закладки Win32, на CoolBar1 ControlBar1 з закладки Additional, властивості AutoSize яких встановимо “True”. Після цього на ControlBar1 помістимо DBNavigator1. Створимо ще одну закладку PageControl1, для перегляду і редагування всіх трьох таблиць. Присвоїмо властивості Caption = «Виписка рахунку», для TabSheet2, і помістимо на закладку три компоненти GroupBox з палітри “Standart”, присвоївши властивості Caption для яких, відповідно, “Рахунок”, “Партія товару” і “Товар”. Помістимо на GroupBox1 (“Рахунок”) чотири компоненти DBEdit, з закладки “Data Controls”. Властивостям цих елементів DataSource присвоїмо значення DataModule1.DataSource3, а DataField, відповідно, імена полів з таблиці “Рахунок”: “Код рахунку”, “Дата виписки”, “Дата проплати”, “Сума оплати”. Над елементами DBEdit помістимо компоненти Label з палітри “Satndart”, присвоївши властивості Caption кожного з них імена відповідних полів. Аналогічно поступимо з GroupBox2 (“Товар”), помістивши на нього відповідну кількість DBEdit i Label, створивши перегляд таблиці “Рахунок”. На GroupBox3 (“Партія товару”) помістимо DBGrid, присвоїмо його властивостям такі значення: Align = AllClient, DataSource = DataModule1.DataSource2. Для того щоб перехід по всіх полях різних таблиць відбувався синхронно, а в DBGrid2 ми могли бачити список партій товару які виписані на вибраний рахунок вкажемо зв'язки між таблицями. Але щоб в першій закладці таблиця товар відображалась правильно зробимо це для таблиць “Рахунок” і “Партія товару” в «Object Inspector», а для таблиць “Партія товару” і “Товар” – програмно. Виберемо Table2 на DataModule1 і для властивості MasterSource виберемо значення DataSource3, для властивості MasterFields – “Код рахунку”. Для компоненти PageControl1 в колонці “Object Inspector” “Events” виберемо подію «OnChange», двічі натиснемо ліву клавішу миші і введемо наступне:
procedure TForm1.PageControl1Change(Sender: TObject);
begin
// якщо здійснено перехід на закладку “Товар”
if PageControl1.ActivePage=TabSheet1 then
begin
DBNavigator1.DataSource:=DataModule1.DataSource1; // панель DBNavigator керує таблицею “Товар”
DataModule1.Table1.MasterSource:=nil; // забираємо зв'язок з таблицею “Партія товару”
DataModule1.Table1.MasterFields:='';
end;
// якщо здіймнено перехід на закладку “Партія товару”
if PageControl1.ActivePage=TabSheet2 then
begin
DBNavigator1.DataSource:=DataModule1.DataSource3; // панель DBNavigator керує таблицею “Рахунок”
DataModule1.Table1.MasterSource:=DataModule1.DataSource2; // встановлюємо зв'язок між «Товар» і
DataModule1.Table1.MasterFields:='Код товару'; // “Партія товару” по полю “Код товару”
end;
Біля полів “Дата виписки» та «Дата проплати» помістимо кнопки для переходу на нову форму – вибору дати. Створимо її у вигляді dll. Виберемо в меню меню File Þ New, і вікні “New Items” виберемо піктограму “Dll”. Після появи самого тексту dll збережемо проект як «slave.dpr», і виберемо в меню File Þ New Form. Властивостям нової форми надамо такі значення: Name = CalendarForm, Caption = «Виберіть дату», BorderStyle = bsToolWindow, Position = poDesktopCenter. Помістимо на форму компоненту MonthCalendar з закладки Win32, і SpeedButton з закладки Additional. Додамо в опис змінних для модуля :
var
selDate: TDate;
для SpeedButton1 створимо таку процедуру обробки подіїOnClick:
procedure TCalendarForm.SpeedButton1Click(Sender: TObject);
begin
selDate:=MonthCalendar1.Date; // запам'ятовуємо вибрану дату
CalendarForm.Close; // закриваємо форму
end;
В модуль slave.dpr введемо наступний текст:
uses
Forms,
SysUtils,
Classes,
cal in 'cal.pas' {CalendarForm};
function GetDate: TDateTime; stdcall;
begin
Application.CreateForm(TCalendarForm, CalendarForm);// динамічно створюємо форму
CalendarForm.ShowModal; // виводимо форму на екран
GetDate:=selDate;// значенню що повертає функція присвоюємо значення вибраної дати
end;
exports
GetDate; // функція для зовнішнього використання
begin
end.
Так як для більшої швидкості виконання програми, форми створюються динамічно, то відповідно в властивостях проекта (Projects Þ Properties) потрібно забирати форми з поля “AutoCreate Forms”.
Для SpeedButton1 i SpeedButton2 в основній програмі, в процедуру обробки події OnClick вставимо наступний текст:
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
DBEdit1.Text:=DateToStr(GetDate);
end;
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
DBEdit2.Text:=DateToStr(GetDate);
end;
Відповідно перед секцією Implementation вставимо наступне:
{export from slave.dll}
function GetDate: TDateTime; stdcall; external 'slave.dll';
Тепер при натисненні на кнопку біля відповідних полів користувач зможе вибрати дату з календаря.
Створимо нову закладку PageControl1, назвемо її “Запити”. Створимо для цієї закладки нову панель інструментів, помістивши на ControlBar1 ToolBar1. Додамо декілька кнопок викликаючи контектне меню на ToolBar1 і вибираючи опцію New Button. Помістимо на закладку DBGrid для перегляду результатів запитів. Помістимо на закладку GroupBox, на якому розташуємо для початку 6 компонент Edit, над якими розмістимо по Label з назвами відповідних полів з таблиці “Товар”. Розташуємо між двома останніми полями ComboBox1. Будемо використовувати відповідні поля для вводу критеріїв для запитів. Перш за все зробимо вікно в якому ми зможемо контролювати правильність створення запиту SQL. Виберемо в меню команду File Þ New Form, надамо її властивостям наступних значень: Name = SQLText, BorderStyle = bsToolWindow, Position = poDesktopCenter. Помістимо на форму Memo1, змінимо властивість Align = AllClient. Для Query1 з DataModule1 введемо такий текст для обробки події AfterOpen:
var
SQLtxt:TStrings;
…
procedure TDataModule1.Query1AfterOpen(DataSet: TDataSet);
begin
SQLtxt:=DataModule1.Query1.SQL;
end;
a для події кнопки OnClick, якій ми присвоїмо Hint “Показати текст виконаного запиту”, цей напис буде з'являтись при наведенні курсору миші на кнопку (властивість ShowHints для відображення вспливаючих підказок повинна мати значення True, для присвоєння всім елементам цього значення, достатньо присвоїти ShowHints = True батьківському елементу, наприклад Form1):
procedure TForm1.ToolButton10Click(Sender: TObject);
begin
Application.CreateForm(TSQLText, SQLText); // динамічно створюємо форму
SQLText.Memo1.Lines:=SQLtxt; // виводимо текст запиту
SQLText.ShowModal; // показуємо форму
SQLText.Close;
end;
Для DBGrid3 властивості DataSource присвоїмо значення DataModule1.DataSource4, властивості DataSource4 DataSet = Query1. Щоб при завантаженні програми DBGrid не був пустим відобразимо в ньому таблицю «Товар» наступним чином – властивості DatabaseName Query1 надамо значення “_db1” в полі SQL викликавши вікно введемо текст: “select * from Товар;” (без лапок).
Для першої кнопки з ToolBar1 – ToolButton1 в полівластивості Hint напишемо настпуне – “Шукати записи по введених критеріях”, створимо для цієї кнопки виконання запиту з використанням інструкції SQL select. Перед цим ComboBox1 надамо таких значень для вибору в властивості «Items»: “=”,”>”,”<”,”..”.Для події OnChange ComboBox1 введемо наступне:
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if ComboBox1.ItemIndex=3 then Edit12.Visible:=True // при виборі значення “..” з'являється поле для //вказання інтервалу відбору значень
else Edit12.Visible:=False;
end;
Для обробки події OnClick ToolButton1 введемо наступний текст:
const
t1:string='[Код товару]'; // назви полів
t2:string='[Назва товару]';
t3:string='[Опис товару]';
t5:string='[Ціна за одиницю товару]';
t4:string='[Упаковка]';
…
procedure TForm1.ToolButton3Click(Sender: TObject);
var sqlTable,sqlWhere: String;
begin
DataModule1.Query1.SQL.Clear;
sqlTable:='Select * ';
sqlWhere:='where ';
sqlTable:=sqlTable + 'from Товар ';
sqlWhere:=sqlWhere+'('+t1+' like '''+'%'+Edit1.Text+''') and ('+t2+' like '''+Edit2.Text+''') and ('+
t3+' like '''+Edit3.Text+''') and ('+t4+' like '''+Edit4.Text+''') and (';