VB课设学生成绩管理系统

VB课设，保证合格，全套，有代码'数据有效性检查 If txtUser = "" Then MsgBox "请输入用户名" txtUser.SetFocus Exit Sub End If If txtPwd = "" Then MsgBox "请输入密码" txtPwd.SetFocus Exit Sub End If NameKey = MakeStr(txtUser) PasswordKey = MakeStr(txtPwd) '判断用户是否存在 If MyUser.In_DB(NameKey) = False Then MsgBox "用户名不 存在" Try_times = Try_times + 1 If Try_times >= 3 Then MsgBox "您已经三次尝试进入本系统，均不成功，系统将关闭" DBapi_Disconnect End Else Exit Sub End If End If '判断密码是否正确 If MyUser.GetPwd(NameKey) PasswordKey Then MsgBox "密码错误" Try_times = Try_times + 1 If Try_times >= 3 Then MsgBox "您已经三次尝试进入本系统，均不成功，系统将关闭" … End If '登录成功，将当前用户的信息保存在CurUser中 CurUser.UserName = MyUser.UserName '关闭自己 Unload Me End Sub 存在" Try_times = Try_times + 1 If Try_times >= 3 Then MsgBox "您已经三次尝试进入本系统，均不成功，系统将关闭" DBapi_Disconnect End Else Exit Sub End If End If '判断密码是否正确 If MyUser.GetPwd(NameKey) PasswordKey Then MsgBox "密码错误" Try_times = Try_times + 1 If Try_times >= 3 Then MsgBox "您已经三次尝试进入本系统，均不成功，系统将关闭" … End If '登录成功，将当前用户的信息保存在CurUser中 CurUser.UserName = MyUser.UserName '关闭自己 Unload Me End Sub