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

begin

Form4.ShowModal;

end;

procedure TForm1.N6Click(Sender: TObject);

begin

Form5.ShowModal;

end;

procedure TForm1.N9Click(Sender: TObject);

begin

AdoQuery3.Active:=True;

Form6.QuickRep1.Preview;

end;

procedure TForm1.N11Click(Sender: TObject);

begin

form7.showmodal;

end;

procedure TForm1.DBGid1TitleClick(Column: TColumn);

var s:string;

begin

s:=Column.Title.Caption;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add('select * from проект order by '+s);

ADOQuery1.Active:=false;

ADOQuery1.Active:=true;

end;

procedure TForm1.n13Click(Sender: TObject);

begin

form10.showmodal

end;