如何快速使用Access实现一个登录验证界面？

最新推荐文章于 2020-12-03 06:13:26 发布
最新推荐文章于 2020-12-03 06:13:26 发布
阅读量2.6k 收藏 11
点赞数 4
文章标签： 数据库 c/c++
原文链接：http://www.cnblogs.com/wenzhixin/p/10425840.html
版权
本文介绍了如何使用Access快速创建一个登录验证界面。作者通过学习Access和VBA，从零开始，在两天左右的时间里完成了从数据库设计到界面编程的全过程。强调了系统教材、理论实践结合、任务驱动学习和事后总结在技术学习中的重要性。
摘要由CSDN通过智能技术生成

　　大三上学期期末总结，嗯，没错，上学期，写在新学期开始，hhhh。

　　上学期末的时候信管班的一个同学问我会不会Access，能不能用它实现一个登录验证界面，说实话，之前对Access只是有所耳闻，随便敷衍了几句。

       过了几天看到协会有一本Access数据库程序设计的计算机二级考试的书，随便翻了一下，恰好看到有讲解实现一个登录窗体，不过不是访问数据库验证登录的，然后我就天真的以为不就是往上加一个数据库访问嘛，就突然有了一种挑战一下自己的冲动（其实是因为这个同学是个妹子）。

　　首先下载Access，下载的过程中翻了一下这本书，了解了数据库的基本知识，认识Access。

　　然后打开Access，学着先创建一个数据库，根据同学发来的要求，创建表，然后直接翻到了窗体这一章，开始创建窗体，添加相应的控件ÿ

