VB通用数据表格输出程序的设计

作者佚名来源 VB编程浏览发布时间 2012-07-03

= ""
strDy(2) = Format(Now, " 打印日期：
yyyy年 m月 d日")
strDy(3) = str0
strDy(4) = str
strDy(5) = str1
intDc = 6
.MoveFirst
Do While Not .EOF
str = "┃"
For i = 0 To .Fields.Count - 1
If IsNull(.Fields(i).Value) Then
注释：处理 Null 值
If i = .Fields.Count - 1 Then
str = str & Format(" ", Fmt(i)) & "┃"
Else
str = str & Format(" ", Fmt(i)) & "│"
End If
Else
If i = .Fields.Count - 1 Then
str = str & Format(Left$(.Fields(i).
Value, Len(Fmt(i))), Fmt(i)) & "┃"
Else
str = str & Format(Left$(.Fields(i).
Value, Len(Fmt(i))), Fmt(i)) & "│"
End If
End If
Next
strDy(intDc) = strDy(intDc) & str
intDc = intDc + 1
.MoveNext
Loop
strDy(intDc) = str2
End With
End Sub

---- 在实际编程中还要排除二进制数据字段，全角与半角字符的匹配调整，处理数据中出现的换行符、回车符、制表符，等等，限于篇幅，这里不于介绍。
---- 2．rdoResultset对象

---- rdoResultset对象的表格自动生成方法与Recordset对象的方法相似，在处理过程中把Recordset对象的RecordCount属性用rdoResultset对象的RowCount属性替换，Fields集合用rdoColumns替换，Field对象用rdoColumn替换，其余相同。例如：

---- 引用Data控件MyData结果集中第三个字段的名称用：MyData.Recordset.Fields(3).Name。

---- 引用RDC控件MyRDC相应字段的名称用: MyRDC.Resultset.rdoColumns(3).Name。

三．表格的输出
---- 表格的输出包括二个部分，一是屏幕预览，二是打印机输出。屏幕预览是把存放在数组中的表格通过在PictureBox控件上调用 Print方法显示出来而实现的。打印输出是把同样的内容通过 Printer对象的 Print方法实现的。下面例示打印机输出的实现方法：
Printer.Font.Name = "黑体"
注释：设置标题字体
Printer.Font.Size = 18
注释：设置标题字体大小
Printer.Print strDy(0)
注释：打印标题
Printer.Print strDy(1)
注释：打印空行
Printer.Font.Name = "楷体_GB2312"

注释：设置日期字体
Printer.Font.Size = 16
注释：设置日期字体大小
Printer.Print strDy(2)
注释：打印日期
Printer.Font.Name = "宋体"
注释：设置表格字体
Printer.Font.Size = 11
注释：设置表格字体大小
Printer.Print strDy(3)
注释：以下打印表格内容
Printer.Print strDy(4)
For i = 6 To intDc
If i <intDc Then
Printer.Print strDy(5)
Printer.Print strDy(i)
Else
Printer.Print strDy(i)注释：表尾

End If
Next
Printer.EndDoc
注释：打印完成

---- 屏幕预览程序与打印机的输出相同，只要把 Printer对象换成PictureBox控件对象并使用相应的对象属性及方法，同时，在编程中还要处理分页、纸张、打印设置、字体、出错等等，限于篇幅，这里不一一介绍。在控件中实现了字体及其大小的设置、纸张的设置、自动分页、自动顺序号，任选列的汇总、选择打印、多份打印等功能，感兴趣的朋友可与本人联系。
---- 该控件在中文Windows 95、VB 5下运行通过。

你可能对下面的文章感兴趣

上一篇: [VB]下一篇: 在VB程序中怎样挂断拨号网络

关于VB通用数据表格输出程序的设计的所有评论

随机推荐

地址(ADD)：厦门软件园二期望海路63号701E（东南融通旁）邮编(ZIP)：361008

电话：0592-5908028 传真：0592-5908039 咨询信箱：web@lingzhong.cn 咨询OICQ：173723134

《中华人民共和国增值电信业务经营许可证》闽B2-20100024 ICP备案:闽ICP备05037997号