report.txt

人事管理程序源码

       begin
         hjtext1[j]:=TQRExpr.Create(Form_zhcx);      //创建明细值
         with hjtext1[j] do begin
           parent:=Form_zhcx.PageFooterBand1;
           Expression:='sum('+dbgrid1.Columns[j].FieldName+')';
           width:=dbgrid1.Columns[j].Width;
           Alignment :=taCenter;
           height:=Form_zhcx.PageFooterBand1.Height;
           left:=leftv+2;
           top:=8;
         end;
       end;
  end;

  leftv:=0;   //清变量为O
  for j:=0 to dbgrid1.Columns.Count-1 do begin   //==创建本页合计（打印)
    if copy(dbgrid1.Columns[j].Title.Caption,1,1)=' ' then begin
      cheader1[j]:=Tqrlabel.Create(Form_zhcx);
      with cheader1[j] do begin                        //创建值
        parent:=Form_zhcx.QRSubDetail1;
        caption:=' ';
        width:=dbgrid1.Columns[j].Width;
        Alignment :=taCenter;
        height:=Form_zhcx.QRSubDetail1.Height;
        left:=leftv+2;
        top:=6;
      end;  //===
    end;

    shap1[byhj_xs]:=Tqrshape.Create(Form_zhcx); //页合计中的竖线
    with shap1[byhj_xs] do begin
      parent:=Form_zhcx.QRSubDetail1;
      shape:=qrsvertline;
      width:=1;
      height:=Form_zhcx.QRSubDetail1.Height+2;
      left:=leftv+1;
      top:=-2;  //qqq
    end;
    byhj_xs:=byhj_xs+1;
    leftv:=dbgrid1.Columns[j].Width+leftv;
  end;                                        //=========================

  cheader1[30]:=Tqrlabel.Create(Form_zhcx);
  with cheader1[30] do begin                        //创建本页合计栏中的“本页合计'
    parent:=Form_zhcx.QRSubDetail1;
    caption:='本页合计';
    Alignment:=taCenter;
    width:=dbgrid1.Columns[0].Width;
    height:=Form_zhcx.QRSubDetail1.Height;
    left:=2;
    top:=6;
  end;

  shap1[byhj_xs]:=Tqrshape.Create(Form_zhcx);            //下横线
  with shap1[byhj_xs] do begin
    parent:=Form_zhcx.QRSubDetail1;
    shape:=qrsHorLine;
    width:=leftv-2;
    height:=1;
    left:=1;
    top:=Form_zhcx.QRSubDetail1.Height-2;
  end;                                         //======
  byhj_xs:=byhj_xs+1;

  shap1[byhj_xs]:=Tqrshape.Create(Form_zhcx);     //创建本页合计（打印)中的最左边一条竖线
  with shap1[byhj_xs] do begin
    parent:=Form_zhcx.QRSubDetail1;
    shape:=qrsvertline;
    width:=1;
    height:=Form_zhcx.QRSubDetail1.Height+2 ;
    left:=leftv-1;
    top:=-1;
    ComponentIndex:=501;
  end;                                      //=====================
  byhj_xs:=byhj_xs+1;

  leftv:=0;   //清变量为O
  for j:=0 to dbgrid1.Columns.Count-1 do begin    //==========创建总合计
    if copy(dbgrid1.Columns[j].Title.Caption,1,1)=' ' then begin
      hjtext:=TQRExpr.Create(Form_zhcx);      //创建明细值
      with hjtext do begin
        parent:=Form_zhcx.SummaryBand1;
        Expression:='sum('+dbgrid1.Columns[j].FieldName+')';
        width:=dbgrid1.Columns[j].Width;
        Alignment :=taCenter;
        height:=Form_zhcx.SummaryBand1.Height;
        left:=leftv+2;
        top:=8;
      end;
    end;                                           //====================

    shap:=Tqrshape.Create(Form_zhcx);            //创建竖线
    with shap do begin
      parent:=Form_zhcx.SummaryBand1;
      shape:=qrsvertline;
      width:=1;
      height:=Form_zhcx.SummaryBand1.Height;
      left:=leftv+1;
      top:=-1;  ///qqq
    end;                                        //=========
    leftv:=dbgrid1.Columns[j].Width+leftv;
  end;

  cheader:=Tqrlabel.Create(Form_zhcx);
  with cheader do begin                        //创建总合计栏中的“总合计'
    parent:=Form_zhcx.SummaryBand1;
    caption:='总合计';
    cheader.Alignment:=taCenter;
    width:=dbgrid1.Columns[0].Width;
    height:=Form_zhcx.SummaryBand1.Height;
    left:=2;
    top:=6;
  end;                                        //====================

  shap:=Tqrshape.Create(Form_zhcx);            //为总合计栏创建一条横线
  with shap do begin
    parent:=Form_zhcx.SummaryBand1;
    shape:=qrsHorLine;
    width:=leftv-2;
    height:=1;
    left:=1;
    top:=Form_zhcx.SummaryBand1.Height-2;
  end;                                        //=======================

  shap:=Tqrshape.Create(Form_zhcx);            //创建明细栏最左边一条竖线
  with shap do begin
    parent:=Form_zhcx.SummaryBand1;
    shape:=qrsvertline;
    width:=1;
    height:=Form_zhcx.SummaryBand1.Height;
    left:=leftv-1;
    top:=-1;
  end;                                        //=========================
  first_bz:=false;   //预览以后使第一次预览标志设为假，