最低0.47元/天 解锁文章
aisebu7819
关注
access登录界面，access登录界面
06-24
access登录界面，用户账号、密码和权限，直接导入即可
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登录窗口校验代码一
weixin_30628801的博客
05-01 1058
Private Sub login_Click()If IsNull(Me.username) ThenMsgBox "请输入用户名！", vbExclamationElseIf IsNull(Me.password) ThenMsgBox "请输入密码！", vbExclamationElseIf key1 = DLookup("password", "user", "用户名 = '"...
超简单access登录界面代码示例下载
06-24
超简单access登录界面代码示例下载，登陆界面窗体代码，这个代码我找了很久，终于找到一个最简单的，做出实体来了，供大家分享，不用再那么痛苦去找了
labview 实现的登录系统 设定修改密码 身份类型验证 连接Access
11-19
在本文中，我们将深入探讨如何使用LabVIEW来实现一个登录系统，包括设定和修改密码、身份验证以及连接到Access数据库进行数据存储和管理。 首先，创建登录界面是构建登录系统的首要步骤。在LabVIEW中，可以通过拖拽...
access主界面关闭_access_VBa_access主界面关闭_
10-02
标题“access主界面关闭_access_VBa_access主界面关闭_”暗示我们将讨论如何利用VBA在Access中实现登录功能后关闭主界面，只展示特定的窗体。 Access的主界面通常包含导航窗格、菜单栏和快捷工具栏等元素，但在某些...
VB.NET与ACCESS登录验证.zip
01-04
本案例“VB.NET与ACCESS登录验证”探讨了如何实现一个简单的用户登录系统，利用Visual Basic .NET（VB.NET）语言和Microsoft Access数据库进行身份验证。 一、VB.NET简介 VB.NET是.NET Framework的一部分，它提供了...
access登录窗体宏设计
06-19
网上有多个类似的findrecord宏设计有问题，想了好久，这才想到用findnext，似乎没问题，与大家分享一下
从access表中读取用户名和密码的登陆界面
08-01
简单的登录界面，实现了从数据库中提取用户名和密码验证身份后登陆。可以直接运行的源码。菜鸟可看，高手飘过。
access窗体登录案例
07-16
access窗体案例，登录窗体的完善，权限控制
一个简单易用的登录窗体
03-12
我的一段登陆按钮代码，用户表里有三个用户名，在登陆时只有第一个用户名有效，其他几个都是用户名或密码错误，不知什么原因，请高手指点，代码如下，谢谢！ Option Compare Database Dim conn As ADODB.Connection Dim rs As ADODB.Recordset Private Sub cmd_登陆_Click() Set conn = CurrentProject.Connection Set rs = New ADODB.Recordset rs.Open "用户表 ", conn Dim username As String Dim userpass As String txt_用户名.SetFocus username = txt_用户名.Text If IsNull(username) Or IsNull(txt_密码.Value) Then MsgBox "用户名或密码不能为空,请重新输入!", vbOKOnly + vbInformation, "错误信息" Else If username rs!用户名 Then MsgBox "用户名或密码不正确,请重新输入", vbOKOnly + vbInformation, "错误信息" txt_用户名.SetFocus txt_用户名.Text = "" txt_密码.SetFocus txt_密码.Value = "" txt_用户名.SetFocus Else rs.Close rs.Open "用户登录记录表", conn, adOpenDynamic, adLockOptimistic rs.AddNew rs!用户名 = username rs!登录时间 = Now() rs!退出时间 = CDate(0) rs.Update rs.Close DoCmd.Close DoCmd.OpenForm "库存信息窗体" End If End If End Sub Private Sub Form_Load() txt_用户名.SetFocus txt_用户名.Text = "" txt_密码.SetFocus txt_密码.Text = "" txt_用户名.SetFocus End Sub
非常简单的登录验证源码（Access数据库）
04-02
非常简单的登录验证源码（Access数据库）
Asp+access用户注册登录代码
12-03
全是代码用户登录 注册先关程序代码 注册页面 //去空格 String.prototype.Trim = function() { var m = this.match(/^\s*(\S+(\s+\S+)*)\s*$/); return (m == null) ? "" : m[1]; } //验证手机号 String.prototype.isMobile = function() { return (/^(?:13\d|15[189])-?\d{5}(\d{3}|\*{3})$/.test(this.Trim()));
[图解]ACCESS数据库也能这么做--“登陆界面”四步成
ccfxue的博客
06-20 9249
http://www.docin.com/p-309827748.html
子窗体 记录选择_如何设计一个简单的Access登录窗体（1）
weixin_39661780的博客
12-03 2051
Access是一个对数据库新手相当友好的软件。 Access的窗体功能确实是一种独一无二的前端设计平台，很多常见的人机交互用法，可以用Access的窗体来轻松实现，同时Access的查询和计算功能，也需要窗体的配合才能获得最佳的表达效果。 一、从零开始设计一个窗体 根据我个人的习惯，我做的每一个Access数据库软件都需要一个登录界面。 这个登录界面的好处是每次打开数据库，都能够有一个比较清晰...
Access 窗体实现用户名及密码验证登录
热门推荐
甫式人生
10-29 1万+
登录界面如下 组合框名称为：借书证号 文本密码框名称为：密码 表：借书证 进入VBA编程的方式 设计视图中右键登录按钮——属性——事件 在VBA编程器中写代码 Private Sub 登录_Click() If IsNull(Me![借书证号]) Then MsgBox "请选择用登录用户!", 64, "系统提示" Me![借书证号].SetFocus Else If IsNu...
输入窗体
zylg
08-09 264
微调框 它可以调节值,具有范围,可以设置每次的波动大小,可以添加前缀和后缀 QSpinBox and QDoubleSpinBox #设置 函数 描述 void setDisplayIntegerBase(int base) 显示的进制 void setMaximum(int max) 最大值 void setMin...
VB.NET登录界面源码实现与Access数据库结合
"这篇资源提供的是一个使用VB.NET编写的登录界面程序代码，结合了Access数据库进行用户验证。源码包含了一个窗体，其中有两个文本框用于输入用户名和密码，以及两个按钮，可能是用于登录和取消操作。数据库部分设计...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值