Реферат: Створення клієнтської програми для користування базою данних MS ACCESS в Delphi 4 0

…

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);