Создать бд с учетом рецензии от преподавателя
- ID: 37362
- 20 страниц
Фрагмент работы:
Описание программы 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+'''');