VB+SQL实训报告 10计管 36 袁晨帅(3)

代码为：

frmInquiresinfo.Show Unload frmAddresultinfo

Private Sub 查询成绩信息_Click() frmAddresult.Show Unload frmInquiresinfo Unload frmLogin

Unload frmsetCourseinfo Unload frmAddclassinfo Unload frmAddcourseinfo Unload frmAddsinfo Unload frmadduser

Unload frmModifyclassinfo Unload frmModifyresultinfo Unload frmModifycourseinfo Unload frmModifyuserinfo Unload frmModifyinfo Unload frmAddresultinfo End Sub

Private Sub 查询学籍信息_Click()

11

Unload frmLogin

Unload frmsetCourseinfo Unload frmAddclassinfo Unload frmAddcourseinfo Unload frmAddsinfo Unload frmadduser

Unload frmModifyclassinfo Unload frmModifyresultinfo Unload frmModifycourseinfo Unload frmModifyuserinfo Unload frmModifyinfo Unload frmAddresultinfo End Sub

Private Sub 登录用户_Click()

frmLogin.Show

Unload frmAddresult Unload frmInquiresinfo Unload frmsetCourseinfo Unload frmAddclassinfo Unload frmAddcourseinfo Unload frmAddsinfo Unload frmadduser

Unload frmModifyclassinfo Unload frmModifyresultinfo Unload frmModifycourseinfo Unload frmModifyuserinfo Unload frmModifyinfo Unload frmAddresultinfo End Sub

Private Sub 设置年级信息_Click()

frmsetCourseinfo.Show Unload frmAddresultinfo Unload frmInquiresinfo Unload frmLogin

Unload frmAddclassinfo Unload frmAddcourseinfo Unload frmAddsinfo Unload frmadduser

Unload frmModifyclassinfo Unload frmModifyresultinfo

12

Unload frmModifycourseinfo Unload frmModifyuserinfo Unload frmModifyinfo Unload frmAddresultinfo End Sub

Private Sub 添加班级信息_Click()

frmAddclassinfo.Show Unload frmAddresult Unload frmInquiresinfo Unload frmLogin

Unload frmsetCourseinfo Unload frmAddcourseinfo Unload frmAddsinfo Unload frmadduser

Unload frmModifyclassinfo Unload frmModifyresultinfo Unload frmModifycourseinfo Unload frmModifyuserinfo Unload frmModifyinfo Unload frmAddresultinfo End Sub

Private Sub 添加成绩信息_Click()

frmAddresultinfo.Show Unload frmInquiresinfo Unload frmLogin

Unload frmsetCourseinfo Unload frmAddclassinfo Unload frmAddcourseinfo Unload frmAddsinfo Unload frmadduser

Unload frmModifyclassinfo Unload frmModifyresultinfo Unload frmModifycourseinfo Unload frmModifyuserinfo Unload frmModifyinfo Unload frmAddresult End Sub

Private Sub 添加课程信息_Click()

13

frmAddcourseinfo.Show Unload frmAddresultinfo Unload frmInquiresinfo Unload frmLogin

Unload frmsetCourseinfo Unload frmAddclassinfo Unload frmAddsinfo Unload frmadduser

Unload frmModifyclassinfo Unload frmModifyresultinfo Unload frmModifycourseinfo Unload frmModifyuserinfo Unload frmModifyinfo Unload frmAddresult End Sub

Private Sub 添加学籍信息_Click()

frmAddsinfo.Show frmAddresultinfo.Show Unload frmInquiresinfo Unload frmLogin

Unload frmsetCourseinfo Unload frmAddclassinfo Unload frmAddcourseinfo Unload frmadduser

Unload frmModifyclassinfo Unload frmModifyresultinfo Unload frmModifycourseinfo Unload frmModifyuserinfo Unload frmModifyinfo Unload frmAddresult End Sub

Private Sub 添加用户_Click()

frmadduser.Show

Unload frmAddresultinfo Unload frmInquiresinfo Unload frmLogin

Unload frmsetCourseinfo Unload frmAddclassinfo Unload frmAddcourseinfo

14

Unload frmAddsinfo

Unload frmModifyclassinfo Unload frmModifyresultinfo Unload frmModifycourseinfo Unload frmModifyuserinfo Unload frmModifyinfo Unload frmAddresult End Sub

Private Sub 修改班级信息_Click()

frmModifyclassinfo.Show Unload frmAddresultinfo Unload frmInquiresinfo Unload frmLogin

Unload frmsetCourseinfo Unload frmAddclassinfo Unload frmAddcourseinfo Unload frmAddsinfo Unload frmadduser

Unload frmModifyresultinfo Unload frmModifycourseinfo Unload frmModifyuserinfo Unload frmModifyinfo Unload frmAddresult End Sub

Private Sub 修改成绩信息_Click() frmModifyresultinfo.Show Unload frmAddresultinfo Unload frmInquiresinfo Unload frmLogin

Unload frmsetCourseinfo Unload frmAddclassinfo Unload frmAddcourseinfo Unload frmAddsinfo Unload frmadduser

Unload frmModifyclassinfo Unload frmModifycourseinfo Unload frmModifyuserinfo Unload frmModifyinfo Unload frmAddresult End Sub

15