B. Проектирование интерфейса приложения

а). Переименуйте приложение на Записная книжка. Разместите на форму компоненты согласно рисунка.

б). Измените свойство ConnectionString компонентов таблица и запрос на строку подключения к вашей базе данных.

в). Соедините с помощью компонента DataSource1 запрос и окно вывода DBGrid1.

г). Создание формы для поиска. Разместите на форму компоненты, согласно рисунка. В модуль главной формы добавьте включение модуля формы поиска (самостоятельно).

C. Программирование приложения

а). Добавьте процедуру при нажатии на кнопку Найти

void __fastcall TForm1:: BitBtn1Click(TObject *Sender)

{

Form2-> Tag=0;

Form2-> ShowModal();

if (Form2-> Tag) { // \042 - 8-й код двойной кавычки

ADOQuery1-> SQL-> Text=" SELECT * FROM Zap_kn WHERE Name LIKE \042" + Form2-> Edit1-> Text + " \042";

if (CheckBox1-> Checked) ShowMessage(ADOQuery1-> SQL-> Text);

ADOQuery1-> Active=True;

ADOQuery1-> Open(); // выполнить запрос

if (ADOQuery1-> RecordCount! = 0) DataSource1-> DataSet =ADOQuery1;

Else

{ ShowMessage(" В базе данных нет запрашиваемой информации " + Form2-> Edit1-> Text);

DataSource1-> DataSet =ADOQuery1;

}

}

}

б). Напишите процедуру – при нажатии на кнопку Все записи.

void __fastcall TForm1:: Button1Click(TObject *Sender)

{

DataSource1-> DataSet =ADOQuery1; //источник данных - таблица

}

в). При закрытии формы напишите ADOTable1-> Close();

г). Перейдите на вторую форму. Напишите процедуру для события показа формы поиска

void __fastcall TForm2:: FormShow(TObject *Sender)

{

Edit1-> SetFocus();

}

д). Пользователь нажал на кнопку поиска:

void __fastcall TForm2:: Button1Click(TObject *Sender)

{

Tag=1; //пользователь нажал кнопку ОК