【学生系统】——登录界面

    登录窗体可谓是一个系统的门面，这个门面的简洁程度、为人民服务的程度以及易操作程度将直接影响用户对这个系统的喜爱程度，也就是说第一眼很大程度的决定了用户是否选择你的系统。

    关于学生信息管理系统登录界面其实就是一句话：看看腾讯QQ是怎么做的就好了！

    登录界面要注意的问题主要有以下几方面：

    1、系统的首界面只能是登录界面

       意思就是在系统开始运行的时候将登录窗体设置成模式窗体，模式窗体是在一个界面只能存在这一个窗体，如果是加载别的窗体则应先卸载此窗体。就像QQ的登录界面，在登录未成功之前是进入不了QQ的主界面的。这个功能是由模块中的Sub Main函数来实现的：

        Sub main()
          Dim flogin As New frmLogin
          flogin.Show vbModal                  '使得登录窗体是模式窗体
  
          If Not flogin.ok Then
            End
          End If

          Unload flogin
  
          Set fmainform = New frmMain                  '显示主窗体实例
          fmainform.Show
        End Sub

    2、判断用户名

       判断用户名有两层判断，一个是判断用户名是否为空，一个是判断用户名是否存在。这就用到了If函数的嵌套，需要多层IF函数的判断。

       判断是否为空：

          username = ""
          If txtUserName.Text = "" Then                '先判断用户名是否为空
            MsgBox "用户名不能为空，请先输入用户名！", vbOKOnly + vbExclamation, "警告"
            txtUserName.SetFocus

       判断是否存在：（判断是否存在时要先从数据库中得到数据）

          Else                                        '得到数据库中的用户名
            txtsql = "select * from user_Info where user_ID= '" & txtUserName.Text & "'"
            Set mrc = executesql(txtsql, msgtext)
            '判断用户名是否存在
            If mrc.EOF = True Then          '如果不存在
               MsgBox "没有这个用户，请重新输入用户名！", vbOKOnly + vbExclamation, "警告"
               txtUserName.SetFocus
            Else                     '如果存在则判断密码是否正确

    3、判断密码是否正确

          If Trim(mrc.Fields(1)) = Trim(txtPassword.Text) Then  '密码正确
            ok = True
            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属性，而数据类型则是由数据库表的限制。

    登录界面的人性化还有待提高！