WEB开发网
开发学院数据库Access 用Access打印带相片证件 阅读

用Access打印带相片证件

 2005-10-31 12:40:15 来源:WEB开发网   
核心提示:最近笔者接到一个任务,要将学生的证书信息及相片打印到3+1技能证书模板上,用Access打印带相片证件,并且还要传到网上供用人单位查询,原始数据分两部分,If Dir(imgpath) = "" Then imgpath = Application.CurrentProject.Path + &qu

最近笔者接到一个任务,要将学生的证书信息及相片打印到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. 创建“打印预览面板”,依次放置一个用于查询的文本框,并命名为“inputname”;两个命令按钮“预览”、“关闭”。

1 2  下一页

Tags:Access 打印 相片

编辑录入:coldstar [复制链接] [打 印]
赞助商链接