机房登入系统

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

代码介绍：

通用

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 ‘用来获得当前计算机的名’
1
2
3
4
5

模块

 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
1
2
3
4
5
6
7
8
9
10

登录

 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