红皮书之实例1“登录系统”

缺乏、安全感 2022-06-01 07:49 129阅读 0赞

在学完VB之后进入到下一个学习资料《红皮书实例》，当时挺激动的，学习了好长时间的VB终于要结束了，学的时间长了感觉有点枯燥。第一眼看见红皮书的感觉就是代码特别多。在做第一个实例的时候就遇到了挫折，信心受到了打击。好了，就进入到在学习过程中遇到的问题吧！

1.在敲完代码之后点击运行时出现下图情况： 用户定义类型未定义，出现这种情况的原因是我们在运行之前没有建立ADO引用，ADO引用对象操作如下：

（1）选择“工程——引用——打开ADO对象库——选择Microsoft ActiveX Data  Objects 2.5 Library——单击确定”ADO对象库建立完成。

2.建立好之后出现了找不到数据库的问题，这里就涉及到了路径的问题，绝对路径和相对路径，之前在VB中也出现过。

![SouthEast][]

（1）绝对路径：就是从盘符开始，一级一级的一直向下找，像一条弯路一样，都必须经过，在计算机里如图。

（2）相对路径：这会给我们带来很大的便利，在打开文件时就不用一级一级的找了，直接就从计算机里找到了如出现“App.Path”就是加载绝对路径。

![SouthEast 1][]

3。当这些都处理完之后又出现了一个最简单的问题，怎么侃爷看不出，如下图，说是<admin>i不是系统用户，请检查用户名输入是否正确。运行了好几遍都出现，细节决定成败，看出来了端倪，原来是在用户名之前有个空格。才导致出现这样的情况。

![SouthEast 2][]

（1）用户名之前的空格，如图可以看见，鼠标的焦点之前有空格，空格的位置也占了字节，所以会出现这种情况，将空格删除即可。

![SouthEast 3][]

以下就是我的代码

'用户名:admin

'密  码:123

Option Explicit

Const MaxLogTimes As Integer = 3

'定义允许用户验证登录信息的最多次数

Private Sub cmdCancel\_Click()

Dim intResult As Integer

'请求用户确认是否真的退出系统登录

intResult = MsgBox("你选择了退出系统登录，退出将不能起送管理系统！" & vbCrLf \_

& "是否真的退出？", vbYesNo, "登录验证")

If intResult = vbYes Then End

'根据用户选择结束应用程序

End Sub

Private Function Check\_PassWord(ByVal UserName As String, ByVal PassWord As String) As Byte

'==================错误一 没有写参数

'自定义过程，作用是检查口令的正确性。

On Error GoTo gpError

Dim objCn As New ADODB.Connection  '==================错误二ADODB

Dim objRs As New Recordset

Dim strCn As String

Dim strSQL As String

'建立数据库连接

objCn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & \_

"Data Source=" & App.Path & "\\实例11.mdb;Mode=ReadWrite|Share Deny None;Persist Security Info=False"

objCn.Open

'执行查询命令，获得用户登录口令

strSQL = "SELECT口令FROM系统用户WHERE用户名= '" & txtUserName & " '"

Set objRs.ActiveConnection = objCn

objRs.Open (strSQL)

'判断有无查询结果

If objRs.EOF Then

Check\_PassWord = 0 '没有查询结果，表示该用户为非法用户

Else

'口令是否正确

If PassWord <> Trim(objRs.Fields("口令").Value) Then

'Trim()该函数是删除字符串中多余的空格

Check\_PassWord = 1 '口令不正确

Else

Check\_PassWord = 2  '口令正确

End If

'关闭数据库连接，释放对象

objCn.Close

Set objRs = Nothing

Set objCn = Nothing

Exit Function

gpError:

Check\_PassWord = 255

Set objRs = Nothing

Set objCn = Nothing

End Function

Private Sub cmdOK\_Click()

Static intLogTimes As Integer

'用于保存用户请求验证的次数

Dim intChecked As Integer

Dim strName As String

Dim strPassWord As String

intLogTimes = intLogTimes + 1

'计算登录次数

If intLogTimes > MaxLogTimes Then

'超过允许的登陆次数，显示提示信息

MsgBox "你已经超过允许验证次数！" & vbCr \_

& "应用程序将结束！", vbCritical, "登录验证"

End        '结束应用程序

Else

'进一步验证登录信息的合法性

strName = Trim(txtUserName.Text)   '获得输入的用户名

strPassWord = Trim(txtPassWord.Text)    '获得输入的口令

'检验用户名和口令的合法性，并根据验证返回值执行相应的操作

Select Case Check\_PassWord(strName, strPassWord)

Case Is = 0 '用户不是系统用户

MsgBox "<" & strName & \_

">不是系统用户，请检查用户名输入是否正确！", vbCritical, "登录验证"

txtUserName.SetFocus

txtUserName.SelStart = 0

txtUserName.SelLength = Len(txtUserName)

Case Is = 1  '口令错误

MsgBox "口令错误，请重新输入！", vbCritical, "登录验证"

txtPassWord = ""

txtPassWord.SetFocus

Case Is = 2 '口令正确

Unload Me  '卸载登录窗体

MsgBox "登录成功，将启动系统程序！", vbInformation, "登录验证"

frmMain.Show

Case Else    '登录验证未正常完成

MsgBox "登录验证未正常完成！请重新运行登录程序，" & vbCrLf \_

& "如果仍不能登录，请报告系统管理员！", vbCritical, "登录验证"

'指示在调用MsgBox函数时，vbCritical显示关键消息图标。

End Select

End If

End Sub

登录成功的界面如下

![SouthEast 4][]

![SouthEast 5][]

![SouthEast 6][]

[SouthEast]: /images/20220601/0ceea3d8b2504ea2b171156f4bd914bc.png
[SouthEast 1]: /images/20220601/14d0d1ead7e741ad8a9c526b0e90d587.png
[SouthEast 2]: /images/20220601/0fbd856d5c294a058698e91b4ca6fa80.png
[SouthEast 3]: /images/20220601/b116ab63f27a4bcea5eb70979319d62d.png
[SouthEast 4]: /images/20220601/883eb9f6435f47b2811c5f282559c08b.png
[SouthEast 5]: /images/20220601/7e4faafaea774711be23f0bb697f9eac.png
[SouthEast 6]: /images/20220601/b50f04e3f8cf4ff6ba7c3bba40a2a0ed.png