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

举报
ksh1998 发表于 2021/12/30 00:43:38 2021/12/30
【摘要】 前言：说到登录我为啥，会写登录呢，按说不就个登录吗，怎么简单的东西有必要写一篇博客总结吗，有必要！ 非常有必要 因为就在刚开始的时候这个非常简单的东西让我，整整的卡了三天为啥就一个登录就能卡我三天 。...

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

流程图

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

代码介绍：

通用

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
  
 
    
  
  • 1
    • 
  
  • 2
    • 
  
  • 3
    • 
  
  • 4
    • 
  
  • 5
    • 
  
  • 6
    • 
  
  • 7
    • 
  
  • 8
    • 
  
  • 9
    • 
  
  • 10
    • 
  
  • 11
    • 
  
  • 12
    • 
  
  • 13
    • 
  
  • 14
    • 
  
  • 15
    • 
  
  • 16
    • 
  
  • 17
    • 
  
  • 18
    • 
  
  • 19
    • 
  
  • 20
    • 
  
  • 21
    • 
  
  • 22
    • 
  
  • 23
    • 
  
  • 24
    • 
  
  • 25
    • 
  
  • 26
    • 
  
  • 27
    • 
  
  • 28
    • 
  
  • 29
    • 
  
  • 30
    • 
  
  • 31
    • 
  
  • 32
    • 
  
  • 33
    • 
  
  • 34
    • 
  
  • 35
    • 
  
  • 36
    • 
  
  • 37
    • 
  
  • 38
    • 
  
  • 39
    • 
  
  • 40
    • 
  
  • 41
    • 
  
  • 42
    • 
  
  • 43
    • 
  
  • 44
    • 
  
  • 45
    • 
  
  • 46
    • 
  
  • 47
    • 
  
  • 48
    • 
  
  • 49
    • 
  
  • 50
    • 
  
  • 51
    • 
  
  • 52
    • 
  
  • 53
    • 
  
  • 54
    • 
  
  • 55
    • 
  
  • 56
    • 
  
  • 57
    • 
  
  • 58
    • 
  
  • 59
    • 
  
  • 60
    • 
  
  • 61
    • 
  
  • 62
    • 
  
  • 63
    • 
  
  • 64
    • 
  
  • 65
    • 
  
  • 66
    • 
  
  • 67
    • 
  
  • 68
    • 
  
  • 69
    • 
  
  • 70
    • 
  
  • 71
    • 
  
  • 72
    • 
  
  • 73
    • 
  
  • 74
    • 
  
  • 75
    • 
  
  • 76
    • 
  
  • 77
    • 
  
  • 78
    • 
  
  • 79
    • 
  
  • 80
    • 
  
  • 81
    • 
  
  • 82
    • 
  
  • 83
    • 
  
  • 84
    • 
  
  • 85
    • 
  
  • 86
    • 
  
  • 87
    • 
  
  • 88
    • 
  
  • 89
    • 
  
  • 90
    • 
  
  • 91
    • 
  
  • 92
    • 
  
  • 93
    • 
  
  • 94
    • 
  
  • 95
    • 
  
  • 96
    • 
  
  • 97
    • 
  
  • 98
    • 
  
  • 99
    • 
  
  • 100
    • 
  
  • 101
    • 
  
  • 102
    •

未完。。。。

文章来源: kangshihang.blog.csdn.net，作者：康世行，版权归原作者所有，如需转载，请联系作者。

原文链接：kangshihang.blog.csdn.net/article/details/71123186

【版权声明】本文为华为云社区用户转载文章，如果您发现本社区中有涉嫌抄袭的内容，欢迎发送邮件进行举报，并提供相关证据，一经查实，本社区将立刻删除涉嫌侵权内容，举报邮箱： cloudbbs@huaweicloud.com
  • 点赞
  • 收藏
  • 关注作者

评论（0）

0/1000
抱歉，系统识别当前为高风险访问，暂不支持该操作

全部回复

上滑加载中

设置昵称

在此一键设置昵称，即可参与社区互动！

*长度不超过10个汉字或20个英文字符，设置后3个月内不可修改。

*长度不超过10个汉字或20个英文字符，设置后3个月内不可修改。

确认 取消

加入云驻计划，成为创作者

  • 华为云周边好礼
  • 免费体验产品
  • 特殊身份标识
  • 线下官方门票
  • 内部专家零距离
  • 与10000+优质创作者共同成长
立即加入