Implementation

uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit10, Unit9, Unit12;

{$R *.dfm}

procedure TForm1.Button7Click(Sender: TObject);

begin

form2.ShowModal;

end;

procedure TForm1.Button3Click(Sender: TObject); \\ Программисты

begin

Form3.show;

Form1.Visible:=false;

end;

ПРИЛОЖЕНИЕ 6(Продолжение)

procedure TForm1.Button1Click(Sender: TObject); \\ Архитектура

begin

Form4.show;

Form1.Visible:=false;

end;

procedure TForm1.Button2Click(Sender: TObject); \\ гидрогеологи

begin

Form5.show;

Form1.Visible:=false;

end;

procedure TForm1.Button4Click(Sender: TObject); \\ строители

begin

Form6.show;

Form1.Visible:=false;

end;

procedure TForm1.Button5Click(Sender: TObject); \\ электронщики

begin

Form7.show;

Form1.Visible:=false;

end;

procedure TForm1.Button9Click(Sender: TObject);

begin

form10.Visible:=true;

form1.Visible:=false;

form9.DBNavigator1.Visible:=true;

Form9.DBGrid1.ReadOnly:=false;

end;

procedure TForm1.BitBtn1Click(Sender: TObject); \\ Выход

begin

form2.ShowModal;

end;

procedure TForm1.BitBtn2Click(Sender: TObject); \\ Переход на главную форму

begin

form10.Visible:=true;

form1.Visible:=false;

form9.DBNavigator1.Visible:=true;

Form9.DBGrid1.ReadOnly:=false;

end;

procedure TForm1.BitBtn3Click(Sender: TObject); \\ открытие формы поиска

begin

Form1.Visible:=false;

Form12.Visible:=true;

form12.Button1.Enabled:=true;

form12.Button2.Enabled:=true;

form12.Button3.Enabled:=true;

form12.Button4.Enabled:=true;

form12.Button5.Enabled:=true;

form12.Button6.Enabled:=true;

form12.Button7.Enabled:=true;

form12.Button8.Enabled:=true;

form12.Button9.Enabled:=true;

form12.Caption:='Поиск';

ПРИЛОЖЕНИЕ 6(Продолжение)

form12.CheckBox1.Checked:=false;

form12.CheckBox2.Checked:=false;

form12.CheckBox3.Checked:=false;

form12.CheckBox4.Checked:=false;

form12.CheckBox5.Checked:=false;

form12.CheckBox6.Checked:=false;

form12.CheckBox7.Checked:=false;

form12.CheckBox8.Checked:=false;

form12.CheckBox9.Checked:=false;

form12.CheckBox10.Checked:=false;

form12.CheckBox11.Checked:=false;

form12.CheckBox12.Checked:=false;

form12.CheckBox13.Checked:=false;

form12.Memo1.Text:='';

form12.BitBtn4.Enabled:=false;

end;

end.

unit Unit2; \\Выход

interface

uses

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

Dialogs, StdCtrls, Buttons, ExtCtrls, jpeg;

type

TForm2 = class(TForm)

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

Image1: TImage;

Image2: TImage;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

uses Unit1, Unit10;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);

begin

form2.close;

form1.close;

Form10.close;

end;

procedure TForm2.Button2Click(Sender: TObject);

ПРИЛОЖЕНИЕ 6(Продолжение)

begin

Form2.close;

end;

procedure TForm2.BitBtn1Click(Sender: TObject); \\закрыть

begin

form2.close;

form1.close;

Form10.close;

end;

procedure TForm2.BitBtn2Click(Sender: TObject); \\отмена

begin

Form2.close;

end;

end.unit Unit3; \\ выбор группы