评价网 > 科教论文 > 工学毕业论文 > 计算机论文 > 正文

电子教务管理系统vb(一)毕业论文(2)

2013-05-06 18:02 ;      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