ACCESS数据库中的中文报表制作
时间:2003-12-12 13:24 来源:本站原创 作者:未知 阅读:次
---- MICROSOFT ACCESS是新一代关系型数据库管理系统,由于内置有功能强大的工具和方便有效的向导,access数据库系统提供了比其他数据库系统更方便的功能。在向导的帮助下,短短的几分钟内,我们就可以构造出一个数据库应用程序。
---- 数据库应用中很关键的数据输出形式是“报表”,ACCESS提供的报表向导,只针对国外的报表形式,就是线条较少的报表。而我们的中文报表,传统形式是线条较多的网格形式,所以,不能简单地通过向导来完成。现就本人使用ACCESS的经验,结合实例,谈一下如何在access数据库中制作我们的中文报表。
---- “产品销售利润明细表”的制作:
---- 1. 新建报表:选“自动报表:表格”,数据来源选表如XSLR表,确定后,产生一个简单的报表,在此基础上进行修改。
---- 2. 页面设置:边距方面,调整靠左、靠右来达到最大打印范围。页面方面,打印方向设置为纵向,纸张大小选自定义大小,宽度为1660(最大),长度为1100(一页纸长度),单位为0.01英寸。
---- 3. 版面设置:删除报表页眉、报表页脚。将页面页眉的内容删除。在页面页眉中插入对象,选MICROSOFT WORD文档,在WORD文档中画出表头,填上内容,注意,汉字之间要空一格,否则,到access报表输出时,汉字会出现乱码。对此OLE控件设置属性:背景样式为“透明”,边框样式为“透明”。在主体部件插入对象,选MICROSOFT WORD文档,在WORD文档中画出表格线方格,行宽可比表头行宽大一些,对此OLE控件设置属性:背景样式为“透明”,边框为实线,边框宽度为细线,设置各字段文字类型及大小,将各字段调整到方格内。
---- 4. 在DETAIL的FORMAT事件中写入代码,以完成对零值的屏蔽。代码如下:(A3至A13为数值型字段)
Private Sub Detail_Format
(Cancel As Integer, FormatCount As Integer)
If A3 = 0 Then
A3.Visible = False
Else
A3.Visible = True
End If
If A4 = 0 Then
A4.Visible = False
Else
A4.Visible = True
End If
If A7 = 0 Then
A7.Visible = False
Else
A7.Visible = True
End If
If A8 = 0 Then
A8.Visible = False
Else
A8.Visible = True
End If
If A9 = 0 Then
A9.Visible = False
Else
A9.Visible = True
End If
If A11 = 0 Then
A11.Visible = False
Else
A11.Visible = True
End If
If A12 = 0 Then
A12.Visible = False
Else
A12.Visible = True
End If
If A13 = 0 Then
A13.Visible = False
Else
A13.Visible = True
End If
End Sub
---- 数据库应用中很关键的数据输出形式是“报表”,ACCESS提供的报表向导,只针对国外的报表形式,就是线条较少的报表。而我们的中文报表,传统形式是线条较多的网格形式,所以,不能简单地通过向导来完成。现就本人使用ACCESS的经验,结合实例,谈一下如何在access数据库中制作我们的中文报表。
---- “产品销售利润明细表”的制作:
---- 1. 新建报表:选“自动报表:表格”,数据来源选表如XSLR表,确定后,产生一个简单的报表,在此基础上进行修改。
---- 2. 页面设置:边距方面,调整靠左、靠右来达到最大打印范围。页面方面,打印方向设置为纵向,纸张大小选自定义大小,宽度为1660(最大),长度为1100(一页纸长度),单位为0.01英寸。
---- 3. 版面设置:删除报表页眉、报表页脚。将页面页眉的内容删除。在页面页眉中插入对象,选MICROSOFT WORD文档,在WORD文档中画出表头,填上内容,注意,汉字之间要空一格,否则,到access报表输出时,汉字会出现乱码。对此OLE控件设置属性:背景样式为“透明”,边框样式为“透明”。在主体部件插入对象,选MICROSOFT WORD文档,在WORD文档中画出表格线方格,行宽可比表头行宽大一些,对此OLE控件设置属性:背景样式为“透明”,边框为实线,边框宽度为细线,设置各字段文字类型及大小,将各字段调整到方格内。
---- 4. 在DETAIL的FORMAT事件中写入代码,以完成对零值的屏蔽。代码如下:(A3至A13为数值型字段)
Private Sub Detail_Format
(Cancel As Integer, FormatCount As Integer)
If A3 = 0 Then
A3.Visible = False
Else
A3.Visible = True
End If
If A4 = 0 Then
A4.Visible = False
Else
A4.Visible = True
End If
If A7 = 0 Then
A7.Visible = False
Else
A7.Visible = True
End If
If A8 = 0 Then
A8.Visible = False
Else
A8.Visible = True
End If
If A9 = 0 Then
A9.Visible = False
Else
A9.Visible = True
End If
If A11 = 0 Then
A11.Visible = False
Else
A11.Visible = True
End If
If A12 = 0 Then
A12.Visible = False
Else
A12.Visible = True
End If
If A13 = 0 Then
A13.Visible = False
Else
A13.Visible = True
End If
End Sub
(责任编辑:admin)
顶一下
(0)
0%
踩一下
(0)
0%
相关内容
- ·解决Access在页面设置中设置边距无法保
- ·Access通用报表打印设置
- ·在Access中使用自动化打印报告
- ·报表奇偶分页打印
- ·access输出资料到word用于打印
- ·支票打印的日期大写问题Access2007
- ·[报表]报表跨节垂直居中例子
- ·ACCESS-VBA编程 第八章 报表
- ·用Access2007解决支票打印的日期大写问
- ·自由设置页码打印报表
- ·ACCESS和EXECL结合的简单说明
- ·每页打印一定行数后自动分页(报表分页
- ·在VB中用代码打印ACCESS报表
- ·[原创]在 Access 2000中变通实现弹出式
- ·在Access 2002中打印报表的关系图
- ·Access轻松实现多数据批量打印
最新内容
推荐内容