文档介绍：物流运输管理系统-论文
物流运输管理系统
 用户登陆表单
新建立FRMLOGIN表单
是用来确定进入系统的身份验证
用户输入密码后,经过系统确认后,方可以进入系统,否则进入不了系统。防止无关的人员进入系统中,违规操作业务。
 
登陆窗体的控件及属性取值如下:
控件 属性 属性取值
Labe1 Name Labe1
 Caption 密码
Text Name txtItem
commandbutton Name cmdOk
 Caption 确定
commandbutton Name cmdExit
 Caption 取消
代码如下:
Private Sub cmdCancel_Click()          //对押下“取消”键的处理
    eeded = False            // 登陆失败
    Unload Me                       //退出当前的窗口
End Sub
Private Sub cmdOK_Click() //对押下“确定”键的处理
    If trycount <= 5 Then //如果输入用户名密码出错次数小于5
        If (Trim(txtUserName) = "") Or (Trim(txtPassword) = "") Then //如果用户名和密码都为空
            trycount = trycount + 1  //出错次数加1
            MsgBox "用户名密码不能为空!", , "信息提示"
//输出用户密码不能为空的提示
        Else    
            Dim strsql As String //定义string类型的变量strsql
            Dim rs As New // 定义一个ADO记录集rs
            strsql = "SELECT PASSWORD FROM MYUSERS WHERE USERNAME = '" & Trim(txtUserName) & "'"   
/*给变量strsql赋值,为“SELECT PASSWORD FROM MYUSERS WHERE USERNAME = t xtUserName*/
            Set rs = (strsql)
//(strsql) ,rs为//返回结果
            If Not ( Or ) Then //如果查询有结果
                If Trim(txtPassword) = ("PASSWORD") Then
//对密码进行判断,如果密码正确
                    trycount = 0 /出错的次数赋值为0
                    eeded = True //登陆成功
                                  //隐藏登陆框
                            //主窗口显示 
                Else
                    trycount = trycount + 1  //否则出错次数加1
                    MsgBox "无效的密码,请重试!", , "信息提示"
//弹出提示框提示信息:无效的密码,请重试!
                    //focus落在密码处
                    SendKeys "{Home}+{End}" //发送 HOME 和END 键
                End If
          /********************************************************/
是不是与上面的那段重复了呀?
  Else
                trycount = trycount + 1
                MsgBox "无效的密码,请重试!", , "信息提示"