机房收费系统之登录窗体

机房收费系统是展现我们自己想法的第一个项目 这个项目基于我们做完学生管理系统和数据库视频之后的项目，这是帮助我们迈向独立思维的第一步，画导图是我们首要锻炼的地方，所谓兵马未动粮草先行。一个程序你不知道他是怎么运作的，你是不可能将这个东西做出来的。导图是我们对整个功能的理解。
接下来是我对这个导图的代码实现：

Private Sub cmdOK_Click()
    Dim Txtsql As String
    Dim Txtsql1 As String
    Dim Mrc As adodb.Recordset
    Dim Mrc1 As adodb.Recordset
    Dim Msgtext As String
    Dim frmLogin As Integer
    username = ""
    '判断是否输入
    If Trim(txtuserName.Text = "") Then
        MsgBox "没有这个用户，请重新输入用户名!", vbOKOnly + vbExclamation, "警告"
        txtuserName.SetFocus
    Else
    '判断账户密码是否正确
        Txtsql = "select * from user_info where userid = '" & txtuserName.Text & "'"
        Set Mrc = ExecuteSQL(Txtsql, Msgtext)
        If Mrc.EOF = True Then
            MsgBox "没有这个用户，请重新输入用户名！", vbOKOnly + vbExclamation, "警告"
            txtuserName.SetFocus
            Else
                If Trim(Mrc.Fields(1)) = Trim(txtpassword.Text) Then
                ok = True
                Mrc.Close
                Me.Hide
                frmMain.Show
                frmMain.Label19.Caption = Format(Now, "hh:mm:ss")
                Txtsql1 = "select * from online_info"
                Set Mrc1 = ExecuteSQL(Txtsql1, Msgtext)
                frmMain.Label16.Caption = "当前上机人数:" & Mrc1.RecordCount
                username = Trim(txtuserName.Text)
                Else
                    MsgBox "密码不正确，请重新输入,还剩余" & (2 - a) & "次机会 ！", 0 + 48, "提示"
                    txtpassword.Text = ""
                    txtpassword.SetFocus
                    frmLogin = False
                End If
        End If

     '判断密码的输入次数
     If frmLogin = False Then
        a = a + 1
        If a > 2 Then
           MsgBox "登陆次数过多，将退出程序！", 0 + 48, "提示"
        End If
    End If
   End If
End Sub