156
Unit19, Unit2, Unit20, Unit21, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8,
Unit9;
{$R *.dfm}
procedure TF_itogi_prod.cxButton1Click(Sender: TObject);
begin
frxReport1.LoadFromFile('itog_prodagi.fr3');
frxReport1.ShowReport(true);
end;
procedure TF_itogi_prod.dblkcbb1Click(Sender: TObject);
begin
dblkcbb2.KeyValue:=null;
dblkcbb3.KeyValue:=null;
DM.qry_itog_prod.Filtered:=False;
DM.qry_itog_prod.Filter:='';
DM.qry_itog_prod.Filter:='(код_товара='+inttostr(dblkcbb1.KeyValue)+')';
DM.qry_itog_prod.Filtered:=True;
sum:=0;
kol:=0;
DM.qry_itog_prod.Open;
DM.qry_itog_prod.First;
for i:=1 to DM.qry_itog_prod.RecordCount do
begin
sum:=sum + DM.bcdfld_itog_prodDSDesigner3.Asfloat;
kol:=kol+ DM.fltfld_itog_prodSum.Asinteger;
DM.qry_itog_prod.Next;
end;
if F_itogi_prod<>nil then
begin
F_itogi_prod.cxTextEdit1.Text:=FloatToStr(sum);
F_itogi_prod.cxTextEdit2.Text:=IntToStr(kol);
157
end
else
end;
procedure TF_itogi_prod.dblkcbb2Click(Sender: TObject);
begin
dblkcbb1.KeyValue:=null;
dblkcbb3.KeyValue:=null;
DM.qry_itog_prod.Filtered:=False;
DM.qry_itog_prod.Filter:='';
DM.qry_itog_prod.Filter:='(год='+inttostr(dblkcbb2.KeyValue)+')';
DM.qry_itog_prod.Filtered:=True;
sum:=0;
kol:=0;
DM.qry_itog_prod.Open;
DM.qry_itog_prod.First;
for i:=1 to DM.qry_itog_prod.RecordCount do
begin
sum:=sum + DM.bcdfld_itog_prodDSDesigner3.Asfloat;
kol:=kol+ DM.fltfld_itog_prodSum.Asinteger;
DM.qry_itog_prod.Next;
end;
if F_itogi_prod<>nil then
begin
F_itogi_prod.cxTextEdit1.Text:=FloatToStr(sum);
F_itogi_prod.cxTextEdit2.Text:=IntToStr(kol);
end
else
end;
procedure TF_itogi_prod.dblkcbb3Click(Sender: TObject);
begin
158
dblkcbb1.KeyValue:=null;
dblkcbb2.KeyValue:=null;
DM.qry_itog_prod.Filtered:=False;
DM.qry_itog_prod.Filter:='';
DM.qry_itog_prod.Filter:='(Код_месяца='+inttostr(dblkcbb3.KeyValue)+')';
DM.qry_itog_prod.Filtered:=True;
sum:=0;
kol:=0;
DM.qry_itog_prod.Open;
DM.qry_itog_prod.First;
for i:=1 to DM.qry_itog_prod.RecordCount do
begin
sum:=sum + DM.bcdfld_itog_prodDSDesigner3.Asfloat;
kol:=kol+ DM.fltfld_itog_prodSum.Asinteger;
DM.qry_itog_prod.Next;
end;
if F_itogi_prod<>nil then
begin
F_itogi_prod.cxTextEdit1.Text:=FloatToStr(sum);
F_itogi_prod.cxTextEdit2.Text:=IntToStr(kol);
end
else
end;
procedure TF_itogi_prod.cxButton2Click(Sender: TObject);
begin
dblkcbb1.KeyValue:=null;
dblkcbb2.KeyValue:=null;
dblkcbb3.KeyValue:=null;
DM.qry_itog_prod.Filtered:=False;
DM.qry_itog_prod.Filter:='';
sum:=0;
159
kol:=0;
DM.qry_itog_prod.Open;
DM.qry_itog_prod.First;
for i:=1 to DM.qry_itog_prod.RecordCount do
begin
sum:=sum + DM.bcdfld_itog_prodDSDesigner3.Asfloat;
kol:=kol+ DM.fltfld_itog_prodSum.Asinteger;
DM.qry_itog_prod.Next;
end;
if F_itogi_prod<>nil then
begin
F_itogi_prod.cxTextEdit1.Text:= FloatToStr(sum);
F_itogi_prod.cxTextEdit2.Text:= IntToStr(kol);
end
else
end;
procedure TF_itogi_prod.FormActivate(Sender: TObject);
begin
sum:=0;
kol:=0;
DM.qry_itog_prod.Open;
DM.qry_itog_prod.First;
for i:=1 to DM.qry_itog_prod.RecordCount do
begin
sum:=sum + DM.bcdfld_itog_prodDSDesigner3.Asfloat;
kol:=kol+ DM.fltfld_itog_prodSum.Asinteger;
DM.qry_itog_prod.Next;
end;
if F_itogi_prod<>nil then
begin
F_itogi_prod.cxTextEdit1.Text:=FloatToStr(sum);
F_itogi_prod.cxTextEdit2.Text:=IntToStr(kol);
160
end
else
end;
end.
Исходный код Модуля данных
unit Unit5;
interface
uses
SysUtils, Classes, DB, ADODB, Windows, Messages, Variants, Graphics,
Controls, Forms,
Dialogs, cxLookAndFeelPainters, StdCtrls;
type
private
{ Private declarations }
public
{ Public declarations }
end;
var
DM: TDM;
sum,sum1:Double;
kol,kol1,i:Integer;
implementation
uses Unit16, Unit1, Unit10, Unit11, Unit12, Unit13, Unit14, Unit15, Unit17,
Unit18, Unit19, Unit2, Unit20, Unit21, Unit3, Unit4, Unit6, Unit7, Unit8,
Unit9;
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;
162
con1.Connected:=True;
qry_itog_prod.open;
qry_itog_zakupki.open;
qry_org.open;
qry_tovar.open;
qry1.open;
qry2.open;
tbl_adress.open;
tbl_anketa.open;
tbl_city.open;
tbl_ed_izmer.open;
tbl_marka.open;
tbl_month.open;
tbl_org.open;
tbl_otvet.open;
tbl_prodagi.open;
tbl_sost_ankety.open;
tbl_street.open;
tbl_tip_tovara.open;
tbl_tovar.open;
tbl_voprosy.open;
tbl_year.open;
tbl_zakupki.open;
end;
end.