用Access轻松打印带相片的证件

2016-02-19 20:37 181 1 收藏

岁数大了,QQ也不闪了,微信也不响了,电话也不来了,但是图老师依旧坚持为大家推荐最精彩的内容,下面为大家精心准备的用Access轻松打印带相片的证件,希望大家看完后能赶快学习起来。

【 tulaoshi.com - 编程语言 】

  最近笔者接到一个任务,要将学生的证书信息及相片打印到3+1技能证书模板上,并且还要传到网上供用人单位查询。原始数据分两部分,一部分是包含学生姓名、身份证号、认证项目、证书编号等信息的Excel表;另一部分是按认证项目分类、以学生姓名为名的相片,图片大小均为90×120像素,图片格式均为JPG。

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/bianchengyuyan/)

  考虑到时间上的紧迫性,还有用户操作的易用性,以后上网查询所需数据库的兼容性,因此决定选用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

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/bianchengyuyan/)

来源:http://www.tulaoshi.com/n/20160219/1624141.html

延伸阅读
智能证件照怎么用   1)打开智能证件照,进入拍照也面,对准人物点击中间进入拍照。拍好照片进入环境评分页,接着点击右上角。 2)接着进入编辑预览页面,点击下方功能进入美颜页,点击下方功能进行美颜后点击右上角。 3)或者进行更换背景。点击下方功能进行编辑相片,编辑好有点击有上角。 4)编辑...
标签: 生活常识
教你轻松搞定相片墙壁搭配 实用帖:教你轻松搞定相片墙壁搭配!
import java.sql.*; public class dbaccess{   public static void main(String args[]) throws Exception{   Class.forName("sun.jdbc.odbc.JdbcOdbcDriver");   String dbURL ="jdbc:odbc:driver={Microsoft Access Driver (*.mdb)};DBQ=Mobile.mdb";//此为NO-DSN方式   //String dbURL ="jdbc:odbc:odbcName";//此为ODB...
ACCESS库的通配符为: 要进行模糊查找,则必须使用通配符,ACCESS库的通配符和SQL SERVER的通配符不一样。 在SQL Server中的通配符为: %     与任何个数的字符匹配 -      与单个字符匹配 在C#中通过ACCESS数据库进行模糊查找,即用  Like 函数 Like '%ddd%' &nbs...
Set objACC = CreateObject("Access.Application") objACC.OpenCurrentDatabase "c:db.mdb" objACC.DoCmd.OpenReport "表报一" objACC.Quit Set objACC = Nothing

经验教程

450

收藏

88
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部