学生作业管理系统

1、探2014 级高级语言程序设计探石家庄铁道大学四方学院集中实践报告书课题名称学生作业管理系统姓名学号系、部土木工程系专业班级指导教师刘仁芬2015年6月25日一、设计任务及要求：设计任务：学生作业管理系统要求：1 内容要求1. 用户名认证：区别老师与同学的登录。2. 新用户注册：要提交作业的同学设定自己的用户名和密码，并填入自己的真实姓名和学号。3. 学生作业提交和查询功能：学生可以在提交作业并能查询以往作业的成绩。4. 老师作业查询和下载功能：可将已完成作业下载批改。5. 老师作业布置和成绩上传功能：老师可布置的作业，提交已经批改过的作业供 学生查询。二、指导教师评语:二、成绩学生 作业 管

2、理 系统 的开 发 1选题的指导教师签名：年月日意义作业管 理系统将提 供更合理快 捷的查询信 息，即可以 单条件查 询，也可以 多条件组合 查询。同时提供对用户发布最新资讯信息的功能。作业管理系统是一个更为实用的平台，学校可以在此发布所属的基本信息，详细信息，并可对 学生和教师做出记录。既是信息发布的平台，也是信息管理的工具。2系统功能需求分析2.1系统概述设计一个网络版的作业管理系统，适用于某些学校。系统包括详细信息介绍，除了基本的信息， 也包括各种用户的信息。除此以外，该系统最重要的可以方便管理员工对用户信息的记录， 同时系 统将整个信息整理，按不同的分类进行信息统计，项目主管就可以查看

3、这些信息。2.2系统的组成及各模块的功能1. 基本信息：管理员、客户和信息录入。学校管理的一些初始数据，也必须的。管理的其他模块 全部是调用这些数据得到。2. 用户管理：提供用户姓名、地址、电话、帐号等管理资料库功能。3. 系统维护：数据整理、密码管理、数据清除等。4. 对整个系统要有管理员进行管理，对某些需要及时更新的信息进行修改，添加或者删除。5. 整个系统要求操作简捷，方便用户使用。2.3系统的运行环境1. 系统使用环境操作系统：WindowsXP/7系统支持：Visualbasic6.0 及以上版本支持库 数据库：Access o硬件环境：处理器；IntelPentium166MX 或

4、者更高。硬盘：剩余使用空间1GB以上。内存：32MB以上。显卡：SVGA显示适配器。2. 系统开发环境操作系统：Win dowsXP/7系统支持：VisualBasic6.03系统设计3.1总体结构设计姓名文本ro字段名 姓名文本 星期一文 星期二文 星期三文TF业0表一 管一 耳管理录入anu职师表子生信息表子生成绩表蚀修改作业表2星期五文本255 任课教师文本255 班级文本255表3教师表字段名称数据类型字段大小姓名文所教课程文本255年龄文本文本长整型教龄文本文本长整型学历文本文本 255岀生年月日期/时间255性别文本255表4学生信息登记表字段名称数据类型字段大小姓名文本255学校

5、文本 255家庭住址文本 255出生年月文本 255 学号文本 2554 系统实现4.1 登录模块的设计与实现图 2 登录界面程序代码：PrivateSubCommand1_Click()学生登录界面 .Show主界面 .HideEndSubPrivateSubCommand2_Click()教师登录界面 .ShowForm1.HideEndSub4.2 其他模块的设计与实现图 3 教师登录主界面程序代码：PrivateSubAdodc1_Click()新增用户 .ShowEndSubPrivateSubCombo1_Change()bo1EndSubPrivateSubCommand1_Cl

6、ick()Adodc1.CommandType=adCmdTextAdodc1.RecordSource=select*from 用户名 where 姓名 =&combo1.Text&and 密码 =&Text2.TextAdodc1.RefreshMsgBox( 密码错误 )Else教师管理界面 .Show教师登录界面 .HideEndIfEndSubPrivateSubCommand2_Click()EndFrom1.ShowEndSubPrivateSubCommand3_Click() 教师注册 .Show EndSubPrivateSubForm_Load()Adodc1.Refre

7、shLoopEndSub图 4 教师管理界面 程序代码：PrivateSube_Click(IndexAsInteger) 上传 .Show 教师管理界面 .HideEndSubPrivateSubForm_Load()EndSubPrivateSubq_Click(IndexAsInteger) 管理学生信息表 .Show 教师管理界面 .HideEndSubPrivateSubt2_Click(IndexAsInteger)教师配课 .ShowEndSubPrivateSubw_Click(IndexAsInteger) 管理教师表 .Show 教师管理界面 .HideEndSubPriv

