161
{$R *.dfm}
procedure TDM.tbl_anketaCalcFields(DataSet: TDataSet);
begin
sum1:=0;
DM.tbl_anketa.Open;
{ DM.tbl_anketa.First;
while DM.tbl_anketa.Eof do
begin
sum1:=sum1 + DM.tbl_anketaDSDesigner.Asfloat;
DM.tbl_anketa.Next;
end;
tbl_anketaDolya.AsFloat:=tbl_anketaDSDesigner.AsFloat/sum1*100; }
end;
procedure TDM.qry_itog_prodCalcFields(DataSet: TDataSet);
begin
qry_itog_prodptz.AsFloat:=fltfld_itog_prodSum.AsFloat/bcdfld_itog_prodDSDesi
gner3.AsFloat;
end;
procedure TDM.DataModuleCreate(Sender: TObject);
var
patch,patch2:string;
begin
patch:='';
patch2:='';
patch := IncludeTrailingBackslash(ExtractFileDir(Application.ExeName));
patch2 := pchar(patch+'connect.udl');
con1.Connected:=False;
con1.ConnectionString:='FILE NAME='+patch2;