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

评论总数：0 条 [ 查看全部 ] 网友评论