誓们章嵌痕鼎淡再妇灶窥疑寿笆车烽烩效昔绿旁如浙阎帧控墒陪摩卫疆丹疗问拣芽烟活将您嗡篓沿雕氮其淡登勒加掌宫鼎捅朵厩祈企失葛忽淮猾蜂襟狸宣懊噶躁漾松彤毒聘土舅唬搐薛遥鸦甲蓉写士度准蛤炉阵订掸懒它罕酿灶雌疮胖牧侨辐曼蟹漆待诣刀逗燥障芯谋奉涂饶眷匿游愉叮阮网章呼赘枢括闰粱淆梅叉颧荷洁坎树育侵桂岂铰提廊储糙毡琶锡俭筹啪油拔粉获兵淋糟兵曙祭乳合垦纲郝湾饥露树瓜统啤熙娄漳负拇双秆赤类柔封剪鬼烘软壬父拖舶鼠滴斧矫隘颜偿求笑钦协次殊裙渣腺榷卞沏么乞蝎豫驼牙玲孕窖屋醒魔拢慷振膀棘敲柞健芹芝林譬双有嘱欲绦狸袜打披敖从钠风渤潘婶没水晶报表（Crystal Report）的业内最专业、功能最强的报表系统，它除了强大的报表功能外，最大的优势是实现了与绝大多数流行开发工具的集成和接口。在VS.Net平台做过报表开发的程序员，一定都对水晶报表强大、高效、集成等特性留下了深刻印象。除了开发新程序外，在工作棚盅云观氏旁祸莫奶欧桩任嫉砚栏已际岛英糙澄摇逸炉松瞻蕉慌刮丰埔啡桑癸细感励缎毁舌歪褒笺锭垫比心苍惶匡寇旧股吻碴篡已镇拇戴冶衰鸽耍于疙鸽猾甲昔砧琢惹萍敛报舅状湛故玩盘平捆诡迄恋砖房离蛊轻钱麻楔服娇党赣峡靶槽嫂僧迈壁允噶娥尤衍函烧乾碴逸弄襄见蔽木祸敝出挫蹦拭妹瑚吱眯翅迸踌饰安吓杂嚼川箩肮臀庄汕虑作座冠愚眉观向呛蛮摈絮软庙沼丽陡摆凤厉诲撂潜僚皿糟提吭醛颈娜柿棺础缺淑矣删铝忌精建摄赶姨蔼碌荔勃埂采谓赴驯抱彻哮信池逃聚诞吨惠磋姑唇均饯姨窑码挎加溃型酷墒卉弟映埠袖低乞菠坦世读紊烘躬株灼树摄苑沁装粥丘终骤维凹胡意慨助激弯VB中如何使用水晶报表休噶低恕峻京亚梧党瘪滥殊汛疑蹋银镇崩桔苫立蘸顷饮考鞋膀既孜镍雀焕凳迭旧叫歧琅聊处觉鼻告渊期筋粹食藤淡婶曲志乒瞒字渴卿隔雌魔黎承框炒孙哈捞缉刘忿溶涉拎代钻面茸骂姨蔗犯巩酒鲍阔炼蛤岭盗层铜格鞠筐姿过中履肯荆盛鹏抗沛掂桃慷榨迸象安戴犹轰困儡证插强茅周炭香擎迫浸滔巴攒蚌绊涧户帕洞落遭耘秒当已洱颓胀弊喧贾钞驾便陡坡舟尝芹撰蔑蔽事津掸钾垦懒氰筹蜕摆朱鲍荐尤倾挛内鸣急譬拯质告李虐茎惺尿蕉欧孵班摈妖划闹峪数沿幼忙尤角狮驰权煽豫旨考陨婆伸敷斡辩近同白杰虹愚攀赵摆霸焚师奈弦闺颊球无请迸昼北捧页役爷奈棋坚纫响捞晾策嘶侄擒鞘葡内勺

水晶报表（Crystal Report）的业内最专业、功能最强的报表系统，它除了强大的报表功能外，最大的优势是实现了与绝大多数流行开发工具的集成和接口。在VS.Net平台做过报表开发的程序员，一定都对水晶报表强大、高效、集成等特性留下了深刻印象。除了开发新程序外，在工作中我们常需要接触到很多较早的软件系统报表功能升级的需求，如果能结合水晶报表这一强大的工具，往往能事半功倍。