end;                     //以便在开始预览前清除“本页合计“中的控件.

//================================

  为了实现本页合计要在以下的事件过程中加入一些代码用以控制正确的本页合计：
//==========================
  在Detail的BeforePrint事件过程在加入：

     if dybz then begin                     //用以判断是否在预览时打印
       gzda_dm.ADODataSet_cx.First;     //因为dybz的初始值为假，只在总合
       i:=0;                                //打印以后才使它为真，所以如果   
       bz:=false;                           //dybz为真则一定是在预览时打印了
       dybz:=false;
     end;  
//=============
   在Detail的Afterprint事件过程中加入:

      i:=i+1;      //用以使当前每页的行数加1
//===============
   在Sub detail的onNeedData的事件过程中加入以下代码：
var
  j:integer;
begin  
  For j:=0 to dbgrid1.Columns.Count-1 do begin 
      if copy(dbgrid1.Columns[j].Title.Caption,1,1)=' ' then
         begin
           cheader1[j].Caption:=floattostr(int(hjtext1[j].Value.dblResult*1000+0.5)/1000);
         end;
  end;
end;        //用以把默认的本页合计的值送到打印本页合计边上的Qrlabel的Caption属性
//=====================
    在Sub detail的BeforePrint事件过程在加入以下代码：

        gzda_dm.ADODataSet_cx.next;  //为了判断是否到了数据表的未尾
        if (i=myhs) then begin   //如果当前每页的行数等于设定的每页的行数则使本页合计打印
          PrintBand:=true;
        end
        else begin
          if (gzda_dm.ADODataSet_cx.eof) and (bz=false) then begin//如果到了数据表的未尾也使
            PrintBand:=true;                  //本页合计打印,这里加了一个全局的控制变量bz，是为了
            bz:=true;                         //使本页合计只打印一次,如果没有这个控制,因为这个条 
          end                                 //条件一直成立，所以会把本页合计边一直打印下去。   
          else
            PrintBand:=false;
          end;
       if not gzda_dm.ADODataSet_cx.eof then gzda_dm.ADODataSet_cx.Prior;   
           //加这下行代码是因为在上边我们使数据表下移了一条记录。这们是为了判断是否到了数据表的未
           //尾。这里有一个Delphi默认的控制机制：在每打印完一个明细项（一条记录）时会自动下移记录
//=================
     在sub detail的AfterPrint事件过程中加入以下代码：

        if i=myhs then begin      //如果当前每页的行数等于设定的每页的行数则开始一新页
          QuickRep1.NewColumn;    //同时使控制变量为0
          i:=0;
        end;
//====================
     在pagefootband（默认的本页合计边）的BeforePrint事件中加入以下代码：
var
  j:integer;
begin
        for j:=0 to dbgrid1.Columns.Count-1 do begin    //==========创建本页合计（不打印)
          if copy(dbgrid1.Columns[j].Title.Caption,1,1)=' ' then begin
            hjtext1[j].Reset;
          end;                     //因为无法设置QRexpr的AfterPrintReset属性，因为根本没有打印
        end;                       //所有要在这里调用QRexpr的Reset过程以清空它的值。
        printband:=false;
end;
//=====================
     在SummaryBand1(总合计边)上的Afterprint事件中加入:
     dybz:=true; // 使控制变量为真。