网站原创摘 要 本文是ACCESS软件的一个应用实例.利用ACCESS软件,通过简单设置,编写少量代码,实现了录取通知书的打印功能,方便快速而又不失专业,应用效果很好.
关 键 词 通知书打印 ACCESS编程 ACCESS软件应用
中图分类号：TP311 文献标识码：A
学校招生录取工作中,打印录取通知书是一件必须而繁琐且易出错的工作,用WORD的“邮件合并”或者编写专门的程序都可以实现,各有特点.这儿介绍一种较为容易而且效果很好的方法：用Office办公套件中的ACCESS来实现录取通知书的打印.
1准备原始数据
建立一个专门的文件夹,如“D：＼录取通知书”,将学生录取信息的电子表格文件（T_TDD.xls）拷贝到该文件夹下；在此文件夹下再建一文件夹“PHO”,将学生照片拷贝到此文件夹下.
2新建ACCESS文件（通知书.mdb）
| 有关论文范文主题研究: | 关于软件应用的论文范文检索 | 大学生适用: | 在职论文、专升本毕业论文 |
|---|---|---|---|
| 相关参考文献下载数量: | 14 | 写作解决问题: | 本科论文怎么写 |
| 毕业论文开题报告: | 论文提纲、论文小结 | 职称论文适用: | 核心期刊、初级职称 |
| 所属大学生专业类别: | 本科论文怎么写 | 论文题目推荐度: | 优秀选题 |
（1）链接表TDD,从学生录取信息电子表格T_TDD.xls中链接；
（2）表SPEC,包含三个字段：ID（专业代码）、SPEC（专业名称）、DEPT（系部）；
（3）窗体TZ,实现学生录取信息的查看、打印控制等；
（4）报表TZS,确定通知书打印的内容与格式.
3窗体TZ的设计
3.1添加控件
（1）列表框1个：lmd（学生名单）；
（2）图像1个：img（相片）；
（3）标签4个：XM（姓名）、KSH（报名号）、DEPT（系部）、SPEC（专业）；
（4）按钮4个：退出、预览、打印、下一个；
（5）列表框lmd（学生名单）设置为：行来源类型：表/查询,行来源：SELECT TDD.KSH, TDD.XM, TDD.LQZY FROM TDD,绑定列：1.
3.2代码编写
（1）按钮“下一个”的单击事件代码：
Dim iSele As Integer
iSele 等于 lmd.ListIndex + 1
If iSele < lmd.ListCount Then
lmd.Value 等于 lmd.ItemData（lmd.ListIndex + 1）
lmd_AfterUpdate
End If
（2）列表框lmd（学生名单）的事件“更新后（lmd_AfterUpdate）”代码：
KSH.Caption 等于 "报名号： " & lmd.Value
XM.Caption 等于 "姓 名： " & lmd.Column（1）
Set rs1等于CurrentDb.OpenRecordset（"select spec,dept from spec where id等于'"&lmd.Column（2）&"'"）
If Not rs1.EOF Then
DEPT.Caption 等于 "系 部： " & rs1!DEPT
SPEC.Caption 等于 "专 业： " & rs1!SPEC
Else
DEPT.Caption 等于 "系 部： "
SPEC.Caption 等于 "专 业： 错误,请检查专业代码" & lmd.Column（2） & "是否存在"
End If
img.Picture 等于 Application.CurrentProject.Path & "＼pho＼" & Trim（lmd.Value） & ".jpg"
（3）按钮“打印”单击事件代码：DoCmd.OpenReport "TZS", acNormal
（4）按钮“预览”单击事件代码：DoCmd.OpenReport "TZS", acPreview
4报表TZS设计
报表根据需要添加若干文字标签；在相应位置添加4个文本框,数据控件来源如下图所示；添加一个图像控件（img1）；为方便注册,添加一个条形码控件,数据控件来源为：等于[Forms]![TZ]![lmd].
报表“打开（open）”事件中,显示学生照片,代码为：
img1.Picture 等于 Application.CurrentProject.Path & "＼pho＼" & Trim（Forms!TZ!lmd） & ".jpg"
5启动项设置
设置打开程序时自动运行的对象,菜单“工具/启动等/显示窗体/页”,选择“TZ”窗体.
以上是编制录取通知书打印程序的主要过程,可根据具体情况自行修改增删,简便快速,不需要许多专业的编程知识.