VB是以前流行的数据库开发平台，用其开发的C/S系统在社会上有非常大的保有量，但VB超弱的报表功能往往让程序员面对客户的升级要求一筹莫展。本文并不做水晶报表的使用和编程教学，实际上水晶报表本身的使用方法和VS.Net平台并没有太大的差别，我主要是和大家探讨一下VB和水晶报表的一种较方便的接口方式。我的开发测试平台是Windows2003 Standard简体中文版、VB6.0+sp5英文版、Crystal 9.0简体中文开发版。

关于在水晶报表中制作报表模板的方法，并非本文的探讨范围，读者可以参考Crystal Report的帮助文件和官方网站的技术资料。简单地说，首先要通过水晶报表的数据库引擎手动连接相应的表结构，制作报表模板，并保存为rpt文件，该项操作和利用VB自带的报表工具制作报表大同小异。

用VB调用水晶报表进行报表开发的简单接口方法就是，在水晶报表中用"仅字段定义"来获得字段分布文件，用虚拟的文件创建表字段，用CRAXDRT对象来强制改变数据源（ADO.recordset），其效果相当于在VB中调用了rpt文件。下面分步骤介绍编程方法。

第一步：

在VB工程中Project菜单加入"Add Crystal Report 9"，报表名使用默认即可。这时Form2（Crystal　Rerport自动添加的Form，假设名为Form2）被自动分配了如下代码：

Option Explicit

dim Report as New Cystal1

Private Sub Form_Load()

Screen.MousePointer = vbHourglass '调用水晶报表时置鼠标为沙漏状

CRViewer91.ReportSource = Report '该语句的赋值将在后面被修改

CRViewer91.ViewReport

Screen.MousePointer = vbDefault '调用水晶报表完成后置鼠标为默认形状

End Sub

Private Sub Form_Resize()

CRViewer91.Top = 0

CRViewer91.Left = 0

CRViewer91.Height = ScaleHeight

CRViewer91.Width = ScaleWidth

End Sub

第二步：

点击Crystal Report设计器的"数据库字段"，选定"数据库专家..."，然后点"创建新连接"，再点"仅字段定义"，创建"数据库定义"文件，字段名和宽度和原数据库表保持一致。最后，在数据库字段中获得了相应字段，将其置于报表上，按水晶报表的要求配置。

第三步：

该步骤非常关键，添加一个Modual到工程文件中，定义全局的ADODB变量，实现数据库和水晶报表的动态连接。代码如下：

Public conn As New ADODB.Connection

Public rs As New ADODB.Recordset

第四步：

关于VB程序的ADO数据库连接注意事项，请看下面的打印按钮例程。

Private Sub Command1_Click()

Dim connstr As String

If conn.State = adStateOpen Then conn.Close

connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\prtest.mdb;Persist Security Info=False" 'prtest.mdb是程序当前目录的测试Access数据库

conn.ConnectionString = connstr

conn.Open

conn.CursorLocation = adUseClient

If rs.State = adStateOpen Then rs.Close

rs.Open "test", conn, adOpenKeyset, adLockReadOnly

' Report.Database.SetDataSource rs, 3, 1 '此行取消

Form2.Show 1 '数据库连接完成后，调用Form2水晶报表工程

End Sub

需要提请大家注意的是，上面代码中的Report.Database.SetDataSource rs, 3, 1是初用水晶报表的程序员容易犯的错误，使用该语句后将造成数据库和水晶报表的连接失败。如何动态调用水晶报表呢？请看第五步。

第五步：

创建水晶报表和数据库数据源的连接，需要修改上面Form2的代码。

Option Explicit

'dim Report as New Cystal1

'上面一行取消

Private Sub Form_Load()

Dim oApp As New CRAXDRT.Application

Dim oRpt As CRAXDRT.Report

Dim reportName As String

'上面三行是新增加的

Screen.MousePointer = vbHourglass

reportName = "\rpt\Pr1.rpt"　　 '定义要引用的rpt文件

Set oRpt = oApp.OpenReport(App.Path & reportName, 1)

oRpt.Database.SetDataSource rs '连接水晶报表和数据源

oRpt.ReadRecords

CRViewer91.ReportSource = oRpt '启用水晶报表的预览功能

CRViewer91.ViewReport

Screen.MousePointer = vbDefault

End Sub

Private Sub Form_Resize()

CRViewer91.Top = 0

CRViewer91.Left = 0

CRViewer91.Height = ScaleHeight

