浅谈crystal reports在VB中的调用
2024-07-21 02:25:35
供稿：网友
环境：vb6.0,crystal reports 9.0
在一个项目中用到了crystal reports，总结一些经验和教训。
以做一张单据的套打为例。
单据包括单据头，单据体。单据头和单据体可能是一对多的关系。并且他们分别存在于两张表当中，用字段fid做关联。要求能够动态的传入参数fid，显示不同的结果。
首先，打开crystal reports,做好一张单据的模板rpt。制作报表的方法有很多，比如：用它的图形化工具直接建立几个表之间的连接，然后将想要显示的字段托到报表当中；或是调用一个已经写好的存储过程；或是直接编辑command。再将想要显示的字段托到报表当中。然而，经常问题就出在这里，用图形化工具制作的报表，在vb中给此报表传入datasource时经常会因为字段不对应，而导致部分数据无法显示。所以建议在crystal reports中利用command编辑sql语句，制作单据。然后将此sql语句copy到vb代码中，生成新的结果集，并赋给rpt文件新的数据源。以此保证各字段的对应。
假定单据头信息存放于表quotation中，单据体存放于表quotationentry中。单据头信息中需要显示字段客户名称fcustomer，单据编号fbillno，单据日期fbilldate，制单人fbiller......；单据体需要显示的是商品明细，包括商品代码fnumber，商品款式fstyle，商品大小fsize，商品颜色fcolor......两表关联字段fid。
于是，在rpt文件的command中添入sql语句”select a.*,b.* from quotation a left join quotationentry b on a.fid=b.fid”。然后将需要的字段拉入报表当中。
在vb中，首先应用crystal reports 9 actionx designer disign and runtime library,并添加部件crystal report viewer control 9。
在form中添加刚才加入的部件。就可以调用并显示了。
public billid as integer '传入的参数
private sub command1_click()
dim capp as new craxddrt.application
dim carp as new craxddrt.report
dim conn as new connection
dim rs as new recordset
dim sql as string
conn.connectionstring = "provider=sqloledb.1;password=sa;persist security info=true;user id=sa;initial catalog=ais20041209121508;data source=127.0.0.1"
sql = "select a.*,b.* from quotation a left join quotationentry b on a.fid=b.fid where a.fid="&billid
with conn
.open
rs.open sql, conn, adopenstatic, adlockbatchoptimistic
end with
set carp = capp.openreport("e:/code/component/client/quotation.rpt")
carp.discardsaveddata '清空以前数据
carp.database.setdatasource rs
crviewer91.reportsource = carp
crviewer91.viewreport
end sub
也可以将写好的quotation.rpt文件一起打包到vb当中，具体的办法是在vb工程的右键加载crystal report 9的设计器，选择打开以有的文件，打开e:/code/component/client/quotation.rpt，并加载到其中。以上的代码set carp = capp.openreport("e:/code/component/client/quotation.rpt")就可以不要了，直接将carp替换为加载进来的控件名称。
菜鸟学堂：
