冗余与简化——从登录窗体谈起

roych

先贴一段常见的代码：

1. Dim rs As New ADODB.Recordset
   
2. Dim strSQL As String
   
3. Dim i As Integer
   
4. 
   
5. Private Sub cmd确定_Click()
   
6. On Error GoTo err_确定_Click
   
7. '先判断是否输入用户名
   
8. If IsNull(Me.txt用户名) Then
   
9.     MsgBox "请输入登录名", vbCritical, "提示"
   
10.     Me.txt用户名.SetFocus
    
11.     Exit Sub
    
12. '接着判断是否输入密码
    
13.     ElseIf IsNull(Me.txt密码) Then
    
14.         MsgBox "请输入密码！", vbCritical, "提示"
    
15.         Me.txt密码.SetFocus
    
16.         Exit Sub
    
17. '输入用户名才开始判断密码是否正确。
    
18.     Else
    
19.         strSQL = "select * from 管理员 where 登录名='" & Me.txt用户名 & "'"
    
20.         rs.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    
21. '如果没记录则弹出错误
    
22.         If rs.EOF Or rs.BOF Then
    
23.             MsgBox "没有该用户！", vbCritical, "提示"
    
24. '如果有记录则判断密码是否正确
    
25.         Else
    
26. '密码正确时打开窗体
    
27.             If rs(1) = Me.txt密码 Then
    
28.                 Me.txt用户名 = Null
    
29.                 Me.txt密码 = Null
    
30.                 Me.Visible = False
    
31.                 DoCmd.OpenForm "主页"   '打开主页
    
32.             Else
    
33. '密码错误时开始计算错误次数
    
34.                 i = i + 1
    
35. '错误次数低于三次时弹出警告
    
36.                 If (i < 3) Then
    
37.                     MsgBox "您输入的密码不正确", vbOKOnly + vbExclamation, "提示"
    
38. '错误次数等于三次后关闭窗体并退出
    
39.                 Else
    
40.                     MsgBox "您已经连续3次错误输入密码，系统马上关闭！", vbOKOnly + vbExclamation, "警告"
    
41.                     DoCmd.Close acForm, Me.Name '关闭当前窗体
    
42.                     DoCmd.Quit '退出数据库
    
43.                     Exit Sub
    
44.                 End If
    
45. '密码错误时设置焦点
    
46.                 Me.txt密码 = Null
    
47.                 Me.txt用户名 = Null
    
48.                 Me.txt用户名.SetFocus
    
49.             End If
    
50.         End If
    
51.         rs.Close
    
52.         Set rs = Nothing
    
53. End If
    
54. 
    
55. exit_确定_Click:
    
56.     Exit Sub
    
57. err_确定_Click: '错误处理
    
58.     MsgBox (Err.Description)
    
59.     Resume exit_确定_Click
    
60. End Sub

复制代码

注释已经写得很清楚了，我这里就不再一一解释了。现在我们回归到实际应用上，先提出两个问题：
1、是否一定要区分用户输入用户名还是密码？
2、是否一定要输入三次错误就退出。
---------------------------------------
大家先想想这两个问题，分割线
---------------------------------------

---------------------------------------
现在先来看问题1：
从逻辑上来看，我们先判断是否输入用户名，如果输入，接着判断是否输入密码，都输入了再判断密码跟用户名是否匹配。然而，对于我们来说，是否可以把这两步合在一起呢？也就是说，都输入了再判断？如果那样的话，逻辑上就可以省略一个嵌套，而用一个And来判断即可。
再谈谈问题2：
输入三次错误就退出，听起来很像银行卡的玩法。例如输错三次密码就锁定银行卡，需要电话解锁等等。你可以说，也可以跟银行卡那样锁定啊。是的，从理论上讲是可以实现的，把输入错误次数写入数据表，然后每次登录前先核对是否超过规定次数…然而是否有必要，大家可以自行斟酌。而这段代码的问题在于，使用的是公共变量。输错三次退出后，重新登录时又可以输入三次。所以，在实际情况中，这段代码属于冗余的。
---------------------------------------
基于上面的考虑，我们接下来开始简化代码：

