Курсовая работа: Программный комплекс учёта работы предприятия по озеленению

var

Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit10,

Unit12,Unit8,unit11, Unit9;

{$R *.dfm}

function TForm1.ExecSQL(Query: string): integer;

begin

ADOQuerySQL.SQL.Clear;

ADOQuerySQL.SQL.Add(Query);

result:=ADOQuerySQL.ExecSQL;

if result>0 then

begin

ADOQuery1.Active:=false;

ADOQuery1.Active:=true;

end;

end;

procedure TForm1.N7Click(Sender: TObject);

begin

Form1.Close

end;

procedure TForm1.N3Click(Sender: TObject);

begin

Form2.ShowModal;

end;

procedure TForm1.N2Click(Sender: TObject);

begin

Form3.ShowModal

end;