Tests and tasks for verification of initial level of knowledge

Дата добавления: 2015-10-15; просмотров: 594

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

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

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

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

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

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

ADOQuery1.Active:=true;

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

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

ADOQuery1.Filtered:=true;

6 шаг – Событие OnСhange компонента Edit1. Напишите между begin и end в процедуре procedureTForm1.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 со следующими компонентами и их свойствами. Сохраним проект

2 шаг – Удаление записи. Событие OnClick компонента Button3. Напишите между begin и end в процедуре procedureTForm1.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 в процедуре procedureTForm1.Button2Click(Sender: TObject); следующее

Form2.Show;

4 шаг – Добавление записи. Откройте вторую форму для редактирования программы. Событие OnClick компонента Button1 на Form2. Напишите между begin и end в процедуре procedureTForm1.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 самостоятельно.