学校信息管理系统毕业设计

《学校信息管理系统毕业设计》由会员分享，可在线阅读，更多相关《学校信息管理系统毕业设计（39页珍藏版）》请在装配图网上搜索。

1、学校信息管理系统成绩查询模块第一章绪论前言计算机信息技术无所不在、无时不在地影响着社会生活的各个领域。信息技术的应用越来越广泛，越来越普及。计算机已经成为我们必不可少的工具，在人类的社会生产活动中发挥着越来越重要的作用。同时人们对信息和数据的利用与处理也已进入自动化、网络化和社会化的阶段，计算机之所以如此流行的原因主要有以下几个方面：首先，计算机运行速度非常高，可以大大的提高人们的工作效率，可以代替人工进行许多繁杂的劳动；其次，计算机可以节省管理使用等资金；第三，计算机可以使数据更加安全等等；第四，计算机可以让人们更便捷、更全面地管理各项事务等等。作为计算机应用的一部分,使用计算机对学校信息进

2、行管理,具有着手工管理所无法比拟的优点.例如:检索便捷、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高学校信息管理的效率,也是学校的信息化、正规化管理,与世界接轨的重要条件。因此，开发这样一套学籍管理软件成为很有必要的事情。本软件系统采用面向对象的开发工具，采用快速原型开发（rapid prototyping method）方法即根据用户的要求，由用户和开发者共同确定系统的基本要求和主要功能，利用系统快速生成工具，建立一个系统模型，再在此基础上与用户交流，将模型不断补充、修改、完善，如此反复，最终直至用户和开发者都比较满意为止，从而形成一个相对稳定、较为理想的

3、管理信息系统。摘要本文总结了设计学校信息管理系统的技术实现途径，在分析高校信息管理的实际需求基础上，提出了该管理系统成绩查询的建设方案，对学校信息管理如何应用于实际工作进行了论述，侧重于解决成绩管理部分。该部分主要分为查询课程成绩，查询班级成绩，查询学生成绩，分别提供按课程、按班级、按学生查询。具体查询时须提供年级、班组、或学号。关键词学校信息 Visual Basic6.0 Access2000 第二章系统总体规划分析2.1 系统需求分析社会生活的节奏越来越快，成本和管理的需要使计算机的应用已普及到经济和社会生活的各个领域。计算机虽然与人类的关系愈来愈密切，还有人由于计算机操作不方便继续用手

4、工劳动。为了现代化社会人们高度强烈的时间观念，学籍管理系统软件为教学办公带来了极大的方便。目前全国绝大多数高校中，学生的综合教学管理都采用手工管理，工作起来效率低，并且不能及时掌握学生的基本信息，比如学生的成绩等等，不便于动态调整学生信息的结构。另外手工管理还存在众多弊端，由于不可避免的人为因素，经常造成数据的遗失、差错等等，该成绩管理模块结合其他模块完成一整套学校信息管理系统，有着存储信息大、速度快、查找便捷、性能稳定等优点，适应各大高校的教学管理。2.2 技术路线从系统的技术路线考虑，开发工具采用Visual Basic6.0，数据库采用Microsoft Access2000。windo

5、ws 2000 server 的网络性能及稳定性的提高，并且他的易用性和可操作性越来越受企业单位的青睐，是它成为中小企业的网络平台。Visual Basic6.0是一个集成了编辑、测试、和调试等各种程序开发工具的集成开发环境(IDE),它既继承了Basic语言简单易学，操作方便等优点，又引入了面向对象的编程机制和可视化程序设计方法，从而极大地极高了应用程序的开发效率也是Visual Bsic语言是目前最为流行和通用的程序设计语言。Access2000 就是关系数据库开发工具，数据库能汇集各种信息以供查询、存储和检索。Access 的优点在于它能使用数据表示图或自定义窗体收集信息。数据表示图提供

