机房系统（一）——【修改密码 & 登录 】

前言
进行机房也有一段时间了，一直处于走迷宫的状态不知从何入手。从生活中出发，我们在使用某个系统时，一般情况下最先进入该系统的登录页面。现在轮到自己敲系统了，当然也是从登录开始啦。
正文
机房收费系统登录窗体的思路，和有源码的学生系统的思路是大同小异的。这次在之前基础之上加了一个判断为空或错误时的红星号提示。让用户一目了然。
初步流程图如下：

实现上述功能的部分代码如下：

'判断输入用户名或密码是否为空，分为空值和非空值两种情况
    If Trim(txtUserName.Text = "") Or Trim(txtPassword.Text = "") Then '1、如果用户名或者密码为空，则弹出提示框
        MsgBox "用户名或密码不能为空，请您重新输入!", vbOKOnly + vbExclamation, "温馨提示"
        
        '为空时给予红色星号提示
        If Trim(txtUserName.Text = "") Then
            Label4.Visible = True
            txtUserName.SetFocus    '用户名文本框获得焦点
        Else
            Label5.Visible = True
            txtPassword.SetFocus
        End If

 '2、用户名和密码不为空，执行下一步，查询数据库中信息，判断输入信息是否正确
        
    Else