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

procedure TForm1.Button4Click(Sender: TObject);//Процедура обработки клика кнопки "Выход"

begin

Close;//Закрытие формы Form1, что означает выход из программы

end;

procedure TForm1.Button3Click(Sender: TObject);//Процедура обработки клика кнопки "Работа с архивом"

begin

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

end;

procedure TForm1.Button5Click(Sender: TObject);//Процедура обработки клика кнопки "Просмотр архива"

begin

form5.Table1.Open; //откритие таблицы Table1 находящейся на форме FORM5

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

end;

procedure TForm1.Button6Click(Sender: TObject);

begin

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

end;

end.

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, DBCtrlsEh, Mask, DBCtrls, DB, DBTables, StdCtrls, Buttons;

type

TForm2 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;