报表是我最后完成的一个功能，其实觉得报表本身没有什么难度，主要是周结账单的数据库写入，这里就介绍下报表吧！
其实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
- 1楼gwblue昨天 15:56
- 嗯不错继续加油！