当前位置:w88优德官网网文章中心网站开发Access → 用Access轻松打印带相片的证件

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

减小字体 增大字体 作者:admin  来源:www.hack50.com  发布时间:2011-6-15 8:16:27
最近笔者接到一个任务,要将学生的证书信息及相片打印到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 = imgpathEnd Sub创建打印预览面板窗体1. 创建“打印预览面板”,依次放置一个用于查询的文本框,并命名为“inputname”;两个命令按钮“预览”、“关闭”。2. 依次点击菜单栏“视图→代码”命令,进入VBA代码编写窗口,编写如下代码Public stuname As String '定义全局变量stunameSub PrintReports(PrintMode As Integer)' 创建打印预览子程序Dim strWhereCategory As StringIf stuname <> Empty ThenstrWhereCategory = "姓名= '" + stuname + "'"End IfDoCmd.OpenReport "证书信息", PrintMode, , strWhereCategoryDoCmd.Close acForm, "打印预览面板"End SubPrivate Sub inputname_Change()' 将文本框输入的字符赋给全局变量sname,用于给打印预览限定条件stuname = inputname.TextEnd SubPrivate Sub 预览_Click()' 预览报表,本过程使用自定义的 PrintReports 子程序PrintReports acPreviewEnd SubPrivate Sub 关闭_Click()' 关闭窗体DoCmd.CloseEnd Sub创建主切换面板窗体1. 创建“主切换面板”,放置三个命令按钮“打印学生证书”、“返回数据窗口”、“退出管理系统”。2. 依次点击菜单栏“视图→代码”命令,进入VBA代码编写窗口,编写如下代码Private Sub 打印学生证书_Click()Dim strFormName As StringstrFormName="打印预览面板"' 打开打印预览面板DoCmd.OpenForm strFormName, , , , , acDialogEnd SubPrivate Sub 关闭当前窗口_Click()Dim strDocName As StringstrDocName = "证书信息"' 关闭“主切换面板”窗体。DoCmd.Close' 设置焦点到数据库窗口;选择“证书信息”表。DoCmd.SelectObject acTable, strDocName, TrueEnd SubPrivate Sub 退出管理系统_Click()' 退出 Microsoft Access.DoCmd.QuitEnd Sub设置启动时显示主切换面板依次点击菜单栏“工具→启动”命令,打开“启动”设置窗口,在“显示窗体→页”选项下选择主切换面板,并取消“显示数据库窗口”,这样在下一次打开此Access数据库时,就会自动显示主切换面板窗体。读者也可根据自己的需要决定是否取消菜单栏和快捷菜单栏,如果取消以后又要显示它们,可以在打开Access数据库时按住Shift键。至此,技能证书打印系统开发完毕。

本文引用网址:
在下列搜索引擎中搜索“用Access轻松打印带相片的证件”的相关信息:
谷歌搜索 百度搜索 雅虎搜索 搜狗搜索 搜搜搜索 必应搜索 有道搜索
你可能还喜欢以下文章
  • 1雨后小故事 qq表情姐弟雨后小故...
  • 2洪立仪不雅视频下载 洪立仪不雅...
  • 3揭秘“招聘兼职打字员”骗局
  • 4香港中学生惊艳楼道门 90后楼道...
  • 5中关村“艳照门” 前妻群发老公...
  • 1如何分辨网站是否被百度、goog...
  • 2网站百度快照出现回档情况解析...
  • 3织梦CMS读取频道信息失败 无法...
  • 4dedecms wap - 国内免费(开源...
  • 5网站外链锐减应该如何解决?
  • 1我是一个极其讨厌AV和看AV的人...
  • 2一群色狼对着一个女的狂射 有图...
  • 3一个20岁小伙给未来儿子的信
  • 4把手伸进内衣里……
  • 5我在网吧里把一个mm搞疯了
  • 1Linux下如何同时启动多个Tomca...
  • 2让虚拟主机免受FSO威胁
  • 3如何设定一个安全的log服务器
  • 4Linux计划任务Crontab命令用法...
  • 5shell经典实例分享
  • 赞助商广告

    图片文章导读