gzprint.pas

2004090611144625767.rar 资源名称:通用工资管理

 begin
 gzbmreportb.qrlabel18.caption:='';
 end;
 19:
 begin
 gzbmreportb.qrlabel19.caption:='';
 end;
 20:
 begin
 gzbmreportb.qrlabel20.caption:='';
 end;
 21:
 begin
 gzbmreportb.qrlabel21.caption:='';
 end;
 end;//case
 end;//if
 i_title:=i_title+1;
 datamodule1.ggjss.next;
 end;//上面循环的
 a_sum:=copy(aa_sum,1,length(aa_sum)-1);
 gzgnstr:='select a_bm,a_bz, '+a_sum+' from gzgn where extract(year from a_date)=';
 gzgnstr:=gzgnstr+edit1.text+' and extract(month from a_date)='+edit2.text+' group by a_bm,a_bz';
 with datamodule1.gzgns do
 begin
 close;
 sql.clear;
 sql.add(gzgnstr);
 prepare;
 open;
 end;
//while not datamodule1.gzgns.eof do  //循环记录条数
  //begin
  ggjsstr:='select *from ggjs where extract(year from a_date)='+edit6.text;
  ggjsstr:=ggjsstr+' and extract(month from a_date)='+edit7.text;
  with datamodule1.ggjss do
  begin
  close;
  sql.clear;
  sql.add(ggjsstr);
  prepare;
  open;
  end;
  i_qrlabel:=1;
  while not datamodule1.ggjss.Eof do
  begin
  if datamodule1.ggjss.fieldbyname('a_gzcm').asstring<>'' then
  begin
  case i_qrlabel of
  1:
  begin
  gzbmreportb.QRDBText1.dataset:=datamodule1.gzgns;
  gzbmreportb.qrdbtext1.datafield:=datamodule1.ggjss.fieldbyname('a_smdm').asstring;
  end;
  2:
  begin
  gzbmreportb.QRDBText2.dataset:=datamodule1.gzgns;
  gzbmreportb.qrdbtext2.datafield:=datamodule1.ggjss.fieldbyname('a_smdm').asstring;
  end;
  3:
  begin
  gzbmreportb.QRDBText3.dataset:=datamodule1.gzgns;
  gzbmreportb.qrdbtext3.datafield:=datamodule1.ggjss.fieldbyname('a_smdm').asstring;
  end;
  4:
  begin
  gzbmreportb.QRDBText4.dataset:=datamodule1.gzgns;
  gzbmreportb.qrdbtext4.datafield:=datamodule1.ggjss.fieldbyname('a_smdm').asstring;
  end;
  5:
  begin
  gzbmreportb.QRDBText5.dataset:=datamodule1.gzgns;
  gzbmreportb.qrdbtext5.datafield:=datamodule1.ggjss.fieldbyname('a_smdm').asstring;
  end;
  6:
  begin
  gzbmreportb.QRDBText6.dataset:=datamodule1.gzgns;
  gzbmreportb.qrdbtext6.datafield:=datamodule1.ggjss.fieldbyname('a_smdm').asstring;
  end;
  7:
  begin
  gzbmreportb.QRDBText7.dataset:=datamodule1.gzgns;
  gzbmreportb.qrdbtext7.datafield:=datamodule1.ggjss.fieldbyname('a_smdm').asstring;
  end;
  8:
  begin
  gzbmreportb.QRDBText8.dataset:=datamodule1.gzgns;
  gzbmreportb.qrdbtext8.datafield:=datamodule1.ggjss.fieldbyname('a_smdm').asstring;
  end;
  9:
  begin
  gzbmreportb.QRDBText9.dataset:=datamodule1.gzgns;
  gzbmreportb.qrdbtext9.datafield:=datamodule1.ggjss.fieldbyname('a_smdm').asstring;
  end;
  10:
  begin
  gzbmreportb.QRDBText10.dataset:=datamodule1.gzgns;
  gzbmreportb.qrdbtext10.datafield:=datamodule1.ggjss.fieldbyname('a_smdm').asstring;
  end;
  11:
  begin
  gzbmreportb.QRDBText11.dataset:=datamodule1.gzgns;
  gzbmreportb.qrdbtext11.datafield:=datamodule1.ggjss.fieldbyname('a_smdm').asstring;
  end;
  12:
  begin
  gzbmreportb.QRDBText12.dataset:=datamodule1.gzgns;
  gzbmreportb.qrdbtext12.datafield:=datamodule1.ggjss.fieldbyname('a_smdm').asstring;
  end;
  end;//case
  i_qrlabel:=i_qrlabel+1;
  end;//if
  datamodule1.ggjss.next;
  end;//ggjss的while



  //end; //gzgns的while