6、了一种类似于 Excel 的电子表格，可以使数据库一目了然。另外，Access 允许创建自定义报表用于打印或输出数据库中的信息。Access也提供了数据存储库，可以使用桌面数据库文件把数据库文件置于网络文件服务器，与其他网络用户共享数据库。Access 是一种关系数据库工具，关系数据库是已开发的最通用的数据库之一。如上所述，Access 作为关系数据库开发具备了许多优点，可以在一个数据包中同时拥有桌面数据库的便利和关系数据库的强大功能。学校信息管理系统基本功能模块图专业基本信息管理班级基本信息管理教师基本信息管理课程基本信息管理教师任课管理学生基本信息管理学生选课|初始化基本信息管理模块学生成

7、绩管理学生成绩管理成绩录入成绩修改总分换算学生成绩查询查询课程成绩查询班级成绩查询学生成绩2.3 软件模块图2.4 软件模块介绍2.4.1 基本信息模块1、专业基本信息管理要根据选择的年级，添加、修改和删除相应年级中的专业1、添加专业；2、修改专业，不能修改专业的编号ProfID字段。3、删除专业；删除专业时候要提示。 4、字段说明：专业标号ProfID，采用2个数字组成，如：01，02，03。专业表名称为：Profession2、班级基本信息管理班级表【Class】字段说明：班级编号ClassID编号为6位：如：030201，其中前两位03年级，中间两位02专业编号，后两位01班级序号；子模

8、块设计具体功能：1、添加班级信息；2、修改班级信息；3、删除班级信息；通过选择年级和专业，自动生成班级编号。3、教师基本信息管理教师信息表【Teacher】字段说明：教师编号TeacherID，为5位，如10001，10002。子模块设计具体功能：1、添加教师信息；2、修改教师信息，不允许修改教师编号；3、删除教师信息，要删除所有教师的任课记录。4、查询教师信息教师的职称Career为：助教、讲师、副教授、教授4、课程基本信息管理课程编号：CourseID组成：0 3 0 2 1 0 1前两位0 3是年级编号，0 2是专业编号 1是学期，0 1是课程序号。专业相同，该专业的课程即固定。通过对年

9、级和专业的相应的结合，以及对学期的选择来确实某个学校的课程情况。并对此作出相应的功能操作。主要功能：1、添加课程；添加时，课程编号要自动生成。2、修改课程，不允许修改课程编号；3、删除课程；如果记录为空则给出提示信息。5、学生基本信息管理学生表【Student】字段说明：学号StudID，共为8位，如，01 03 01 01，请两位01年级，第三四位03专业，第五六位01班级编号，后两位表示序号； 添加时，要先选择年级，然后选择专业，班级。添加时，学号可以自动生成。子模块设计具体功能：1、添加学生；2、修改学生，学号不允许修改。3、删除学生；6、教师任课信息管理数据表：教师任课表【TeaCou

10、rse】一名教师，一门课程，一个班级，通过这三个要素，决定教师的任课关年级。如下图所示：一名教师一门课程一个教师任课关年级一个班级该表中包含以上三个字段，教师号teacherid、课程号courseid和班级编号classid来决定一个教师任课关年级。添加时，要结合教师表、班级表和课程表，表单设计要以下拉选择的方式，用鼠标操作，简单方便。7、学生选课初始化管理本模块主要是通过学生表Student和课程表Course中的记录，自动生成学生选课表SelCourse中的初始化记录，如下图所示：StudID是学生的学号，而CourseID是课程的编号，两者构成一条记录，表示该学生选修了这门课程，Sel

11、Course表主要是为了记录学生相关课程的成绩。该表的初始化记录必须通过Student表和Course表自动生成，这样才能管理学生成绩。初始化操作可以通过选择一个年级，或者一个专业来进行初始化，例如：选择一个专业下的班级学生和课程进行初始化，专业固定，学生固定，课程也固定，则可以通过本模块实现初始化过程，实现学生表和课程表的多对多的关年级。二、学生成绩管理模块1、学生成绩管理该模块是本年级统的核心模块，主要实现各年级、专业、班级学生的成绩管理。主要针对学生选课表selcourse来实现：该表结构如下：学生选课，一个学生和一门课程，组成一条记录，该记录可以表示该生这门课的成绩信息。如：期中、期末

