第一次机房收费系统之登陆窗体

总的流程图如下所示：

一，思路
首先是画流程图，然后整理伪代码，再转换成代码。
1.流程图

2.整理伪代码：
伪代码：
变量命名要统一
登陆窗体
输入用户名（限制类型，个数） 并进行判断是否为空
if 用户名为空 then 提示：请输入用户名
else 输入密码（限制个数）并进行判断是否为空
if 密码为空 then 提示：请输入密码
else 判断用户名是否存在
if 用户名存在 then 判断用户名级别和密码
else 提示：用户名错误，请重新输入！
end if
end if
end if
限制登陆次数：超过3次就退出！

3.ExecuteSQL函数 和 call 调用
ExecuteSQL他是一种自定义函数，是ODBC中的一个API函数，用来执行由SQLPrepare创建的SQL语句。一般只要是查询数据表就会用到这个函数，他后面一般还加两个参数TXTSQL和MsgText。今天我们就来看看这三个单词在数据库语言中的作用。
ExecuteSQL出现的时候一定是先查询数据表了，然后set mrc,所以ExecuteSQL一定是执行SQL语句。
txtSQL参数是用来执行SQL语句，比如 select * from 表
MsgText参数指的是实行SQL语句后的弹出框，是成功了还是失败了。
Call语句用于调用函数或子过程。
viewdata是函数名或子过程名来的。
4.用户名和密码限制条件：

Private Sub txtPassWord_Change()
'限制密码只能由数字和字母组成
   If txtPassWord.Text <> "" Then

       If ((Asc(Mid(txtPassWord.Text, i, 1)) < 48) Or ((Asc(Mid(txtPassWord.Text, i, 1)) > 57) And (Asc(Mid(txtPassWord.Text, i, 1)) < 65)) Or ((Asc(Mid(txtPassword1.Text, i, 1)) > 90) And (Asc(Mid(txtPassWord.Text, i, 1)) < 97)) Or (Asc(Mid(txtPassWord.Text, i, 1)) > 122)) Then

          MsgBox "密码只能由数字和字母组成，请重输", vbOKOnly + vbExclamation, "警告"
          txtPassWord.Text = ""
       End If
  End If
End Sub

Private Sub txtUserName_Change()
'限制只能输入汉字
 If KeyAscii >= -20319 And KeyAscii <= -3652 Or KeyAscii = 8 Then
    Else
        KeyAscii = 0
    End If


'输入框只能输入字母
If (KeyAscii >= Asc("a") And KeyAscii <= Asc("z")) Or (KeyAscii >= Asc("A") And KeyAscii <= Asc("Z")) Then
KeyAscii = KeyAscii
Else
KeyAscii = 0
End If

End Sub

小结：断断续续的学习，思路一再丢失，现在回归就等于是从0开始，虽然差着一截，但是，学习的就是遇到这些问题，想办法如何解决这些问题的能力。