end;//最上面的else底下的
gzbmreportb.QRLabel1.caption:=edit6.text;
gzbmreportb.qrlabel3.caption:=edit7.text;
gzbmreportb.QuickRep1.Preview;
end;
procedure Tgzprintb.Button3Click(Sender: TObject);
var
label_str,ggjsstr,gzgnstr:string;
i_title,i_label:integer;
begin
if radiobutton1.checked=true then
 begin
  if edit8.text<>'' then
 begin
gzgnstr:='select *from gzgn where a_bm=';
gzgnstr:=gzgnstr+''''+edit8.text+''''+' and a_bz=';
gzgnstr:=gzgnstr+''''+edit5.text+'''';
gzgnstr:=gzgnstr+' and extract(year from a_date)='+edit1.text;
gzgnstr:=gzgnstr+' and extract(month from a_date)='+edit2.text;
 end
 else
 begin
 gzgnstr:='select *from gzgn where extract(year from a_date)='+edit1.text;
 gzgnstr:=gzgnstr+' and extract(month from a_date)='+edit2.text;
 end;
 if (edit3.text<>'') and (edit4.text<>'') then
 begin
 gzgnstr:=gzgnstr+' and a_number='+''''+edit3.text+'''';
 gzgnstr:=gzgnstr+' and a_name='+''''+edit4.text+'''';
 end;
 with datamodule1.gzgns do
 begin
 close;
 sql.clear;
 sql.add(gzgnstr);
 prepare;
 open;
 end;
  if not datamodule1.gzgns.Eof then
  begin
  ggjsstr:='select *from ggjs where extract(year from a_date)=';
  ggjsstr:=ggjsstr+edit1.text+' and extract(month from a_date)=';
  ggjsstr:=ggjsstr+edit2.text;
  with datamodule1.ggjss do
  begin
  close;
  sql.clear;
  sql.add(ggjsstr);
  prepare;
  open;
  end;
 i_title:=4;
 i_label:=9;
 while i_title<=23 do
