报表是我最后完成的一个功能,其实觉得报表本身没有什么难度,主要是周结账单的数据库写入,这里就介绍下报表吧!
其实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