报表是我最后完成的一个功能,其实觉得报表本身没有什么难度,主要是周结账单的数据库写入,这里就介绍下报表吧!
其实VB中是有报表设计器的,首先工程—部件—设计器—data report
然后在工程—添加DataReport,这样报表则出现
添加后最主要的是与数据源的连接,首先添加dataenviromnet设计器,然后在工程—添加Data Enviromnet 在工程中添加一个数据环境设计器对象,设置数据链接属性,然后是一系列的字段链接。
这样的设置有些麻烦,其实还有一个外部控件可以完成报表的设计 Grid++Report ,这个设计起来比较简单,具体的方法是这样的:首先是安装Grid++Repor t,然后建立一个用户dsn数据源,命名为Recharge。然后运行程序——文件——新建向导(按要求填写)——>下一步——>创建连接——>下一步——确定。——数据库连接串内写入数据库连接串,连接到数据库,查询sql框内写入
select * from Checkweek_Info——> 下一步——>下一步,按要求操作,完成!(最好与程序保存到同一个文件夹下)
在vb中调用给控件,首先是添加部件和引用
然后将控件添加到窗体,实现更新和打印的功能代码如下:
Private Sub CmdPrint_Click()
Report.[Print] (True)
'实现打印功能
End Sub
Private Sub CmdRefresh_Click()
Dim strSQL As String
'数据库中信息导出到报表
Set Report = New grproLibCtl.GridppReport
Report.LoadFromFile App.Path & "\Recharge.grf"
Report.DetailGrid.Recordset.ConnectionString = ConnectString
strSQL = "select * from checkweek_info"
Report.DetailGrid.Recordset.QuerySQL = strSQL
GRDisplayViewer1.Report = Report
GRDisplayViewer1.Start
End Sub
Private Sub CmdRePrint_Click()
'打印预览
Report.PrintPreview (True)
End Sub