机房收费系统(二)-登录

我在敲机房之前,看了两天师哥师姐的博客,发现师哥师姐们每敲一个窗体都会画一个流程图,这样可以让自己在敲之前有一个清晰的思路,防止逻辑混乱。

- 流程图
- 这里写图片描述

- 部分代码展示:

Private Sub cmdOK_Click()
 Dim txtSQL As String
 Dim txtSQL1 As String
 Dim txtSQL2 As String
 Dim mrc As ADODB.Recordset
 Dim MsgText As String
 Dim MsgText1 As String
 Dim mrc3 As ADODB.Recordset
 Dim mrc1 As ADODB.Recordset
 Dim mrc2 As ADODB.Recordset
 Dim UserLevel As String
 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 Then
     MsgBox "用户名不正确,请重新输入!", vbOKOnly + vbExclamation, "警告"
     txtUserName.SetFocus
 Else
 If Trim(mrc.Fields(1)) = Trim(txtPassword.Text) Then
    OK = True
    Me.Hide
    txtUserName = Trim(txtUserName.Text)
    txtSQL = "select * from OnWork_Info where UserID = '" & txtUserName.Text & "'"
Set mrc1 = ExecuteSQL(txtSQL, MsgText)
   mrc1.AddNew
   mrc1.Fields(0) = Trim(txtUserName.Text)
   mrc1.Fields(1) = Trim(mrc.Fields(2))
   mrc1.Fields(2) = Date
   mrc1.Fields(3) = Time
   mrc1.Fields(4) = VBA.Environ("computername")
   mrc1.Update

 txtSQL2 = "select * from worklog_Info "
Set mrc2 = ExecuteSQL(txtSQL2, MsgText)
    mrc2.AddNew
    mrc2.Fields(1) = Trim(txtUserName.Text)
    mrc2.Fields(2) = Trim(mrc1.Fields(1))
    mrc2.Fields(3) = Trim(mrc1.Fields(2))
    mrc2.Fields(4) = Trim(mrc1.Fields(3))
    mrc2.Fields(7) = VBA.Environ("computername")
    mrc2.Fields(8) = "True"
 mrc2.Update
 mrc2.Close
 mrc1.Close

 txtSQL = "select * from User_Info Where userID ='" & Trim(txtUserName.Text) & "'"
Set mrc = ExecuteSQL(txtSQL, MsgText)
 If mrc.EOF = False Then
   UserLevel = Trim(mrc.Fields(2))
  If Trim(UserLevel) = "操作员" Then
    frmMain.caozuoyuan.Enabled = True
    frmMain.yibanyonghu.Enabled = True
    frmMain.guanliyuan.Enabled = False
    frmMain.guanliyuan.Visible = False
   mrc.Close

 End If
End If

 frmMain.Show
 Else
      MsgBox "输入密码不正确,请重新输入!", vbOKOnly + vbExclamation, "警告"
      txtUserName.SetFocus
      txtUserName.Text = ""
 End If


End If
 End If

miCount = miCount + 1
 If miCount = 3 Then
 Me.Hide
End If
 Exit Sub

End Sub
  • 最后还要限制一下用户名不能输入特殊字符:
 If KeyAscii > 31 And KeyAscii < 48 Or KeyAscii > 57 And KeyAscii > 90 And KeyAscii < 97 Or KeyAscii > 122 And KeyAscii < 127 Then
      MsgBox "不能输入特殊字符,请输入数字或字母", 0 + 48, "警告"
      KeyAscii = 0 '使输入的特殊字符为空字符
    End If
1、资源项目源码均已通过严格测试验证,保证能够正常运行; 2、项目问题、技术讨论,可以给博主私信或留言,博主看到后会第一时间与您进行沟通; 3、本项目比较适合计算机领域相关的毕业设计课题、课程作业等使用,尤其对于人工智能、计算机科学与技术等相关专业,更为适合; 4、下载使用后,可先查看REAdMe.md或论文文件(如有),本项目仅用作交流学习参考,请切勿用于商业用途。 5、资源来自互联网采集,如有侵权,私聊博主删除。 6、可私信博主看论文后选择购买源代码。 1、资源项目源码均已通过严格测试验证,保证能够正常运行; 2、项目问题、技术讨论,可以给博主私信或留言,博主看到后会第一时间与您进行沟通; 3、本项目比较适合计算机领域相关的毕业设计课题、课程作业等使用,尤其对于人工智能、计算机科学与技术等相关专业,更为适合; 4、下载使用后,可先查看REAdMe.md或论文文件(如有),本项目仅用作交流学习参考,请切勿用于商业用途。 5、资源来自互联网采集,如有侵权,私聊博主删除。 6、可私信博主看论文后选择购买源代码。 1、资源项目源码均已通过严格测试验证,保证能够正常运行; 2、项目问题、技术讨论,可以给博主私信或留言,博主看到后会第一时间与您进行沟通; 3、本项目比较适合计算机领域相关的毕业设计课题、课程作业等使用,尤其对于人工智能、计算机科学与技术等相关专业,更为适合; 4、下载使用后,可先查看READme.md或论文文件(如有),本项目仅用作交流学习参考,请切勿用于商业用途。 5、资源来自互联网采集,如有侵权,私聊博主删除。 6、可私信博主看论文后选择购买源代码。
评论 10
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值