gzprint.pas

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

 19:gzbreportb.qrLabel19.caption:='';
 20:gzbreportb.qrLabel20.caption:='';
 //21:gzreportb.Label21.caption:=datamodule1.ggjss.fieldbyname('a_gzcm').asstring;
 end; //case
 i_label:=i_label+1;
end;//while
end;




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

procedure Tgzprintb.Button7Click(Sender: TObject);
var
aa_sum,a_sum,ggjsstr,gzgnstr:string;
i_qrlabel,i_title:integer;
begin
gzgnstr:='select *from gzgn where extract(year from a_date)='+edit6.text;
gzgnstr:=gzgnstr+' and extract(month from a_date)='+edit7.text;
with datamodule1.gzgns do
begin
close;
sql.clear;
sql.add(gzgnstr);
prepare;
open;
end;
if datamodule1.gzgns.eof then
showmessage('没有查到符合条件的记录')
else
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_title:=2;
 a_sum:='sum(';
 i_qrlabel:=10;
 while i_title<22 do
 begin
 if datamodule1.ggjss.FieldByName('a_gzcm').asstring<>'' then
begin
 case i_qrlabel of
 10:
 begin
 gzbmreportb.qrlabel10.caption:=datamodule1.ggjss.fieldbyname('a_gzcm').asstring;
 end;
 11:
 begin
 gzbmreportb.qrlabel11.caption:=datamodule1.ggjss.fieldbyname('a_gzcm').asstring;
 end;
 12:
 begin
 gzbmreportb.qrlabel12.caption:=datamodule1.ggjss.fieldbyname('a_gzcm').asstring;
 end;
 13:
 begin
 gzbmreportb.qrlabel13.caption:=datamodule1.ggjss.fieldbyname('a_gzcm').asstring;
 end;
 14:
 begin
 gzbmreportb.qrlabel14.caption:=datamodule1.ggjss.fieldbyname('a_gzcm').asstring;
 end;
 15:
 begin
 gzbmreportb.qrlabel15.caption:=datamodule1.ggjss.fieldbyname('a_gzcm').asstring;
 end;
 16:
 begin
 gzbmreportb.qrlabel16.caption:=datamodule1.ggjss.fieldbyname('a_gzcm').asstring;
 end;
 17:
 begin
 gzbmreportb.qrlabel17.caption:=datamodule1.ggjss.fieldbyname('a_gzcm').asstring;
 end;
 18:
 begin
 gzbmreportb.qrlabel18.caption:=datamodule1.ggjss.fieldbyname('a_gzcm').asstring;
 end;
 19:
 begin
 gzbmreportb.qrlabel19.caption:=datamodule1.ggjss.fieldbyname('a_gzcm').asstring;
 end;
 20:
 begin
 gzbmreportb.qrlabel20.caption:=datamodule1.ggjss.fieldbyname('a_gzcm').asstring;
 end;
 21:
 begin
 gzbmreportb.qrlabel21.caption:=datamodule1.ggjss.fieldbyname('a_gzcm').asstring;
 end;
 end;
 i_qrlabel:=i_qrlabel+1;
 //a_sum开始
  a_sum:=a_sum+datamodule1.ggjss.fieldbyname('a_smdm').asstring+') as '+datamodule1.ggjss.fieldbyname('a_smdm').asstring+',';
 if i_title=2 then
 aa_sum:=a_sum
 else
 begin
 aa_sum:=aa_sum+a_sum;
  end;
  a_sum:='sum('; //a_sum结束
  end//if 结束
 else
begin
 case i_qrlabel of
 10:
 begin
 gzbmreportb.qrlabel10.caption:='';
 end;
 11:
 begin
 gzbmreportb.qrlabel11.caption:='';
 end;
 12:
 begin
 gzbmreportb.qrlabel12.caption:='';
 end;
 13:
 begin
 gzbmreportb.qrlabel13.caption:='';
 end;
 14:
 begin
 gzbmreportb.qrlabel14.caption:='';
 end;
 15:
 begin
 gzbmreportb.qrlabel15.caption:='';
 end;
 16:
 begin
 gzbmreportb.qrlabel16.caption:='';
 end;
 17:
 begin
 gzbmreportb.qrlabel17.caption:='';
 end;
 18:
 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.print;
end;

procedure Tgzprintb.DBGrid2DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
var
 lastcolor: TColor;
begin
 with (Sender as TDBGrid) do
 begin
   lastcolor := clred;

   case DataSource.DataSet.RecNo mod 2 of
     1: lastcolor := $00F5FEFD;
     0: lastcolor := clwhite;
   end;

   if gdSelected in State then
     lastcolor := clred;      //选中行背景为绿色

   Canvas.Brush.Color := lastcolor;
   DefaultDrawDataCell(Rect, Column.Field, State);
 end;
end;  

