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

ER图包含1N班级学生教师包含1N课程教师课程学生课程选择1N包含1N分配1N注释数据库表注释登陆界面关键程序代码如下PRIVATESUBIMAGE1_CLICKDIMRSASNEWADODBRECORDSETSELECTCASEMECOMBO1TEXTCASE“管理员“SETRSEXECSQL“SELECTFROM管理员WHERE名称“TRIMMETEXT30TEXT“AND密码“TRIMMETEXT31TEXT“WITHRSIFRECORDCOUNT0THENSTRRYIDMETEXT30TEXTSTRJS“管理员“FRMMAINSHOWUNLOADMEELSEMSGBOX“帐号或密码错误“EXITSUBENDIFENDWITHCASE“教师“SETRSEXECSQL“SELECTFROM老师WHERE工号“TRIMMETEXT30TEXT“AND密码“TRIMMETEXT31TEXT“WITHRSIFRECORDCOUNT0THENSTRRYIDMETEXT30TEXTSTRJS“教师“FRMMAINSHOWUNLOADMEELSEMSGBOX“帐号或密码错误“EXITSUBENDIFENDWITHCASE“学生“SETRSEXECSQL“SELECTFROM学生WHERE学号“TRIMMETEXT30TEXT“AND密码“TRIMMETEXT31TEXT“WITHRSIFRECORDCOUNT0THENSTRRYIDMETEXT30TEXTSTRJS“学生“FRMMAINSHOWUNLOADMEELSEMSGBOX“帐号或密码错误“EXITSUBENDIFENDWITHENDSELECTENDSUB班级（学生）信息维护关键代码如下班级登记模块PRIVATESUBBTN添加_CLICK添加新的班级IFEXECSQL“SELECTFROM班级WHERE班级名称“TRIMMETEXT20TEXT“RECORDCOUNT0THENMSGBOX“班级名称不能重复“EXITSUBENDIFCALLEXEC_SQL“INSERTINTO班级班级名称VALUES“TRIMMETEXT20TEXT“UNLOADMEENDSUBPRIVATESUBUSERCONTROL12_CLICK删除当前的班级IFEXECSQL“SELECTFROM学生WHERE班级代码“METEXT20TAG“RECORDCOUNT0THENMSGBOX“此班级下有学生信息,不能删除“EXITSUBENDIFCALLEXEC_SQL“DELETEFROM班级WHERE班级代码“METEXT20TAG“UNLOADMEENDSUB学生登记代码PRIVATESUBBTNDEL_CLICK删除当前的学生信息IFMSGBOX“您确实要删除当前学生吗“,425664,“VBNOTHENEXITSUBCALLEXEC_SQL“DELETEFROM学生WHERE学号“TEXT2TEXT“UNLOADMEENDSUBPRIVATESUBBTN添加_CLICK根据不同的标志添加或修改学生信息IFMEBTNDELENABLEDFALSETHEN添加IFEXECSQL“SELECTFROM学生WHERE学号“METEXT2TEXT“RECORDCOUNT0THENMSGBOX“学号重复“EXITSUBENDIFCALLEXEC_SQL“INSERTINTO学生学号,姓名,性别,年龄,班级代码,密码,民族,生源地,出生日期,入学日期VALUES“METEXT2TEXT“,“METEXT1TEXT“,“MECOMBO1TEXT“,“METEXT3TEXT“,“METEXT13TAG“,000000,“MECOMBO21TEXT“,“METEXT4TEXT“,“MEDTPICKER2VALUE“,“MEDTPICKER3VALUE“ELSE修改CALLEXEC_SQL“UPDATE学生SET姓名“METEXT1TEXT“,性别“MECOMBO1TEXT“,年龄“METEXT3TEXT“,民族“MECOMBO21TEXT“,生源地“METEXT4TEXT“,出生日期“MEDTPICKER2VALUE“,入学日期“MEDTPICKER3VALUE“WHERE学号“METEXT2TEXT“ENDIFUNLOADMEENDSUB教师信息维护关键代码如下PRIVATESUBBTNADD_CLICK根据不同的标志添加或修改教师信息IFMEBTNDELENABLEDFALSETHEN添加IFEXECSQL“SELECTFROM老师WHERE工号“METXTGHTEXT“RECORDCOUNT0THENMSGBOX“工号重复“EXITSUBENDIFCALLEXEC_SQL“INSERTINTO老师工号,姓名,性别,年龄,介绍,密码VALUES“METXTGHTEXT“,“METXTXMTEXT“,“MECBXBTEXT“,“METXTNLTEXT“,“METXTJSTEXT“,000000“ELSE修改CALLEXEC_SQL“UPDATE老师SET姓名“METXTXMTEXT“,性别“MECBXBTEXT“,年龄“METXTNLTEXT“,介绍“METXTJSTEXT“WHERE工号“METXTGHTEXT“ENDIFUNLOADMEENDSUBPRIVATESUBBTNCANCEL_CLICKUNLOADMEENDSUBPRIVATESUBBTNDEL_CLICK删除当前的教师信息IFMSGBOX“您确实要删除当前教师吗“,425664,“VBNOTHENEXITSUBCALLEXEC_SQL“DELETEFROM老师WHERE工号“METXTGHTEXT“UNLOADMEENDSUBPRIVATESUBFORM_ACTIVATE显示指定的教师信息METXTGHENABLEDTRUEIFBTNDELENABLEDTRUETHENDIMTMPRSASNEWADODBRECORDSETSETTMPRSEXECSQL“SELECTFROM老师WHERE工号“METXTGHTEXT“WITHTMPRSIFRECORDCOUNT0THENMETXTGHENABLEDFALSEMETXTXMTEXTFIELDS“姓名“VALUECALLGETCOMBOINDEXMECBXB,FIELDS“性别“VALUEMETXTNLTEXTFIELDS“年龄“VALUEMETXTJSTEXTFIELDS“介绍“VALUEENDIFENDWITHENDIFENDSUB教师课程设置关键代码如下PRIVATESUBBTNADD_CLICK添加新的课程设置IFEXECSQL“SELECTFROM老师课程WHERE工号“METEXT2TAG“AND课程代码“METEXT1TAG“RECORDCOUNT0THENMSGBOX“课程设置重复“EXITSUBENDIFCALLEXEC_SQL“INSERTINTO老师课程工号,课程代码VALUES“METEXT2TAG“,“METEXT1TAG“UNLOADMEENDSUBPRIVATESUBBTNDEL_CLICK删除当前的课程设置IFEXECSQL“SELECTFROM学生成绩WHERE老师课程代码“METAG“RECORDCOUNT0THENMSGBOX“当前设置的课程存在学生成绩“EXITSUBENDIFCALLEXEC_SQL“DELETEFROM老师课程WHERE代码“METAG“UNLOADMEENDSUBPRIVATESUBFORM_ACTIVATE显示指定的课程设置IFBTNDELENABLEDTRUETHENDIMTMPRSASNEWADODBRECORDSETSETTMPRSEXECSQL“SELECTFROM老师课程,课程,老师WHERE老师课程课程代码课程课程代码AND老师课程工号老师工号AND老师课程代码“FRMKCSZTAG“WITHTMPRSIFRECORDCOUNT0THENMETEXT2TEXTFIELDS“姓名“VALUEMETEXT1TEXTFIELDS“课程名称“VALUEENDIFENDWITHENDIFENDSUB班级学生综合查询（学生信息查询）关键代码如下按班级条件查询班级信息列表CALLUPDATETREEMETREEVIEW1,EXECSQL“SELECT班级代码,班级名称FROM班级WHERE班级名称LIKE“METEXT20TEXT“,6,“BJ“,“班级列表“,1METREEVIEW1NODES1EXPANDEDTRUEMETREEVIEW1SELECTEDITEMMETREEVIEW1NODES1CALLUPDATELIST“ENDSUBPRIVATESUBUSERCONTROL11_CLICK按学号姓名过滤学生信息CALLUPDATELIST“AND学号LIKE“METEXT21TEXT“AND姓名LIKE“METEXT22TEXT“ENDSUB学生成绩查询关键代码如下PRIVATESUBBTN添加_CLICK将选中的列表纪录的内容显示在FRMXS的相应的控件上显示IFDDDTEXTMATRIXDDDROW,0“THENEXITSUBFRMXRCJTEXT2TAGTRIMDDDTEXTMATRIXDDDROW,0FRMXRCJSHOW1CALLUPDATELISTENDSUBPRIVATESUBUSERCONTROL11_CLICK将选中的列表纪录的内容显示在FRMXS的相应的控件上显示IFDDDTEXTMATRIXDDDROW,0“THENEXITSUBCALLEXEC_SQL“UPDATE学生成绩SET课程成绩WHERE代码“TRIMDDDTEXTMATRIXDDDROW,0“CALLUPDATELISTENDSUBPUBLICSUBUPDATELIST显示列表的样式和标题将查询到的学生信息显示在列表中1DIMARRNAMEARRNAMEARRAY“代码“,“学号“,“姓名“,“性别“,“年龄“,“班级名称“,“入学日期“,“课程名称“,“课时数“,“任课教师“,“成绩名称“,“成绩类型“,“课程成绩“DIMARRCOLWIDTHARRCOLWIDTHARRAY0,1500,1500,1500,1500,1500,1500,1500,1500,1500,1500,0,DDDWIDTH13800DDDCOLS13DDDROWS2DIMIASLONGFORI0TODDDCOLS1DDDCOLWIDTHIARRCOLWIDTHIDDDTEXTMATRIX0,IARRNAMEIDDDTEXTMATRIX1,I“NEXTDDDROWS402CALLUPDATEDDDDDD,EXECSQL“SELECT代码,学号,姓名,性别,年龄,班级名称,入学日期,课程名称,课时数,任课教师,成绩名称,成绩类型,课程成绩FROM学生成绩WHERE学号“STRRYID“ENDSUB学生课程登记关键代码如下PRIVATESUBBTNADD_CLICKDIMTMPRSASNEWADODBRECORDSETIFMETEXT1TAG“THENMSGBOX“学生课程不能为空“EXITSUBENDIFSETTMPRSEXECSQL“SELECTFROMV_学生课程WHERE代码“METEXT1TAGIFTMPRSRECORDCOUNT0THENWITHTMPRSCALLEXEC_SQL“INSERTINTO学生成绩学号,班级名称,入学日期,课程名称,课时数,任课教师,学生课程代码,成绩名称,成绩类型,课程成绩,姓名,性别,年龄VALUES“FIELDS“学号“VALUE“,“FIELDS“班级名称“VALUE“,“FIELDS“入学日期“VALUE“,“FIELDS“课程名称“VALUE“,“FIELDS“课时数“VALUE“,“FIELDS“姓名“VALUE“,“FIELDS“代码“VALUE“,“METEXT3TEXT“,“MECOMBO2TEXT“,“METEXT2TEXT“,“FIELDS“学生姓名“VALUE“,“FIELDS“性别“VALUE“,“FIELDS“年龄“VALUE“ENDWITHENDIFUNLOADMEENDSUB录入学生成绩关键代码如下PRIVATESUBBTNADD_CLICK保存学生成绩信息IFMETEXT1TAG“THENEXITSUBIFMSGBOX“请仔细核对录入成绩信息,录入后不能继续操作,是否继续“,425664,“提示“VBYESTHENEXITSUBCALLEXEC_SQL“INSERTINTO学生成绩学号,班课代码,记录时间,考试名称,考试成绩VALU