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

Button1: TButton;

Button2: TButton;

Button4: TButton;

Button3: TButton;

Button5: TButton;

Button6: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4, Unit5, Unit7;

{$R *.dfm}

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

begin

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

end;

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

begin

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