程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 數據庫知識 >> Access數據庫 >> 關於Access數據庫 >> 用Access打印帶相片證件

用Access打印帶相片證件

編輯:關於Access數據庫

最近筆者接到一個任務,要將學生的證書信息及相片打印到3+1技能證書模板上,並且還要傳到網上供用人單位查詢。原始數據分兩部分,一部分是包含學生姓名、身份證號、認證項目、證書編號等信息的Excel表;另一部分是按認證項目分類、以學生姓名為名的相片,圖片大小均為90×120像素,圖片格式均為JPG。

考慮到時間上的緊迫性,還有用戶操作的易用性,以後上網查詢所需數據庫的兼容性,因此決定選用Access來開發。Access具有強大的窗體創建、報表打印、VBA編程功能,足以勝任大部分小型數據庫應用系統的開發。

  創建數據庫和表

  1. 打開Microsoft Office Access,創建一個空數據庫,與相片的分類目錄放在同一個文件夾下。

  2. 使用“文件→獲取外部數據→導入”功能將Excel表直接導入Access中,保存為“證書信息”表。

  創建證書信息報表

  1. 創建“證書信息”報表,先插入一個“圖像”控件,設置其圖片屬性為證書模板圖片,設置其大小為證書模板的大小,設置其可見性為否,這樣有利於證書信息的排版,且不會打印出來;再依次插入要打印的字段列表,設置好字體和字號;最後再插入一個“圖像”控件,放置於打印相片的地方,設置其大小為相片的大小,設置其名稱為“stuimg”。

  2. 依次點擊菜單欄“視圖→代碼”命令,進入VBA代碼編寫窗口,編寫如下代碼:

Private Sub 主體_Format(Cancel As Integer, FormatCount As Integer)

  Dim imgpath As String

  ' 依據應用程序路徑、認證項目名稱、姓名得到相片路徑

  imgpath = Application.CurrentProject.Path +"\" +認證項目.text +"\"+ 姓名.Text+".jpg"

  ' 判斷照片是否存在,如果不存在則顯示一張空白的圖片。

  If Dir(imgpath) = "" Then imgpath = Application.CurrentProject.Path + "\noimg.bmp"

  Stuimg.Picture = imgpath

End Sub


  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved