电子教务管理系统vb(二)

电子教务管理系统vb(二) ;      If mrc.EOF = True Then
            CmbUser.SetFocus
        Else
            If Trim(mrc!密码) = Trim(Txtpassword.Text) Then
                LoginUser = mrc!登录姓名
                Permission = mrc!权限
                If Check1.Value = 1 Then
                    r = WritePrivateProfileString("用户信息", "姓名", CmbUser.Text, App.Path + "\电子教务系统.ini")
                    s = WritePrivateProfileString("用户信息", "密码", Txtpassword.Text, App.Path + "\电子教务系统.ini")
                    If r <> 1 Or s <> 1 Then
                       MsgBox "写基本信息出错！", 48, App.Title
                     End If
                Else
                    r = WritePrivateProfileString("用户信息", "姓名", "", App.Path + "\电子教务系统.ini")
                    s = WritePrivateProfileString("用户信息", "密码", "", App.Path + "\电子教务系统.ini")
                End If
                mrc.Close
                Me.Hide
                Exit Sub
            Else
                Txtpassword.SetFocus
                Txtpassword.Text = ""
            End If
        End If
    End If
   
    miCount = miCount + 1
    MsgBox "登录错误，你还有" & 3 - miCount & "次机会！", vbOKOnly + vbExclamation, "警告"
    If miCount = 3 Then
        Me.Hide
    End If

首页 上一页 1 2 3 4 5 6 7 下一页 尾页 2/14/14

电子教务管理系统vb(二)由毕业论文网（www.huoyuandh.com）会员上传。