Дипломная работа: База данных приёмной комиссии

{ Private declarations }

public

{ Public declarations }

end;

var

Otch: TOtch;

implementation

uses fmAbiturU;

{$R *.dfm}

procedure TOtch.Button1Click(Sender: TObject);

begin

RvProject1.Execute;

end;

procedure TOtch.Button2Click(Sender: TObject);

begin

Otch.close;

end;

procedure TOtch.FormClose(Sender: TObject);

begin

fmAbitur.enabled:=true;

end;

procedure TOtch.Button3Click(Sender: TObject);

begin

RvProject2.Execute;

end;

procedure TOtch.Button4Click(Sender: TObject);

begin

RvProject3.Execute;

end;