146
N12: TMenuItem;
N1: TMenuItem;
N13: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N23: TMenuItem;
N14: TMenuItem;
N6: TMenuItem;
N3: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
procedure N25Click(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N22Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure N9Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N23Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N14Click(Sender: TObject);
procedure N8Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form11: TForm11;
implementation
uses Unit21, Unit12, Unit36, Unit3, Unit5, Unit7, Unit9, Unit19, Unit15,
Unit1, Unit31, Unit35, Unit24, Unit37, Unit27, Unit28, Unit29;
{$R *.dfm}
procedure TForm11.N25Click(Sender: TObject);
begin
Form5.Parent:=Form11.ScrollBox1;
Form5.show;
end;
procedure TForm11.N12Click(Sender: TObject);
begin
Form7.Parent:=Form11.ScrollBox1;
Form7.show;
end;
procedure TForm11.N1Click(Sender: TObject);
begin
Form9.Parent:=Form11.ScrollBox1;
Form9.show;
end;
procedure TForm11.N4Click(Sender: TObject);
147
begin
Form19.Parent:=Form11.ScrollBox1;
Form19.show;
end;
procedure TForm11.N22Click(Sender: TObject);
begin
Form15.Parent:=Form11.ScrollBox1;
dm.t5.Close;
dm.t5.SQL.Clear;
dm.t5.SQL.Add('SELECT * FROM zayavki where status like "На регистрации"');
dm.t5.Open;
Form15.Show;
Form31.ToolButton1.Visible:=false;
Form31.ToolButton10.Visible:=false;
Form31.ToolButton2.Visible:=false;
Form31.ToolButton12.Visible:=false;
Form31.ToolBar4.Visible:=false;
Form31.ToolBar2.Visible:=false;
Form31.DBLookupComboBox2.Enabled:=false;
Form31.DBLookupComboBox1.Enabled:=false;
Form31.DBEdit8.Enabled:=false;
Form31.DBMemo1.Enabled:=false;
Form31.cxGridDBTableView3Column1.Visible:=false;
Form31.cxGridDBTableView3Column2.Visible:=false;
end;
procedure TForm11.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Form1.close;
end;
procedure TForm11.N9Click(Sender: TObject);
begin
Form35.Parent:=Form11.ScrollBox1;
Form35.Show;
end;
procedure TForm11.N10Click(Sender: TObject);
begin
Form36.Parent:=Form11.ScrollBox1;
Form36.WebBrowser1.Navigate(ExtractFilePath(Application.ExeName) + 'Помощь.htm');
Form36.Show;
end;
procedure TForm11.N7Click(Sender: TObject);
begin
Form24.Parent:=Form11.ScrollBox1;
Form24.Show;
end;
procedure TForm11.N23Click(Sender: TObject);
begin
Form27.Parent:=Form11.ScrollBox1;
Form27.Show;
Form27.ToolButton4.Click;
end;
procedure TForm11.N6Click(Sender: TObject);
begin
Form37.Parent:=Form11.ScrollBox1;
148
Form37.Show;
Form37.ToolButton4.Click;
end;
procedure TForm11.N14Click(Sender: TObject);
begin
Form28.Parent:=Form11.ScrollBox1;
Form28.Show;
Form28.ToolButton4.Click;
end;
procedure TForm11.N8Click(Sender: TObject);
begin
Form29.Parent:=Form11.ScrollBox1;
Form29.Show;
Form29.ToolButton4.Click;
end;