辅助答辩-高校学生成绩管理系统的设计与实现

《辅助答辩-高校学生成绩管理系统的设计与实现》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、E-R图：注释：数据库表：注释：登陆界面：关键程序代码如下：PrivateSubImage1_Click()DimrsAsNewADODB.RecordsetSelectCaseMe.Combo1.TextCase"管理员"Setrs=ExecSql("select*from管理员where名称='"&Trim(Me.Text3(0).Text)&"'and密码='"&Trim(Me.Text3(1).Text)&"'")WithrsIf.RecordCount>0ThenstrRyID=Me.Text3(0).Textstrjs="管理员"frmM

2、ain.ShowUnloadMeElseMsgBox"帐号或密码错误!"ExitSubEndIfEndWithCase"教师"Setrs=ExecSql("select*from老师where工号='"&Trim(Me.Text3(0).Text)&"'and密码='"&Trim(Me.Text3(1).Text)&"'")WithrsIf.RecordCount>0ThenstrRyID=Me.Text3(0).Textstrjs="教师"frmMain.ShowUnloadMeElseMsgBox"帐号或密码错误!"ExitSubEndIfEnd

3、WithCase"学生"Setrs=ExecSql("select*from学生where学号='"&Trim(Me.Text3(0).Text)&"'and密码='"&Trim(Me.Text3(1).Text)&"'")WithrsIf.RecordCount>0ThenstrRyID=Me.Text3(0).Textstrjs="学生"frmMain.ShowUnloadMeElseMsgBox"帐号或密码错误!"ExitSubEndIfEndWithEndSelectEndSub班级（学生）信息维护：关键代码如下：班级登记模块：Private

4、Subbtn添加_Click()'添加新的班级IfExecSql("select*from班级where班级名称='"&Trim(Me.Text2(0).Text)&"'").RecordCount>0ThenMsgBox"班级名称不能重复!"ExitSubEndIfCallExec_SqL("insertinto班级(班级名称)values('"&Trim(Me.Text2(0).Text)&"')")UnloadMeEndSubPrivateSubUserControl12_Click()'删除当前的班级IfExecSql("select*fro

5、m学生where班级代码="&Me.Text2(0).Tag&"").RecordCount>0ThenMsgBox"此班级下有学生信息,不能删除!"ExitSubEndIfCallExec_SqL("deletefrom班级where班级代码="&Me.Text2(0).Tag&"")UnloadMeEndSub学生登记代码：PrivateSubbtnDel_Click()'删除当前的学生信息IfMsgBox("您确实要删除当前学生吗?",4+256+64,"")=vbNoThenExitSubCallExec_SqL("deletefrom学生w

6、here学号='"&Text2.Text&"'")UnloadMeEndSubPrivateSubbtn添加_Click()'根据不同的标志添加或修改学生信息IfMe.btnDel.Enabled=FalseThen'添加IfExecSql("select*from学生where学号='"&Me.Text2.Text&"'").RecordCount>0ThenMsgBox"学号重复"ExitSubEndIfCallExec_SqL("insertinto学生(学号,姓名,性别,年龄,班级代码,密码,民族,生源地,出生日期,入学日期)values('

7、"&Me.Text2.Text&"','"&Me.Text1.Text&"','"&Me.Combo1.Text&"','"&Me.Text3.Text&"',"&Me.Text13.Tag&",'000000','"&Me.Combo2(1).Text&"','"&Me.Text4.Text&"','"&Me.DTPicker2.Value&"','"&Me.DTPicker3.Value&"')")Else'修改CallExec_SqL("update学生set姓名='"&Me.Text1.Text&"',性别='"&Me.Combo1.Text

8、&"',年龄='"&Me.Text3.Text&"',民族='"&Me.Combo2(1).Text&"',