VB6总结VII之水晶报表1

Crystal Report 同时被 2 个专栏收录
3 篇文章 0 订阅
16 篇文章 0 订阅

一.在水晶报表程序中

1.创建新报表,选择“Standard”类型,导入需要用到的数据库表格,点击“Done”

2.进入第2个tab“Links”,可以删除一些不需要的表格之间的link,点击第3个tab“Fields”

3.从左边的“Database Fields”选择需要显示的数据列到右边的“Report Fields”,点击第4个tab“Sort”

4.可以从左边的“Reports Fields”选择需要按照那些列顺序或倒序排列,点击第5个tab“Total”

5.如果第4个tab中没有选择要排序的列,第5个tab就可以跳过。第5个tab中可以选择哪些列想要进行合计等,然后点击第6个tab“Select”

6.第6个tab中,可以添加一些列按照一些规则进行过滤,然后点击第7个tab“Style”

7.给报告起个名字,放在Title中,然后选择Standard样式,点击“Preview Sample”

8.进入预览界面,这时,如果没问题的话,会在预览中看到数据,如果没有看到数据,应该是数据库中的link没有处理好

9.可以选择Design界面进行修改


二.在VB6程序中

1.在页面中创建水晶报表的控件和一个按钮控件

2.在按钮点击事件中,写入以下代码

    Dim strSQL As String
    Dim rstSQL As New ADODB.Recordset
    On Error GoTo ErrHandler   

    strSQL = "Select patient_uin,date_defaulted,action_taken_date,dot_frequency from TBCU_Defaulter_log where patient_uin = " & glngPatientSysgenId
    Set rstSQL = gcnn.Execute(strSQL)
    If rstSQL.EOF And rstSQL.BOF Then
        Call gclsMessage.WarnMessage("Patient does not have defaulter record.", Me.Caption)
        Exit Sub
    Else
        Me.MousePointer = vbHourglass
        crpDefaulterEpisode.Connect = "DSN=" & gstrDSN & ";UID=" & gstrUID & ";PWD=" & gstrPWD
        crpDefaulterEpisode.ReportFileName = App.Path & "\defaulter_episode.rpt"
        crpDefaulterEpisode.SelectionFormula = "{TBCU_Defaulter_log.patient_uin} = " & glngPatientSysgenId '''此处注意是字符串还是数值,字符串带引号,数值不用带
'        crpDefaulterEpisode.Destination = crptToPrinter '''直接打印出来
        crpDefaulterEpisode.Destination = crptToWindow '''直接预览
        crpDefaulterEpisode.Action = 1

        Call gclsMessage.InfoMessage("The patient default record printed by TB episodes.", Me.Caption)
        Me.MousePointer = vbDefault
    End If
    rstSQL.Close
  
    Exit Sub 
ErrHandler:
    Me.MousePointer = vbDefault
    MsgBox Me.Name & " : cmdReport_Click " & vbCrLf & CStr(Err.Number) & " - " & Err.Description


三.高级报表设计,报表为特定某一个人的,上面显示基本信息,每一次default会有一次记录,在每一次的default记录里,会有针对这次default的所有action,罗列完所有action之后,再对本次的default做总结(错过天数,几天后referr,referr后几天来的等)


[详见下一篇博客]




  • 0
    点赞
  • 0
    评论
  • 0
    收藏
  • 打赏
    打赏
  • 扫一扫,分享海报

参与评论 您还未登录,请先 登录 后发表或查看评论
©️2022 CSDN 皮肤主题:技术黑板 设计师:CSDN官方博客 返回首页

打赏作者

Stephanie_0903

你的鼓励将是我创作的最大动力

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值