77545.htm

在天极网上发布的各类delphi原码及技巧文档

 DrawLeft : True<br>
 DrawRight : True<br>
 DrawTop : True<br>
 DrawBottom : True<br>
 ChildBand1: TQRChildBand 
 ParentBand:DetailBand1<br>
 DrawLeft : True<br>
 DrawRight : True<br>
 DrawTop : True<br>
 DrawBottom : True 
 <br>
 TitleLabel: TQRLabel 
 Caption:设备统计表<br>
 DlmcLabel: TQRLabel 
 Caption:类别<br>
 SbxhLabel: TQRLabel 
 Caption:型号<br>
 SbpzLabel: TQRLabel 
 Caption:配置<br>
 SbslLabel: TQRLabel 
 Caption:数量<br>
 DlmcDBText: TQRDBText 
 Dataset:Query1<br>
 Datafield: dlmc<br>
 SbxhDBText: TQRDBText 
 Dataset:Query1<br>
 Datafield: sbxh<br>
 SbpzDBText: TQRDBText 
 Dataset:Query1<br>
 Datafield: sbpz<br>
 SbslDBText: TQRDBtext 
 Dataset:Query1<br>
 Datafield: sbsl<br>
 Shape1～9: TQRShape 
 Shape:qrsVertline<br>
 Top:0<br>
 Width:1<br>
 <b>Query1的SQL属性设置为：</b><br>
 select a.dlbh,a.dlmc,b.sbxh,b.sbpz,b.sbsl<br>
 from dlbmk a,sbxhk b<br>
 where a.dlbh=b.dlbh and b.xhbm not in<br>
 (select xhbm from bmsbk where trim(bmmc)&#60;&#62;’电脑部’)<br>
 order by a.dlbh</p>
 </blockquote>
 <p>　　 设置几个TQRband部件的DrawLeft、DrawRight、DrawTop、DrawBottom属性值为True,是为了打印表格边框及横线。利用TQRShape部件，是为了打印出表格竖线。DlmcDBText放置在DetailBand1上，其它几个TQRDBText部件放置在ChildBand1上，Shape1～3放置在HeadBand1上，Shape4～6放置在DetailBand1上,Shape7～9放置在ChildBand1上。 <br>
 </p>
 <p> <b>三、 为程序增加代码</b> <br>
 <b>1．mainForm窗体中的两个按钮事件</b> </p>
 <blockquote> 
 <p> procedure TmainForm.PreviewBtnClick(Sender : TObject)<br>
 begin<br>
 repForm.Qrep1.Preview;<br>
 end;<br>
 <br>
 procedure TmainFormPrintBtnClick(Sender : TObject)<br>
 begin<br>
 repForm.Qrep1.Print;<br>
 end;<br>
 </p>
 </blockquote>
 <p> <b>2．HeadBand1、DetailBand1及ChildBand1的BeforePrint事件</b> </p>
 <blockquote> 
 <p> procedure TrepForm.HeadBand1BeforePrint(Sender : TQRCustomBand; 
 Var PrintBand : Boolean)<br>
 Begin<br>
 Shape1.Height:=HeadBand1.Height;<br>
 Shape2.Height:=HeadBand1.Height;<br>
 Shape3.Height:=HeadBand1.Height;<br>
 End;<br>
 <br>
 procedure TrepForm.DetailBand1BeforePrint(Sender : TQRCustomBand; 
 Var PrintBand : Boolean)<br>
 begin<br>
 PrintBand:=bh&#60; &#62;Query1[‘dlbh’];<br>
 if PrintBand then<br>
 begin<br>
 bh:=Query1[‘dlbh’];<br>
 Shape4.Height:=DetailBand1.Height;<br>
 Shape5.Height:=DetailBand1.Height;<br>
 Shape6.Height:=DetailBand1.Height;<br>
 end<br>
 end;<br>
 <br>
 procedure TrepForm.ChildBand1BeforePrint(Sender : TQRCustomBand; 
 Var PrintBand : Boolean)<br>
 Begin<br>
 Shape7.Height:=ChildBand1.Height;<br>
 Shape8.Height:=ChildBand1.Height;<br>
 Shape9.Height:=ChildBand1.Height;<br>
 End;<br>
 </p>
 </blockquote>
 <p> <b>　　bh应在变量定义部分定义：</b></p>
 <blockquote>
 <p> Var bh : shortint=0;<br>
 </p>
 </blockquote>
 <p> 　　几个TQRShape部件的高度(Height)与所在TQRBand 部件保持一致，使竖线打印得整齐。如果在设计阶段调整了TQRBand部件的高度，也不会出现竖线断线或过长的情况。 
 <br>
 </p>
 <p> 　　在DetailBand1的BeforePrint事件中用PrintBand进行控制，可使每个设备大类名称只需打印一次，而不是每个型号都对应打印一次大类名称。因为dlbh字段的值都大于0，bh初值设为0使它与任一记录的dlbh字段的值都不同，以确保第一个大类名称被打印。这样就生成了一个从多个数据表中提取数据，并带有表格线的数据报表。 
 <br>
 </p>
 <p> 　　注：本例工程文件为sbgl.dpr，原程序文件为main.pas和sbrep.pas，若要测试请将dlbmk.dbf、sbxhk.dbf、bmsbk.dbf三个文件放在d:\sb目录下。 <br></p>
 

</td></tr></table><br><img src="/xslimages/content/buttom.gif" align="absmiddle"></img>
        相关内容
        <br><ul><a href="/33554432/34603008/77544.htm">也谈为Delphi中数据库报表加网格<br><br></a><a href="/33554432/34603008/77543.htm">在Dephi中使用TStream读写数据的技巧<br><br></a></ul><br><font color="#000000"><font color="#1C82C5"><img src="/xslimages/content/buttom.gif" align="absmiddle"></img></font>
            相关链接
          </font><br><ul></ul><a href=""><font color="#FF9900"><font color="#CC0000"></font></font></a><font color="#000000"><font color="#1C82C5"><img src="/xslimages/content/buttom.gif" align="absmiddle"></img></font>
               更多的
                </font><br><table width="70%"><tr><td width="30%" valign="top" align="left"><ul></ul></td><td width="30%" valign="top" align="left"></td></tr></table></td></tr></table><table width="98%" border="0" cellspacing="0"><tr><td width="85%" height="19" align="center" bgcolor="#FDF0C4"><a href="mailto:[e-mail]">
      本文版权归作者和天极网共同所有，如有任何版权问题，请与我们联系。
        </a></td><td width="15%" bgcolor="#FFCC66" height="19">
          【
          <a href="/index.htm">
            回首页
          </a>
          】
        </td></tr></table><br></td><td colspan="2" valign="top" width="25%" bgcolor="#eeeeee"><table width="97%" align="center"><tr><td bgcolor="#ff9900" width="182" height="15"></td></tr></table><table width="97%" border="0" cellpadding="3" align="center"><tr><td valign="top" height="23" border="1" bgcolor="#eeeeee" cellspacing="0" bordercolor="#ff9900"><div align="center">
             火热链接
          </div></td></tr><tr bgcolor="#F5F5F5"><td width="27%" height="20" align="left"><div align="left"><a href="/33554432/44040192/112568.htm">办公室偷懒之绝招</a><br><a href="/33554432/44040192/113017.htm">网络成为日本第五大广告媒体</a><br><a href="/33554432/44040192/113377.htm">非常办公室（二十六）</a><br><a href="/33554432/44040192/113378.htm">非常办公室（二十七）</a><br><a href="/33554432/44040192/113772.htm">日本当代美女标准</a><br><a href="/33554432/44040192/113779.htm">移动网络别太沉重</a><br><a href="/33554432/44040192/113783.htm">把主旋律唱到网络上</a><br><a href="/33554432/44040192/113785.htm">网络将创造一千万个就业岗位</a><br><a href="/33554432/44040192/113787.htm">校园新宠电子课本</a><br><a href="/33554432/44040192/113789.htm">美国学者质疑“电脑从娃娃抓起”</a><br></div></td></tr></table><br><table width="97%" border="0" cellpadding="3" align="center"><tr bgcolor="#ff9900"><td valign="top" height="20"><div align="center">
            
            天极搜索
          </div></td></tr><tr bgcolor="#F5F5F5"><form action="http://search.yesky.com/servlet/search" method="post" name="search" onsubmit="form_onsubmit(); return ValidationPassed;"><td width="27%" height="20" align="center"><div><script language="javascript">
          function form_onsubmit() {
            ValidationPassed = true ;
            if (document.search.keyword.value=="") {
               alert ("请输入搜索关键字！");
               ValidationPassed=false;
             }
               return ValidationPassed;
           }  
     </script><input name="keyword" id="keyword" class="nava" size="12"></input><input type="hidden" name="classify" value="keyword"></input><input type="hidden" name="no" value="34603008"></input><input onClick="form_onsubmit(this.form);" style="HEIGHT:22px;WIDTH:40px" type="submit" value="搜索" name="submit2"></input></div></td></form></tr></table><div align="left"><font color="#000000"><br><table width="100%" border="0" cellspacing="0" cellpadding="0"><tr align="center"><td><table width="100%" border="0" cellspacing="0" cellpadding="0"><tr><td width="10" height="2"><img src="/xslimages/school/pathboy-ruanjian.gif" width="32" height="32"></img></td><td width="186" height="2" valign="top"><table width="100%" border="1" cellspacing="0" cellpadding="0" bordercolordark="#FFFFFF" bordercolorlight="#000000" bgcolor="#6898D0"><tr align="center"><td height="26"><font color="#FFFFFF">
                                          MyDown下载
                                        </font><font class="nava" color="#FFFFFF"></font></td></tr></table></td></tr></table></td></tr></table><table border="0" cellpadding="0" cellspacing="1" width="100%" align="center"><tbody><tr align="left"><td bgcolor="#ffffff"><script type="text/javascript" language="javascript" src="http://www.mydown.com/mydown.js"></script><br></td></tr></tbody></table><table width="100%" align="center"><tr><td align="center"><tr><td align="center"><a href="http://www.hoyodo.com"><img border="0" src="http://www.hoyodo.com/home/images/banner/botton.gif" width="120" height="60"></img></a><br><br><a href="http://e.yesky.com"><img border="0" src="http://e.yesky.com/images/logo_e2.gif" width="120" height="60" alt="天极E时代"></img></a></td></tr></td></tr></table></font></div><br></td></tr></table><table width="97%" border="0" cellspacing="0" cellpadding="0" align="center"><tr><td><div align="center"><a href="/hdong/gao.htm" target="_blank">欢迎投稿</a>|
            <a href="/bill/index.html" target="_blank">市场联系</a>|
            <a href="/serve/dnbjs.htm" target="_blank">关于我们</a>|
            <a href="/maillist/index.html" target="_blank">邮件列表</a>|
            <a href="/hdong/zaopin.html" target="_blank">加入我们</a>|
            <a href="/hdong/xinsi.html" target="_blank">隐私条款</a></div></td></tr></table><hr height="1" size="1" width="760"></hr><td width="57%" valign="top" rowspan="1" align="center"><div align="center"><script language="JavaScript" src="http://ad.cpcw.com/js/school.js"></script></div></td><table width="97%" border="0" cellspacing="0" cellpadding="0" align="center"><tr></tr><tr></tr><tr></tr></table><table width="97%" border="0" cellspacing="0" cellpadding="0" align="center"><tr><td><div align="center"><span class="nava"><font color="#000000" face="Arial, Helvetica, sans-serif">
              Copyright (C) 1999 Yesky.com, All Rights Reserved
            </font><font color="#000000"><br>
              版权所有　 
              <font face="Arial, Helvetica, sans-serif">
              Yesky
              </font></font></span></div></td></tr></table><script> document.write("<a href=http://best.netease.com/cgi-bin/view/viewbasic.cgi?rkai target=_blank> <img style=visibility:hidden src=http://best.netease.com/cgi-bin/log.cgi?user=rkai&refer="+escape(document.referrer)+"&cur="+escape(document.URL)+" border=0 alt=网易中文排行榜 width=15 height=15></a>");</script><A HREF="http://best.nease.net/cgi-bin/view/viewbasic.cgi?cpcw" TARGET="_blank"><IMG SRC="http://best.nease.net/cgi-bin/log.cgi?user=cpcw" style="visibility:hidden"/></A><br><iframe frameborder="0" scrolling="no" src="http://count.yesky.com/servlet/count?articleno=77545" height="0" width="100%"></iframe></body>
</html>