12、、平时、总评和补考等成绩信息。对学生成绩管理之前，各项初始化工作必须已经完成，如学生、课程等都已经准备好，并且学生选课的初始化工作已经完成。该模块只要对各项成绩进行管理即可。可以按照表的关年级，建立视图来进行维护。2、学生成绩查询学生成绩查询主要涉及到学生选课成绩表(Selcourse)，以及专业表(Profession)、班级表(Class)、学生表(Student)、课程表(course),为了便于维护建立【Vsc】视图。学生选课成绩视图【Vsc】关系视图：第三章学生成绩查询具体实现3.1 系统设计阶段成绩查询部分分为查询课程成绩、查询班级成绩和查询学生成绩，可以按课程、班级、或学生进行查

13、询。3.1.1 程序界面设计主界面窗口：按课程查询成绩：选择年级选择班级选择学期选择课程选择类型查询该门课的成绩如图所示：具体代码如下：Option ExplicitConst pie = Dim TvIndex As Stringadd coursePrivate Sub addCourse(sKey As String)cboCourse.ClearDim grade As StringDim term As StringDim profID As Stringgrade = Trim(cboGrade.Text)term = Trim(cboTerm.Text)If Len(sKey)

14、= 3 Then profID = Right(sKey, 2)ElseIf Len(sKey) = 7 Then profID = Right(Left(sKey, 5), 2)End IfDim ssql As Stringssql = select * from course where left(CourseID,4)= & pie & grade & profID & piessql = ssql & and Term= & pie & term & pieWith adoCourse .CommandType = adCmdText .RecordSource = ssql .Re

15、freshEnd WithWith adoCourse.Recordset If Not (.BOF And .EOF) Then .MoveFirst Do While Not (.EOF) cboCourse.AddItem Trim(!courseName) .MoveNext Loop cboCourse.ListIndex = 0 End IfEnd WithEnd Subfilter grdscPrivate Sub FilterSC(sKey As String)Dim SourceSkey As StringSourceSkey = sKeyDim grade As Strin

16、gDim term As StringDim couName As StringcouName = Trim(cboCourse.Text)grade = Trim(cboGrade.Text)term = Trim(cboTerm.Text)Debug.Print SourceSkey: & SourceSkeyDim ssql As StringIf Len(SourceSkey) = 3 Then ssql = select * from vsc where left(studID,4)= & pie & grade & Right(SourceSkey, 2) & pie ssql =

17、 ssql & and left(CourseID,5)= & pie & grade & Right(SourceSkey, 2) & term & pie ssql = ssql & and CourseName= & pie & couName & pieElseIf Len(SourceSkey) = 7 Then ssql = select * from vsc where left(studID,6)= & pie & Right(SourceSkey, 6) & pie ssql = ssql & and left(CourseID,5)= & pie & Right(Left(

18、SourceSkey, 5), 4) & term & pie ssql = ssql & and CourseName= & pie & couName & pieEnd IfDebug.Print ssql & ssqlWith adoVSC .CommandType = adCmdText .RecordSource = ssql .RefreshEnd WithEnd Subadd classPrivate Sub addClass(grade As String)Dim ssql As StringDim pId As StringDim pName As StringDim cID

19、 As StringDim cName As StringWith adoProf.Recordset If Not (.BOF And .EOF) Then .MoveFirst Do While Not (.EOF) pId = Trim(!profID) pName = Trim(!profName) TV.Nodes.Add , , R & pId, pName ssql = select * from class where left(classID,2)= & pie & grade & pie ssql = ssql & and right(left(classID,4),2)=

20、 & pie & pId & pie With adoClass .CommandType = adCmdText .RecordSource = ssql .Refresh End With With adoClass.Recordset If Not (.BOF And .EOF) Then .MoveFirst Do While Not (.EOF) cID = Trim(!ClassID) cName = Trim(!ClassName) TV.Nodes.Add R & pId, tvwChild, C & cID, cName .MoveNext Loop End If End W

