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

var s:string;

begin

s:=Column.Title.Caption;

ADOQuery2.SQL.Clear;

ADOQuery2.SQL.Add('select * from Мероприятия order by '+s);

ADOQuery2.Active:=false;

ADOQuery2.Active:=true;

end;

procedure TForm1.FormShow(Sender: TObject);

begin

image1.Picture.LoadFromFile('MainFormPicture.jpg');

end;

procedure TForm1.N10Click(Sender: TObject);

begin

AdoQuery4.Active:=True;

form12.quickrep1.preview;

end;

procedure TForm1.N12Click(Sender: TObject);

begin

form8.ShowModal;

end;

procedure TForm1.N15Click(Sender: TObject);

begin

form11.showmodal;

end;

procedure TForm1.N16Click(Sender: TObject);

begin

form9.showmodal;

end;