Access-培训管理系统-02-来个界面

最新推荐文章于 2018-12-17 10:06:46 发布
原创 最新推荐文章于 2018-12-17 10:06:46 发布 · 753 阅读 · 4 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。

本篇教程介绍如何使用Access创建培训管理系统的用户界面，包括输入窗体设计、窗体创建和控件添加。内容涵盖组合框、文本框、选项组和命令按钮等控件的使用，旨在实现培训信息的录入功能。

摘要生成于 C知道 ，由 DeepSeek-R1 满血版支持， 前往体验 >

微信公众号原文

系统：Windows 7
软件：Excel 2010 / Access 2010

  • 这个系列开展一个新的篇章，主体使用Access，包括数据库部分及界面部分，当然输出部分也会涉及到Excel，Excel的可读性还是比较好的
  • 本公众号的不同阶段：Excel -> Excel + Access -> Access。但并不表示Access就一定比Excel好啊，各有所长吧，合适才是最好的
  • 主体框架：换一种讲解方式，以项目为基础，从开始到结束
  • 项目名称：培训管理系统
  • 主要功能：两个界面。界面1，培训时录入信息；界面2，以培训老师和培训学员为客户，输出信息
  • 涉及知识：Access界面，数据库知识，VBA，SQL，Excel

Part 1：输入窗体

  1. 目标：课程信息录入；学员信息录入
  2. 根据需求设计的下图的界面，涉及到的控件有：
    • 标签（培
最低0.47元/天 解锁文章

