（一）登录 -机房收费系统

前提：

机房收费系统是一个循序渐进的过程，在一开始的时候会有很多心情上的别扭要克服，然后理清思路好好敲代码啦 

主要内容：登录窗体

登录窗体，要考虑的内容较少，按照任务来写。

1.任务一：输入不能为空

2.任务二：卡号查询是否存在

3.任务三：密码是否正确

4.任务四：登陆之后显示主窗体

1.之后还要考虑一些细节问题：密码输入不能超过多少次

2.每次输入错误后清空输入错误的内容的文本框

3.不能重复登录

4.特殊字符，与输入长度的限制

这是我的窗体里的代码：优化还不够，只是可以运行。

<span style="font-size:18px;">Private Sub cmdOK_Click()
    '用来存放SQL语句
    Dim txtSQL As String
    '用来存放记录集对象
    Dim mrc As ADODB.Recordset
    '用来存放返回信息
    Dim MsgText As String
    'ToDo:creat test for correct password]'check for correct password
    'check for correct password
    
    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(TXTPassword.Text = "") Then
        MsgBox "密码为空！", vbOKOnly + vbExclamation, "警告"
        TXTPassword.SetFocus
         Else
           '判断输入密码是否正确
            If Trim(mrc.Fields(1)) = Trim(TXTPassword.Text) Then
                
                OK = True
                
                mrc.Close
                Me.Hide
                UserName = Trim(txtUserName.Text)
            Else
               
               
                TXTPassword.Text = ""
                 MsgBox "密码不正确！", vbOKOnly + vbExclamation, "警告"
                  TXTPassword.SetFocus
                  End If
                  
            End If
        End If
    End If
    '记载输入密码次数
    miCount = miCount + 1
    If miCount = 3 Then
        Me.Hide
    End If
    Exit Sub




End Sub</span>

总结：
写一下敲登录窗体时的感受

因为总是忘记保存，所以这个窗体敲了好多次，当时敲机房的时候缺少动力，就一直放下了，这个在学生的时候也是差不多的，所以，通过模仿就学过来了。反正这个气的很痛苦，没有逻辑，不会写，稍微能看懂什么意思，现在回头想想也没什么了吗，所以万事开头难，当然还有很多不足的地方，希望大家多多指教啦！