一、下载安装Grid++Report5.0:
1、搜索下载Grid++Report5.0并安装:(附赠哟~但是建议大家自己去下载)
云盘分享:https://yunpan.cn/c6ggtnHFDsgae (提取码:2dbf)
2、安装后在VB添加部件和引用。工具栏中出现报表编辑器,报表显示器等,图标如图
所示:如下图所示:
二、 制作报表模板:
1、第一步,打开报表设计器,打开“插入”选择“插入报表头”;
2、然后点击插入“静态框”,输入文本“机房收入日汇总表”和“单位:数信学院”;
3、位于表格右边的时间可以用插入里的“系统变量框”,从中选择“当前日期时间”,可以
显示当前系统时间,这个类似我们VB中的添加label控件;
4、接着再从“插入”中选择插入“明细网格”;
5、然后从报表中选择“明细数据库查询”;
6、从弹出的界面上单击“创建数据库连接串”;
7、从中选择“连接的数据”点击“下一步”;
8、从弹出的窗口中点击连接进行设置;如果不知道自己服务器的名称,可以用英文状
态下的“.”来表示本地服务器!
9、然后点击测试;
10、系统自动将字符串插入界面的文本框中;
11、然后从“查询SQL”中输入语句“select *from CheckDay_Info”点击测试,
12、测试成功后,点击确定。
若测试失败,出现问题如左图:
则回到右图所示步骤:再同上继续即可
13、从”编辑中“选择“根据明细查询SQL生成字段”;
14、然后点击“根据字段生成表格列”;
15、然后将“标题行”的英文改为汉字。
16、插入“报表尾”;
17、如图所示添加“管理员、操作员及其工作号”均为综合文字框
18、插入“页眉、页脚”;
19、预览效果图:
三、报表与VB的连接:
Option Explicit
'定义报表对象
Dim Report As grproLibCtl.GridppReport
Private Sub Form_Load()
Dim StrSQL As String
Dim strMsg As String
'创建报表对象
StrSQL = "select * from CheckDay_Info where date= '" & Date & "' "
'实例化报表
Set Report = New grproLibCtl.GridppReport
'载入报表模板文件
Report.LoadFromFile (App.Path & "\周报表.grf")
'数据源连接
Report.DetailGrid.Recordset.ConnectionString = ConnectString
'通过SELECT查询创建记录集
Report.DetailGrid.Recordset.QuerySQL = StrSQL
'显示报表中的内容
GRDisplayViewer1.Report = Report
GRDisplayViewer1.Start
End Sub
Private Sub cmdRefresh_Click()
'判定终止日期不能小于其实日期
If StartDateView.Value > EndDateView.Value Then '条件限制
MsgBox "终止日期不能小于起始日期!", , "温馨提示"
Exit Sub
End If
'如果上期余额的text里不为空则查询日期1到日期2中、上期余额是文本中的记录
txtSQL = "select * from checkday_Info where date between '" & _
StartDateView.Value & "' and '" & EndDateView.Value & "'"
'刷新
Report.DetailGrid.Recordset.QuerySQL = "select * from CheckDay_Info where date= '" & Date & "' "
GRDisplayViewer1.Refresh
End Sub
Private Sub cmdView_Click()
Report.PrintPreview (True) '打印预览
End Sub
Private Sub cmdPrint_Click()
Report.[Print] (True) '打印,因为报表对象的print方法名与vb的内部定义方法有冲突所以要用中括号
End Sub
感谢您的阅读~更多文章请点击
机房收费系统——子窗体在MDI窗体中最小化(API函数:SetParent())