200万优质内容无限畅学
Access-培训管理系统-01-概括
Data_Python_VBA
01-28 602
微信公众号原文 系统：Windows 7 软件：Excel 2010 / Access 2010 这个系列开展一个新的篇章，主体使用Access，包括数据库部分及界面部分，当然输出部分也会涉及到Excel，Excel的可读性还是比较好的 本公众号的不同阶段：Excel -> Excel + Access -> Access。但并不表示Access就一定比Excel好啊，各有所
Access-培训管理系统-12-输出界面
Data_Python_VBA
07-22 642
微信公众号原文 系统：Windows 7 软件：Excel 2010 / Access 2010 这个系列开展一个新的篇章，主体使用Access，包括数据库部分及界面部分，当然输出部分也会涉及到Excel，Excel的可读性还是比较好的 本公众号的不同阶段：Excel -> Excel + Access -> Access。但并不表示Access就一定比Excel...
在线培训管理登录界面模板
01-22
在线培训管理登录界面模板
access登录界面
06-08
Private Sub cmdClose_Click() On Error GoTo Err_cmdClose_Click If MsgBox("是否确定退出系统？", vbQuestion + vbYesNo, "系统提示") = vbYes Then DoCmd.Quit Else Exit Sub End If Exit_cmdClose_Click: Exit Sub Err_cmdClose_Click: MsgBox Err.Description Resume Exit_cmdClose_Click End Sub Private Sub cmdOK_Click() On Error GoTo Err_cmdOK_Click '第一步 判断用户情况 Call cobUser_LostFocus If blnAsUser = True Then Me.cobUser.SetFocus Exit Sub Else Me.txtPwd.SetFocus End If '第二步 判断密码情况 Call txtPwd_LostFocus If blnAsPwd = True Then Me.txtPwd.SetFocus Exit Sub Else Me.lblPwd.ForeColor = RGB(0, 100, 0) Me.lblPwd.Caption = "√" 'MsgBox "测试通过 用户ID =" & userID MsgBox "测试通过！" Me.Visible = False End If Exit_cmdOK_Click: Exit Sub Err_cmdOK_Click: MsgBox Err.Description Resume Exit_cmdOK_Click End Sub Private Sub cobUser_LostFocus() On Error GoTo Err_cobUser_LostFocus blnAsUser = False Dim blnUser As Boolean blnUser = False If IsNull(Me.cobUser) Then Me.lblUser.ForeColor = RGB(255, 0, 0) Me.lblUser.Caption = "× 用户名不能为空" blnAsUser = True '当此处不退出，则会运行到 用户不存在的错误提示 Exit Sub End If Set rsAs = New ADODB.Recordset strAsSQL = "SELECT tb_user.用户ID,tb_user.用户名 FROM tb_user" rsAs.Open strAsSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic rsAs.MoveFirst For iAs = 1 To rsAs.RecordCount If rsAs!用户名 = Me!cobUser Then blnUser = True iAs = rsAs.RecordCount + 1 '赋值给全局变量，适用于模块 Macro_modUsersLog Else rsAs.MoveNext End If Next iAs rsAs.Close Set rsAs = Nothing If blnUser = False Then Me.lblUser.ForeColor = RGB(255, 0, 0) Me.lblUser.Caption = "× 用户不存在" blnAsUser = True Exit Sub Else Me.lblUser.ForeColor = RGB(0, 100, 0) Me.lblUser.Caption = "√" End If Exit_cobUser_LostFocus: Exit Sub Err_cobUser_LostFocus: MsgBox Err.Description Resume Exit_cobUser_LostFocus End Sub Private Sub txtPwd_LostFocus() On Error GoTo Err_txtPwd_LostFocus blnAsPwd = False If IsNull(Me.cobUser) Then Me.lblPwd.Caption = "" Me.cobUser.SetFocus Exit Sub End If If IsNull(Me.txtPwd) Then Me.lblPwd.ForeColor = RGB(255, 0, 0) Me.lblPwd.Caption = "× 密码不能为空" blnAsPwd = True End If If DLookup("密码", "tb_user", "[用户名]=" & "'" & Me!cobUser & "'") <> Me!txtPwd Then Me.lblPwd.ForeColor = RGB(255, 0, 0) Me.lblPwd.Caption = "× 密码错误" blnAsPwd = True End If Exit_txtPwd_LostFocus: Exit Sub Err_txtPwd_LostFocus: MsgBox Err.Description Resume Exit_txtPwd_LostFocus End Sub
access开发通用界面
07-11
office中国站长王宇宏力作，绝对一流
Access-培训管理系统-13-输出个人培训档案
Data_Python_VBA
09-29 1210
微信公众号原文 系统：Windows 7 软件：Excel 2010 / Access 2010 这个系列开展一个新的篇章，主体使用Access，包括数据库部分及界面部分，当然输出部分也会涉及到Excel，Excel的可读性还是比较好的 本公众号的不同阶段：Excel -&gt; Excel + Access -&gt; Access。但并不表示Access就一定比Excel好啊，各有所长吧，...
基于ASP+ACCESS计算机毕设专业课设参考-人事管理系统设计(源代码+论文).zip
最新发布
09-25
本文旨在介绍一个典型的计算机专业毕设项目——基于ASP+ACCESS技术的人事管理系统设计。这个项目不仅能够帮助学生巩固和深化在本科阶段所学习的编程语言、数据库管理和网络开发等知识，同时也能够锻炼学生解决实际...
HCIA-Access 培训教材及实验手册V2.5.zip
05-10
《HCIA-Access培训教材及实验手册V2.5》是一个综合性的学习资源，主要针对华为认证的初级网络工程师——HCIA（Huawei Certified ICT Associate）中的Access技术领域。HCIA是华为认证体系中的入门级别，旨在为学员...
员工培训系统 vb+access 可以用的，连接一下数据库就好
05-16
是员工培训管理系统，用vb和数据库access连接的，是可以用的，但是要连接一下数据库的，才行
酒店培训管理系统操作指南(管理端)
hgood的博客
08-14 1308
第一部分：培训系统 这个部分下设八个功能区，是有“管理员”权限的操作人员操作的部分。下面分别讲述八个功能区的操作与注意事项： 一、“基本资料分类”操作   该功能类似于建立图书馆的查询目录，将需要编辑的基本资料进行归类和划分，其操作步骤如下： 点击“基本资料分类”按钮，进入操作界面，此时界面分出两个界面框，其中左面框为目录框，右面框为编辑框； 右面框的右上角分别设置了“基本信息类别”和“...
用Access做的简单的学生成绩管理系统
12-19
大学时做的一个课程设计，提供给各位参考一下。
用ACCESS做的图书管理系统
06-25
非常用的参考资料，做数据库课程设计时找到的，现在上传给给大家分享，顺便赚点积分，呵呵
员工培训系统源代码(包含数据库mdb文件)
01-25
VC++与Microsoft Access数据库实现。
纯access建立的管理信息系统源码！！！！！！
12-09
有朋友看了我发的vb+access的管理系统源码后想要一个纯access建立的管理系统源码，这个就是。包括报表等高级功能，当让分类筛选更不在话下了。有界面！！！！！！纯access,源码贡献给大家。 作者qq:928610025,www.dbado.com欢迎交流
图书库存管理系统asp.net+access
06-01
图书库存管理系统asp.net+access
【181217】VC++ 员工培训管理程序Access源代码
资源小站
12-17 469
源码下载简介 VC++员工培训管理系统，Access数据库，完成员工资料输入、员工课程管理、系统管理等，vc++操作Access的基本知识，程序编写一般化，只当学习资料吧。 源码下载地址：点击下载 备用下载地址：点击下载 ...
Access-培训管理系统-10-按钮代码设置之 录入（2）
Data_Python_VBA
05-04 740
微信公众号原文 系统：Windows 7 软件：Excel 2010 / Access 2010 这个系列开展一个新的篇章，主体使用Access，包括数据库部分及界面部分，当然输出部分也会涉及到Excel，Excel的可读性还是比较好的 本公众号的不同阶段：Excel -&gt; Excel + Access -&gt; Access。但并不表示Access就一定比Excel...
Access-培训管理系统-16-首页
Data_Python_VBA
10-26 467
微信公众号原文 系统：Windows 7 软件：Excel 2010 / Access 2010 这个系列开展一个新的篇章，主体使用Access，包括数据库部分及界面部分，当然输出部分也会涉及到Excel，Excel的可读性还是比较好的 本公众号的不同阶段：Excel -&gt; Excel + Access -&gt; Access。但并不表示Access就一定比Excel好啊，各有所长吧，...
Access-培训管理系统-07-按钮代码设置之 增加学员
Data_Python_VBA
04-09 438
微信公众号原文 系统：Windows 7 软件：Excel 2010 / Access 2010 这个系列开展一个新的篇章，主体使用Access，包括数据库部分及界面部分，当然输出部分也会涉及到Excel，Excel的可读性还是比较好的 本公众号的不同阶段：Excel -&gt; Excel + Access -&gt; Access。但并不表示Access就一定比Excel...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值