【第一次机房收费系统优化】-登录窗体

一、重点
这个窗体增加了判断用户的类别（操作员、一般用户、管理员）。
二、控件优化
label为空白：Label1.BackStyle = 0
command添加图片：（1）将Command控件的Style设置为1 - Graphical （2）在Command控件的Picture中，点浏览，选择一张图片。

三、优化区域
不能输入特殊符号

Select Case KeyAscii1. Case -20319 To -36522. Case 48 To 573. Case 65 To 904. Case 97 To 1225. Case 86. Case Else7. KeyAscii = 08. End Select

四、代码

Private Sub cmdOk_Click()
'用来存放SQL语句Dim txtSQL As StringDim txtSQL1 As StringDim txtSQL2 As String' 用来存放记录集对象Dim mrc As ADODB.RecordsetDim mrc1 As ADODB.RecordsetDim mrc2 As ADODB.Recordset'用来存放返回信息Dim MsgText As StringDim msgText1 As StringDim Msgtext2 As StringDim ctrl As Control'ToDo: create test for correct password'check for correct passwordusername = ""'判断输入用户名是否为空If Trim(txtUserName.Text = " ") ThenMsgBox "没有这个用户，请重新输入用户名！", vbOKOnly + vbExclamation, "警告"txtUserName.SetFocustxtUserName.Text = ""txtPassword.Text = ""Exit SubElseIf Trim(txtPassword.Text = "") ThenMsgBox "请输入密码！", vbOKOnly + vbExclamation, "提示"txtUserName.SetFocustxtPassword.Text = ""Exit SubElsetxtSQL = "select * from user_info where UserID='" & txtUserName.Text & "'"Set mrc = ExecuteSQL(txtSQL, MsgText) '执行查询语句txtSQL2 = "select * from worklog_info where UserID='" & txtUserName.Text & "'"Set mrc2 = ExecuteSQL(txtSQL2, Msgtext2)txtSQL1 = "select * from onwork_info where userid='" & txtUserName.Text & "'"Set mrc1 = ExecuteSQL(txtSQL1, msgText1)If mrc.EOF ThenMsgBox "无此用户，请重新输入！", vbOKOnly + vbExclamation, "提示"txtUserName.Text = ""txtUserName.SetFocusExit SubElseIf mrc.Fields(0) = txtUserName.Text And mrc.Fields(1) = txtPassword.Text ThenEnd Ifok = Trueusername = Trim(txtUserName.Text)If Trim(mrc.Fields(2)) = "管理员" ThenElseIf Trim(mrc.Fields(2)) = "操作员" ThenfrmMain.cmucz.Enabled = FalseElsefrmMain.manger.Enabled = FalsefrmMain.cmucz.Enabled = FalseEnd IfEnd IfEnd IfIf mrc1.EOF = False ThenMsgBox "此用户二次登陆", vbOKCancel + vbExclamation, "提示"mrc1.Deletemrc1.Updatemrc1.CloseElsemrc1.AddNewmrc1.Fields(0) = Trim(txtUserName)mrc1.Fields(1) = Trim(mrc.Fields(2))mrc1.Fields(2) = Trim(Date)mrc1.Fields(3) = Timemrc1.Updatemrc1.Closemrc2.AddNew        '添加记录到worklog_info表mrc2.Fields(1) = Trim(txtUserName)mrc2.Fields(2) = Trim(mrc.Fields(2))mrc2.Fields(3) = Trim(Date)mrc2.Fields(4) = Trim(Time)mrc2.Fields(7) = VBA.Environ("computername")mrc2.Fields(8) = Truemrc2.Updatemrc2.CloseMe.HidefrmMain.Show'记载输入密码次数micount = micount + 1If micount = 3 ThenMe.HideEnd
'    Exit Sub
'        For Each ctrl In Me.Controls
'        If TypeOf ctrl Is textbox Then '是否为文本框textbox
'        ctrl.Text = ""
'        End If
'        Next
End If
End If
End If
End If
End Sub
``

【第一次机房收费系统优化】-登录窗体相关推荐

机房收费系统--登录窗体
在对机房收费系统有了大致的认识后,就开始做登录窗体了.登录窗体是最简单的,但是我们需要先理清思路,最好是能画一个简单的流程图,这样就能理清逻辑,在敲代码的时候就会非常简单. 在这里需要注意以下几点: ...
第一次机房收费系统总结
历经了一个月的时间,我的第一次机房终于完成了.第一次机房不像学生一样有源代码直接调bug,而是自己写代码,根据自己的想法和逻辑来实现它的功能.好了话不多说,来展示我的流程图吧! 第一次机房自我觉得有三 ...
第一次机房收费系统验收
机房收费系统在自己面前是那么的完美,可在师傅面前却是漏洞百出! 1. 将问题看得太简单,基本数据设定没考虑完全,例如,其中的准备时间和至少上机时间都没有用到! 2. 所有学生下机后,删除记录的 ...
VB版机房收费系统”登录“--02
前言:所有软件一开始第一个功能都是登录,所以登录可以说是用户体验度非常重要的一个环节.假如:你的登录页面做的非常的不好看,而且用户登录的时间还长.这个会大大的影响到用户后面的功能体验,所以登录功能担任 ...
第一次机房收费系统之DLL注册“找不到指定的模块”
配置ODBC之后,就是进行控件注册了,如下所示: 需要注册文件"机房收费系统所需素材"中的3个控件在cmd命令中输入"regsvr32 + 路径 + 控件名称" ...
机房收费系统优化——添加密保功能
前言机房中有改密码的功能,但是是要知道原密码才能改.如果现在系统已经打包供给客户进行使用了,客户登录密码忘记了,怎么解决?这时,密保派上用场了.看看我是怎么实现这个功能的! 样式展览功能介绍 1. ...
第一次机房收费——问题合集（一）
目录 1.子窗体被覆盖问题 2.工程-引用里面没有Microsoft Excel 14.0 Object Library 问题 3.实时错误381--下标越界站在巨人的肩膀上(通过师哥师姐的博客), ...
第一次机房收费系统之管理员日结账单
对于这个窗体利用报表设计器去进行设计具体使用见一下博客: https://blog.csdn.net/LZ15932161597/article/details/84667604 操作流程: 显示当 ...
第一次机房收费颗粒归仓
写在前面机房也是一场持久战,中途遇到自考的事,然后被自己孤立了一段时间,不过这也恰恰说明一个问题,自己的时间管理做的不好,看来自己以后努力的方向是找到了.在入手敲机房的时候,按照师哥说的那样,尽量避 ...

【第一次机房收费系统优化】-登录窗体

【第一次机房收费系统优化】-登录窗体相关推荐

最新文章

热门文章