Private Sub Command1_Click() If Text1.Text = "1" And Text2.Text = "1" Then Form1.Visible = False Form2.Visible = True Else MsgBox "密码有误或用户不存在,请重试!" Text2.Text = "" End If End Sub Private Sub Command2_Click( ) Text1.Text = "" Text2.Text = "" End Sub
学生档案管理系统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