procedure Tgzprintb.DBGrid2KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then
begin
edit8.text:=datamodule1.yggb.fieldbyname('a_bm').asstring;
edit5.text:=datamodule1.yggb.fieldbyname('a_bz').asstring;
edit3.text:=datamodule1.yggb.fieldbyname('a_number').asstring;
edit4.text:=datamodule1.yggb.fieldbyname('a_name').asstring;
dbgrid2.visible:=false;
end;
if key=27 then
dbgrid2.visible:=false;
end;

procedure Tgzprintb.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
var
 lastcolor: TColor;
begin
 with (Sender as TDBGrid) do
 begin
   lastcolor := clred;

   case DataSource.DataSet.RecNo mod 2 of
     1: lastcolor := $00F5FEFD;
     0: lastcolor := clwhite;
   end;

   if gdSelected in State then
     lastcolor := clred;      //选中行背景为绿色

   Canvas.Brush.Color := lastcolor;
   DefaultDrawDataCell(Rect, Column.Field, State);
 end;
end;

procedure Tgzprintb.DBGrid4DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
var
 lastcolor: TColor;
begin
 with (Sender as TDBGrid) do
 begin
   lastcolor := clred;

   case DataSource.DataSet.RecNo mod 2 of
     1: lastcolor := $00F5FEFD;
     0: lastcolor := clwhite;
   end;

   if gdSelected in State then
     lastcolor := clred;      //选中行背景为绿色

   Canvas.Brush.Color := lastcolor;
   DefaultDrawDataCell(Rect, Column.Field, State);
 end;
end;

procedure Tgzprintb.TreeView1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
 begin
  if key in [37..40] then
begin
if treeview1.Selected.haschildren=true then
begin
     if treeview1.Selected.level<>0 then
     begin
     if pos('(',treeview1.Selected.parent.Text)=0 then
     edit8.text:=treeview1.selected.parent.text
     else
     edit8.text:=copy(treeview1.selected.parent.text,1,pos('(',treeview1.selected.parent.text)-1);
     if pos('(',treeview1.selected.text)=0 then
     edit5.text:=treeview1.Selected.Text
     else
     edit5.text:=copy(treeview1.selected.text,1,pos('(',treeview1.selected.text)-1);
   end;
   end;//if treeview1
{else
begin
if pos('(',treeview1.Selected.parent.Text)=0 then
     edit1.text:=treeview1.selected.parent.text
     else
     edit1.text:=copy(treeview1.selected.parent.text,1,pos('(',treeview1.selected.parent.text)-1);
     edit2.text:='';
end;//else  }
if treeview1.selected.level<>0 then
begin
if pos('(',treeview1.Selected.parent.Text)=0 then
     edit8.text:=treeview1.selected.parent.text
     else
     edit8.text:=copy(treeview1.selected.parent.text,1,pos('(',treeview1.selected.parent.text)-1);
     if pos('(',treeview1.selected.text)=0 then
     edit5.text:=treeview1.Selected.Text
     else
     edit5.text:=copy(treeview1.selected.text,1,pos('(',treeview1.selected.text)-1);
end;
end;//if inttostr
if key=13 then
begin
if (treeview1.Selected.HasChildren=true) and (treeview1.Selected.Level=0) then
begin
showmessage('请先选择好班组，谢谢!');
i_key13:=true;
treeview1.Selected.getFirstChild.Selected:=true;
end//if (
else
begin

if i_key13=false then
treeview1.visible:=false;
  //
if treeview1.Selected.haschildren=true then
begin
     if treeview1.Selected.level<>0 then
     begin
  if pos('(',treeview1.Selected.parent.Text)=0 then
     edit8.text:=treeview1.selected.parent.text
     else
     edit8.text:=copy(treeview1.selected.parent.text,1,pos('(',treeview1.selected.parent.text)-1);
     if pos('(',treeview1.selected.text)=0 then
     edit5.text:=treeview1.Selected.Text
     else
     edit5.text:=copy(treeview1.selected.text,1,pos('(',treeview1.selected.text)-1);
   end;
   end//if treeview1
else
begin
    if pos('(',treeview1.Selected.Text)=0 then
    edit8.text:=treeview1.selected.text
    else
    edit8.text:=copy(treeview1.selected.text,1,pos('(',treeview1.selected.text)-1);
    edit5.text:='';
end;//else
if treeview1.selected.level<>0 then
begin
   if pos('(',treeview1.Selected.parent.Text)=0 then
     edit8.text:=treeview1.selected.parent.text
     else
     edit8.text:=copy(treeview1.selected.parent.text,1,pos('(',treeview1.selected.parent.text)-1);
     if pos('(',treeview1.selected.text)=0 then
     edit5.text:=treeview1.Selected.Text
     else
     edit5.text:=copy(treeview1.selected.text,1,pos('(',treeview1.selected.text)-1);
end;

    //

i_key13:=false;
end;

end;//if key  13结束
 end;
procedure Tgzprintb.Edit8Enter(Sender: TObject);
begin
treeview1.visible:=true;
treeview1.setfocus;

end;

procedure Tgzprintb.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 self.release;
end;

end.