分享
 
 
 

浅谈crystal reports在VB中的调用

王朝c#·作者佚名  2006-12-17
窄屏简体版  字體: |||超大  

环境: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替换为加载进来的控件名称。

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有