学生档案管理系统Private Sub Form_Load() FrmLogin.Show 1 End Sub Private Sub lblUsers_Click() End Sub Private Sub mn_change_Click() FrmChangeMan.Show 1 End Sub Private Sub mn_class_Click() FrmClassMan.Show 1 End Sub Private Sub mn_eva_Click() FrmEvaMan.Show
Option Explicit Dim Bupdata As Boolean Dim i As Integer Private Sub Cmbdegree_Click() If Cmbdegree.Text = "定制" Then FrmTable.Show Cmbdegree.ListIndex = 0 End If End Sub Private Sub Cmbdepart_Click() If Cmbdepart.Text = "定制" Then FrmTable.Show Cmbdep
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(Name