97
open;
first;
end;
for i:=1 to form1.Adqqery4.RecordCount do
begin
with form1.Adqqery1 do
begin
close;
sql.Clear;
sql.Add('select * from otkl');
open;
first;
end;
excclapp.cells[4+i,1]:=form1.Adqqery4fio.AsString;
excclapp.cells[4+i,1].borders.linestyle:=1;
for j:=1 to form1.Adqqery1.RecordCount do
begin
with form1.Adqqery7 do
begin
close;
sql.Clear;
sql.Add('SELECT sotr.fio, otkl.code, Count(tabel.code) AS [Count-code]
FROM sotr INNER JOIN (otkl INNER JOIN tabel ON otkl.code =
tabel.code_typ) ON sotr.code_sotr = tabel.code_sotr where
(sotr.code_sotr='+form1.Adqqery4code_sotr.AsString+') and ' );
sql.add('(otkl.code='+form1.Adqqery1code.AsString+') and
(tabel.day>=#'+day1+'#) and (tabel.day<=#'+day2+'#) GROUP BY sotr.fio,
otkl.code');
open;
end;
if form1.Adqqery7.RecordCount>0 then
excclapp.cells[4+i,1+j]:=form1.Adqqery7Countcode.AsInteger;
excclapp.cells[6+i,j+1].borders.linestyle:=1;
form1.Adqqery1.Next;
end;
form1.Adqqery4.Next;
end;
excclapp.cells[4,2]:=datetostr(datetimepicker1.date)+'-'+
datetostr(datetimepicker2.date);
excclapp.visible:=true;
excclapp:=unassigned;
end;
98
end.
procedure TForm8.RzBitBtn1Click(Sender: TObject);
var i:integer; excclapp:variant; year1,mon1,dt1:word; m1,d1:string[2];
day1,day2:string[20];
begin
ExcclApp := CreateOleObject('Exccl.Application');
ExcclApp.workbooks.open('C:\sv_mes\xlt\sv_rv.xlt');
ExcclApp.WorkSheets[1].Activate;
ExcclApp.Visible := False;
decodedate(datetimepicker1.date,year1,mon1,dt1);
if mon1<10 then m1:='0'+inttostr(mon1) else m1:=inttostr(mon1);
if dt1<10 then d1:='0'+inttostr(dt1) else d1:=inttostr(dt1);
day1:=inttostr(year1)+'/'+m1+'/'+d1;
decodedate(datetimepicker2.date,year1,mon1,dt1);
if mon1<10 then m1:='0'+inttostr(mon1) else m1:=inttostr(mon1);
if dt1<10 then d1:='0'+inttostr(dt1) else d1:=inttostr(dt1);
day2:=inttostr(year1)+'/'+m1+'/'+d1;
with form1.Adqqery8 do
begin
close;
sql.Clear;
sql.Add('SELECT otkl.nam, Count(tabel.code) AS [Count-code] FROM
otkl INNER JOIN tabel ON otkl.code = tabel.code_typ where
(tabel.day>=#'+day1+'#) and (tabel.day<=#'+day2+'#) GROUP BY otkl.nam ' );
open;
end;
for i:=1 TO FORM1.Adqqery8.RecordCount DO
begin
excclapp.cells[6+i,1]:=form1.Adqqery8nam.AsString;
excclapp.cells[6+i,2]:=form1.Adqqery8Countcode.AsInteger;
excclapp.cells[6+i,2].borders.linestyle:=1;
excclapp.cells[6+i,1].borders.linestyle:=1;
form1.Adqqery8.Next;
end;
excclapp.cells[4,2]:=datetostr(datetimepicker1.date)+'-'+
datetostr(datetimepicker2.date);
excclapp.visible:=true;
excclapp:=unassigned;
end;
end.
99
procedure TForm9.RzBitBtn1Click(Sender: TObject);
var i,j:integer; excclapp:variant; year1,mon1,dt1:word; m1,d1:string[2];
day1,day2:string[20];
begin
ExcclApp := CreateOleObject('Exccl.Application');
ExcclApp.workbooks.open('C:\sv_mes\xlt\podr.xlt');
ExcclApp.WorkSheets[1].Activate;
ExcclApp.Visible := False;
decodedate(datetimepicker1.date,year1,mon1,dt1);
if mon1<10 then m1:='0'+inttostr(mon1) else m1:=inttostr(mon1);
if dt1<10 then d1:='0'+inttostr(dt1) else d1:=inttostr(dt1);
day1:=inttostr(year1)+'/'+m1+'/'+d1;
decodedate(datetimepicker2.date,year1,mon1,dt1);
if mon1<10 then m1:='0'+inttostr(mon1) else m1:=inttostr(mon1);
if dt1<10 then d1:='0'+inttostr(dt1) else d1:=inttostr(dt1);
day2:=inttostr(year1)+'/'+m1+'/'+d1;
with form1.Adqqery2 do
begin
close;
sql.Clear;
sql.Add('select * from dolgn');
active:=true;
end;
for i:=1 to form1.Adqqery2.RecordCount do
begin
with form1.Adqqery9 do
begin
close;
sql.Clear;
sql.Add('SELECT dolgn.nam, Count(tabel.code) AS [Count-code] FROM
(dolgn INNER JOIN sotr ON dolgn.code = sotr.code_dol) INNER JOIN (otkl
INNER JOIN tabel ON otkl.code = tabel.code_typ) ON sotr.code_sotr =
tabel.code_sotr where (dolgn.code='+form1.Adqqery2code.AsString+') and
(otkl.code='+form1.Adqqery1code.AsString+') and (tabel.day>=#'+day1+'#) and
(tabel.day<=#'+day2+'#) GROUP BY dolgn.nam ' );
open;
end;
excclapp.cells[5+i,1]:=form1.Adqqery9nam.AsString;
excclapp.cells[5+i,2]:=form1.Adqqery9Countcode.AsInteger;
100
excclapp.cells[5+i,2].borders.linestyle:=1;
excclapp.cells[5+i,1].borders.linestyle:=1;
form1.Adqqery2.Next;
end;
excclapp.cells[4,2]:=datetostr(datetimepicker1.date)+'-'+
datetostr(datetimepicker2.date);
excclapp.cells[5,2]:=form1.Adqqery1nam.AsString;
excclapp.visible:=true;
excclapp:=unassigned;
end;
end.