21、ith .MoveNext Loop End IfEnd WithEnd SubPrivate Sub cboCourse_click()Call FilterSC(TvIndex)Call sbPanel(TvIndex)End SubPrivate Sub cboGrade_Click()TV.Nodes.ClearCall addClass(Trim(cboGrade.Text)TvIndex = TV.Nodes(1).KeyCall addCourse(TvIndex)Call FilterSC(TvIndex)Call sbPanel(TvIndex)End SubPrivate

22、Sub cboKind_Click()Dim i As IntegerDim Kind As StringKind = Trim(cboKind.Text)For i = 0 To 6 grdSC.Columns(i).Visible = FalseNextSelect Case Kind Case 全部 Call naviFilter(1111111) Case 期中 Call naviFilter(1110000) Case 期末 Call naviFilter(1101000) Case 平时 Call naviFilter(1100100) Case 总评 Call naviFilte

23、r(1111110) Case 补考 Call naviFilter(1100001)End SelectgrdSC.RefreshEnd SubPrivate Sub cboTerm_Click()Call addCourse(TvIndex)Call FilterSC(TvIndex)Call sbPanel(TvIndex)End Subnavi FilterPrivate Sub naviFilter(s As String)Dim i As IntegerDim lenS As Integers = Trim(s)lenS = Len(s)For i = 1 To lenS If (

24、Mid$(s, i, 1) = 1) Then grdSC.Columns(i - 1).Visible = True Else grdSC.Columns(i - 1).Visible = False End IfNextDoEventsEnd SubPrivate Sub cmdExit_Click()Unload MeEnd SubPrivate Sub cmdRef_Click()Call addCourse(TvIndex)Call FilterSC(TvIndex)Call sbPanel(TvIndex)End SubPrivate Sub Form_Activate()TvIn

25、dex = Trim(TV.Nodes(1).Key)Call addCourse(TvIndex)Call FilterSC(TvIndex)sbsb.Panels(1).Text = TV.Nodes(1).Text & 专业 第 & Trim(cboTerm.Text) & 学期 & Trim(cboCourse.Text) & 课 & adoVSC.Recordset.RecordCount & 名学生成绩！grdSC.RefreshEnd Subsb.panels(1).textPrivate Sub sbPanel(sKey As String)If Len(sKey) = 3 T

26、hen If sKey = Trim(TV.Nodes(1).Key) Then sb.Panels(1).Text = TV.Nodes(1).Text & 专业 第 & Trim(cboTerm.Text) & 学期 & Trim(cboCourse.Text) & 课 & adoVSC.Recordset.RecordCount & 名学生成绩！ Else sb.Panels(1).Text = TV.SelectedItem.Text & 专业 第 & Trim(cboTerm.Text) & 学期 & Trim(cboCourse.Text) & 课 & adoVSC.Records

27、et.RecordCount & 名学生成绩！ End IfElse sb.Panels(1).Text = TV.SelectedItem.Text & 班 第 & Trim(cboTerm.Text) & 学期 & Trim(cboCourse.Text) & 课 & adoVSC.Recordset.RecordCount & 名学生成绩！End If End Sub Private Sub Form_Load()Dim iyear As IntegerDim i As Integeradd gradeiyear = Year(Date)With cboGradeFor i = 97 T

28、o 99 .AddItem iNextFor i = 0 To 9 .AddItem 0 & iNextcboGrade.Text = Right(CStr(iyear), 2)End Withadd termWith cboTerm For i = 1 To 6 .AddItem i NextcboTerm.ListIndex = 0End Withadd kindWith cboKind .AddItem 全部 .AddItem 期中 .AddItem 期末 .AddItem 平时 .AddItem 总评 .AddItem 补考 .ListIndex = 0End WithEnd SubP

29、rivate Sub TV_Click()TvIndex = Trim(TV.SelectedItem.Key)Call addCourse(TvIndex)Debug.Print TvIndexCall FilterSC(TvIndex)Call sbPanel(TvIndex)End Sub按班级查询成绩：选择年级选择班级选择学期选择类型查询该门课的成绩如图所示：Option ExplicitConst pie = Dim TvIndex As StringPrivate pTerm As StringPrivate pKind As StringPrivate pGrade As Str

30、ingPrivate pClassId As StringPrivate pClassName As StringPrivate selcou() As Doubleadd classPrivate Sub addClass(grade As String)Dim ssql As StringDim pId As StringDim pName As StringDim cID As StringDim cName As StringWith adoProf.Recordset If Not (.BOF And .EOF) Then .MoveFirst Do While Not (.EOF)

31、 pId = Trim(!profID) pName = Trim(!profName) TV.Nodes.Add , , R & pId, pName ssql = select * from class where left(classID,2)= & pie & grade & pie ssql = ssql & and right(left(classID,4),2)= & pie & pId & pie With adoClass .CommandType = adCmdText .RecordSource = ssql .Refresh End With With adoClass

32、.Recordset If Not (.BOF And .EOF) Then .MoveFirst Do While Not (.EOF) cID = Trim(!ClassID) cName = Trim(!ClassName) TV.Nodes.Add R & pId, tvwChild, C & cID, cName .MoveNext Loop End If End With .MoveNext Loop End IfEnd WithEnd SubPrivate Sub cboGrade_Click()TV.Nodes.ClearCall addClass(Trim(cboGrade.

33、Text)sb.Panels(1).Text = Trim(cboGrade.Text) & 年级，请选择班级、学期和类型!End SubPrivate Sub cboKind_Click()pKind = Trim(cboKind.Text)Call FillGrdsc(pClassId, pTerm, pKind)Debug.Print kind: & TvIndexIf Len(TvIndex) = 7 Then sb.Panels(1).Text = Trim(cboGrade.Text) & 年级 & Trim(TV.SelectedItem.Text) & 班 第 & Trim(c

34、boTerm.Text) & 学期 & (grdsc.Rows - 1) & 名学生 & Trim(grdsc.Cols - 2) & 门课程 & Trim(cboKind.Text) & 考试成绩！End IfEnd SubPrivate Sub cboTerm_Click()pTerm = Trim(cboTerm.Text)Call FillGrdsc(pClassId, pTerm, pKind)Debug.Print term: & TvIndexIf Len(TvIndex) = 7 Then sb.Panels(1).Text = Trim(cboGrade.Text) & 年级

35、 & Trim(TV.SelectedItem.Text) & 班 第 & Trim(cboTerm.Text) & 学期 & (grdsc.Rows - 1) & 名学生 & Trim(grdsc.Cols - 2) & 门课程 & Trim(cboKind.Text) & 考试成绩！End IfEnd SubPrivate Sub cmdExit_Click()Unload MeEnd SubPrivate Sub cmdRef_Click()Dim i, j As IntegerWith grdsc For i = 1 To .Rows - 1 .Row = i For j = 2 To

36、 .Cols - 1 .Col = j If Not IsNull(.Text) Then If Val(.Text) 60 Then .CellForeColor = vbRed Else .CellForeColor = vbBlack End If End If Next j Next iEnd WithEnd SubPrivate Sub Form_Load()Dim iyear As IntegerDim i As Integeradd gradeiyear = Year(Date)With cboGradeFor i = 98 To 99 .AddItem iNextFor i =

37、 0 To 9 .AddItem 0 & iNextcboGrade.Text = Right(CStr(iyear), 2)End Withadd termWith cboTerm For i = 1 To 6 .AddItem i NextcboTerm.ListIndex = 0End Withadd kindWith cboKind .AddItem 期中 .AddItem 期末 .AddItem 平时 .AddItem 总评 .AddItem 补考 .ListIndex = 0End WithWith grdsc .Rows = 2 .Cols = 7 .Row = 0 .Col =

38、 0 .Text = 学号 .Row = 0 .Col = 1 .Text = 姓名End WithEnd SubfillgrdPrivate Sub FillGrdsc(ClassID As String, term As String, Kind As String)Dim i, j As Integer查找课程Dim cou() As StringDim totCourse As IntegerDim CouSql As StringCouSql = select * from course where left(courseId,5)= & pie & Left(ClassID, 4)

39、 & term & pieCouSql = CouSql & order by CourseIDWith adoCourse .CommandType = adCmdText .RecordSource = CouSql .RefreshEnd WithWith adoCourse.Recordset If Not (.BOF And .EOF) Then .MoveFirst .MoveLast totCourse = .RecordCount ReDim cou(totCourse - 1) .MoveFirst i = 0 Do While Not (.EOF) cou(i) = Tri

40、m(!courseName) i = i + 1 .MoveNext Loop With grdsc .Cols = 2 + totCourse For i = 2 To totCourse + 1 .Row = 0 .Col = i .Text = cou(i - 2) Next End With Else totCourse = 7 With grdsc .Rows = 2 .Cols = totCourse For i = 0 To 1 .Row = i For j = 2 To totCourse - 1 .Col = j .Text = Next j Next i End With

41、End If End With查找学生Dim stud() As StringDim totStud As IntegerDim StudSql As StringStudSql = select * from student where left(studID,6)= & pie & Trim(ClassID) & pieStudSql = StudSql & order by studIDWith adoStud .CommandType = adCmdText .RecordSource = StudSql .RefreshEnd WithWith adoStud.Recordset I

42、f Not (.BOF And .EOF) Then .MoveFirst .MoveLast totStud = .RecordCount ReDim stud(totStud - 1, 1) .MoveFirst i = 0 Do While Not (.EOF) stud(i, 0) = Trim(!StudID) stud(i, 1) = Trim(!Name) i = i + 1 .MoveNext Loop With grdsc .Rows = totStud + 1 For i = 1 To totStud .Row = i For j = 0 To 1 .Col = j .Te

43、xt = stud(i - 1, j) Next j Next i End With Else With grdsc .Rows = 2 .Row = 1 For i = 0 To .Cols - 1 .Col = i .Text = Next End With End IfEnd With查找课程成绩ReDim selcou(totStud, totCourse)Dim SelCouSql As String SelCouSql = select * from selcourse where left(studID,6)= & pie & ClassID & pie SelCouSql =

44、SelCouSql & and right(left(Courseid,5),1)= & pie & term & pie SelCouSql = SelCouSql & order by studID,CourseID With adoSC .CommandType = adCmdText .RecordSource = SelCouSql .RefreshEnd WithWith adoSC.Recordset If Not (.BOF And .EOF) Then .MoveFirst Select Case Kind Case 期中 i = 0 Do While Not (.EOF)

45、For j = 0 To totCourse - 1 If IsNull(!midScore) Then selcou(i, j) = 0 Else selcou(i, j) = Val(!midScore) End If .MoveNext Next i = i + 1 Loop Case 期末 i = 0 Do While Not (.EOF) For j = 0 To totCourse - 1 If IsNull(!EndScore) Then selcou(i, j) = 0 Else selcou(i, j) = Val(!EndScore) End If .MoveNext Ne

46、xt i = i + 1 Loop Case 平时 i = 0 Do While Not (.EOF) For j = 0 To totCourse - 1 If IsNull(!ComScore) Then selcou(i, j) = 0 Else selcou(i, j) = Val(!ComScore) End If .MoveNext Next i = i + 1 Loop Case 总评 i = 0 Do While Not (.EOF) For j = 0 To totCourse - 1 If IsNull(!TotScore) Then selcou(i, j) = 0 El

47、se selcou(i, j) = Val(!TotScore) End If .MoveNext Next i = i + 1 Loop Case 补考 i = 0 Do While Not (.EOF) For j = 0 To totCourse - 1 If IsNull(!ResitScore) Then selcou(i, j) = 0 Else selcou(i, j) = Val(!ResitScore) End If .MoveNext Next i = i + 1 Loop End Select End IfEnd With还原With grdsc For i = 1 To

48、 .Rows - 1 .Row = i For j = 2 To .Cols - 1 .Col = j .CellForeColor = vbBlack Next j Next iEnd With重定义grdscWith grdsc For i = 1 To .Rows - 1 .Row = i For j = 2 To .Cols - 1 .Col = j If selcou(i - 1, j - 2) = 0 Then .Text = Else .Text = selcou(i - 1, j - 2) End If Next j Next iEnd With End SubPrivate Sub grdsc_Click()End SubPrivate Sub TV_Click()If Len(Trim(TV.SelectedItem.Key) = 3 Then sb.Panels(1).Text = Trim(cboGrade.Text) & 年级 & Trim(TV.SelectedIt