Создать бд с учетом рецензии от преподавателя

Фрагмент работы:

Описание программы 2

Алгоритм работы 3

Листинг программы 7

Модуль Unit1.pas 7

Модуль Unit2.pas 11

Результат работы программы 17

Описание программы

Программа написана на Borland Delphi 7. Работает с базой MyBase.mdb (из основной базы взяты таблицы Читатели, Адрес, Улицы). В программе осуществляется поиск по фамилии, добавление в базу читателя (с добавлением информации о адресе), переход по записям таблицы, удаление выбранной записи, редактирование выбранной записи, удаление всех записей таблицы.

Для корректной работы база MyBase.mdb должна находится в папке c:\DataBase.

Работа с таблицами базы осуществлена с использованием технологии ADO, драйвер Microsoft Jet 4 OLE DB.

Алгоритм работы

Переход по записям таблицы, редактирование, удаление произведено средствами Delphi :

procedure TForm1.Button2Click(Sender: TObject);

begin

tReader.First; - переход к первой записи

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

tReader.Last;- переход к последней записи

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

tReader.Prior;- предыдущая запись

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

tReader.Next;- следующая запись

end;

procedure TForm1.Button8Click(Sender: TObject);

begin

tReader.Delete;-удаление текущей записи

end;

procedure TForm1.Button9Click(Sender: TObject);

var i: integer;

begin

i:=tReader.RecordCount;

While i>0 do

begin

tReader.Delete;

dec(i);

end;

end;

procedure TForm1.Button7Click(Sender: TObject);

begin

if Edit1.Text'' then

begin

tReader.Edit; - модификация текущей записи

tReader['Фамилия']:=Edit1.Text;

tReader.Post;

end;

end;

Добавление в базу нового читателя выполнено, используя запросы SQL:

Процедура добавления в базу:

Procedure Tform2.AddRecord(Sender:Tobject);

var ID_street,ID_Adr: Integer;

S:String;

begin

if (Edit1.Text'')and(Edit4.Text'')and(Edit5.Text'')and(cbStreet.Text'') then – проверка на пустоту вводимых данных

begin

Формирование запроса на поиск кода выбранной улицы

ADOQuery1.Close;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('Select Код_улицы From Улицы');

ADOQuery1.SQL.Add('Where Улица='''+cbStreet.Text+'''');