机房收费之登陆窗体
来源:互联网 发布:淘宝手机12期分期付款 编辑:程序博客网 时间:2024/06/04 18:31
总结是在机房结束以后写的,总结的不及时之前的进度慢了,中间赶了一段时间没有去及时总结博客,随时总结确实有很大的作用,不过只要写了就不晚,结束之后让我有了更深刻的了解,一个简单的登陆窗体其实也不能想的太过片面,我刚开始做的很多不完善的地方,在做的过程中也回头不断地完善。首先我没做一个窗体应该先去思考它要实现的的功能这里先拿登陆来说。
第一点 就是主要的登陆功能保证账号密码的输入正确
首先限制字符
Select Case KeyAscii Case 8 '无变化,退格键不屏蔽 Case Asc("A") To Asc("z") Case Asc("0") To Asc("9") Case Is < 0Case Else ' 除了以上的 都屏蔽 KeyAscii = 0
End Select
然后判断账号密码是否为空不为空就查询数据库'判断输入用户是否为空、If Trim(txtUserName.Text = "") Then MsgBox "没有这个用户名,请重新输入用户名!", vbOKOnly + vbExclamation, "警告" txtUserName.SetFocusElse '查询指定用户名的记录 txtSQL = "select * from User_Info where userID='" & txtUserName.Text & "'" '执行查询语句 Set mrc = ExecuteSQL(txtSQL, MsgText)
第二点 要在onwork和 worklog表添加记录
txtSQL = "select * from User_I
‘把信息写入onwork表
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
mrc.Close
‘把信息写入worklog表
txtSQL = “select * from worklog_Info ”
Set mrc2 = ExecuteSQL(txtSQL, 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
第三点 要确定权限根据权限开放功能 ‘选择操作员就隐藏管理员
If Trim(UserLevel) = “操作员” Then
MDIFrmmain.操作员.Enabled = True
MDIFrmmain.一般用户.Enabled = True
MDIFrmmain.管理员.Enabled = False
MDIFrmmain.管理员.Visible = False
End If
‘选择一般用户,就隐藏管理员和操作员
If Trim(UserLevel) = “一般用户” Then
MDIFrmmain.一般用户.Enabled = True
MDIFrmmain.管理员.Enabled = False
MDIFrmmain.管理员.Visible = False
MDIFrmmain.操作员.Enabled = False
MDIFrmmain.操作员Visible = False
End If
- 机房收费之登陆窗体
- 机房收费系统之二(登陆窗体)
- 机房之登陆窗体
- 【机房收费系统】登陆窗体部分
- 机房收费之创建窗体
- VB查询数据库之登陆窗体——机房收费总结(一)
- 机房收费系统之注册窗体
- 机房收费系统之充值窗体
- 机房收费系统之退卡窗体
- 机房收费系统之条件查询窗体
- 机房收费系统之查看窗体
- 机房收费系统之主窗体
- 机房收费系统总结之关闭窗体
- 机房收费系统之MDI窗体
- 机房收费系统之结账窗体问题
- 机房收费系统之窗体遍历
- 机房收费之充值窗体
- 机房收费系统之窗体控件命名
- 一元钱兑换成1分、2分和5分的兑换方法种类
- Java项目中使用log记录日志的相关总结
- Python数据库常用的操作
- C语言进阶-第32讲:位运算及其应用
- iOS ~ json、字典和对象的区别
- 机房收费之登陆窗体
- 依赖注入DI
- C中使用汇编定义的字符串
- 机器学习实战——线性回归和局部加权线性回归(含python中复制的四种情形!)
- TreeView用法
- 四、c++十进制转二进制
- 关键路径--经典算法
- laravel 5.5 -- Cache
- Apache cxf实现WebServices--客户端调用