本讲主要内容
? 高校学费管理系统 概述 （ 系统功能,
数据流图, 学费计算 ）
? 系统结构
? 数据库设计 （ 收费标准表, 收费信息
表, 交费记录表, 退费记录表, 密码
表 ）
? 系统实现 （ 收费标准管理, 票据打印 ）
信
息
管
理
系
统
实
例
（
第
一
讲
）
高校学费管理系统概述 (第 15章第 1讲）
高校学费管理系统是一个 事务处理系统,主
要完成学费收取事务。高校学费管理系统由两
种模式：单机模式和网络模式。这里主要介绍
单机模式。
单机模式的使用配置为,
硬件配置,PC计算机一套，票据打印机一台。
软件配置,WINDOWS 98操作系统或 WINDOWS
XP操作系统、高校学费管理系统软件。
高校学费管理系统的功能 (第 15章第 1讲）
高校学费管理系统的功能如下,
（ 1）收费标准管理 收费标准管理主要用于收费标准的录入、
修改和删除。
（ 2）交费处理 交费处理主要是根据学生的信息确定应交费
用，收取费用，保存相关信息。
（ 3）欠费处理 欠费处理主要是根据学生的应交费用和实交
费用，收取欠费，保存相关信息。
（ 4）退费处理 退费处理主要是根据学生的实交费用，退费
用，保存相关信息。
（ 5）票据打印 票据打印是指自动打印学费事务处理中相关
票据。
（ 6）查询统计 查询统计是指可查询或统计交费、欠费、退
费记录。
高校学费管理系统的数据流图 (第 15章第 1讲）
交费处理数据流图
退费处理数据流
欠费处理数据流图
学费计算 (第 15章第 1讲）
学费 与交费学年、年级、类别、专业相关。
其中,交费学年 是指交费的年份； 年级 是指学生
交费后所在年级，如新生就是一年级； 类别 有本
科自学考试、本科学历文凭、本科统招生、大专
自学考试、大专学历文凭、大专统招生等；专业
是学生所学专业。
学费计算处理方法是：在系统中建立了一个
收费标准 数据字典 （也就是建立了一个 收费标准
关系表 ），该字典中存储了所有的收费标准，计
算机可根据学生交费时所选顶的内容从字典中查
找相关的收费标准，确定出学生应交费用。
系统结构 (第 15章第 1讲）
依据系统的功能要求以及使用环境、开发技术可设计出
系统的结构。
高校学费管理系统软件由 三个事务处理模块 （交费、退
费和欠费事务处理）,五个数据维护模块 （密码表、收费标
准表、收费表、交费表和退费表中数据维护）,三个查询模
块 （交费、退费和欠费信息查询）和 三个统计模块 （交费、
退费和欠费信息统计）组成。如图。
三个事务处理模块
五
个
数
据
维
护
模
块
三个查询模块
三个统计模块
数据库设计 (第 15章第 1讲）
高校学费管理系统选用 Access数据库,
其数据库名为, SF.mdb”,该数据库共有 5
个数据表，分别为,
收费标准表 BZB
收费信息表 SFB
交费记录表 JFB
退费记录表 TFB
密码表 MMB
收费标准表 BZB(第 15章第 1讲）
收费标准表 BZB用于存储收费标准信息，其主索
引有 XN（交费学年）,NJ（年级）,LB（类别）和 ZY
（专业）。
收费标准表的结构如下,
字段名 数据类型 长度 允许空 允许重复 说明
LB 字符型 20 否 是 类别
ZY 字符型 30 否 是 专业
NJ 字符型 1 否 是 年级
XN 字符型 4 否 是 交费学年
JE 货币型 否 是 金额
BZ 备注型 是 是 备注
收费信息表 SFB(第 15章第 1讲）
收费信息表 SFB表用于存储学生应交和实
交信息，其主索引是 DJH（学生登记号）。
收费信息表的结构如下,
字段名 数据类型 长度 允许空 允许重复 说明
DJH 字符型 20 否 否 登记号
XM 字符型 10 否 是 姓名
LB 字符型 20 否 是 类别
ZY 字符型 30 否 是 专业
NJ 字符型 1 否 是 年级
XN 字符型 4 否 是 交费学年
YJ 货币型 是 应交金额
SJ 货币型 是 实交金额
BZ 备注型 是 是 备注
交费记录表 JFB(第 15章第 1讲）
交费记录表 JFB用于存储学生交纳信息，其主索
引是 LSH（流水号）。交费记录表的结构如下,
字段名 数据类型 长度 允许空 允许重复 说明
LSH （自动） 否 否 流水号
RQ 日期型 否 是 办理日期
XM 字符型 10 否 是 姓名
LB 字符型 20 否 是 类别
ZY 字符型 30 否 是 专业
NJ 字符型 1 否 是 年级
XN 字符型 4 否 是 交费学年
JE 货币型 是 交纳金额
FS 字符型 10 否 是 付款方式
BLR 字符型 10 否 是 办理人
BZ 备注型 是 是 备注
退费记录表 TFB(第 15章第 1讲）
退费记录表用于存储学生退费信息，其主索引是
LSH（流水号）。退费记录表的结构如下,
字段名 数据类型 长度 允许空 允许重复 说明
LSH （自动） 否 否 流水号
RQ 日期型 否 是 办理日期
XM 字符型 10 否 是 姓名
LB 字符型 20 否 是 类别
ZY 字符型 30 否 是 专业
NJ 字符型 1 否 是 年级
XN 字符型 4 否 是 交费学年
JE 货币型 是 退费金额
BLR 字符型 10 否 是 办理人
BZ 备注型 是 是 备注
密码表 MMB(第 15章第 1讲）
密码表用于操作人员的名称和密码信息，
其主索引是 XM（姓名）。密码表的结构如下,
字段名 数据类型 长度 允许空 允许重复 说明
XM 字符型 10 否 否 姓名
MM 字符型 8 否 否 密码
系统实现 (第 15章第 1讲）
高校学费管理系统的实现采用了 Visual Basic编程技术、
Access数据库技术,ODBC技术和 RDO数据库访问技术。这里主
要介绍收费标准管理和票据打印的实现。
（ 1）收费标准管理 收费标准管理主要是对收费标准表进行
数据录入、修改和删除操作。其界面如图所示。收费标准管理
程序主要由 新加, 修改, 删除 和 显示 等过程（ Sub）组成。
List View控件
,显示记录, 过程代码 (第 15章第 1讲）
Private Sub Display_List() '在 listview中显示
On Error GoTo EEEEE
Dim i As Integer
Dim iii As Integer
ListView1.ListItems.Clear
iii = 1
SQL = "select * from BZB order by JB,LB,ZY"
Set RST = cn.OpenResultset(SQL,Type:=rdOpenDynamic,LockType:=rdConcurLock)
Do While Not RST.EOF
Set itmx = ListView1.ListItems.Add(,,iii)
For i = 0 To 5
If Not IsNull(RST(i)) Then itmx.SubItems(i + 1) = CStr(RST(i))
Next i
RST.MoveNext
iii = iii + 1
Loop
RST.Close
EEEE,
End Sub
,新加记录, 过程代码 (第 15章第 1讲）
Private Sub Save_AddXX()
On Error GoTo EEEEE
SQL = "select * from BZB "
Set RST = cn.OpenResultset(Name:=SQL,Type:= rdOpenDynamic,LockType:=rdConcurLock)
RST,AddNew
RST("XN") = Trim( TXTXN,Text)
RST("NJ") = Trim(TXTNJ,Text)
RST("LB") = Trim(TXTLB,Text)
RST("ZY") = Trim(TXTZY,Text)
RST("JE") = Trim(TXTJE,Text)
RST("BZ") = Trim(TXTBZ,Text)
RST,Update
RST,Close
MsgBox ("信息已添加 ！ ")
Exit Sub
EEEEE,
MsgBox ("错误 ！ 重新输入信息 ！ ")
End Sub
Private Sub Save_UpdateXX()
On Error GoTo EEEEE
SQL = "select * from BZB where SFXN='" & Trim (TEXTXN,Text) & "'and NJ='" & Trim (TEXTNJ,
Text) & "'and LB='" & Trim (TEXTLB,Text) & "' and ZY='" & Trim (TEXTZY,Text) & "'"
Set RST = cn.OpenResultset(Name:=SQL,Type:=rdOpenDynamic,LockType:=rdConcurLock)
RST,Edit
RST("XN") = Trim( TXTXN,Text)
RST("NJ") = Trim(TXTNJ,Text)
RST("LB") = Trim(TXTLB,Text)
RST("ZY") = Trim(TXTZY,Text)
RST("JE") = Trim(TXTJE,Text)
RST("BZ") = Trim(TXTBZ,Text)
RST.Update
RST.Close
MsgBox ("信息已更改 ！ ")
Exit Sub
EEEEE,
MsgBox ("错误 ！ 重新输入信息 ！ ")
End Sub
,修改 记录, 过程代码 (第 15章第 1讲）
,删除记录, 过程代码 (第 15章第 1讲）
Public Sub Delete_XX()
On Error GoTo EEEEE
SQL = "select * from BZB where SFXN='" & Trim (TEXTXN,Text) &
"'and NJ='" & Trim (TEXTNJ,Text) & "'and LB='" & Trim
(TEXTLB,Text) & "' and ZY='" & Trim (TEXTZY,Text) & "'"
Set RST = cn.OpenResultset(Name:=SQL,Type:=rdOpenDynamic,
LockType:=rdConcurLock)
RST,Delete
RST,Close
MsgBox ("信息已删除 ！ ")
Exit Sub
EEEEE,
MsgBox ("错误 ！ [无可删除的信息 ！ ] ")
End Sub
票据打印 (第 15章第 1讲）
（ 2）票据打印 票据打印时费用事务处理中一项重要工作，
这里采用 Visual Basic的 Printer对象操作来实现票据打印。
其中发票是压感式票据，打印 机是针式打印机，票据样式如
下,
票据打印程序有两个主要子模块,金额转换 和 打印控制 模
块。
金额转换过程代码 (第 15章第 1讲）
Private Function CChinese(StrEng As String) As String
Dim intLen As Integer,intCounter As Integer
Dim strCh As String,strTempCh As String
Dim strSeqCh1 As String,strSeqCh2 As String
Dim strEng2Ch As String
If Not IsNumeric(StrEng) Or StrEng Like "*-*" Then
If Trim(StrEng) <> "" Then MsgBox "无效的数字 "
CChinese = "",Exit Function
End If
StrEng = Format(StrEng,"#0.00")
StrEng = CDec(StrEng * 100)
strEng2Ch = "零壹贰叁肆伍陆柒捌玖 "
strSeqCh1 = "分角元拾佰仟 拾佰仟 拾佰仟 "
strSeqCh2 = " 万亿兆 "
将字符
串转换
为大写
人民币
金额的
代码
未完
金额转换过程代码 (第 15章第 1讲）
StrEng = CStr(CDec(StrEng))
intLen = Len(StrEng)
For intCounter = 1 To intLen
strTempCh = Mid(strEng2Ch,Val(Mid(StrEng,intCounter,1)) + 1,1)
strTempCh = strTempCh & Trim(Mid(strSeqCh1,intLen - intCounter + 1,1))
If (intLen - intCounter + 3) Mod 4 = 1 Then
strTempCh = strTempCh & Mid(strSeqCh2,(intLen - intCounter + 3) \ 4 + 1,1)
If intCounter > 3 Then
If Mid(StrEng,intCounter - 3,4) = "0000" Then strTempCh = Left(strTempCh,
Len(strTempCh) - 1)
End If
End If
strCh = strCh & Trim(strTempCh)
Next
CChinese = strCh
End Function
打印控制 过程代码 (第 15章第 1讲）
Public Sub PRINT_PJ()
On Error Resume Next
Dim pw,ph,lb,TB,Bb As Double ‘pw,ph,lb,TB,Bb是打印机打印位置参数
pw = 19
ph =10.15
lb = 0.4
Rb =2.25
TB = 0
Bb = 1.02
Printer,Scale Mode = 1
Printer,Width = pw * 576
Printer,Height = ph * 576
BLX = (pw - lb - Rb) * 576 / Pict,ScaleWidth
BLY = (ph - TB - Bb) * 576 / Pict,ScaleHeight
Printer,Font,Name = "宋体 "
Printer,Font,Size = 10
PrintLabel labSLH ‘受理号
PrintLabel labYear ‘年
PrintLabel labMonth ‘月
PrintLabel labDay ‘日
PrintLabel labXM ‘姓名
未完
打印控制 过程代码 (第 15章第 1讲）
PrintLabel labXB ‘系别
PrintLabel labZY ‘专业
PrintLabel labBJ ‘班级
PrintLabel labSKR ‘收款人
PrintLabel labLRR ‘录入人
PrintLabel LabXF ‘学费
PrintLabel LabHJF ‘缓交费
PrintLabel LabJMF ‘减免费
PrintLabel LabXY ‘小写金额
PrintLabel LabDX ‘大写金额
Printer,CurrentY = Printer,Height - 1
Printer,EndDoc
DoEvents
End Sub
Private Sub PrintLabel(Lbl As Label)
On Error Resume Next
Printer.CurrentX = Lbl.Left * BLX + lb * 576
Printer.CurrentY = Lbl.Top * BLY + TB * 576
Printer.Print Lbl.Caption
End Sub
? 高校学费管理系统 概述 （ 系统功能,
数据流图, 学费计算 ）
? 系统结构
? 数据库设计 （ 收费标准表, 收费信息
表, 交费记录表, 退费记录表, 密码
表 ）
? 系统实现 （ 收费标准管理, 票据打印 ）
信
息
管
理
系
统
实
例
（
第
一
讲
）
高校学费管理系统概述 (第 15章第 1讲）
高校学费管理系统是一个 事务处理系统,主
要完成学费收取事务。高校学费管理系统由两
种模式：单机模式和网络模式。这里主要介绍
单机模式。
单机模式的使用配置为,
硬件配置,PC计算机一套，票据打印机一台。
软件配置,WINDOWS 98操作系统或 WINDOWS
XP操作系统、高校学费管理系统软件。
高校学费管理系统的功能 (第 15章第 1讲）
高校学费管理系统的功能如下,
（ 1）收费标准管理 收费标准管理主要用于收费标准的录入、
修改和删除。
（ 2）交费处理 交费处理主要是根据学生的信息确定应交费
用，收取费用，保存相关信息。
（ 3）欠费处理 欠费处理主要是根据学生的应交费用和实交
费用，收取欠费，保存相关信息。
（ 4）退费处理 退费处理主要是根据学生的实交费用，退费
用，保存相关信息。
（ 5）票据打印 票据打印是指自动打印学费事务处理中相关
票据。
（ 6）查询统计 查询统计是指可查询或统计交费、欠费、退
费记录。
高校学费管理系统的数据流图 (第 15章第 1讲）
交费处理数据流图
退费处理数据流
欠费处理数据流图
学费计算 (第 15章第 1讲）
学费 与交费学年、年级、类别、专业相关。
其中,交费学年 是指交费的年份； 年级 是指学生
交费后所在年级，如新生就是一年级； 类别 有本
科自学考试、本科学历文凭、本科统招生、大专
自学考试、大专学历文凭、大专统招生等；专业
是学生所学专业。
学费计算处理方法是：在系统中建立了一个
收费标准 数据字典 （也就是建立了一个 收费标准
关系表 ），该字典中存储了所有的收费标准，计
算机可根据学生交费时所选顶的内容从字典中查
找相关的收费标准，确定出学生应交费用。
系统结构 (第 15章第 1讲）
依据系统的功能要求以及使用环境、开发技术可设计出
系统的结构。
高校学费管理系统软件由 三个事务处理模块 （交费、退
费和欠费事务处理）,五个数据维护模块 （密码表、收费标
准表、收费表、交费表和退费表中数据维护）,三个查询模
块 （交费、退费和欠费信息查询）和 三个统计模块 （交费、
退费和欠费信息统计）组成。如图。
三个事务处理模块
五
个
数
据
维
护
模
块
三个查询模块
三个统计模块
数据库设计 (第 15章第 1讲）
高校学费管理系统选用 Access数据库,
其数据库名为, SF.mdb”,该数据库共有 5
个数据表，分别为,
收费标准表 BZB
收费信息表 SFB
交费记录表 JFB
退费记录表 TFB
密码表 MMB
收费标准表 BZB(第 15章第 1讲）
收费标准表 BZB用于存储收费标准信息，其主索
引有 XN（交费学年）,NJ（年级）,LB（类别）和 ZY
（专业）。
收费标准表的结构如下,
字段名 数据类型 长度 允许空 允许重复 说明
LB 字符型 20 否 是 类别
ZY 字符型 30 否 是 专业
NJ 字符型 1 否 是 年级
XN 字符型 4 否 是 交费学年
JE 货币型 否 是 金额
BZ 备注型 是 是 备注
收费信息表 SFB(第 15章第 1讲）
收费信息表 SFB表用于存储学生应交和实
交信息，其主索引是 DJH（学生登记号）。
收费信息表的结构如下,
字段名 数据类型 长度 允许空 允许重复 说明
DJH 字符型 20 否 否 登记号
XM 字符型 10 否 是 姓名
LB 字符型 20 否 是 类别
ZY 字符型 30 否 是 专业
NJ 字符型 1 否 是 年级
XN 字符型 4 否 是 交费学年
YJ 货币型 是 应交金额
SJ 货币型 是 实交金额
BZ 备注型 是 是 备注
交费记录表 JFB(第 15章第 1讲）
交费记录表 JFB用于存储学生交纳信息，其主索
引是 LSH（流水号）。交费记录表的结构如下,
字段名 数据类型 长度 允许空 允许重复 说明
LSH （自动） 否 否 流水号
RQ 日期型 否 是 办理日期
XM 字符型 10 否 是 姓名
LB 字符型 20 否 是 类别
ZY 字符型 30 否 是 专业
NJ 字符型 1 否 是 年级
XN 字符型 4 否 是 交费学年
JE 货币型 是 交纳金额
FS 字符型 10 否 是 付款方式
BLR 字符型 10 否 是 办理人
BZ 备注型 是 是 备注
退费记录表 TFB(第 15章第 1讲）
退费记录表用于存储学生退费信息，其主索引是
LSH（流水号）。退费记录表的结构如下,
字段名 数据类型 长度 允许空 允许重复 说明
LSH （自动） 否 否 流水号
RQ 日期型 否 是 办理日期
XM 字符型 10 否 是 姓名
LB 字符型 20 否 是 类别
ZY 字符型 30 否 是 专业
NJ 字符型 1 否 是 年级
XN 字符型 4 否 是 交费学年
JE 货币型 是 退费金额
BLR 字符型 10 否 是 办理人
BZ 备注型 是 是 备注
密码表 MMB(第 15章第 1讲）
密码表用于操作人员的名称和密码信息，
其主索引是 XM（姓名）。密码表的结构如下,
字段名 数据类型 长度 允许空 允许重复 说明
XM 字符型 10 否 否 姓名
MM 字符型 8 否 否 密码
系统实现 (第 15章第 1讲）
高校学费管理系统的实现采用了 Visual Basic编程技术、
Access数据库技术,ODBC技术和 RDO数据库访问技术。这里主
要介绍收费标准管理和票据打印的实现。
（ 1）收费标准管理 收费标准管理主要是对收费标准表进行
数据录入、修改和删除操作。其界面如图所示。收费标准管理
程序主要由 新加, 修改, 删除 和 显示 等过程（ Sub）组成。
List View控件
,显示记录, 过程代码 (第 15章第 1讲）
Private Sub Display_List() '在 listview中显示
On Error GoTo EEEEE
Dim i As Integer
Dim iii As Integer
ListView1.ListItems.Clear
iii = 1
SQL = "select * from BZB order by JB,LB,ZY"
Set RST = cn.OpenResultset(SQL,Type:=rdOpenDynamic,LockType:=rdConcurLock)
Do While Not RST.EOF
Set itmx = ListView1.ListItems.Add(,,iii)
For i = 0 To 5
If Not IsNull(RST(i)) Then itmx.SubItems(i + 1) = CStr(RST(i))
Next i
RST.MoveNext
iii = iii + 1
Loop
RST.Close
EEEE,
End Sub
,新加记录, 过程代码 (第 15章第 1讲）
Private Sub Save_AddXX()
On Error GoTo EEEEE
SQL = "select * from BZB "
Set RST = cn.OpenResultset(Name:=SQL,Type:= rdOpenDynamic,LockType:=rdConcurLock)
RST,AddNew
RST("XN") = Trim( TXTXN,Text)
RST("NJ") = Trim(TXTNJ,Text)
RST("LB") = Trim(TXTLB,Text)
RST("ZY") = Trim(TXTZY,Text)
RST("JE") = Trim(TXTJE,Text)
RST("BZ") = Trim(TXTBZ,Text)
RST,Update
RST,Close
MsgBox ("信息已添加 ！ ")
Exit Sub
EEEEE,
MsgBox ("错误 ！ 重新输入信息 ！ ")
End Sub
Private Sub Save_UpdateXX()
On Error GoTo EEEEE
SQL = "select * from BZB where SFXN='" & Trim (TEXTXN,Text) & "'and NJ='" & Trim (TEXTNJ,
Text) & "'and LB='" & Trim (TEXTLB,Text) & "' and ZY='" & Trim (TEXTZY,Text) & "'"
Set RST = cn.OpenResultset(Name:=SQL,Type:=rdOpenDynamic,LockType:=rdConcurLock)
RST,Edit
RST("XN") = Trim( TXTXN,Text)
RST("NJ") = Trim(TXTNJ,Text)
RST("LB") = Trim(TXTLB,Text)
RST("ZY") = Trim(TXTZY,Text)
RST("JE") = Trim(TXTJE,Text)
RST("BZ") = Trim(TXTBZ,Text)
RST.Update
RST.Close
MsgBox ("信息已更改 ！ ")
Exit Sub
EEEEE,
MsgBox ("错误 ！ 重新输入信息 ！ ")
End Sub
,修改 记录, 过程代码 (第 15章第 1讲）
,删除记录, 过程代码 (第 15章第 1讲）
Public Sub Delete_XX()
On Error GoTo EEEEE
SQL = "select * from BZB where SFXN='" & Trim (TEXTXN,Text) &
"'and NJ='" & Trim (TEXTNJ,Text) & "'and LB='" & Trim
(TEXTLB,Text) & "' and ZY='" & Trim (TEXTZY,Text) & "'"
Set RST = cn.OpenResultset(Name:=SQL,Type:=rdOpenDynamic,
LockType:=rdConcurLock)
RST,Delete
RST,Close
MsgBox ("信息已删除 ！ ")
Exit Sub
EEEEE,
MsgBox ("错误 ！ [无可删除的信息 ！ ] ")
End Sub
票据打印 (第 15章第 1讲）
（ 2）票据打印 票据打印时费用事务处理中一项重要工作，
这里采用 Visual Basic的 Printer对象操作来实现票据打印。
其中发票是压感式票据，打印 机是针式打印机，票据样式如
下,
票据打印程序有两个主要子模块,金额转换 和 打印控制 模
块。
金额转换过程代码 (第 15章第 1讲）
Private Function CChinese(StrEng As String) As String
Dim intLen As Integer,intCounter As Integer
Dim strCh As String,strTempCh As String
Dim strSeqCh1 As String,strSeqCh2 As String
Dim strEng2Ch As String
If Not IsNumeric(StrEng) Or StrEng Like "*-*" Then
If Trim(StrEng) <> "" Then MsgBox "无效的数字 "
CChinese = "",Exit Function
End If
StrEng = Format(StrEng,"#0.00")
StrEng = CDec(StrEng * 100)
strEng2Ch = "零壹贰叁肆伍陆柒捌玖 "
strSeqCh1 = "分角元拾佰仟 拾佰仟 拾佰仟 "
strSeqCh2 = " 万亿兆 "
将字符
串转换
为大写
人民币
金额的
代码
未完
金额转换过程代码 (第 15章第 1讲）
StrEng = CStr(CDec(StrEng))
intLen = Len(StrEng)
For intCounter = 1 To intLen
strTempCh = Mid(strEng2Ch,Val(Mid(StrEng,intCounter,1)) + 1,1)
strTempCh = strTempCh & Trim(Mid(strSeqCh1,intLen - intCounter + 1,1))
If (intLen - intCounter + 3) Mod 4 = 1 Then
strTempCh = strTempCh & Mid(strSeqCh2,(intLen - intCounter + 3) \ 4 + 1,1)
If intCounter > 3 Then
If Mid(StrEng,intCounter - 3,4) = "0000" Then strTempCh = Left(strTempCh,
Len(strTempCh) - 1)
End If
End If
strCh = strCh & Trim(strTempCh)
Next
CChinese = strCh
End Function
打印控制 过程代码 (第 15章第 1讲）
Public Sub PRINT_PJ()
On Error Resume Next
Dim pw,ph,lb,TB,Bb As Double ‘pw,ph,lb,TB,Bb是打印机打印位置参数
pw = 19
ph =10.15
lb = 0.4
Rb =2.25
TB = 0
Bb = 1.02
Printer,Scale Mode = 1
Printer,Width = pw * 576
Printer,Height = ph * 576
BLX = (pw - lb - Rb) * 576 / Pict,ScaleWidth
BLY = (ph - TB - Bb) * 576 / Pict,ScaleHeight
Printer,Font,Name = "宋体 "
Printer,Font,Size = 10
PrintLabel labSLH ‘受理号
PrintLabel labYear ‘年
PrintLabel labMonth ‘月
PrintLabel labDay ‘日
PrintLabel labXM ‘姓名
未完
打印控制 过程代码 (第 15章第 1讲）
PrintLabel labXB ‘系别
PrintLabel labZY ‘专业
PrintLabel labBJ ‘班级
PrintLabel labSKR ‘收款人
PrintLabel labLRR ‘录入人
PrintLabel LabXF ‘学费
PrintLabel LabHJF ‘缓交费
PrintLabel LabJMF ‘减免费
PrintLabel LabXY ‘小写金额
PrintLabel LabDX ‘大写金额
Printer,CurrentY = Printer,Height - 1
Printer,EndDoc
DoEvents
End Sub
Private Sub PrintLabel(Lbl As Label)
On Error Resume Next
Printer.CurrentX = Lbl.Left * BLX + lb * 576
Printer.CurrentY = Lbl.Top * BLY + TB * 576
Printer.Print Lbl.Caption
End Sub
