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

前提：

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

主要内容：登录窗体

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

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 SubEnd Sub</span>

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

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