学生作业管理系统方案

...wd......wd......wd...※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※2014级高级语言程序设计石家庄铁道大学四方学院集中实践报告书课题名称学生作业管理系统姓名学号系、部土木工程系专业班级指导教师刘仁芬2015年6月25日一、设计任务及要求：设计任务：学生作业管理系统要求：1．内容要求1.用户名认证：区别教师与同学的登录。2.新用户注册：要提交作业的同学设定自己的用户名和密码，并填入自己的真实姓名和学号。3.学生作业提交和查询功能：学生可以在提交作业并能查询以往作业的成绩。4.教师作业查询和下载功能：可将已完成作业下载批改。5.教师作业布置和成绩上传功能：教师可布置的作业，提交已经批改正的作业供学生查询。二、指导教师评语：三、成绩指导教师签名：年月日学生作业管理系统的开发1选题的意义作业管理系统将提供更合理快捷的查询信息，即可以单条件查询，也可以多条件组合查询。同时提供对用户发布最新资讯信息的功能。作业管理系统是一个更为实用的平台，学校可以在此发布所属的基本信息，详细信息，并可对学生和教师做出记录。既是信息发布的平台，也是信息管理的工具。2系统功能需求分析2.1系统概述设计一个网络版的作业管理系统，适用于某些学校。系统包括详细信息介绍，除了基本的信息，也包括各种用户的信息。除此以外，该系统最重要的可以方便管理员工对用户信息的记录，同时系统将整个信息整理，按不同的分类进展信息统计，工程主管就可以查看这些信息。2.2系统的组成及各模块的功能1.基本信息：管理员、客户和信息录入。学校管理的一些初始数据，也必须的。管理的其他模块全部是调用这些数据得到。2.用户管理：提供用户姓名、地址、、帐号等管理资料库功能。3.系统维护：数据整理、密码管理、数据去除等。4.对整个系统要有管理员进展管理，对某些需要及时更新的信息进展修改，添加或者删除。5.整个系统要求操作简捷，方便用户使用。2.3系统的运行环境1.系统使用环境操作系统:WindowsXP/7系统支持：Visualbasic6.0及以上版本支持库数据库：Access。硬件环境：处理器;IntelPentium166MX或者更高。硬盘：剩余使用空间1GB以上。内存：32MB以上。显卡：SVGA显示适配器。2.系统开发环境操作系统：WindowsXP/7。系统支持：VisualBasic6.03系统设计3.1总体构造设计登录主界面教师登录学生登录查寻作业登录主界面教师登录学生登录查寻作业管理教师表管理学生信息表查询课表上传作业查询平时成绩查询教师信息批改和修改作业录入学生成绩表图1总体模块图3.2数据库实现表1登录界面数据表字段名称数据类型字段大小姓名文本50密码文本50表2课表字段名称数据类型字段大小姓名文本255星期一文本255星期二文本255星期三文本255星期四文本255星期五文本255任课教师文本255班级文本255表3教师表字段名称数据类型字段大小姓名文本255所教课程文本255年龄文本文本长整型教龄文本文本长整型学历文本文本255出生年月日期/时间255性别文本255表4学生信息登记表字段名称数据类型字段大小姓名文本255学校文本255家庭住址文本255出生年月文本255学号文本2554系统实现4.1登录模块的设计与实现图2登录界面程序代码：PrivateSubCommand1_Click()学生登录界面.Show主界面.HideEndSubPrivateSubCommand2_Click()教师登录界面.ShowForm1.HideEndSub4.2其他模块的设计与实现图3教师登录主界面程序代码：PrivateSubAdodc1_Click()新增用户.ShowEndSubPrivateSubCombo1_Change()combo1bo1""EndSubPrivateSubCommand1_Click()Adodc1mandType=adCmdTextAdodc1.RecordSource="select*from用户名where姓名='"&combo1.Text&"'and密码="&Text2.TextAdodc1.RefreshIfAdodc1.Recordset.EOF=TrueThenMsgBox("密码错误")Else教师管理界面.Show教师登录界面.HideEndIfEndSubPrivateSubCommand2_Click()EndFrom1.ShowEndSubPrivateSubCommand3_Click()教师注册.ShowEndSubPrivateSubForm_Load()Adodc1.RefreshDoWhileAdodc1.Recordset.EOF=Falsecombo1.AddItemAdodc1.Recordset.Fields("姓名")Adodc1.Recordset.MoveNextLoopEndSub图4教师管理界面程序代码：PrivateSube_Click(IndexAsInteger)上传.Show教师管理界面.HideEndSubPrivateSubForm_Load()EndSubPrivateSubq_Click(IndexAsInteger)管理学生信息表.Show教师管理界面.HideEndSubPrivateSubt2_Click(IndexAsInteger)教师配课.ShowEndSubPrivateSubw_Click(IndexAsInteger)管理教师表.Show教师管理界面.HideEndSubPrivateSuby_Click(IndexAsInteger)录入平时成绩表.Show教师管理界面.HideEndSub图5教师注册程序代码：PrivateSubCommand1_Click()IfText1.Text=""AndText2.Text=""ThenMsgBox"请填写完整信息！",vbExclamation+vbOKOnly,"警告"Text1.SetFocusElseIfText1.Text<>""AndText2.Text=""ThenMsgBox"请填写完整信息！",vbExclamation+vbOKOnly,"警告"Text1.SetFocusElseIfText1.Text=""AndText2.Text<>""ThenMsgBox"请填写完整信息！",vbExclamation+vbOKOnly,"警告"Text1.SetFocusElseAdodc1.Recordset.AddNewAdodc1.Recordset.Fields(0)=Trim(Text1.Text)Adodc1.Recordset.Fields(1)=Trim(Text2.Text)Adodc1.Recordset.UpdateMsgBox"增加成功！",vbExclamation+vbOKOnlyAdodc1.Refresh教师登录界面.Show教师注册.HideEndIfEndSubPrivateSubCommand2_Click()Text1.Text=""Text2.Text=""EndSub图6录入平时成绩程序代码：PrivateSubCommand1_Click()Adodc1.Recordset.AddNewEndSubPrivateSubCommand2_Click()Adodc1.Recordset.UpdateEndSubPrivateSubCommand3_Click()UnloadMeEndSubPrivateSubCommand4_Click()Adodc1.Recordset.DeleteEndSub图7管理学生信息表程序代码：PrivateSubCommand1_Click()Adodc1.Recordset.UpdateMsgBox"已保存成功"EndSubPrivateSubCommand2_Click()Adodc1.Recordset.AddNewEndSubPrivateSubCommand3_Click()Adodc1.Recordset.DeleteMsgBox"已删除"EndSubPrivateSubCommand4_Click()UnloadMe教师管理界面.ShowEndSub图8管理教师表程序代码：PrivateSubCommand1_Click()Adodc1.Recordset.AddNewEndSubPrivateSubCommand2_Click()Adodc1.Recordset.UpdateMsgBox"已保存成功"EndSubPrivateSubCommand3_Click()Adodc1.Recordset.DeleteEndSubPrivateSubCommand4_Click()UnloadMe教师管理界面.ShowEndSub图9批改作业程序代码：PrivateSubCommand1_Click()CommonDialog1.ShowOpenDimzsAsStringwh=FreeFileOpenCommonDialog1.FileNameForInputAs#whI=0DoWhileNotEOF(wh)zs=zs+Input(1,#wh)I=I+1LoopText1=zsClose#whEndSubPrivateSubCommand2_Click()wh=FreeFileOpenCommonDialog1.FileNameForAppendAs#whDimzsAsString,xmAsStringwh1=FreeFileOpenCommonDialog2.FileNameForInputAs#wh1DoWhileNotEOF(wh1)Input#wh1,xmWrite#wh,xmLoopClose#wh1Close#whMsgBox"已保存成功"EndSubPrivateSubCommand3_Click()CommonDialog2.ShowOpenDimxmAsStringwh1=FreeFileOpenCommonDialog2.FileNameForInputAs#wh1I=0DoWhileNotEOF(wh1)xm=xm+Input(1,#wh1)I=I+1LoopText2=xmClose#wh1EndSub图10教师配课程序代码：PrivateSubCommand1_Click()配课.ShowEndSubPrivateSubCommand2_Click()Adodc1.Recordset.DeleteEndSub图11配课程序代码:PrivateSubCommand1_Click()IfText1.Text=""AndText2.Text=""AndText3.Text=""AndText4.Text=""AndText5.Text=""AndText6.Text=""AndText7.Text=""AndText8.Text=""ThenMsgBox"请填写完整信息！",vbExclamation+vbOKOnly,"警告"Text1.SetFocusElseAdodc1.Recordset.AddNewAdodc1.Recordset.Fields(0)=Trim(Text3.Text)Adodc1.Recordset.Fields(1)=Trim(Text4.Text)Adodc1.Recordset.Fields(2)=Trim(Text5.Text)Adodc1.Recordset.Fields(3)=Trim(Text6.Text)Adodc1.Recordset.Fields(4)=Trim(Text7.Text)Adodc1.Recordset.Fields(5)=Trim(Text8.Text)Adodc1.Recordset.Fields(6)=Trim(Text1.Text)Adodc1.Recordset.Fields(7)=Trim(Text2.Text)Adodc1.Recordset.UpdateMsgBox"增加成功！",vbExclamation+vbOKOnlyAdodc1.RefreshCallCommand2_ClickEndIfEndSubPrivateSubCommand2_Click()Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""Text5.Text=""Text6.Text=""Text7.Text=""Text8.Text=""EndSubPrivateSubCommand3_Click()课表.ShowForm1.HideEndSubPrivateSubForm_Load()Ado