ADO记录集和水晶报表

原创 2002年12月03日 08:53:00

 

在使用水晶报表时,经常会感到数据不是很好控制,最后只好使用这个终极绝招咯。那就是使用数据定义文件(TTX),把得到的ADO记录集传送给水晶报表。

通常情况下,水晶报表是从物理的数据库上创建出来的,但是现在有了32位的Active Data Driver-- P2smon.dll,水晶就可以不用再事先连接到一个数据库上咯。

首先,需要创建一个TTX文件,进入数据源选择窗体后,如下图选中

再单击了前面的“+”后弹出数据源窗体

 

此时,我们使用“New”按钮创建一个新的数据定义文件(TTX),格式如下

保存后,我们打开这个文本文件,就会发现TTX文件的格式,原来中间是TAB分割符来的。

接着,我们就按照水晶报表的老套路画式样,剩下的就是传递记录机集了。

下面,我们要声明好传递ADO记录集需要的Api

Public Declare Function PEOpenEngine Lib "crpe32.dll" () As Integer

 

Public Declare Function PEGetErrorCode Lib "crpe32.dll" (ByVal printJob As Integer) As Integer

 

Public Declare Function PEOpenPrintJob Lib "crpe32.dll" (ByVal RptName As String) As Integer

 

Public Declare Function PEOutputToWindow Lib "crpe32.dll" ( _

                                                            ByVal printJob As Integer, _

                                                            ByVal Title As String, _

                                                            ByVal Left As Long, _

                                                            ByVal Top As Long, _

                                                            ByVal Width As Long, _

                                                            ByVal Height As Long, _

                                                            ByVal style As Long, _

                                                            ByVal PWindow As Long) As Integer

 

Public Declare Function PEOutputToPrinter Lib "crpe32.dll" ( _

                                                            ByVal printJob As Integer, _

                                                            ByVal nCopies As Integer) As Integer

                                                           

Public Declare Function PEStartPrintJob Lib "crpe32.dll" ( _

                                                            ByVal printJob As Integer, _

                                                            ByVal WaitOrNot As Integer) As Integer

                                                           

Public Declare Function PEClosePrintJob Lib "crpe32.dll" (ByVal printJob As Integer) As Integer

 

Public Declare Sub PECloseEngine Lib "crpe32.dll" ()

 

Public Declare Function CreateFieldDefFile Lib "p2smon.dll" ( _

                                                            lpUnk As Object, ByVal _

                                                            fileName As String, _

                                                            ByVal bOverWriteExistingFile As Long) As Long

       

Public Declare Function vbEncodelPtr Lib "p2smon.dll" (x As Object) As String

 

Public Declare Function SetActiveDataSource Lib "p2smon.dll" ( _

                                                                ByVal printJob As Integer, _

                                                                ByVal tableNum As Integer, _

                                                                x As Object) As Long

 

最后给出的是报表的打印代码

Dim Job As Integer

Dim Handle As Integer

'打开打印引擎

Handle = PEOpenEngine

'水晶的错误处理

If Handle = 0 Then

    ErrorNum = PEGetErrorCode(Handle)

    MsgBox "打印引擎出错!"

    MsgBox "错误代号:" & ErrorNum

End If

 

'打开打印作业

Job = PEOpenPrintJob(App.Path & "/New.rpt")

'水晶的错误处理

If Job = 0 Then

    ErrorNum = PEGetErrorCode(Job)

    MsgBox "打开作业New.rpt 失败!"

    MsgBox "错误代号:" & ErrorNum

End If

'给水晶报表传送ADO记录集,AdoRecordset的生成就不再多说了

Handle = SetActiveDataSource(Job, 0, ADOrs)

'输出到打印预览窗口

Handle = PEOutputToWindow(Job, "New.rpt", 0, 0, 520, 520, WS_MAXIMIZE, 0)

直接输出到打印机

Handle = PEOutputToPrinter(Job,1)

'水晶的错误处理

If Handle <> 0 Then

Handle = PEStartPrintJob(Job, True)

    If Handle <> 0 Then

        MsgBox "打印完毕"

    Else

        ErrorNum = PEGetErrorCode(Job)

        MsgBox "打印失败!"

        MsgBox "错误代号:" & ErrorNum

    End If

Else

    ErrorNum = PEGetErrorCode(Job)

    MsgBox "无法输出到窗体或打印机"

    MsgBox "错误代号:" & ErrorNum

End If

'关闭打印作业

PEClosePrintJob (Job)

'关闭打印引擎

PECloseEngine

 

我使用的是VB6+水晶报表8.5,感觉这种方式比较灵活好用,同时解决了水晶报表补空行的问题。

CristalReport(水晶报表)插件整合Eclipse开发

CristalReport(水晶报表) 本身的安装版本是.net专用的开发报表的工具,但目前推出了Eclipse插件,便可以进行Java开发报表了,虽然我们项目没有采用(貌似是因为不支持垂直居中,是不...
  • rainyspring4540
  • rainyspring4540
  • 2015年09月01日 09:38
  • 1913

一起学习水晶报表之【如何实现Web网页显示水晶报表和绑定数据】(课程1)

【1】建立网站工程,新建ASP.NET网页,这个过程大家都熟悉不过了,这里不啰嗦。这里我新建添加一个WebForm1.aspx页面,我就不改名字了。 【2】为了显示数据库中的数据表字段信息,需要在该页...
  • u010276845
  • u010276845
  • 2014年02月19日 21:36
  • 1180

我的学习笔记(在C#里用MVC实现水晶报表)

1.建立dataset (ds)     2.在ds里面建立数据集         3.建立水晶报表         4.选择刚刚的数据集   5.设计报表  ...
  • u012432315
  • u012432315
  • 2014年03月30日 14:54
  • 1099

设置App_Code里的类作为水晶报表的ADO.Net数据源

上面有一个在App_Code里的一个类 using System; using System.Collections.Generic; using System.Linq; using System....
  • freelove_2005
  • freelove_2005
  • 2013年09月30日 11:39
  • 715

水晶报表编写高效记录选定公式的策略 -Crystal Reports

http://webloger.blog.hexun.com/7245706_d.html 水晶报表编写高效记录选定公式的策略 -Crystal Reports 注意:    本节假定您熟悉“选择...
  • os005
  • os005
  • 2012年08月11日 15:10
  • 1423

水晶报表分组分页且每页最多显示N条记录

本文为解http://topic.csdn.net/u/20111128/10/041ccade-1fa9-4bb2-b1ad-72430b233a97.html?50470所作 先确认下原帖需求:...
  • luols
  • luols
  • 2011年11月28日 22:32
  • 11321

水晶报表CrystalReport开发组件合集

  • 2012年12月21日 13:44
  • 504KB
  • 下载

如何在水晶报表中分组汇总记录

  • 2009年04月21日 13:15
  • 66KB
  • 下载

使用“自动化”功能将数据从ADO记录集传输到Excel

  • 2016年04月17日 23:44
  • 851KB
  • 下载

详细的水晶报表代码集

  • 2014年08月18日 15:43
  • 11.92MB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:ADO记录集和水晶报表
举报原因:
原因补充:

(最多只允许输入30个字)