Пример 1.Задание 2.Создание формы и программы приложения «Телефонный справочник» - 25 мин

1 шаг – создайте новый проект, сохраните проект в папку с именем «Data» на диске «С:/», в которой уже сохранена ваша база данных bd с вашей таблицей table1.

 

 

2 шаг - разместите на форме следующие компоненты: TPanel, TEdit, TComboBox и TButton на TPanel, c закладки компонентов Standart, TDBGrid c закладки компонентов DataControls, TDataSource c закладки компонентов DataAccess. С закладки компонентов ADO: TADOCoonection, TADOQuery, TADOTable.

 

3 шаг - измените свойства компонентов следующим образом, в соответствии с примером из таблицы

 

Название компонента	Свойство компонента	Значение свойства
TPanel	Align	alTop
Caption
TEdit	Text
TButton	Caption	Найти
TComboBox	Text	Что будем искать?
	Items	ФИО Год_рождения Адрес Телефон
DBGrid	Align	alClient
Сolumns [0]	FieldName	ФИО
Сolumns [1]	FieldName	Год_рождения
Сolumns [2]	FieldName	Адрес
Сolumns [3]	FieldName	Телефон
DataSource	DataSource1
TDataSource	DataSet	AdoQuery1
TAdoConnection	ConnectionString	Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Data\bd.mdb;Mode=ReadWrite|Share Deny None;Persist Security Info=False
LoginPromt	False
TAdoTable	ConnectionString	Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Data\bd.mdb;Mode=ReadWrite|Share Deny None;Persist Security Info=False
TableName	table1
TAdoQuery	Connection	AdoConnection1

 

 

4 шаг – событие OnCreate компонента Form1. Напишите между begin и end в процедуре procedure TForm1.FormCreate(Sender: TObject); следующее

 

ADOQuery1.SQL.Clear; // очистка ранних запросов

ADOQuery1.SQL.Add(‘select * from table1’); // запрос на извлечение информации из таблицы

ADOQuery1.Active:=true;

 

Сохраните проект, скомпилируйте программу, запустите приложение. Опишите полученный результат.

 

 

5 шаг – Поиск в базе данных. Событие OnClick компонента Button1. Напишите между begin и end в процедуре procedure TForm1.Button1Click(Sender: TObject); следующее

 

ADOQuery1.Filtered:=true;

 

6 шаг – Событие OnСhange компонента Edit1. Напишите между begin и end в процедуре procedure TForm1.Edit1Change(Sender: TObject); следующее

 

if Length(Edit1.Text) > 0 then

begin

ADOQuery1.Filtered:=false;

ADOQuery1.Filter:=Combobox1.Text + ' LIKE ' + #39 + Edit1.Text + '%' + #39;

end

else ADOQuery1.Filtered:=false;

 

Сохраните проект, скомпилируйте программу, запустите приложение. Опишите полученный результат.

 

 

Пример и задание выполнено. На разработку программы, которая найдет запрашиваемую информацию, ушло не более 10 минут. Так, какую основную функцию несет разработка подобной программы? Так как мы работаем с данными из таблицы БД, которые можно добавлять и удалять, то давайте научимся, не открывая СУБД добавлять и удалять записи. Для чего может понадобиться данная возможность в подобных программах, например в 1С?

Пример 2. Задание 3. Добавление и удаление записей из БД на примере проекта «Телефонный справочник»

1 шаг – добавим в существующий проект еще 2 компонента TButton («Добавить», «Удалить»), а так же создадим новую форму Form2 со следующими компонентами и их свойствами. Сохраним проект

 

Название компонента	Свойство компонента	Значение свойства
TLabel1	Caption	ФИО
TLabel2	Caption	Год_рождения
TLabel3	Caption	Адрес
TLabel4	Caption	Телефон
TEdit1-TEdit4	Text
TButton1	Caption	Добавить

 

 

2 шаг – Удаление записи. Событие OnClick компонента Button3. Напишите между begin и end в процедуре procedure TForm1.Button3Click(Sender: TObject); следующее

 

try

if Application.MessageBox('Удалить запись из БД?','Сообщение БД',MB_YESNO)=IDYES //диалог

then begin

form1.ADOQuery1.Delete; // удаление записи указанной щелчком ЛКМ

end; except on e:Exception do end;

 

 

Сохраните проект, скомпилируйте программу, запустите приложение. Опишите полученный результат.

3 шаг – Связь первой и второй формы для ввода данных для добавления записи в таблицу БД. Событие OnClick компонента Button2. Напишите между begin и end в процедуре procedure TForm1.Button2Click(Sender: TObject); следующее

 

Form2.Show;

 

4 шаг – Добавление записи. Откройте вторую форму для редактирования программы. Событие OnClick компонента Button1 на Form2. Напишите между begin и end в процедуре procedure TForm1.Button1Click(Sender: TObject); следующее

 

try

if (Trim(form2.edit1.Text)='') or (Trim(form2.edit2.Text)='') or (Trim(form2.edit3.Text)='') or (Trim(form2.edit4.Text)='') then begin exit; // проверка на ввод данных

end;

form1.ADOQuery1.Insert; // оператор указывающий на ввод данных

form1.AdoQuery1.FieldByName('ФИО').AsString:=form2.Edit1.Text; // заполнение поля ФИО

form1.AdoQuery1.FieldByName('Год_рождения').AsString:=form2.Edit2.Text; // заполнение поля Год_..

form1.AdoQuery1.FieldByName('Адрес').AsString:=form2.Edit3.Text; // заполнение поля Адрес

form1.AdoQuery1.FieldByName('Телефон').AsString:=form2.Edit4.Text; // заполнение поля Телефон

form2.Edit1.Clear; // очистка памяти

form2.Edit2.Clear;

form2.Edit3.Clear;

form2.Edit4.Clear;

form1.AdoQuery1.Insert; // ввод данных

except // проверка на ошибки ввода данных

on e:Exception do

end;

form1.ADOQuery1.Insert;

end;

 

 

Сегодня мы разработали систему управления базой данных, т.е. приложение, с помощью которого можно извлекать информацию из таблицы, а так же производить удаление и добавление записей. Приведите еще примеры, где может быть использована данная возможность программного обеспечения? Выполните задание 4 самостоятельно.