登陆表格可以说是一个系统的平台,平台的简洁性、为人民服务的程度以及操作的便捷性直接影响着用户对该系统的喜好。 也就是说,用户是否选择你的系统在很大程度上由第一眼决定。
关于学生信息管理系统的登录画面,其实是一句话。 看看腾讯QQ是怎么做的就好了。
登录界面中需要注意的问题主要有以下几点。
1、系统的第一个界面只有登录界面
这意味着在系统开始运行时将登录表单设置为模式表单。 模式表单是指一个界面上只能存在一个表单,如果要加载另一个表单,则必须首先卸载该表单。 就像QQ的登录画面一样,登录不成功之前无法进入QQ的主画面。 这个功能是通过模块中的Sub Main函数实现的。
Sub main () )。
Dim flogin As New frmLogin
flogin.Show vbModal '将登录表单转换为模式表单
If Not flogin.ok Then
结束
End If
取消加载标志in
Set fmainform=New frmMain '表示主窗体的实例
fmainform.Show
结束子
2、判断用户名
判断用户名有两种判断方式:用户名是否为空和用户名是否存在。 这用于If函数的嵌套,需要多层If函数的判断。
判断是否为空:
username=' '
If txtUserName.Text='' Then”首先确定用户名是否为空
MsgBox '用户名不能为空。 请先输入用户名!' 、vbOKOnly vbExclamation、'警告'
txtUserName.SetFocus
确定是否存在:(确定是否存在时,首先从数据库中获取数据) )。
Else '获取数据库中的用户名
txtsql=' select * fromuser _ infowhereuser _ id=' ' txtusername.text ' '
setMRC=executeSQL(txtsql,msgtext ) ) ) ) ) ) ) ) ) ) )。
'确定用户名是否存在
If mrc.EOF=True Then '不存在时
MsgBox '中没有此用户。 请重新输入用户名!' 、vbOKOnly vbExclamation、'警告'
txtUserName.SetFocus
如果有Else ',就判断密码是否正确
3、判断密码是否正确
iftrim(MRC.fields(1) )=trim ) txtpassword.text ) Then '密码正确
确定=真
mrc.Close
Me.Hide
username=trim(txtusername.text ) )。
Else '密码不正确
MsgBox '密码输入不正确。 请再输入一次!' 、vbOKOnly vbExclamation、'警告'
txtPassword.SetFocus
txtPassword.Text=' '
End If
4、限制登录次数
为了保证系统用户的安全,必须限制登录次数,不能无限登录。 其实现方法是定义记录登录次数的变量
micount=micount 1
If micount=3 Then '最多登录三次
Me.Hide
End If
Exit Sub
5、限制用户名和密码文本框的字符长度和数据类型
这个虽然小,但作用很大。 完全不了解系统的人使用系统时,为了顺利进行,需要这些提示。 字符长度设置是文本框的MaxLength属性,数据类型受数据库表的限制。
登录界面的人性化还在提高!