首页 数据库 mysql教程 实例编程:用Access打印带相片的证件

实例编程:用Access打印带相片的证件

Jun 07, 2016 pm 03:03 PM
access 实例 打印 编程

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

 最近笔者接到一个任务,要将学生的证书信息及相片打印到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”;两个命令按钮“预览”、“关闭”。
  2. 依次点击菜单栏“视图→代码”命令,进入VBA代码编写窗口,编写如下代码:
  Public stuname As String '定义全局变量stuname
  Sub PrintReports(PrintMode As Integer)
  ' 创建打印预览子程序
  Dim strWhereCategory As String
  If stuname Empty Then
  strWhereCategory = "姓名= '" + stuname + "'"
  End If
  DoCmd.OpenReport "证书信息", PrintMode, , strWhereCategory
  DoCmd.Close acForm, "打印预览面板"
  End Sub
  Private Sub inputname_Change()
  ' 将文本框输入的字符赋给全局变量sname,用于给打印预览限定条件
  stuname = inputname.Text
  End Sub
  Private Sub 预览_Click()
  ' 预览报表,本过程使用自定义的 PrintReports 子程序
  PrintReports acPreview
  End Sub
  Private Sub 关闭_Click()
  ' 关闭窗体
  DoCmd.Close
  End Sub
  创建主切换面板窗体
  1. 创建“主切换面板”,放置三个命令按钮“打印学生证书”、“返回数据窗口”、“退出管理系统”。
  2. 依次点击菜单栏“视图→代码”命令,进入VBA代码编写窗口,编写如下代码:
  Private Sub 打印学生证书_Click()
  Dim strFormName As String
  strFormName="打印预览面板"
  ' 打开打印预览面板
  DoCmd.OpenForm strFormName, , , , , acDialog
  End Sub
  Private Sub 关闭当前窗口_Click()
  Dim strDocName As String
  strDocName = "证书信息"
  ' 关闭“主切换面板”窗体。
  DoCmd.Close
  ' 设置焦点到数据库窗口;选择“证书信息”表。
  DoCmd.SelectObject acTable, strDocName, True
  End Sub
  Private Sub 退出管理系统_Click()
  ' 退出 Microsoft Access.
  DoCmd.Quit
  End Sub
  设置启动时显示主切换面板
  依次点击菜单栏“工具→启动”命令,打开“启动”设置窗口,在“显示窗体→页”选项下选择主切换面板,并取消“显示数据库窗口”,这样在下一次打开此Access数据库时,就会自动显示主切换面板窗体。读者也可根据自己的需要决定是否取消菜单栏和快捷菜单栏,如果取消以后又要显示它们,可以在打开Access数据库时按住Shift键。
  至此,技能证书打印系统开发完毕。本系统在Windows 2000 Server SP4、Microsoft Office Access 2003下调试通过
本站声明
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系admin@php.cn

热AI工具

Undresser.AI Undress

Undresser.AI Undress

人工智能驱动的应用程序,用于创建逼真的裸体照片

AI Clothes Remover

AI Clothes Remover

用于从照片中去除衣服的在线人工智能工具。

Undress AI Tool

Undress AI Tool

免费脱衣服图片

Clothoff.io

Clothoff.io

AI脱衣机

AI Hentai Generator

AI Hentai Generator

免费生成ai无尽的。

热门文章

R.E.P.O.能量晶体解释及其做什么(黄色晶体)
2 周前 By 尊渡假赌尊渡假赌尊渡假赌
仓库:如何复兴队友
4 周前 By 尊渡假赌尊渡假赌尊渡假赌
Hello Kitty Island冒险:如何获得巨型种子
4 周前 By 尊渡假赌尊渡假赌尊渡假赌

热工具

记事本++7.3.1

记事本++7.3.1

好用且免费的代码编辑器

SublimeText3汉化版

SublimeText3汉化版

中文版,非常好用

禅工作室 13.0.1

禅工作室 13.0.1

功能强大的PHP集成开发环境

Dreamweaver CS6

Dreamweaver CS6

视觉化网页开发工具

SublimeText3 Mac版

SublimeText3 Mac版

神级代码编辑软件(SublimeText3)

Windows11怎么禁用后台应用程序_Windows11禁用后台应用教程 Windows11怎么禁用后台应用程序_Windows11禁用后台应用教程 May 07, 2024 pm 04:20 PM