begin
 if datamodule1.ggjss.fieldbyname('a_gzcm').asstring<>'' then
 begin
 case i_label of
 9:
 begin
 gzreportb.Label9.caption:=datamodule1.ggjss.fieldbyname('a_gzcm').asstring;
 gzreportb.QRDBText2.dataset:=datamodule1.gzgns;
 gzreportb.QRDBText2.DataField:=datamodule1.ggjss.fieldbyname('a_smdm').asstring;
 end;
 10:
 begin
 gzreportb.Label10.caption:=datamodule1.ggjss.fieldbyname('a_gzcm').asstring;
 gzreportb.QRDBText3.dataset:=datamodule1.gzgns;
 gzreportb.QRDBText3.DataField:=datamodule1.ggjss.fieldbyname('a_smdm').asstring;
 end;
 11:
 begin
 gzreportb.Label11.caption:=datamodule1.ggjss.fieldbyname('a_gzcm').asstring;
  gzreportb.QRDBText4.dataset:=datamodule1.gzgns;
 gzreportb.QRDBText4.DataField:=datamodule1.ggjss.fieldbyname('a_smdm').asstring;
 end;
 12:
 begin
 gzreportb.label12.caption:=datamodule1.ggjss.fieldbyname('a_gzcm').asstring;
  gzreportb.QRDBText5.dataset:=datamodule1.gzgns;
 gzreportb.QRDBText5.DataField:=datamodule1.ggjss.fieldbyname('a_smdm').asstring;
 end;
 13:
 begin
 gzreportb.Label13.caption:=datamodule1.ggjss.fieldbyname('a_gzcm').asstring;
  gzreportb.QRDBText6.dataset:=datamodule1.gzgns;
 gzreportb.QRDBText6.DataField:=datamodule1.ggjss.fieldbyname('a_smdm').asstring;
 end;
 14:
 begin
 gzreportb.Label14.caption:=datamodule1.ggjss.fieldbyname('a_gzcm').asstring;
  gzreportb.QRDBText7.dataset:=datamodule1.gzgns;
 gzreportb.QRDBText7.DataField:=datamodule1.ggjss.fieldbyname('a_smdm').asstring;
 end;
 15:
 begin
 gzreportb.Label15.caption:=datamodule1.ggjss.fieldbyname('a_gzcm').asstring;
  gzreportb.QRDBText8.dataset:=datamodule1.gzgns;
 gzreportb.QRDBText8.DataField:=datamodule1.ggjss.fieldbyname('a_smdm').asstring;
 end;
 16:
 begin
 gzreportb.Label16.caption:=datamodule1.ggjss.fieldbyname('a_gzcm').asstring;
  gzreportb.QRDBText9.dataset:=datamodule1.gzgns;
 gzreportb.QRDBText9.DataField:=datamodule1.ggjss.fieldbyname('a_smdm').asstring;
 end;
 17:
 begin
 gzreportb.Label17.caption:=datamodule1.ggjss.fieldbyname('a_gzcm').asstring;
  gzreportb.QRDBText10.dataset:=datamodule1.gzgns;
 gzreportb.QRDBText10.DataField:=datamodule1.ggjss.fieldbyname('a_smdm').asstring;
 end;
 18:
 begin
 gzreportb.Label18.caption:=datamodule1.ggjss.fieldbyname('a_gzcm').asstring;
  gzreportb.QRDBText11.dataset:=datamodule1.gzgns;
 gzreportb.QRDBText11.DataField:=datamodule1.ggjss.fieldbyname('a_smdm').asstring;
 end;
 19:
 begin
 gzreportb.Label19.caption:=datamodule1.ggjss.fieldbyname('a_gzcm').asstring;
  gzreportb.QRDBText12.dataset:=datamodule1.gzgns;
 gzreportb.QRDBText12.DataField:=datamodule1.ggjss.fieldbyname('a_smdm').asstring;
 end;
 20:
 begin
 gzreportb.Label20.caption:=datamodule1.ggjss.fieldbyname('a_gzcm').asstring;
 gzreportb.QRDBText13.dataset:=datamodule1.gzgns;
 gzreportb.QRDBText13.DataField:=datamodule1.ggjss.fieldbyname('a_smdm').asstring;
 end;
  end;//case
   i_label:=i_label+1;


 end;//if
 { else
  begin
  case i_label of
 9:gzreportb.Label9.caption:='';
 10:gzreportb.Label10.caption:='';
 11:gzreportb.Label11.caption:='';
 12: gzreportb.label12.caption:='';
 13:gzreportb.Label13.caption:='';
 14:gzreportb.Label14.caption:='';
 15:gzreportb.Label15.caption:='';
 16:gzreportb.Label16.caption:='';
 17:gzreportb.Label17.caption:='';
 18:gzreportb.Label18.caption:='';
 19:gzreportb.Label19.caption:='';
 20:gzreportb.Label20.caption:='';
 //21:gzreportb.Label21.caption:=datamodule1.ggjss.fieldbyname('a_gzcm').asstring;
 end; //case
 //i_label:=i_label+1;
 end;//else }
i_title:=i_title+1;
datamodule1.ggjss.next;
end;// 上面循环用
while i_label<=20 do
begin
    case i_label of
 9:gzreportb.Label9.caption:='';
 10:gzreportb.Label10.caption:='';
 11:gzreportb.Label11.caption:='';
 12: gzreportb.label12.caption:='';
 13:gzreportb.Label13.caption:='';
 14:gzreportb.Label14.caption:='';
 15:gzreportb.Label15.caption:='';
 16:gzreportb.Label16.caption:='';
 17:gzreportb.Label17.caption:='';
 18:gzreportb.Label18.caption:='';
 19:gzreportb.Label19.caption:='';
 20:gzreportb.Label20.caption:='';
 //21:gzreportb.Label21.caption:=datamodule1.ggjss.fieldbyname('a_gzcm').asstring;
 end; //case
 i_label:=i_label+1;
end;//while


end;




  gzreportb.QRLabel1.caption:=edit1.text;
  gzreportb.qrlabel3.caption:=edit2.text;
  gzreportb.quickrep1.print;
  end;//radiobutton1的


  if radiobutton2.checked=true then  //  工资表
begin
  if edit8.text<>'' then
 begin
gzgnstr:='select *from gzgn where a_bm=';
gzgnstr:=gzgnstr+''''+edit8.text+''''+' and a_bz=';
gzgnstr:=gzgnstr+''''+edit5.text+'''';
gzgnstr:=gzgnstr+' and extract(year from a_date)='+edit1.text;
gzgnstr:=gzgnstr+' and extract(month from a_date)='+edit2.text;
 end
 else
 begin
 gzgnstr:='select *from gzgn where extract(year from a_date)='+edit1.text;
 gzgnstr:=gzgnstr+' and extract(month from a_date)='+edit2.text;
 end;
 if (edit3.text<>'') and (edit4.text<>'') then
 begin
 gzgnstr:=gzgnstr+' and a_number='+''''+edit3.text+'''';
 gzgnstr:=gzgnstr+' and a_name='+''''+edit4.text+'''';
 end;
 with datamodule1.gzgns do
 begin
 close;
 sql.clear;
 sql.add(gzgnstr);
 prepare;
 open;
 end;
  if not datamodule1.gzgns.Eof then
  begin
  ggjsstr:='select *from ggjs where extract(year from a_date)=';
  ggjsstr:=ggjsstr+edit1.text+' and extract(month from a_date)=';
  ggjsstr:=ggjsstr+edit2.text;
  with datamodule1.ggjss do
  begin
  close;
  sql.clear;
  sql.add(ggjsstr);
  prepare;
  open;
  end;
 i_title:=4;
 i_label:=9;
 while i_title<=23 do
begin
 if datamodule1.ggjss.fieldbyname('a_gzcm').asstring<>'' then
 begin
 case i_label of
 9:
 begin
 gzbreportb.qrLabel9.caption:=datamodule1.ggjss.fieldbyname('a_gzcm').asstring;
 gzbreportb.QRDBText15.dataset:=datamodule1.gzgns;
 gzbreportb.QRDBText15.DataField:=datamodule1.ggjss.fieldbyname('a_smdm').asstring;
 end;
 10:
 begin
 gzbreportb.qrLabel10.caption:=datamodule1.ggjss.fieldbyname('a_gzcm').asstring;
 gzbreportb.QRDBText16.dataset:=datamodule1.gzgns;
 gzbreportb.QRDBText16.DataField:=datamodule1.ggjss.fieldbyname('a_smdm').asstring;
 end;
 11:
 begin
 gzbreportb.qrLabel11.caption:=datamodule1.ggjss.fieldbyname('a_gzcm').asstring;
 gzbreportb.QRDBText17.dataset:=datamodule1.gzgns;
 gzbreportb.QRDBText17.DataField:=datamodule1.ggjss.fieldbyname('a_smdm').asstring;
 end;
 12:
 begin
 gzbreportb.qrlabel12.caption:=datamodule1.ggjss.fieldbyname('a_gzcm').asstring;
 gzbreportb.QRDBText18.dataset:=datamodule1.gzgns;
 gzbreportb.QRDBText18.DataField:=datamodule1.ggjss.fieldbyname('a_smdm').asstring;
 end;
 13:
 begin
 gzbreportb.qrLabel13.caption:=datamodule1.ggjss.fieldbyname('a_gzcm').asstring;
  gzbreportb.QRDBText19.dataset:=datamodule1.gzgns;
 gzbreportb.QRDBText19.DataField:=datamodule1.ggjss.fieldbyname('a_smdm').asstring;
 end;
 14:
 begin
 gzbreportb.qrLabel14.caption:=datamodule1.ggjss.fieldbyname('a_gzcm').asstring;
  gzbreportb.QRDBText20.dataset:=datamodule1.gzgns;
 gzbreportb.QRDBText20.DataField:=datamodule1.ggjss.fieldbyname('a_smdm').asstring;
 end;
 15:
 begin
 gzbreportb.qrLabel15.caption:=datamodule1.ggjss.fieldbyname('a_gzcm').asstring;
  gzbreportb.QRDBText21.dataset:=datamodule1.gzgns;
 gzbreportb.QRDBText21.DataField:=datamodule1.ggjss.fieldbyname('a_smdm').asstring;
 end;
 16:
 begin
 gzbreportb.qrLabel16.caption:=datamodule1.ggjss.fieldbyname('a_gzcm').asstring;
  gzbreportb.QRDBText22.dataset:=datamodule1.gzgns;
 gzbreportb.QRDBText22.DataField:=datamodule1.ggjss.fieldbyname('a_smdm').asstring;
 end;
 17:
 begin
 gzbreportb.qrLabel17.caption:=datamodule1.ggjss.fieldbyname('a_gzcm').asstring;
  gzbreportb.QRDBText23.dataset:=datamodule1.gzgns;
 gzbreportb.QRDBText23.DataField:=datamodule1.ggjss.fieldbyname('a_smdm').asstring;
 end;
 18:
 begin
 gzbreportb.qrLabel18.caption:=datamodule1.ggjss.fieldbyname('a_gzcm').asstring;
  gzbreportb.QRDBText24.dataset:=datamodule1.gzgns;
 gzbreportb.QRDBText24.DataField:=datamodule1.ggjss.fieldbyname('a_smdm').asstring;
 end;
 19:
 begin
 gzbreportb.qrLabel19.caption:=datamodule1.ggjss.fieldbyname('a_gzcm').asstring;
  gzbreportb.QRDBText25.dataset:=datamodule1.gzgns;
 gzbreportb.QRDBText25.DataField:=datamodule1.ggjss.fieldbyname('a_smdm').asstring;
 end;
 20:
 begin
 gzbreportb.qrLabel20.caption:=datamodule1.ggjss.fieldbyname('a_gzcm').asstring;
 gzbreportb.QRDBText26.dataset:=datamodule1.gzgns;
 gzbreportb.QRDBText26.DataField:=datamodule1.ggjss.fieldbyname('a_smdm').asstring;
 end;
 end;//case
 i_label:=i_label+1;


 end;//if
  {else
  begin
  case i_label of
 9:gzbreportb.qrLabel9.caption:='';
 10:gzbreportb.qrLabel10.caption:='';
 11:gzbreportb.qrLabel11.caption:='';
 12: gzbreportb.qrlabel12.caption:='';
 13:gzbreportb.qrLabel13.caption:='';
 14:gzbreportb.qrLabel14.caption:='';
 15:gzbreportb.qrLabel15.caption:='';
 16:gzbreportb.qrLabel16.caption:='';
 17:gzbreportb.qrLabel17.caption:='';
 18:gzbreportb.qrLabel18.caption:='';
 19:gzbreportb.qrLabel19.caption:='';
 20:gzbreportb.qrLabel20.caption:='';
 //21:gzreportb.Label21.caption:=datamodule1.ggjss.fieldbyname('a_gzcm').asstring;
 end; //case
 end;//else}
i_title:=i_title+1;
datamodule1.ggjss.next;
end;// 上面循环用
while i_label<=20 do
begin
    case i_label of
 9:gzbreportb.qrLabel9.caption:='';
 10:gzbreportb.qrLabel10.caption:='';
 11:gzbreportb.qrLabel11.caption:='';
 12: gzbreportb.qrlabel12.caption:='';
 13:gzbreportb.qrLabel13.caption:='';
 14:gzbreportb.qrLabel14.caption:='';
 15:gzbreportb.qrLabel15.caption:='';
 16:gzbreportb.qrLabel16.caption:='';
 17:gzbreportb.qrLabel17.caption:='';
 18:gzbreportb.qrLabel18.caption:='';