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

N5: TMenuItem;

procedure Button1Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N5Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

fmAbitur: TfmAbitur;

implementation

uses dmAbiturU, Unit1, Unit2, Unit3;

{$R *.dfm}

procedure TfmAbitur.Button1Click(Sender: TObject);

begin

Otch.Visible:=true;

Otch.Enabled:=true;

end;

procedure TfmAbitur.N2Click(Sender: TObject);

begin

fmAbitur.Close;

end;

procedure TfmAbitur.N4Click(Sender: TObject);

begin

Form2.Visible:=true;

Form2.Enabled:=true;

end;