用access轻松打印带相片的证件--

用access轻松打印带相片的证件--

ID:20984186

大小:54.00 KB

页数:3页

时间:2018-10-18

用access轻松打印带相片的证件--_第1页
用access轻松打印带相片的证件--_第2页
用access轻松打印带相片的证件--_第3页
资源描述:

《用access轻松打印带相片的证件--》由会员上传分享,免费在线阅读,更多相关内容在学术论文-天天文库

1、用Access轻松打印带相片的证件>>  最近笔者接到一个任务,要将学生的证书信息及相片打印到3+1技能证书模板上,并且还要传到网上供用人单位查询。原始数据分两部分,一部分是包含学生姓名、身份证号、认证项目、证书编号等信息的Excel表;另一部分是按认证项目分类、以学生姓名为名的相片,图片大小均为90120像素,图片格式均为JPG。  考虑到时间上的紧迫性,还有用户操作的易用性,以后上网查询所需数据库的兼容性,因此决定选用Access来开发。Access具有强大的窗体创建、报表打印、VBA编程功能,足以胜任大部分小型数据库应用系统的开发。  创建数据库和表  1.打开Mi

2、crosoftOfficeAccess,创建一个空数据库,与相片的分类目录放在同一个文件夹下。  2.使用文件→获取外部数据→导入功能将Excel表直接导入Access中,保存为证书信息表。  创建证书信息报表  1.创建证书信息报表,先插入一个图像控件,设置其图片属性为证书模板图片,设置其大小为证书模板的大小,设置其可见性为否,这样有利于证书信息的排版,且不会打印出来;再依次插入要打印的字段列表,设置好字体和字号;最后再插入一个图像控件,放置于打印相片的地方,设置其大小为相片的大小,设置其名称为stuimg。  2.依次点击菜单栏视图→代码

3、命令,进入VBA代码编写窗口,编写如下代码:    PrivateSub主体_Format(CancelAsInteger,FormatCountAsInteger)  DimimgpathAsString  '依据应用程序路径、认证项目名称、姓名得到相片路径  imgpath=Application.CurrentProject.Path++认证项目.text++姓名.Text+.jpg  '判断照片是否存在,如果不存在则显示一张空白的图片。  IfDir(imgpath)=Thenimgpath=Application.CurrentProject

4、.Path+oimg.bmp  Stuimg.Picture=imgpath  EndSub  创建打印预览面板窗体  1.创建打印预览面板,依次放置一个用于查询的文本框,并命名为inputname;两个命令按钮预览、关闭。  2.依次点击菜单栏视图→代码命令,进入VBA代码编写窗口,编写如下代码:    PublicstunameAsString'定义全局变量stuname  SubPrintReports(PrintModeAsInteger)  '创建打印预览子程序  Dimstrode,,strd.CloseacForm,打印预览面板

5、  EndSub  PrivateSubinputname_Change()  '将文本框输入的字符赋给全局变量sname,用于给打印预览限定条件  stuname=inputname.Text  EndSub  PrivateSub预览_Click()'预览报表,本过程使用自定义的PrintReports子程序  PrintReportsacPrevied.Close  EndSub  创建主切换面板窗体  1.创建主切换面板,放置三个命令按钮打印学生证书、返回数据窗口、退出管理系统。  2.依次点击菜单栏视图→代码命令,进入VBA代码编写窗口

6、,编写如下代码:    PrivateSub打印学生证书_Click()  DimstrFormNameAsString  strFormName=打印预览面板  '打开打印预览面板  DoCmd.OpenForm12下一页>>>>这篇文章来自..,。strFormName,,,,,acDialog  EndSub  PrivateSub关闭当前窗口_Click()  DimstrDocNameAsString  strDocName=证书信息  '关闭主切换面板窗体。  DoCmd.Close  '设置焦点到数据库窗口;选择证书信息表。  DoC

7、md.SelectObjectacTable,strDocName,True  EndSub  PrivateSub退出管理系统_Click()  '退出MicrosoftAccess.  DoCmd.Quit  EndSub  设置启动时显示主切换面板  依次点击菜单栏工具→启动命令,打开启动设置窗口,在显示窗体→页选项下选择主切换面板,并取消显示数据库窗口,这样在下一次打开此Access数据库时,就会自动显示主切换面板窗体。读者也可根据自己的需要决定是否取消菜单栏和快捷菜单栏,如果取消以后又要显

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。