📄 vb18.htm

📁 从太平洋上下载下来的打包学习VB的教程。》VB专区 ·Visual Basic 的数据库编程 ·使用VB建立Web Server 　 ·VB与Windows资源管理器互拷文件
💻 HTM
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!-- saved from url=(0057)http://www.pconline.com.cn/experience/subject/VB/vb18.htm -->
<HTML><HEAD><TITLE>|><| 太平洋电脑信息网</TITLE><!-- #BeginTemplate "/Templates/0723.dwt" --><!-- #BeginEditable "doctitle" --><!-- #EndEditable -->
<META content="text/html; charset=gb2312" http-equiv=Content-Type><LINK 
href="vb18.files/text.css" rel=stylesheet>
<STYLE type=text/css>.sfont {
	LINE-HEIGHT: 18pt
}
</STYLE>

<META content="MSHTML 5.00.2014.210" name=GENERATOR></HEAD>
<BODY bgColor=#ffffff leftMargin=0 topMargin=0>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width="100%">
  <TBODY>
  <TR>
    <TD vAlign=top width="100%">
      <TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
        <TBODY>
        <TR bgColor=#303880>
          <TD><A href="http://www.pconline.com.cn/"><IMG alt=太平洋电脑信息网 border=0 
            height=18 hspace=30 src="vb18.files/txtpconline.gif" 
            width=96></A><IMG height=10 src="vb18.files/blank.gif" 
        width=400></TD></TR></TBODY></TABLE></TD>
    <TD align=right background=vb18.files/bw.gif noWrap width=130><IMG 
      height=26 src="vb18.files/bw.gif" width=10><A 
      href="http://www.pconline.com.cn/sitemap/"><IMG alt=网站地图 border=0 
      height=26 src="vb18.files/sitemap.gif" width=21></A><IMG height=26 
      src="vb18.files/bw.gif" width=10><A 
      href="http://www.pconline.com.cn/tpy/"><IMG alt=关于太平洋 border=0 height=26 
      src="vb18.files/aboutus.gif" width=21></A><IMG height=26 
      src="vb18.files/bw.gif" width=10><A 
      href="http://www.pconline.com.cn/tpy/tariff.html"><IMG alt=与我们联系 border=0 
      height=26 src="vb18.files/contact.gif" width=21></A><IMG height=26 
      src="vb18.files/bw.gif" width=10></TD></TR></TBODY></TABLE><BR>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width=760>
  <TBODY>
  <TR>
    <TD bgColor=#666666><IMG height=1 src="vb18.files/blank.gif" width=1></TD>
    <TD bgColor=#666666><IMG height=1 src="vb18.files/blank.gif" width=1></TD>
    <TD>&nbsp;</TD>
    <TD colSpan=2 noWrap><A 
      href="http://www.pconline.com.cn/experience/index.html"><IMG 
      align=absBottom alt=企业之窗 border=0 height=15 
      src="vb18.files/txtexperience.gif" width=68></A>　<A 
      href="http://www.pconline.com.cn/">首　　页</A>　<A 
      href="http://www.pconline.com.cn/market/">今日报价</A>　<A 
      href="http://www.pconline.com.cn/recommend/">产品推介</A>　<A 
      href="http://www.pconline.com.cn/yp/">企业之窗</A>　<A 
      href="http://www.pconline.com.cn/news/">科技新闻</A>　<A 
      href="http://www.pconline.com.cn/product/">产品查询</A>　<A 
      href="http://www.pconline.com.cn/download/">软件下载</A></TD></TR>
  <TR>
    <TD><IMG height=1 src="vb18.files/blank.gif" width=1></TD>
    <TD><IMG height=1 src="vb18.files/blank.gif" width=1></TD>
    <TD><IMG height=1 src="vb18.files/blank.gif" width=21></TD>
    <TD bgColor=#ffa000 colSpan=2><IMG height=1 src="vb18.files/blank.gif" 
      width=1></TD></TR>
  <TR>
    <TD bgColor=#666666><IMG height=1 src="vb18.files/blank.gif" width=1></TD>
    <TD bgColor=#cdcdcd><IMG height=5 src="vb18.files/blank.gif" width=1></TD>
    <TD align=right colSpan=3><IMG height=6 src="vb18.files/ffa000.gif" 
      width=1></TD></TR>
  <TR>
    <TD bgColor=#666666><IMG height=1 src="vb18.files/blank.gif" width=1></TD>
    <TD align=right><A href="http://www.pconline.com.cn/"><IMG alt=太平洋电脑信息网 
      border=0 height=35 src="vb18.files/pconline.com.cn.gif" vspace=10 
      width=162></A></TD>
    <TD>&nbsp;</TD>
    <TD vAlign=bottom><!-- #BeginEditable "important_news" --><IMG height=40 
      src="vb18.files/blank.gif" width=350><!-- #EndEditable --></TD>
    <TD align=right vAlign=top><!-- #BeginEditable "adv_top" --><IMG alt=广告位 
      height=43 src="vb18.files/icon.gif" 
  width=190><!-- #EndEditable --></TD></TR></TBODY></TABLE>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width=760>
  <TBODY>
  <TR>
    <TD bgColor=#666666 width=1><IMG height=1 src="vb18.files/blank.gif" 
      width=1></TD>
    <TD vAlign=top width=170><!-- #BeginEditable "addons" --><!--替代为附加信息 --><!-- #EndEditable --></TD>
    <TD bgColor=#666666 width=1><IMG height=1 src="vb18.files/blank.gif" 
      width=1></TD>
    <TD><IMG height=1 src="vb18.files/blank.gif" width=21></TD>
    <TD colSpan=3 vAlign=top width=566><!-- #BeginEditable "1" --><IMG 
      height=1 src="vb18.files/blank.gif" width=566><BR><IMG height=1 
      src="vb18.files/666666.gif" width=420><BR><IMG height=13 
      src="vb18.files/blank.gif" width=1><A 
      href="http://www.pconline.com.cn/experience/">经验共享</A> &gt; <SPAN 
      class=greenb><A 
      href="http://www.pconline.com.cn/experience/subject/VB/index.html">专题教程</A></SPAN><A 
      href="http://www.pconline.com.cn/experience/subject/VB/index.html"> 
      VB专区</A>&gt; <BR><IMG height=1 src="vb18.files/666666.gif" vspace=1 
      width=420><BR>
      <P align=center><SPAN class=title><B><FONT color=#000066><SPAN 
      class=sfont>CrystaI Reports for VB5 报表编程经验</SPAN></FONT></B></SPAN><SPAN 
      class=sfont><FONT color=#369681>&nbsp; </FONT></SPAN></P>
      <P align=left><SPAN class=sfont><FONT color=#000000>　<SPAN 
      style="LINE-HEIGHT: 1.5">由于VB5本身无报表输出工具，因此在开发VB5数据库应用系统时，必须用第三方报表书写器，通常采用VB5的企业版附带的Crystal 
      Reports。在开发时不注意两者的连接关系，经常会出现意想不到的问题，下面是笔者在开发VB5系统中的几点经验：<BR>　　1.报表控件的引入<BR>　　Crystal 
      Reports不是VB5标准控件，而是Active X控件。使用时，首先要点击“工程→引用”菜单，引出部件窗口，再选Crystal Reports 
      Control 
      4.6控件。<BR>　　2.报表制作<BR>　　现象：报表设计时文字已排列整齐，但预览或打印往往出现偏差。<BR>　　措施：表名及列头文字不要直接输入文本，而改用“Insert→Text 
      Field”菜单插入文本字段，就可避免以上现象。<BR>　　3.数据输出<BR>　　现象：在数据输出时易犯错误，是因为在VB5中用SQL语句进行查询，然后打印，目的是想把查询结果输出到报表上，但结果往往仍然是原表中的数据。也就是说Crystal 
      Reports并不认VB5的查询。<BR>　　措施：建一个临时表，查询先前删除表中的数据，再把查询结果放入到临时表，再进行预览或打印。<BR>　　4.报表控件的使用及路径的指定<BR>　　现象：在一个表单中，如果需输出多个报表，放置多个报表控件。打印时会出现“堆栈溢出”这样的致命错误。另外发布给用户时，需要设定任意路径，如果只指定报表名路径，也会出现错误。<BR>　　措施：如果在一个表单上要打印多个报表，在打印时先定义数据文件名和报表名，再打印。打印前设定时，不仅要设定报表文件路径，而且还要设定数据库的路径。<BR>　　CrystalReport1.datafile(index)=App.path 
      &amp; “数据库名”<BR>　　CrystalReport1.reportfilename=App.path &amp; 
      “报表文件名”　　<BR>　　5.设定预览窗口<BR>　　现象：预览窗口太小，用户必须点击最大化按钮才能覆盖整个屏幕。<BR>　　措施：<BR>　　CrystalReport1.WindowHeight=screen.Height<BR>　　CrystalReport1.WindowsHeight=screen.Windth<BR>　　CrystalReport1.WindotTop=0<BR>　　CrystalReport1.WindowLeft=0<BR>　　或者用：<BR>　　CrystalReport1.Windo 
      <BR>wState=crptM<BR>aximized (江苏　徐静文)</SPAN></FONT></SPAN></P>
      <P align=right><A 
      href="http://www.pconline.com.cn/experience/subject/VB/index.html">----更多的文章</A></P><!-- #EndEditable --></TD></TR></TBODY></TABLE>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width=760>
  <TBODY>
  <TR>
    <TD bgColor=#666666 width=1><IMG height=1 src="vb18.files/blank.gif" 
      width=1></TD>
    <TD align=right vAlign=bottom width=170><IMG height=10 
      src="vb18.files/blank.gif" width=170><BR></TD>
    <TD bgColor=#666666 width=1><IMG height=1 src="vb18.files/blank.gif" 
      width=1></TD>
    <TD width=21><IMG height=1 src="vb18.files/blank.gif" width=21></TD>
    <TD bgColor=#eeeeee width=566><IMG height=10 src="vb18.files/blank.gif" 
      width=566><BR>版权所有&copy;1999 太平洋电脑信息网<BR><FONT 
      face="Arial, Helvetica, sans-serif"><A 
      href="mailto:exp@pconline.com.cn">exp@pconline.com.cn</A></FONT> <IMG 
      height=1 src="vb18.files/hhvisit.html" width=1> </TD></TR></TBODY></TABLE><!-- #EndTemplate --></BODY></HTML>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -