陳偉

摘 要 本文是ACCESS軟件的一個(gè)應(yīng)用實(shí)例。利用ACCESS軟件，通過(guò)簡(jiǎn)單設(shè)置，編寫少量代碼，實(shí)現(xiàn)了錄取通知書的打印功能，方便快速而又不失專業(yè)，應(yīng)用效果很好。

關(guān)鍵詞 通知書打印 ACCESS編程 ACCESS軟件應(yīng)用

中圖分類號(hào)：TP311 文獻(xiàn)標(biāo)識(shí)碼：A

學(xué)校招生錄取工作中，打印錄取通知書是一件必須而繁瑣且易出錯(cuò)的工作，用WORD的“郵件合并”或者編寫專門的程序都可以實(shí)現(xiàn)，各有特點(diǎn)。這兒介紹一種較為容易而且效果很好的方法：用Office辦公套件中的ACCESS來(lái)實(shí)現(xiàn)錄取通知書的打印。

1準(zhǔn)備原始數(shù)據(jù)

建立一個(gè)專門的文件夾，如“D：＼錄取通知書”，將學(xué)生錄取信息的電子表格文件（T_TDD.xls）拷貝到該文件夾下；在此文件夾下再建一文件夾“PHO”，將學(xué)生照片拷貝到此文件夾下。

2新建ACCESS文件（通知書.mdb）

（1）鏈接表TDD，從學(xué)生錄取信息電子表格T_TDD.xls中鏈接；

（2）表SPEC，包含三個(gè)字段：ID（專業(yè)代碼）、SPEC（專業(yè)名稱）、DEPT（系部）；

（3）窗體TZ，實(shí)現(xiàn)學(xué)生錄取信息的查看、打印控制等；

（4）報(bào)表TZS，確定通知書打印的內(nèi)容與格式。

3窗體TZ的設(shè)計(jì)

3.1添加控件

（1）列表框1個(gè)：lmd（學(xué)生名單）；

（2）圖像1個(gè)：img（相片）；

（3）標(biāo)簽4個(gè)：XM（姓名）、KSH（報(bào)名號(hào)）、DEPT（系部）、SPEC（專業(yè)）；

（4）按鈕4個(gè)：退出、預(yù)覽、打印、下一個(gè)；

（5）列表框lmd（學(xué)生名單）設(shè)置為：行來(lái)源類型：表/查詢，行來(lái)源：SELECT TDD.KSH， TDD.XM， TDD.LQZY FROM TDD，綁定列：1。

3.2代碼編寫

（1）按鈕“下一個(gè)”的單擊事件代碼：

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（學(xué)生名單）的事件“更新后（lmd_AfterUpdate）”代碼：

KSH.Caption = "報(bào)名號(hào)： " & 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 = "專 業(yè)： " & rs1！SPEC

Else

DEPT.Caption = "系 部： "

SPEC.Caption = "專 業(yè)： 錯(cuò)誤，請(qǐng)檢查專業(yè)代碼" & lmd.Column（2） & "是否存在"

End If

img.Picture = Application.CurrentProject.Path & "＼pho＼" & Trim（lmd.Value） & ".jpg"

（3）按鈕“打印”單擊事件代碼：DoCmd.OpenReport "TZS"， acNormal

（4）按鈕“預(yù)覽”單擊事件代碼：DoCmd.OpenReport "TZS"， acPreview

4報(bào)表TZS設(shè)計(jì)

報(bào)表根據(jù)需要添加若干文字標(biāo)簽；在相應(yīng)位置添加4個(gè)文本框，數(shù)據(jù)控件來(lái)源如下圖所示；添加一個(gè)圖像控件（img1）；為方便注冊(cè)，添加一個(gè)條形碼控件，數(shù)據(jù)控件來(lái)源為：=[Forms]！[TZ]！[lmd]。

報(bào)表“打開（open）”事件中，顯示學(xué)生照片，代碼為：

img1.Picture = Application.CurrentProject.Path & "＼pho＼" & Trim（Forms！TZ！lmd） & ".jpg"

5啟動(dòng)項(xiàng)設(shè)置

設(shè)置打開程序時(shí)自動(dòng)運(yùn)行的對(duì)象，菜單“工具/啟動(dòng)…/顯示窗體/頁(yè)”，選擇“TZ”窗體。

以上是編制錄取通知書打印程序的主要過(guò)程，可根據(jù)具體情況自行修改增刪，簡(jiǎn)便快速，不需要許多專業(yè)的編程知識(shí)。