Реферат Створення автоматизованої інформаційно-керуючої системи

IBQuery1.Open;

end;

end.

unit menu;

interface

uses

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

Dialogs, Menus, IBDatabase, DB;

type

TForm1=class (TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

N12: TMenuItem;

N13: TMenuItem;

IBDatabase1: TIBDatabase;

IBTransaction1: TIBTransaction;

procedure N13Click (Sender: TObject);

procedure N4Click (Sender: TObject);

procedure N5Click (Sender: TObject);

procedure N6Click (Sender: TObject);

procedure N7Click (Sender: TObject);

procedure N8Click (Sender: TObject);

procedure N1Click (Sender: TObject);

procedure N2Click (Sender: TObject);

procedure N9Click (Sender: TObject);

procedure N11Click (Sender: TObject);

procedure N12Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

var

Form1: TForm1;

implementation

uses itazh, proiz, tip_datchika, stat, sotr, datchik, pom, kon_dat, ustan,

kon_tdat;

{$ R * .dfm}

procedure TForm1.N13Click (Sender: TObject);

begin

Close;

end;

procedure TForm1.N4Click (Sender: TObject);

begin

form2.edit1.text:= raquo ;;

form2.ShowModal;

end;

procedure TForm1.N5Click (Sender: TObject);

begin

form3.edit1.text:= raquo ;;

form3.ShowModal;

end;

procedure TForm1.N6Click (Sender: TObject);

begin

form4.edit1.text:= raquo ;;

form4.ShowModal;

end;

procedure TForm1.N7Click (Sender: TObject);

begin

form5.edit1.text:= raquo ;;

form5.ShowModal;

end;

procedure TForm1.N8Click (Sender: TObject);

begin

form6.edit1.text:= raquo ;;

form6.edit2.text:= raquo ;;

form6.edit3.text:= raquo ;;

form6.edit4.text:= raquo ;;

form6.ShowModal;

end;

procedure TForm1.N1Click (Sender: TObject);

begin

form7.edit1.text:= raquo ;;

form7.ShowModal;

end;

procedure TForm1.N2Click (Sender: TObject);

begin

form8.edit1.text:= raquo ;;

form8.edit2.text:= raquo ;;

form8.ShowModal;

end;

procedure TForm1.N9Click (Sender: TObject);

begin

form12.Edit1.Text:= raquo ;;

form12.Edit2.Text:= raquo ;;

form12.ShowModal;

end;

procedure TForm1.N11Click (Sender: TObject);

begin

Form13.Edit1.Text:= raquo ;;

Form13.IBQuery1.Close;

Form13.IBQuery1.Open;

Form13.ShowModal;

end;

procedure TForm1.N12Click (Sender: TObject);