欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

机房收费系统之表格

更新时间: 2014-01-05 03:07:40 责任编辑: Author_N1

 

机房收费系统之报表

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

其实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
嗯不错继续加油!
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 03:07:40
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/18676/
本文WWW.DOC100.NET DOC100.NET版权所有。