1. Private Sub cmd确定_Click()
   
2.     Dim lngNum As Long
   
3.     On Error GoTo err_确定_Click
   
4.    
   
5.     strSQL = "select count(登录名) from 管理员 where 登录名='" & Me.txt用户名 _
   
6.             & "' and 密码='" & Me.txt密码 & "'"
   
7.             
   
8.     rs.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
   
9.     lngNum = rs(0)
   
10.    
    
11.     If IsNull(Me.txt用户名) Then
    
12.         MsgBox ("请输入用户名！"), vbInformation, "出错"
    
13.     ElseIf IsNull(Me.txt密码) Then
    
14.         MsgBox ("请输入用户密码！"), vbInformation, "出错"
    
15.     ElseIf lngNum <> 1 Then
    
16.         MsgBox ("没有这个用户，或者密码错误，重新确认输入后还不能登陆时请通知管理员！"), vbCritical, "出错"
    
17.     Else
    
18.         DoCmd.OpenForm "主页"
    
19.     End If
    
20.    
    
21.     rs.Close
    
22.     Set rs = Nothing
    
23.    
    
24. exit_确定_Click:
    
25.     Exit Sub
    
26. err_确定_Click: '错误处理
    
27.     MsgBox (Err.Description)
    
28.     Resume exit_确定_Click
    
29. End Sub

复制代码

jsxfygq

你用ACCESS用的这么好，能问问你你ACCESS做什么用处？专业开发软件吗？

access新新新手

1、是否一定要区分用户输入用户名还是密码？
2、是否一定要输入三次错误就退出。

第一个  1、是否一定要区分用户输入用户名还是密码？ 这个需要

第二个  2、是否一定要输入三次错误就退出。 这个可要也可以不要

roych

jsxfygq 发表于 2017-2-25 11:09
你用ACCESS用的这么好，能问问你你ACCESS做什么用处？专业开发软件吗？

混口饭吃。

风中漫步

应该都要吧，防撞库，是否还要防注入。

access新新新手

如果用户名用组合框，只可以选择用户名，这样还可以省略一些代码。
Private Sub cmd确定_Click()
1       On Error Resume Next
2       If IsNull(Me.txt用户名) Then
3           MsgBox "请输入登录名", vbCritical, "提示"
4           Me.txt用户名.SetFocus
5       ElseIf IsNull(Me.txt密码) Then
6           MsgBox "请输入密码！", vbCritical, "提示"
7           Me.txt密码.SetFocus
8       ElseIf DLookup("密码", "管理员", "登录名='" & Me.txt用户名 & "'") <> Me.txt密码 Then
9           MsgBox "密码错误！", vbExclamation + vbOKOnly, "系统提示"
10          Me.txt密码 = Null
11          Me.txt密码.SetFocus
12      Else
13          If DLookup("密码", "管理员", "登录名='" & Me.txt用户名 & "'") = Me.txt密码 Then
14              DoCmd.OpenForm "主页"   '打开主页
15          End If
16      End If
End Sub

LeeTien

Access防撞库，估计有这样需求的项目凤毛麟角。如果真的有这种需求而使用access平台的就更稀少了。如果真的有这种可能性，我觉得应该从以下几个方面考虑：第一，使用存储过程；第二，使用加密算法（我最初就是在客户端使用加密算法的，后来直接做到存储过程里了，功能做了阉割。在客户端实现加密解密系统开销太大）；第三，使用vpn，防止未经授权第三方渗透。

风中漫步

LeeTien 发表于 2017-2-26 09:59
Access防撞库，估计有这样需求的项目凤毛麟角。如果真的有这种需求而使用access平台的就更稀少了。如果真的 ...

jsxfygq

顺便也问你一下，你的OFFICE是什么版本的？群里很多老手用2003版本的很多，而新手都喜欢用最新版本。

roych

jsxfygq 发表于 2017-2-27 20:49
顺便也问你一下，你的OFFICE是什么版本的？群里很多老手用2003版本的很多，而新手都喜欢用最新版本。

看你的用户群。用2003主要是考虑到部分用户可能还在用2003，为了兼容起见而已。