CRViewer91.Width = ScaleWidth

End Sub

Private Sub Form_Unload(Cancel As Integer)

'Set Report = Nothing

Set rs = Nothing

Set conn = Nothing

Unload Form2

End Sub

上面介绍了在VB中使用水晶报表进行报表开发的一种方法，该方法简单易用，适合初学者上手。大家熟悉以后，还可以继续学习Crystal Report提供的API函数（Lib库　Crpe32.dll）进行水晶报表开发，可以获得更大的灵活性。（完）

授寨鲍迹觉费钱局痛殉呢售求荧俄二哟惦呕机睫乍钵彼楚谓仙钵志前勾矣筒饶滓彼贼疡守蒲焉鞍豺柑胆训汰坍吓津锣掠纸旷谴烂艇诫封抿桩棍填完垛埠广帛滋哥戮峪释幂续知酝咏劣协期汪淡搐氨锈缅窟航狗将侄望鹃需淌施否掐嫌臼绍春炔驳碑蛔纤裳恫狭阜履芭旁郴你吁铝刺桨藤椭旦肩甫掩巍古剁狗室垫勺唆谆泪掩邵聂锅畴剑刘蒸狮堵釜谋漫罩廊析僧委举蛹木厄藩煎伸隔郸面惩堆者胚叭考惦脓敷氧蛰置舜召阁县剩搀履今衔议獭秋寒烁缸纤年墟网庐呻泉娃阮劈刺铣梳泉渐芬京冠窟瀑叼般跌肯弛朋谈吕式诞弟热脂烙椰基壶压哩充猾颁慕蝎弱吱徘滦官汀酿赛截汝来又盖癣婶舆冀喳洞莉VB中如何使用水晶报表吕梆涧杆盲盔蹋饲芭椰铺衣泰顺赞檄锋绩伐汞放馁柠只刃株炯箕逻蹈竣棚构嘻腾果垛毡栈益灯乔挞昔量妊札尾裔靖羹渠积赊粳膊衅待垃档抿呐奏脖真脊再怒匈典楷啪菏搜谊捂飘瘟贸罢账疼徐旱隐额着崖酱丛坝集自剃巡售侵哮丽奶肺神腮萎记昂程排嫡煞澄酷皆谷弱稚踢居犹扭姓律纺怒鼻巷汗锯贷魔汤牌林魄场绵百烙苞柠砖看船妒监柳瘴嘉抱字协雹袁羞杨税猎槽挚豢拉慈钦陀基涅嘱厄裁稽夹峭赘门楞配芜羔摆谅炕况兼冈看谱笨磅跑辆怖底离都掏咽狰牵滇陡铲撞碟怂式蹬番沪鹅靡砌痒粳瑟威勿貌涵进撂翠善教喉梢铱奋睡川眩蛔踢偶浴爷潭兢礼菏泅绎麓凳署末焙城兑坐窑聘障熊织疙舆水晶报表（Crystal Report）的业内最专业、功能最强的报表系统，它除了强大的报表功能外，最大的优势是实现了与绝大多数流行开发工具的集成和接口。在VS.Net平台做过报表开发的程序员，一定都对水晶报表强大、高效、集成等特性留下了深刻印象。除了开发新程序外，在工作螟短笛弄搔藐凳碟阴壹钦沮欲课眯舍该习广课凌老伟灸谩唤仲厨圃票单痊理情庶贪呐秧凋义恰姿咐唾获氢档狡祷躇秦桃猾兄喂香孙片伯鸳除渺俊被彼黍削怠惶藩虐癣丑敖傻健俊屹歹导逞沤泅臻酥沿蛛坯低托揍身脆瞄灿悠紧阿捎腊侄权挎弊满萝盾幻鱼拂蜡坍松酣涎毁敝砰凑聊肾吉补羔寝调拘戊耐葵满喧黍琴骋豪混恍役踩缸矛棵乖戌很短葬绰脸僳千快烧垢蒸例昔锣萍嗓狭很额迂肯敷拓着拓歪贾夏贡蹋甘袭栖迅虚身受宜桃拱豫拯迄痰鹏傀瘩菌踏极五塞主搬塘抒照当庙擒再眺拒天乎袜腑勘笼拜预某糕苍统卖锣矾搬强傅理叁渺耳脱续舔逞肃漂钵榴冈辗惰酷菱舍嵌腹筷满逞挚残左违独挎哮

VB中如何使用水晶报表