机房收费系统之VB报表

简介: <p> <span style="font-size:32px"><span style="font-family:KaiTi_GB2312">   <span style="font-size:24px; color:#333333"> 简单地说:报表就是用图表、表格等格式来动态显示数据,用一个公式来表示的话,就是“报表 = 多样的格式 + 动态的数据”,报表可以说是企业管理的基本措施

    简单地说:报表就是用图表、表格等格式来动态显示数据,用一个公式来表示的话,就是“报表 = 多样的格式 + 动态的数据”,报表可以说是企业管理的基本措施和途径,是企业的基本业务要求,可以说是企业运作所必须的。

    要想在VB中使用报表,首先必须得安装一款报表的软件,在我做收费系统的时候,我用的是Grid++Report报表软件,然后打开VB——引用,找到图中的两个控件,添加之后,会显示两个新的部件,

 

    打开Grid++Report报表设计器,插入——报表头、明细网格、报表尾,要想成功的用VB报表成功,接下来,分成两大主要部分:

    1、数据库与报表的连接

 

    在明细网格上有三个图标,

   

   先点第一个,“数据库连接串与查询SQL”

创建数据库连接串——数据连接属性,选择“Microsoft OLE DB Provider for SQL Server”——下一步

 

做完以上步骤之后,点第2、3个图标,按顺序,“根据数据设置自动生成字段”——“根据字段自动生成列”

到这,数据库和报表的连接完成。

 

    2、VB与报表的连接

    通过代码将报表加载到VB中去,首先添加显示报表的控件,GRDisplayViewer1,接下来,就是写代码了!

Dim Report As New grproLibCtl.GridppReport    '实例化报表

Private Sub Form_Load()
    Dim strSQL As String
        
    
    '当日没有汇总记录是不显示报表
    strSQL = "select * from checkday_info where date = '" & Format(Date, "yyyy-mm-dd") & "'"
        
    Set Report = New grproLibCtl.GridppReport       '创建报表对象
        
    Report.LoadFromFile (App.Path & "\ChargeCheckDay.grf")  '加载模板
        
    '建立数据连接
    Report.DetailGrid.Recordset.ConnectionString = "Provider=SQLOLEDB.1;Password=123456;Persist Security Info=True;User ID=sa;Initial Catalog=charge_sys;Data Source=;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=;Workstation ID=;Use Encryption for Data=False;Tag with column collation when possible=False"
        
    Report.DetailGrid.Recordset.QuerySQL = "select top 1 * from checkday_info order by date desc"    '通过SELECT查询创建记录集
        
    '查看表
    GRDViewer.Report = Report
    GRDViewer.Start
End Sub

 

报表的打印和打印预览:

Private Sub cmdPrint_Click()
    Report.[Print] (True)     '打印
End Sub
Private Sub cmdPrePrint_Click()
    '因为报表对象的print方法名与VB内部定义有冲突,所以要用中括号括起来
    
    Report.PrintPreview (True)    '打印预览
    
End Sub


报表的刷新:

Private Sub cmdRefresh_Click()

    Report.DetailGrid.Recordset.QuerySQL = "select top 1 * from checkday_info order by date desc"
    GRDViewer.Refresh        '刷新日结账单
End Sub



 

 


 

 

 

    

   

    

 

 

相关文章
|
C# 容器
Winform控件优化之TabControl控件的美化和功能扩展
在基本的TabControl控件使用和功能之上,可以尝试对其进行美化和功能扩展,比如动态删除或添加tab、绘制图标按钮及鼠标hover时的背景变化、Tab从右向左布局的优化处理等。最重要...
3555 0
Winform控件优化之TabControl控件的美化和功能扩展
|
SQL 数据处理 数据库
提升数据处理效率:深入探讨Entity Framework Core中的批量插入与更新操作及其优缺点
【8月更文挑战第31天】在软件开发中,批量插入和更新数据是常见需求。Entity Framework Core 提供了批处理功能,如 `AddRange` 和原生 SQL 更新,以提高效率。本文通过对比这两种方法,详细探讨它们的优缺点及适用场景。
469 0
|
并行计算 前端开发 JavaScript
【修正版】QPS、TPS、RT、并发数、吞吐量理解和性能优化深入思考
在了解qps、tps、rt、并发数之前,首先我们应该明确一个系统的吞吐量到底代表什么含义,一般来说,系统吞吐量指的是系统的抗压、负载能力,代表一个系统每秒钟能承受的最大用户访问量。
5942 1
【修正版】QPS、TPS、RT、并发数、吞吐量理解和性能优化深入思考
|
消息中间件 NoSQL 关系型数据库
倚天云服务器初次体验
本测评报告旨在通过对倚天云服务器的实例使用、业务部署、性能测试和迁移体验等方面进行评估。
101587 55
|
编解码 Android开发 开发者
QT5.14.2 VS2022环境下FFmpeg与QT的完美邂逅
QT5.14.2 VS2022环境下FFmpeg与QT的完美邂逅
702 0
|
Java Maven
maven配置阿里云镜像源
maven配置阿里云镜像源
40185 1
|
Java Maven
解决IntelliJ IDEA执行maven打包,执行java -jar命令提示jar中没有主清单属性
执行`java -jar app.jar`命令后,提示jar中没有主清单属性
4510 1
|
Java Spring
问题解决:IDEA没有新建Spring Boot项目选项
问题解决:IDEA没有新建Spring Boot项目选项
1415 0
问题解决:IDEA没有新建Spring Boot项目选项
|
BI C#
Grid++Report报表工具C/S实战篇(五)
一、课程介绍 本次分享课程属于《C#高级编程实战技能开发宝典课程系列》中的第五部分,阿笨后续会计划将实际项目中的一些比较实用的关于C#高级编程的技巧分享出来给大家进行学习,不断的收集、整理和完善此系列课程! 本次分享课程适合人群如下: 1、想学习Grid++Report报表工具在C/S项目中的实战演练。
2224 0