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

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);//При показе, активации и создании формы Form2 выполняются действия:

begin

Table1.Open;//Открывается таблица Table1

table1.Append;//Добавляется в конец таблицы новая строка в таблицу Table1

table1.FieldByName('date').AsDateTime:=date;//Записываем в текущую строку в поле Date сегодняшнее число

table1.Post; //Сохранение изменений

table1.edit; //Начинаем изменения в таблице Table1 в текущей сторке

end;

procedure TForm2.BitBtn1Click(Sender: TObject);//Процедура обработки клика кнопки "ОК"

begin

table1.Post; //Сохранение изменений

close;//Закрытие формы Form2

end;

procedure TForm2.BitBtn2Click(Sender: TObject);

begin

table1.Cancel;//отмена изменений

table1.Delete;//Удаление текущей строки в таблице Table1

close;//Закрытие формы Form2

end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);//Процедура обработки событя при закрытии формы Form2

begin

form3.Table1.Refresh;//Обновление данных в таблице Table1 находящейся на форме Form3

end;

end.

unit Unit3;

interface

uses