procedure TForm4.btn3Click(Sender: TObject);:Integer;
Form8.Caption:='Îò÷¸ +SQLQuery[ActionQuery].NameQuery;
Log('Ñãåíåðèðîâàí îò÷¸ò ïî çàïðîñó '+SQLQuery[ActionQuery].NameQuery,mmo1);.Show;dbgrd1.Columns.Count<>0 then.dbedt[1]:=TDBEdit.Create(form8);.dbedt[1].Parent:=form8;.dbedt[1].Left:=130;.dbedt[1].Top:=30;.dbedt[1].Width:=form8.Width-170;.dbedt[1].Height:=21;.dbedt[1].DataSource:=fDM.DataSource1;.dbedt[1].DataField:=dbgrd1.Columns[0].Title.Caption;.dbedt[1].ReadOnly:=True;.lbl[1]:=TLabel.Create(form8);.lbl[1].Parent:=form8;.lbl[1].Caption:=dbgrd1.Columns[0].Title.Caption+': ';.lbl[1].Left:= Form8.dbedt[1].Left- Form8.lbl[1].Width-5;.lbl[1].Top:=30;;dbgrd1.Columns.Count>1 theni:=2 to dbgrd1.Columns.Count do.dbedt[i]:=TDBEdit.Create(form8);.dbedt[i].Parent:=form8;.dbedt[i].Left:=form8.dbedt[1].Left;.dbedt[i].Top:=form8.dbedt[i-1].Top+10+form8.dbedt[i-1].Height;.dbedt[i].Width:=form8.dbedt[1].Width;.dbedt[i].Height:=21;.dbedt[i].DataSource:=fDM.DataSource1;.dbedt[i].DataField:=dbgrd1.Columns[i-1].Title.Caption;.dbedt[i].ReadOnly:=True;.lbl[i]:=TLabel.Create(form8);.lbl[i].Parent:=form8;.lbl[i].Caption:=dbgrd1.Columns[i-1].Title.Caption+': ';.lbl[i].Left:=form8.dbedt[1].Left-form8.lbl[i].Width-5;.lbl[i].Top:=form8.dbedt[i-1].Top+10+form8.dbedt[i-1].Height;;.Height:=form8.dbedt[dbgrd1.Columns.Count].Top+form8.dbedt[dbgrd1.Columns.Count].Height+100;.Enabled:=false;.row:=dbgrd1.Columns.Count;
end;
Приложение 4. Код подгружаемой библиотеки
library Project2;,,;:integer=1;
{$R *.res}Log(text:string; PlaceLog:TMemo); stdcall; export;textLog:string;:='['+inttostr(i)+'] ';:=textLog+DateToStr(Date);:=textLog+' / '+Timetostr(Time)+': ';:=textLog+text;.Lines.Add(textLog);:=i+1;;Log;
begin.