20010417001.htm

C++Builder教学大全

          </tr>
          </tbody>
        </table>
        <table align=center width=620>
          <tbody> 
          <tr> 
            <td class=a14>TGridPrint::TGridPrint(TQuickRep * pSrcQuickRep,TDBGrid 
              * pSrcDBGrid,TQRBand *SrcTitleBand1, TQRBand *SrcColumnHeaderBand1,TQRBand 
              * SrcDetailBand1) //构造函数</td>
          </tr>
          </tbody>
        </table>
        <table align=center width=620>
          <tbody> 
          <tr> 
            <td class=a14>{ int i,PreLeft;</td>
          </tr>
          </tbody>
        </table>
        <table align=center width=620>
          <tbody> 
          <tr> 
            <td class=a14>pQuickRep = pSrcQuickRep; //根据传入参数设置私有变量</td>
          </tr>
          </tbody>
        </table>
        <table align=center width=620>
          <tbody> 
          <tr> 
            <td class=a14>pDBGrid = pSrcDBGrid;</td>
          </tr>
          </tbody>
        </table>
        <table align=center width=620>
          <tbody> 
          <tr> 
            <td class=a14>pDataSet = pDBGrid-&gt;DataSource-&gt;DataSet;</td>
          </tr>
          </tbody>
        </table>
        <table align=center width=620>
          <tbody> 
          <tr> 
            <td class=a14>pQuickRep-&gt;DataSet = pDataSet;</td>
          </tr>
          </tbody>
        </table>
        <table align=center width=620>
          <tbody> 
          <tr> 
            <td class=a14>TitleBand1 = SrcTitleBand1;</td>
          </tr>
          </tbody>
        </table>
        <table align=center width=620>
          <tbody> 
          <tr> 
            <td class=a14>ColumnHeaderBand1 = SrcColumnHeaderBand1;</td>
          </tr>
          </tbody>
        </table>
        <table align=center width=620>
          <tbody> 
          <tr> 
            <td class=a14>DetailBand1= SrcDetailBand1; </td>
          </tr>
          </tbody>
        </table>
        <table align=center width=620>
          <tbody> 
          <tr> 
            <td class=a14>PTitleLabel = new TQRLabel(pQuickRep); //生成并设置总标题标签的属性</td>
          </tr>
          </tbody>
        </table>
        <table align=center width=620>
          <tbody> 
          <tr> 
            <td class=a14>pTitleLabel-&gt;Parent = TitleBand1;</td>
          </tr>
          </tbody>
        </table>
        <table align=center width=620>
          <tbody> 
          <tr> 
            <td class=a14>pTitleLabel-&gt;Caption = "报表标题";</td>
          </tr>
          </tbody>
        </table>
        <table align=center width=620>
          <tbody> 
          <tr> 
            <td class=a14>pTitleLabel-&gt;Left= (TitleBand1-&gt;Width - pTitleLabel-&gt;Width)/2;</td>
          </tr>
          </tbody>
        </table>
        <table align=center width=620>
          <tbody> 
          <tr> 
            <td 
  class=a14>memset(_arrayFieldType,0,sizeof(NEWFIELDTYPE)*40);</td>
          </tr>
          </tbody>
        </table>
        <table align=center width=620>
          <tbody> 
          <tr> 
            <td class=a14>_iTotalWidth=0; //计算出表格各列单元宽度和整个表格的总宽度</td>
          </tr>
          </tbody>
        </table>
        <table align=center width=620>
          <tbody> 
          <tr> 
            <td class=a14>for(i=0; i&lt; pDBGrid-&gt;FieldCount;i++)</td>
          </tr>
          </tbody>
        </table>
        <table align=center width=620>
          <tbody> 
          <tr> 
            <td class=a14>{ _arrayFieldType[i].iWidth= pDBGrid-&gt;Columns-&gt;Items[i]-&gt;Width;</td>
          </tr>
          </tbody>
        </table>
        <table align=center width=620>
          <tbody> 
          <tr> 
            <td class=a14>_iTotalWidth += _arrayFieldType[i].iWidth; }</td>
          </tr>
          </tbody>
        </table>
        <table align=center width=620>
          <tbody> 
          <tr> 
            <td class=a14>if(_iTotalWidth &gt; TitleBand1-&gt;Width)</td>
          </tr>
          </tbody>
        </table>
        <table align=center width=620>
          <tbody> 
          <tr> 
            <td class=a14>{ //如果原DBGird各列宽度和大于总标题栏宽度，就调整各列宽度</td>
          </tr>
          </tbody>
        </table>
        <table align=center width=620>
          <tbody> 
          <tr> 
            <td class=a14>_iTotalWidth= TitleBand1-&gt;Width;</td>
          </tr>
          </tbody>
        </table>
        <table align=center width=620>
          <tbody> 
          <tr> 
            <td class=a14>AutoAdjustColumnsWidth(); }</td>
          </tr>
          </tbody>
        </table>
        <table align=center width=620>
          <tbody> 
          <tr> 
            <td class=a14>PreLeft= ( TitleBand1-&gt;Width - _iTotalWidth)/2; //使整个表格居中</td>
          </tr>
          </tbody>
        </table>
        <table align=center width=620>
          <tbody> 
          <tr> 
            <td class=a14>pHeadRect= new TQRShape(pSrcQuickRep); //生成并设置字段标题栏的矩形框</td>
          </tr>
          </tbody>
        </table>
        <table align=center width=620>
          <tbody> 
          <tr> 
            <td class=a14>pHeadRect-&gt;Parent= ColumnHeaderBand1;</td>
          </tr>
          </tbody>
        </table>
        <table align=center width=620>
          <tbody> 
          <tr> 
            <td class=a14>pHeadRect-&gt;Left = PreLeft; pHeadRect-&gt;Top = 0;</td>
          </tr>
          </tbody>
        </table>
        <table align=center width=620>
          <tbody> 
          <tr> 
            <td class=a14>pHeadRect-&gt;Width = _iTotalWidth; pHeadRect-&gt;Height= 
              pHeadRect-&gt;Parent-&gt;Height;</td>
          </tr>
          </tbody>
        </table>
        <table align=center width=620>
          <tbody> 
          <tr> 
            <td class=a14>pDetailRect= new TQRShape(pSrcQuickRep); //生成设置数据行的矩形框</td>
          </tr>
          </tbody>
        </table>
        <table align=center width=620>
          <tbody> 
          <tr> 
            <td class=a14>pDetailRect-&gt;Parent= DetailBand1;</td>
          </tr>
          </tbody>
        </table>
        <table align=center width=620>
          <tbody> 
          <tr> 
            <td class=a14>pDetailRect-&gt;Left = PreLeft; pDetailRect-&gt;Top 
              = -1;</td>
          </tr>
          </tbody>
        </table>
        <table align=center width=620>
          <tbody> 
          <tr> 
            <td class=a14>pDetailRect-&gt;Width = _iTotalWidth; pDetailRect-&gt;Height= 
              pDetailRect-&gt;Parent-&gt;Height+1 ;</td>
          </tr>
          </tbody>
        </table>
        <table align=center width=620>
          <tbody> 
          <tr> 
            <td class=a14>_iIntClearance= 1;</td>
          </tr>
          </tbody>
        </table>
        <table align=center width=620>
          <tbody> 
          <tr> 
            <td class=a14>_iFieldCount= pDBGrid-&gt;FieldCount; //设置表格总列数</td>
          </tr>
          </tbody>
        </table>
        <table align=center width=620>
          <tbody> 
          <tr> 
            <td class=a14>for(i=0; i&lt; _iFieldCount;i++) //动态生成各字段</td>
          </tr>
          </tbody>
        </table>
        <table align=center width=620>
          <tbody> 
          <tr> 
            <td class=a14>{ //该字段的固定标题栏</td>
          </tr>
          </tbody>
        </table>
        <table align=center width=620>
          <tbody> 
          <tr> 
            <td class=a14>_arrayFieldType[i].pLabel= new TQRLabel(pQuickRep); 
              //标题控件</td>
          </tr>
          </tbody>
        </table>
        <table align=center width=620>
          <tbody> 
          <tr> 
            <td class=a14>_arrayFieldType[i].pLabel-&gt;Parent= ColumnHeaderBand1;</td>
          </tr>
          </tbody>
        </table>
        <table align=center width=620>
          <tbody> 
          <tr> 
            <td class=a14>//字段标题名称</td>
          </tr>
          </tbody>
        </table>
        <table align=center width=620>
          <tbody> 
          <tr> 
            <td class=a14>_arrayFieldType[i].pLabel-&gt;Caption= pDBGrid-&gt;Columns-&gt;Items[i]-&gt;Title-&gt;Caption; 
            </td>
          </tr>
          </tbody>
        </table>
        <table align=center width=620>
          <tbody> 
          <tr> 
            <td class=a14>//字段标题的字体</td>
          </tr>
          </tbody>
        </table>
        <table align=center width=620>
          <tbody> 
          <tr> 
            <td class=a14>_arrayFieldType[i].pLabel-&gt;Font= pDBGrid-&gt;Columns-&gt;Items[i]-&gt;Title-&gt;Font;</td>
          </tr>
          </tbody>
        </table>
        <table align=center width=620>
          <tbody> 
          <tr> 
            <td class=a14>_arrayFieldType[i].pLabel-&gt;Alignment=</td>
          </tr>
          </tbody>
        </table>
        <table align=center width=620>
          <tbody> 
          <tr> 
            <td class=a14>pDBGrid-&gt;Columns-&gt;Items[i]-&gt;Title-&gt;Alignment; 
              //对齐方式</td>
          </tr>
          </tbody>
        </table>
        <table align=center width=620>
          <tbody> 
          <tr> 
            <td class=a14>_arrayFieldType[i].pLabel-&gt;Left = PreLeft+_iIntClearance;</td>
          </tr>
          </tbody>
        </table>
        <table align=center width=620>
          <tbody> 
          <tr> 
            <td class=a14>_arrayFieldType[i].pLabel-&gt;Width = _arrayFieldType[i].iWidth-2*_iIntClearance;</td>
          </tr>
          </tbody>
        </table>
        <table align=center width=620>
          <tbody> 
          <tr> 
            <td class=a14>_arrayFieldType[i].pLabel-&gt;Height= _arrayFieldType[i].pLabel-&gt;Font-&gt;Height;</td>
          </tr>
          </tbody>
        </table>
        <table align=center width=620>
          <tbody> 
          <tr> 
            <td class=a14>_arrayFieldType[i].pLabel-&gt;Top=</td>
          </tr>
          </tbody>
        </table>
        <table align=center width=620>
          <tbody> 
          <tr> 
            <td 
      class=a14>pHeadRect-&gt;Top+(pHeadRect-&gt;Height+_arrayFieldType[i].pLabel-&gt;Height)/2;</td>
          </tr>
          </tbody>
        </table>
        <table align=center width=620>
          <tbody> 
          <tr> 
            <td class=a14>_arrayFieldType[i].pShapeTitle= new TQRShape(pQuickRep); 
              //该字段右边的分隔竖条</td>
          </tr>
          </tbody>
        </table>
        <table align=center width=620>
          <tbody> 
          <tr> 
            <td class=a14>_arrayFieldType[i].pShapeTitle-&gt;Parent= ColumnHeaderBand1;</td>
          </tr>
          </tbody>
        </table>
        <table align=center width=620>