Реферат: База данных Бюро знакомств

table2.Refresh;//Обновляем данные в таблице Table1

end;

procedure TForm4.FormShow(Sender: TObject); //При показе формы Form4 выполняются действия:

begin

table1.Open;//открытие таблицы Table1

table2.Open;//открытие таблицы Table2

end;

procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);//При закрытии формы Form4 выполняются действия:

begin

table1.Close;//Закрытие таблицы Table1

table2.Close;//Закрытие таблицы Table2

end;

procedure TForm4.Button3Click(Sender: TObject);//Процедура обработки клика кнопки "Подготовить приглашение"

var ff:textfile;//Объявление типа файловой переменной

begin

assignfile(ff,'c:\Prigl.txt'); //процедура ассоциации имени файла с файловой переменной FF

rewrite(ff);//Перезапись файла

Writeln(ff,'Приглашение в кафе "Ночной Тарзан"');//Добавляем строку в файл

Writeln(ff,'На вечер знакомства с '+table1.fieldbyname('Family').asstring+' '+table1.fieldbyname('Name').asstring);//Добавляем строку в файл со значениями некоторых полей из таблиц Table1 и Table2

Writeln(ff,' и '+table2.fieldbyname('Family').asstring+' '+table2.fieldbyname('Name').asstring);

closefile(ff);//Закрытие файла

form6.Memo1.Lines.LoadFromFile('c:\Prigl.txt');//Заполняем текстовое поле Memo1 в окне формы 6 содержимым только что сохранненого файла

form6.ShowModal;//показ формы Form6. Форма открывается в режиме при котором другие формы не доступны

end;

end.

unit Unit5;

interface

uses