vb编写的简单学生成绩查询系统
Sub pingbi3()
Form10.Command4.Visible = False
End Sub
Sub pingbi1()
Form2.修改.Visible = False
Form2.添加.Visible = False
Form2.删除.Visible = False
End Sub
Sub pingbi2()
Form10.Command2.Visible = False
End Sub
Private Sub 管理员_Click()
Unload Me
Form9.Show
pingbi3
End Sub
Private Sub 取消_Click()
End
End Sub
Private Sub 退出_Click()
End
End Sub
Private Sub 学生_Click()
Unload Me
Form10.Visible = True
pingbi1
pingbi2
Form10.Command4.Visible = True
End Sub