学生作业管理系统.doc

2014级高级语言程序设计 石家庄铁道大学四方学院集中实践报告书课题名称学生作业管理系统姓 名学 号系、 部土木工程系专业班级指导教师刘仁芬2015年 6 月 25 日 一、设计任务及要求：设计任务：学生作业管理系统 要 求：1内容要求1.用户名认证：区别老师与同学的登录。2.新用户注册：要提交作业的同学设定自己的用户名和密码，并填入自己的真实姓名和学号。3.学生作业提交和查询功能：学生可以在提交作业并能查询以往作业的成绩。4.老师作业查询和下载功能：可将已完成作业下载批改。5.老师作业布置和成绩上传功能：老师可布置的作业，提交已经批改过的作业供学生查询。二、指导教师评语： 三、成绩 指导教师签名： 年 月 日 学生作业管理系统的开发1选题的意义作业管理系统将提供更合理快捷的查询信息，即可以单条件查询，也可以多条件组合查询。同时提供对用户发布最新资讯信息的功能。作业管理系统是一个更为实用的平台，学校可以在此发布所属的基本信息，详细信息，并可对学生和教师做出记录。既是信息发布的平台，也是信息管理的工具。2 系统功能需求分析2.1系统概述设计一个网络版的作业管理系统，适用于某些学校。系统包括详细信息介绍，除了基本的信息，也包括各种用户的信息。除此以外，该系统最重要的可以方便管理员工对用户信息的记录，同时系统将整个信息整理，按不同的分类进行信息统计，项目主管就可以查看这些信息。2.2系统的组成及各模块的功能1.基本信息：管理员、客户和信息录入。学校管理的一些初始数据，也必须的。管理的其他模块全部是调用这些数据得到。2.用户管理：提供用户姓名、地址、电话、帐号等管理资料库功能。3.系统维护：数据整理、密码管理、数据清除等。4.对整个系统要有管理员进行管理，对某些需要及时更新的信息进行修改，添加或者删除。5.整个系统要求操作简捷，方便用户使用。2.3系统的运行环境1.系统使用环境 操作系统:Windows XP/7 系统支持：Visual basic 6.0及以上版本支持库数据库：Access。硬件环境：处理器;Intel Pentium 166MX或者更高。硬盘：剩余使用空间1GB以上。内存：32MB以上。显卡：SVGA显示适配器。 2.系统开发环境 操作系统：Windows XP/7。系统支持：Visual Basic 6.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 登录界面程序代码：Private Sub Command1_Click()学生登录界面.Show主界面.HideEnd SubPrivate Sub Command2_Click()教师登录界面.ShowForm1.HideEnd Sub4.2其他模块的设计与实现 图3 教师登录主界面程序代码：Private Sub Adodc1_Click()新增用户.ShowEnd SubPrivate Sub Combo1_Change()bo1 End SubPrivate Sub Command1_Click()Adodc1.CommandType = adCmdTextAdodc1.RecordSource = select * from 用户名 where 姓名= & combo1.Text & and 密码 = & Text2.TextAdodc1.RefreshIf Adodc1.Recordset.EOF = True ThenMsgBox (密码错误)Else教师管理界面.Show教师登录界面.HideEnd IfEnd SubPrivate Sub Command2_Click()EndFrom1.ShowEnd SubPrivate Sub Command3_Click()教师注册.ShowEnd SubPrivate Sub Form_Load()Adodc1.RefreshDo While Adodc1.Recordset.EOF = Falsecombo1.AddItem Adodc1.Recordset.Fields(姓名)Adodc1.Recordset.MoveNextLoopEnd Sub图4 教师管理界面程序代码：Private Sub e_Click(Index As Integer)上传.Show教师管理界面.HideEnd SubPrivate Sub Form_Load()End SubPrivate Sub q_Click(Index As Integer)管理学生信息表.Show教师管理界面.HideEnd SubPrivate Sub t2_Click(Index As Integer)教师配课.ShowEnd SubPrivate Sub w_Click(Index As Integer)管理教师表.Show教师管理界面.HideEnd SubPrivate Sub y_Click(Index As Integer)录入平时成绩表.Show教师管理界面.HideEnd Sub 图5 教师注册程序代码：Private Sub Command1_Click()If Text1.Text = And Text2.Text = ThenMsgBox 请填写完整信息！, vbExclamation + vbOKOnly, 警告Text1.SetFocusElseIf Text1.Text And Text2.Text = ThenMsgBox 请填写完整信息！, vbExclamation + vbOKOnly, 警告Text1.SetFocusElseIf Text1.Text = And Text2.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教师注册.HideEnd IfEnd SubPrivate Sub Command2_Click()Text1.Text = Text2.Text = End Sub图6 录入平时成绩 程序代码：Private Sub Command1_Click()Adodc1.Recordset.AddNewEnd SubPrivate Sub Command2_Click()Adodc1.Recordset.UpdateEnd SubPrivate Sub Command3_Click()Unload MeEnd SubPrivate Sub Command4_Click()Adodc1.Recordset.DeleteEnd Sub图7 管理学生信息表程序代码： Private Sub Command1_Click()Adodc1.Recordset.UpdateMsgBox 已保存成功End SubPrivate Sub Command2_Click()Adodc1.Recordset.AddNewEnd SubPrivate Sub Command3_Click()Adodc1.Recordset.DeleteMsgBox 已删除End SubPrivate Sub Command4_Click()Unload Me教师管理界面.ShowEnd Sub图8 管理教师表程序代码：Private Sub Command1_Click()Adodc1.Recordset.AddNewEnd SubPrivate Sub Command2_Click()Adodc1.Recordset.UpdateMsgBox 已保存成功End SubPrivate Sub Command3_Click()Adodc1.Recordset.DeleteEnd SubPrivate Sub Command4_Click()Unload Me教师管理界面.ShowEnd Sub图9 批改作业程序代码：Private Sub Command1_Click()CommonDialog1.ShowOpenDim zs As Stringwh = FreeFileOpen CommonDialog1.FileName For Input As #whI = 0Do While Not EOF(wh)zs = zs + Input(1, #wh)I = I + 1LoopText1 = zsClose #whEnd SubPrivate Sub Command2_Click()wh = FreeFileOpen CommonDialog1.FileName For Append As #whDim zs As String, xm As Stringwh1 = FreeFileOpen CommonDialog2.FileName For Input As #wh1Do While Not EOF(wh1)Input #wh1, xmWrite #wh, xmLoopClose #wh1Close #whMsgBox 已保存成功End SubPrivate Sub Command3_Click()CommonDialog2.ShowOpenDim xm As Stringwh1 = FreeFileOpen CommonDialog2.FileName For Input As #wh1I = 0Do While Not EOF(wh1)xm = xm + Input(1, #wh1)I = I + 1LoopText2 = xmClose #wh1End Sub 图10 教师配课程序代码：Private Sub Command1_Click()配课.ShowEnd SubPrivate Sub Command2_Click()Adodc1.Recordset.DeleteEnd Sub图11 配课程序代码:Private Sub Command1_Click()If Text1.Text = And Text2.Text = And Text3.Text = And Text4.Text = And Text5.Text = And Text6.Text = And Text7.Text = And Text8.Text = Then MsgBox 请填写完整信息！, vbExclamation + vbOKOnly, 警告 Text1.SetFocus Else Adodc1.Recordset.AddNew Adodc1.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.Update MsgBox 增加成功！, vbExclamation + vbOKOnly Adodc1.Refresh Call Command2_Click End IfEnd SubPrivate Sub Command2_Click()Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text7.Text = Text8.Text = End SubPrivate Sub Command3_Click()课表.Show Form1.HideEnd SubPrivate Sub Form_Load()Adodc1.ConnectionString = Provider=Microsoft.ACE.OLEDB.12.0;Data Source=Database123.accdb;Persist Security Info=False;Adodc1.CommandType = adCmdTextAdodc1.RecordSourc