87
88
89
90
91
92
93
ПРИЛОЖЕНИЕ 2
Отчет «Отчёт по клиентам»
procedure TForm1.N27Click(Sender: TObject);
var calc:toocalc; i:integer;
begin
calc:=toocalc.Create('c:\CRMplus\Templates\strcli.xlt');
with form1.adoquery12 do
begin
close;
sql.Clear;
sql.Add('select * from status);
open;
end;
for i:=1 to form1.ADOQuery12.RecordCount do
begin
calc.Cell[4,1]:=form1.ADOQuery12name.AsString;
with form1.adoquery11 do
begin
close;
sql.Clear;
sql.Add('select * from clients where status='+form1.ADOQuery12code.AsString);
open;
end;
form1.ADOQuery12.Next;
calc.Cell[4,2]:=form1.adoquery11.RecordCount;
calc.InsertRow(4,true);
end;
calc.Visible:=true;
end;
94
ПРИЛОЖЕНИЕ 3
Программный код при формировании отчета «Прайс-Лист»
procedure TForm1.N12Click(Sender: TObject);
var calc:toocalc; i:integer;
begin
calc:=toocalc.Create('c:\CRMplus\Templates\pricelist.xlt');
with form1.ADOQuery5 do
begin
close;
sql.Clear;
sql.Add('select * from services order by group');
open;
end;
for i:=1 to form1.adoquery5.RecordCount do
begin
with form1.ADOQuery2 do
begin
close;
sql.Clear;
sql.Add('select * from groups where code='+form1.adoquery5group.AsString);
open;
end;
calc.Cell[5,1]:=form1.ADOQuery5.RecordCount-i+1;
calc.Cell[5,2]:=form1.adoquery5name.AsString;
calc.Cell[5,3]:=form1.adoquery2name.AsString;
calc.Cell[5,4]:=form1.ADOQuery5proisv.AsString;
form1.adoquery5.Next;
calc.InsertRow(5,true);
end;
calc.Cell[3,2]:=datetostr(now);
calc.Visible:=true;
calc.SaveAsExcel97('c:\CRMplus\files\price.xls');
end;
95
ПРИЛОЖЕНИЕ 4
АКТ о завершении опытной эксплуатации