学生信息管理系统VB课程设计(9)

第4章 详细设计

4.1 登录界面设计

如图4-1。

图4-1 登录界面

登录控件编码：

Private Sub cmdOK_Click()

If txtUserName.Text = "" Then

MsgBox "请填写用户名！", vbOKOnly + vbInformation, "注意" txtUserName.SetFocus Exit Sub

ElseIf txtPassword.Text = "" Then

MsgBox "请填写密码！", vbOKOnly + vbInformation, "注意" txtPassword.SetFocus Exit Sub End If

g_bLogin = True

If IsExistUser(txtUserName, txtPassword) = True Then Unload Login frmSearch.Show Else

If IsExistUser(txtUserName, "") = True Then

MsgBox "密码不正确！请重试 ", vbOKOnly + vbInformation, "错误" Else

MsgBox "无此用户！请先注册 ", vbOKOnly + vbInformation, "错误" cmdRegister.SetFocus End If End If

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说教育文库学生信息管理系统VB课程设计(9)在线全文阅读。