lyt001

Option Explicit
Public conn As ADODB.Connection
Sub main()
    Set conn = New ADODB.Connection
     conn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;" _
     + "User ID=sa;password=123456;Initial Catalog=VB;Data Source=127.0.0.1"
    conn.Open
丽都影视.Show
End Sub
Private Sub cmdOK_Click()
    Dim Try_times
     If txtUserName.Text = "" Then
        MsgBox "用户名不能为空！", vbOKOnly + vbInformation, "友情提示"
        txtUserName.SetFocus
        Exit Sub
    End If
    If txtPassword.Text = "" Then
        MsgBox "密码不能为空！", vbOKOnly + vbInformation, "友情提示"
        txtPassword.SetFocus
        Exit Sub
    End If
    Dim strSQl As String
    strSQl = "select * from Users where 用户名='" & Trim$(txtUserName.Text) & "' and 密码='" & Trim$(txtPassword.Text) & "' "

    Dim str As New ADODB.Recordset
    Set str = New ADODB.Recordset
    str.CursorLocation = adUseClient
    str.Open strSQl, conn, adOpenStatic, adLockReadOnly
   
    With str
        If .State = adStateOpen Then .Close
        .Open strSQl
        If .EOF Then
            Try_times = Try_times + 1
            If Try_times >= 3 Then
                MsgBox "您已经三次尝试进入本系统，均不成功，系统将自动关闭", vbOKOnly + vbCritical, "警告"
                Unload Me
            Else
                MsgBox "对不起，用户名不存在或密码错误 ！", vbOKOnly + vbQuestion, "警告"
                txtUserName.SetFocus
                txtUserName.Text = ""
                txtPassword.Text = ""
            End If
        Else
            
            Unload Me
            
          影视俱乐部.Show
            
        End If
    End With

End Sub