机房收费系统--登录窗体

在对机房收费系统有了大致的认识后，就开始做登录窗体了。登录窗体是最简单的，但是我们需要先理清思路，最好是能画一个简单的流程图，这样就能理清逻辑，在敲代码的时候就会非常简单。

在这里需要注意以下几点：

1.用户输入信息不能为空：

    '查询条件If Trim(txtUserName.Text = "") ThenMsgBox "用户名称不能为空，请重新输入！", vbOKOnly + vbExclamation, "警告"txtUserName.SetFocusElseIf Trim(txtPassword.Text = "") ThenMsgBox "用户密码不能为空，请重新输入！", vbOKOnly + vbExclamation, "警告"txtUserName.SetFocusEnd if

2.限制登录次数：

       '记载输入密码次数micount = micount + 1If micount = 1 ThenMsgBox "密码输入错误，您还有两次机会！", 48, "警告"txtPassword.SetFocustxtPassword.Text = ""Exit SubElseIf micount = 2 ThenMsgBox "密码输入错误，您还有一次机会！", 48, "警告"txtPassword.SetFocustxtPassword.Text = ""Exit SubElseIf micount = 3 ThenMsgBox "密码输入错误，程序即将关闭！", 48, "警告"txtPassword.SetFocustxtPassword.Text = ""Me.HideExit SubEnd IfEnd If

3.限制特殊字符：

'限制特殊字符
Private Sub txtUserName_KeyPress(KeyAscii As Integer)Const a As String = "'!','@','#','$','%','^','&','*','(',')','<','>','?',':',' ','{','}','-','+','=','_','[',']',',','.','?','\','|','/',''','’'"KeyAscii = IIf(InStr(a, Chr(KeyAscii)), 0, KeyAscii)
End Sub

4.限制不能复制粘贴

'不能复制粘贴
Private Sub txtPassword_KeyDown(KeyCode As Integer, Shift As Integer)If (KeyCode = 86 Or KeyCode = 67 Or KeyCode = 88) And Shift = 2 ThenMsgBox "不能粘贴复制", vbOKOnly + vbExclamation, "警告"txtPassword.Text = ""End If
End Sub

5.限制登录权限：

    '权限限制If Trim(mrc.Fields(1)) = "一般用户" ThenfrmMain.GeneralUser.Enabled = TruefrmMain.Operator.Enabled = FalsefrmMain.Operator.Visible = FalsefrmMain.Administrator.Enabled = FalsefrmMain.Administrator.Visible = FalseEnd IfIf Trim(mrc.Fields(1)) = "操作员" ThenfrmMain.GeneralUser.Enabled = TruefrmMain.Operator.Enabled = TruefrmMain.Administrator.Enabled = FalsefrmMain.Administrator.Visible = FalseEnd IfIf Trim(mrc.Fields(1)) = "管理员" ThenfrmMain.GeneralUser.Enabled = TruefrmMain.Operator.Enabled = TruefrmMain.Administrator.Enabled = TruefrmMain.Administrator.Visible = TrueEnd If

机房收费系统--登录窗体相关推荐

VB版机房收费系统”登录“--02
前言:所有软件一开始第一个功能都是登录,所以登录可以说是用户体验度非常重要的一个环节.假如:你的登录页面做的非常的不好看,而且用户登录的时间还长.这个会大大的影响到用户后面的功能体验,所以登录功能担任 ...
重构机房收费系统总结1之配置文件+反射+抽象工厂
在重构机房收费系统之前就一直听说这次重构要用反射+配置文件.深远的作用不知道,可是在这次重构用到,目的还是挺明白的:就是为了更换数据时方便,遵循开放-封闭原则.攻克了可维护和可扩展的问题. 以下就以机 ...
【机房收费系统】——傻瓜式报表设计器制作报表模板
一.下载安装Grid++Report5.0: 1.搜索下载Grid++Report5.0并安装:(附赠哟~但是建议大家自己去下载) 云盘分享:https://yunpan.cn/c6ggtnHFDsg ...
机房收费系统-- MDI子窗体显示技巧（续vb.net版）
在vb6.0版的机房收费系统中说道过这个问题,回顾请点击:http://blog.csdn.net/chenjinge7/article/details/8231546这次在vb.net版本中想再次利 ...
机房收费系统-- MDI子窗体显示技巧
我们所做的机房收费系统,是运用的MDI多窗体方式,对多类数据进行存取和查询!在窗体显示设置上主要会遇到这样两个问题: 一. 程序运行后,为达到使用效率高的目的,父窗体显示一个" 学生刷卡上下 ...
机房收费系统系列二：MDI子窗体和主窗体显示
在机房收费系统中,frmmain作为MDI的主窗体,想要在MDI主窗体上添加控件,picture控件是最好的伴侣,但是在添加了picture控件以后,问题也就随之而来了.点击子窗体的时候,子窗体被&q ...
机房收费系统问题集（2）——移动登陆界面+show出子窗体
安装上机房收费系统样本,连接上数据库,在运行的时候,我很是佩服机房收费系统的高大上在我亲自敲的时候遇到了下面的问题: (1)登陆界面不能用鼠标移动在机房收费系统的样本中,登陆界面 ...
VB.NET版机房收费系统---七仙女之系统登录
VB.NET第一版机房收费系统,告一段落,验收的时候,问题也是大大的存在,没有用上设计模式,什么触发器,存储过程,都没有用上,看看其她小伙伴的,七层实现登录?那是什么东东,相比较我的三层而言,多了两倍 ...
机房收费系统=三层+设计模式
在简单的三层登陆完成之后,我又在其中加入了设计模式,其中包括抽象工厂+反射和外观模式.关于设计模式,在学习三层之前我们已经系统的学习过,可是在这次往机房收费系统中加设计模式时,还是感觉无从下手,出现了 ...

机房收费系统--登录窗体

机房收费系统--登录窗体相关推荐

最新文章

热门文章