实验报告

Vb语言设计“用户名与密码”实验报

                   姓名：吕建勋

              学号：15050341019

              实验日期：2016年5月19日

              实验内容：用Label和Text设计出一个“用户名与密码”的程序，建立数据库并向其中添加记录，利用“工程——引用”建立第三方和数据库的联系，学习一新言（SQL）。

              程序编码：

Option Explicit
Const MaxLoginTimes As Integer = 3
Private Sub cmdLogin_Click()
    Static loginTimes As Integer
    loginTimes = loginTimes + 1
If loginTimes < MaxLoginTimes Then
    On Error GoTo ppp
    Dim Cn As Connection
    Dim Rs As Recordset
    Dim strSQL As String
    
    Set Cn = New Connection
    Set Rs = New Recordset
    Cn.ConnectionString = "provider=Microsoft.Jet.OLEDB.3.51;DataSource=C:\Users\jf\Desktop\TestExample.mdb"
    Cn.Open
    Rs.ActiveConnection = Cn
    strSQL = "select UserPassword from UserInformationwhere UserID= '" & Me.txtUserID.Text & "'"
    Rs.Open (strSQL)
    If Rs.EOF = True Then
        MsgBox txtUserID.Text & "不存在"
        Me.txtUserID.SetFocus
        Me.txtUserID.SelStart = 0
        Me.txtUserID.SelLength = Len(Me.txtUserID.Text)
    Else
       IfRs.Fields("UserPassword").Value = Me.txtPassword.Text Then
            MsgBox"登录成功"
            Unload Me
            'frmNew.show
       Else
        MsgBox "密码错误"
       End If
     End If
        
ppp:
    Cn.Close
Else
    MsgBox "亲，您的输入次数超过允许的最大次数", vbCritical, "登录"
End If
End Sub