1、在Windows11中打开设置。您可以使用Win+I快捷方式或任何其他方法。2、转到应用程序部分,然后单击应用程序和功能。3、查找要阻止在后台运行的应用程序。单击三点按钮并选择高级选项。4、找到【后台应用程序权限】部分并选择所需的值。默认情况下,Windows11设置电源优化模式。它允许Windows管理应用程序在后台的工作方式。例如,一旦启用省电模式以保留电池,系统将自动关闭所有应用程序。5、选择【从不】可防止应用程序在后台运行。请注意,如果您注意到程序不向您发送通知、无法更新数据等,您可

deepseek怎么转换pdf deepseek怎么转换pdf Feb 19, 2025 pm 05:24 PM

DeepSeek 无法直接将文件转换为 PDF。根据文件类型,可以使用不同方法:常见文档(Word、Excel、PowerPoint):使用微软 Office、LibreOffice 等软件导出为 PDF。图片:使用图片查看器或图像处理软件保存为 PDF。网页:使用浏览器“打印成 PDF”功能或专用的网页转 PDF 工具。不常见格式:找到合适的转换器,将其转换为 PDF。选择合适的工具并根据实际情况制定方案至关重要。

oracle怎么读取dbf文件 oracle怎么读取dbf文件 May 10, 2024 am 01:27 AM

Oracle 可以通过以下步骤读取 dbf 文件:创建外部表,引用 dbf 文件;查询外部表,检索数据;将数据导入 Oracle 表。

编码的关键:为初学者释放 Python 的力量 编码的关键:为初学者释放 Python 的力量 Oct 11, 2024 pm 12:17 PM

Python通过其易学性和强大功能,是初学者的理想编程入门语言。其基础包括:变量:用于存储数据(数字、字符串、列表等)。数据类型:定义变量中数据的类型(整数、浮点数等)。运算符:用于数学运算和比较。控制流:控制代码执行流(条件语句、循环)。

解读 Botanix:网络资产管理去中心化的 BTC L2(附交互教程) 解读 Botanix:网络资产管理去中心化的 BTC L2(附交互教程) May 08, 2024 pm 06:40 PM

昨日,BotanixLabs宣布累计完成1150万美元融资,PolychainCapital、PlaceholderCapital等参投。融资将用于构建去中心化的EVM等效BTCL2Botanix。Spiderchain结合了EVM的易用性与比特币的安全性。自2023年11月测试网上线以来,已有超过20万个活跃地址。Odaily将于本文解析Botanix的特色机制与测试网交互流程。Botanix按照官方定义,Botanix是一个基于比特币构建的去中心化的图灵完备L2EVM,由两个核心组件以太坊虚

access violation错误怎么解决 access violation错误怎么解决 May 07, 2024 pm 05:18 PM

Access Violation 错误是一种运行时错误,当程序访问超出其内存分配范围的内存位置时发生,导致程序崩溃或异常终止。解决方法包括:检查数组边界;正确使用指针;使用适当的内存分配函数;释放已释放的内存;检查内存溢出;更新驱动程序和系统;检查第三方库;使用调试器跟踪执行;联系软件供应商以获取支持。

Win11怎么开启远程桌面控制_Win11开启远程桌面控制的方法 Win11怎么开启远程桌面控制_Win11开启远程桌面控制的方法 May 08, 2024 pm 12:19 PM

1、在开始菜单中搜索找到控制面板页面。2、随后在控制面板中将视图更改为Category类别,并点击SystemandSecurity系统和安全选项。3、找到并点击System系统下的Allowremoteaccess允许远程访问按钮。4、在弹出的窗口中点击Remote系统属性栏目,勾选允许远程连接该计算机按钮并点击确定保存。

Java 变得简单:编程能力的初学者指南 Java 变得简单:编程能力的初学者指南 Oct 11, 2024 pm 06:30 PM

JavaMadeSimple:ABeginner'sGuidetoProgrammingPower简介Java是一种强大的编程语言,广泛应用于从移动应用程序到企业级系统的各种领域。对于初学者来说,Java的语法简洁易懂,是学习编程的理想选择。基本语法Java使用基于类的面向对象编程范式。类是将相关数据和行为组织在一起的模板。以下是一个简单的Java类示例:publicclassPerson{privateStringname;privateintage;

See all articles