8、ateSuby_Click(IndexAsInteger) 录入平时成绩表 .Show 教师管理界面 .HideEndSub5 教师注册I!警告 图 程序代码：PrivateSubCommand1_Click() IfText1.Text=AndText2.Text=ThenMsgBox 请填写完整信息！ ,vbExclamation+vbOKOnly, Text1.SetFocusElseIfText1.TextAndText2.Text=ThenMsgBox 请填写完整信息！ ,vbExclamation+vbOKOnly,苞女 Ap. 1!警告 Text1.SetFocusElseIfT

9、ext1.Text=AndText2.TextThenMsgBox 请填写完整信息！ ,vbExclamation+vbOKOnly,aR. ii警告 Text1.SetFocusElseMsgBox 增加成功！ ,vbExclamation+vbOKOnlyAdodc1.Refresh教师登录界面 .Show教师注册 .HideEndIfEndSubPrivateSubCommand2_Click()Text1.Text=Text2.Text=EndSub图 6 录入平时成绩 程序代码：PrivateSubCommand1_Click()EndSubPrivateSubCommand2_Cl

10、ick()EndSubPrivateSubCommand3_Click()UnloadMeEndSubPrivateSubCommand4_Click()EndSub图 7 管理学生信息表 程序代码：PrivateSubCommand1_Click()MsgBox 已保存成功 EndSubPrivateSubCommand2_Click()EndSubPrivateSubCommand3_Click()MsgBox 已删除 EndSubPrivateSubCommand4_Click()UnloadMe教师管理界面 .ShowEndSub程序代码：PrivateSubCommand1_Clic

11、k()EndSubPrivateSubCommand2_Click()MsgBox 已保存成功 EndSubPrivateSubCommand3_Click()EndSubPrivateSubCommand4_Click()UnloadMe教师管理界面 .ShowEndSub程序代码：PrivateSubCommand1_Click()CommonDialog1.ShowOpenDimzsAsStringwh=FreeFileOpenCommonDialog1.FileNameForInputAs#whI=0DoWhileNotEOF(wh)zs=zs+Input(1,#wh)I=I+1Loo

12、pText1=zsClose#whEndSubPrivateSubCommand2_Click()wh=FreeFileOpenCommonDialog1.FileNameForAppendAs#whDimzsAsString,xmAsStringwh1=FreeFileOpenCommonDialog2.FileNameForInputAs#wh1图 8 管理教师表图 9 批改作业DoWhileNotEOF(wh1)Input#wh1,xmWrite#wh,xmLoopClose#wh1Close#whMsgBox 已保存成功 EndSubPrivateSubCommand3_Click()

13、CommonDialog2.ShowOpenDimxmAsStringwh1=FreeFileOpenCommonDialog2.FileNameForInputAs#wh1I=0DoWhileNotEOF(wh1)xm=xm+Input(1,#wh1)I=I+1LoopText2=xmClose#wh1EndSub图 10 教师配课程序代码：PrivateSubCommand1_Click()配课 .ShowEndSubPrivateSubCommand2_Click()EndSub图 11 配课程序代码 :PrivateSubCommand1_Click()IfText1.Text=And

14、Text2.Text=AndText3.Text=AndText4.Text=AndText5.Text=AndText6.Text=AndText7.Text=AndText8.Text=ThenMsgBox 请填写完整信息！ ,vbExclamation+vbOKOnly, 警告 Text1.SetFocusElseMsgBox 增加成功！ ,vbExclamation+vbOKOnlyAdodc1.RefreshCallCommand2_ClickEndIfEndSubPrivateSubCommand2_Click()Text1.Text=Text2.Text=Text3.Text=T

15、ext4.Text=Text5.Text=Text6.Text=Text7.Text=Text8.Text=EndSubPrivateSubCommand3_Click()课表 .ShowForm1.HideEndSubPrivateSubForm_Load()Adodc1.CommandType=adCmdTextAdodc1.RecordSource=select*from 课表 Adodc1.RefreshEndSub5 设计体会5.1 总结感谢一直对我课程设计提供帮助的刘仁芬老师，没有您的悉心指导，我不可能完成符合要求的 合格的课程设计。与此同时，我也要感谢对我课程设计提供帮助的同学们，是你们给予了我更多更广泛的设计思 路，才使得我的思维更加宽广，这对于我的课程设计来说，是一种莫大的帮助，谢谢你们。同时，我也要再次感谢全体老师，是你们在辛勤地为我们做了许多我们不曾注重的一些细节问 题，为我们无论是在设计上还是在论文中， 您们的劳动都是我的毕业设计能够完成不可缺少的因素。5.2 存在的主要问题 鉴于能力水平所限，没有插入封面图片。同时，我们存在的问题还不少，界面不够精明，样 式死板，可供查询的内容比较少，望老师提出批评意见。参考文献1 刘炳文 .VisualBasic.NET 程序设计 . 清华大学出版社， 20072 刘怀亮 .VisualBasic.NET