第一次机房收费系统 “登录”

前言：说到登录我为啥，会写登录呢，按说不就个登录吗，怎么简单的东西有必要写一篇博客总结吗，有必要！ 非常有必要 因为就在刚开始的时候这个非常简单的东西让我，整整的卡了三天为啥就一个登录就能卡我三天 。我自己都感觉有点意外 为啥会卡我三天那，因为我一开始只是盲目的点两下原版系统。 没有仔细的点和发现他们之间的联系和“画一下流程图” 把需要实现的功能先先写出来再去实现，所以导致我逻辑非常混乱。

流程图

就怎么简单的流程图一开始我就是懒得画，为自己的懒得也付出了三天的代价。

代码介绍：

通用

Public UserName As String '获取当前登录用户名 在后面的充值和退卡 一些其他 的窗体都需要调用这个变量
Public ok As Boolean 'OK为fMainForm类的成员
Dim miCount As Integer '记录登录次数
Public cash As Integer  '获取基本数据最低金额
Public Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long ‘用来获得当前计算机的名’

模块

 Dim fLogin As New forlogin '定义窗体对象
    forlogin.Show vbModal             '显示登录窗体实例
    'OK为fMainForm类的成员
     If Not forlogin.ok Then '条件选的好
        'forlogin Failed so exit app
       End
     End If
     Unload forlogin
  'Set fMainForm = New formmain     '显示主窗体实例
  ' formmain.Show

登录

 Dim txtsql As String '连接数据库
    Dim mrc As ADODB.Recordset '验证用户和用户级别
    Dim msgtext As String '连接数据
    Dim txtsql1, msgtext1 As String
    Dim mrc1 As ADODB.Recordset'用来将登录用户的信息更新到正在上机表中
       UserName = ""
    If Trim(txtname.Text = "") Then '判断用户是否为空
        MsgBox "没有这个用户，请重新输入用户名！", vbOKOnly + vbExclamation, "警告"
        txtname.SetFocus
    Else
        txtsql = "select * from User_Info where userID = '" & txtname.Text & "'" '连接数据库并且判断用户是否存在
                Set mrc = ExecuteSQL(txtsql, msgtext)

        If mrc.EOF Then '判断用户是否存在
            MsgBox "没有这个用户，请重新输入用户名!", vbOKOnly + vbExclamation, "警告"
            txtname.SetFocus
        Else
              '判断用户级别
              If Trim(mrc.Fields(2)) = Trim("一般用户") Then  '一般用户的权限
                    If Trim(mrc.Fields(1)) = Trim(txtpwd.Text) Then '判断密码是否正确
                        txtsql1 = "select * from OnWork_Info" '获取到正在上机表
                        Set mrc1 = ExecuteSQL(txtsql1, msgtext1)
                           Me.Hide
                           UserName = Trim(txtname.Text) '将用户名给username
                           formmain.Show
                           formmain.generaluser.Enabled = True
                           formmain.operator.Enabled = False
                           formmain.adminsitrator.Enabled = False
                            mrc1.AddNew '添加更新到正在上机表里
                            mrc1.Fields(0) = Trim(UserName)
                            mrc1.Fields(1) = Trim(mrc.Fields(2))
                            mrc1.Fields(2) = Trim(Date)
                            mrc1.Fields(3) = Trim(Time)
                            mrc1.Fields(4) = Trim(ComputerName)
                            mrc1.Update
                            mrc.Close '关闭数据连接

                    Else
                      MsgBox "输入密码不正确，请重新输入！", vbOKOnly + vbExclamation, "警告"
                      txtpwd.SetFocus
                      txtpwd.Text = ""
                    End If

              ElseIf Trim(mrc.Fields(2)) = Trim("操作员") Then '操作员的权限
                    If Trim(mrc.Fields(1)) = Trim(txtpwd.Text) Then '判断密码是否正确
                        txtsql1 = "select * from OnWork_Info" '获取正在上机表
                        Set mrc1 = ExecuteSQL(txtsql1, msgtext1)
                             Me.Hide
                             UserName = Trim(txtname.Text) '将用户名给username
                             formmain.Show
                             formmain.generaluser.Enabled = True
                             formmain.operator.Enabled = True
                             formmain.adminsitrator.Enabled = False
                             mrc1.AddNew '添加更新到正在上机表离去
                             mrc1.Fields(0) = Trim(UserName)
                             mrc1.Fields(1) = Trim(mrc.Fields(2))
                             mrc1.Fields(2) = Trim(Date)
                             mrc1.Fields(3) = Trim(Time)
                             mrc1.Fields(4) = Trim(ComputerName)
                             mrc1.Update
                             mrc1.Close '关闭数据连接

                    Else
                     MsgBox "输入密码不正确，请重新输入！", vbOKOnly + vbExclamation, "警告"
                     txtpwd.SetFocus
                    txtpwd.Text = ""
                     End If
              ElseIf Trim(mrc.Fields(2)) = Trim("管理员") Then '管理员的权限
                   If Trim(mrc.Fields(1)) = Trim(txtpwd.Text) Then '判断密码是否正确
                        txtsql1 = "select * from OnWork_Info" '获取到正在上机表
                        Set mrc1 = ExecuteSQL(txtsql1, msgtext1)
                             Me.Hide
                             UserName = Trim(txtname.Text) '将用户名给username
                             formmain.Show
                             formmain.generaluser.Enabled = True
                             formmain.operator.Enabled = True
                             formmain.adminsitrator.Enabled = True
                             mrc1.AddNew '添加更新到正在上机的表里
                             mrc1.Fields(0) = Trim(UserName)
                             mrc1.Fields(1) = Trim(mrc.Fields(2))
                             mrc1.Fields(2) = Trim(Date)
                             mrc1.Fields(3) = Trim(Time)
                             mrc1.Fields(4) = Trim(ComputerName)
                             mrc1.Update
                    Else
                    MsgBox "输入密码不正确，请重新输入！", vbOKOnly + vbExclamation, "警告"
                    txtpwd.SetFocus
                    txtpwd.Text = ""
                    End If
              Else
                    End '三者都不是直接退出
              End If

                ok = True
         End If
    End If
       miCount = miCount + 1 '登录限制
       If miCount > 3 Then
       MsgBox "超过登录限制！", vbOKOnly + vbExclamation, "警告"
        End '退出
       End If
      Exit Sub

未完。。。。