前言:
报表创建其实就是用报表程序创建报表模板,然后再附加在VB中,最终达到在VB上使用运行的目的。
一、报表安装
1.百度搜索并下载报表程序。
2.安装之后,菜单栏插入报表头、报表尾、明细网格、页眉和页脚(机房报表可忽略)
二、报表连接数据库与完善
1.明细网格-数据库连接串与查询SQL
2.创建数据库连接串
配置连接
确定之后连接串自动显示,输出查询SQL
3.顺序点击“根据数据设置自动生成字段”和“根据字段自动生成列”
修改名称
4.插入参数,并修改名称、格式、类型
5.插入静态框和综合文字框(存放参数)显示文字
报表至此设计完成。
三、报表在VB上的使用
1.首先在部件中添加这两个
2.选择GRDispiayViewer控件并添加至窗体中
四、日结账单的代码
1.定义并实例化报表
Option Explicit '定义报表对象
DimReport As grproLibCtl.GridppReport
2.打印及打印预览
Private Sub Command2_Click() '打印
Report.[Print] (True)
EndSub
Private Sub Command3_Click() '打印预览
Report.PrintPreview (True)
EndSub
3.报表显示
PrivateSub Form_Load()
Me.Width = 13305
Me.Height = 8550
Dim txtSQL As String
Dim MsgText As String
txtSQL = "select * from CheckDay_Infowhere date='" & Format(Date, "yyyy-mm-dd") &"'"
Set Report = New grproLibCtl.GridppReport '实例化模板
Report.LoadFromFile (App.Path & "\日结账单.grf") '加载模板
Report.DetailGrid.Recordset.ConnectionString = Connectstring() '连接数据源
Report.DetailGrid.Recordset.QuerySQL = txtSQL '通过select查询创建记录集
Report.ParameterByName("guanliyuan").AsString = UserName
Report.ParameterByName("guanliyuan").Value = UserName '显示管理员
GRDisplayViewer1.Report = Report '将数据赋给GRD的Report
GRDisplayViewer1.Start '显示报表
EndSub