学生成绩管理系统VB程序.docVIP

登陆 登陆 Private Sub cmdLogin_Click() If txtUser.Text = Then MsgBox (请输入用户名!) txtUser.SetFocus Else Call openconn sql = select * from login where username= Trim(txtUser.Text) and password= Trim(txtPwd.Text) rs.Open sql, conn, adOpenDynamic, adLockOptimistic If rs.EOF Then MsgBox 用户不存在！ Else Unload Me frmMain.Show End If End If End Sub 退出 Private Sub cmdRegister_Click() Unload Me End Sub 功能选择 选课管理 Private Sub cmdChoice_Click() frmChoice.Show Unload Me End Sub 退出 Private Sub cmdExit_Click() End End Sub 查询 Private Sub cmdFind_Click() frmFind.Show Unload Me End Sub