学生学籍成绩管理系统(设计报告)

1、软件工程课稈设计一、前言学籍管理工作在正常的情况下需对大量的数据进行处理，它们包括，学生学 籍信息录入、学生学籍修改、学生基本档案输入、学籍变动、学生成绩录入、学 生成绩查询等。如果由人工去处理这些数据需要花费大量的时间、人力、物力。 学籍管理系统，是在总结以上管理方法的基础上并结合用户的需求对学籍的各种 数据进行了有针对性的开发，充分利用Visual Basic具有强大的数据库管理功能及 在应用程序开发上高效、灵活的特点，创建了各个过程，目标设计、系统开发背 景、开发和运行环境选择、系统功能分析、系统功能模块设计、数据库需求分析、 数据库概念结构设计、数据库逻辑结构设计、数据库结构实现、各个

2、功能模块的 创建、系统的编译和发行等进行了详细描述。学籍管理系统设计突出了信息管理 系统完整实用的开发方法，系统的最大特点是突出了实用性和实效性，紧密的结 合了用户的使用要求，操作方便，有一人进行管理就可以完成大量的学籍管理工 作。二、系统开发工具和数据库简介结合本人学习期间所学的有关程序设计的语言为Visual Basic 6.0,因此，本系统软件将采用该语言进行设计开发。下面先介绍一下该工具的好处与特点。Visual Basic 6.0 概述1、Visual Basic 6.0 简介无论用户是一个 Windows编程新手，还是已经具有丰富的 Windows程序设计 经验的专业程序开发人员，

3、利用 Visual Basic 6.0提供的良好开发环境，均可以使 你快速地完成所需设计任务。所谓 Visual ，中文的意思是“可视化”，它提供了一 种创建图形用户界面（ GUI ）的方法，利用这种方法，用户可不必书写复杂的描述 界面元素外观和位置的程序代码，而只需将系统提供的对象放到屏幕上的适当位 置，并通过属性窗口进行适当的设置或调整，就可以设计出一个优秀的应用程序 界面。此外，用户除了可以使用单独的 Visual Basic 6.0 程序设计环境进行程序设 计外。 Visual Basic 6.0 程序设计系统还被包括在 Excel Access 等众多 Windows 功 能应用软件

4、中，以供用户进行二次开发。目前在编制网页上使用较多的 VBScript 脚本语言实际上是 Visual Basic 语言的子集。因此，无论从哪方面讲，用 Visual Basic 6.0 系统开发软件都是一件非常合算的投资。2、Visual Basic 6.0 语言的特点 不管你是编制一个小的应用程序，还是开发一套大型的专业系统软件，甚至 是开发一个跨越 Internet 的分布式应用系统软件， Visual Basic 6.0 都为用户提供 了合适的工具。利用 Visual Basic 6.0 的数据访问特性，用户可创建数据库、前端 应用程序、适用于大多数流行数据库格式的服务器组件等。利用

5、ActiveX 技术允 许用户使用其他应用程序提供的功能，如 Microsoft Word 、 Microsoft Excel ，甚至 可直接使用由 Visual Basic 6.0 专业版和企业版创建的应用程序和对象。 Visual Basic 的 Internet 功能允许用户使用程序方便地通过 Internet 访问文档和应用程 序，甚至创建In ternet应用程序。用Visual Basic 6.0用户创建的是一个真正的 EXE 文件，该文件可直接运行于操作系统 （Windows98/2000/XP或Windows NT系统）， 完全脱离Visual Basic系统环境。并且，该文件

6、可以自由发布，安装到单机或网络 服务器上。此外， Visual Basic 6.0 还增加了一些新的功能：具体如下： 增加了 ADO 数据对象， 该数据访问技术是一个简单的数据模型， 可更好地 与其它 Microsoft 和非 Microsoft 技术集成。它还是一个通用接口，可用于访问本 地或远程数据、连续和离散记录集、用户可访问的数据绑定接口和分层记录集。 提供了数据环境设计器，其中提供了一种创建ADO对象的交互设计环境，数据环境可作为窗体或报表中所有要求数据对象的数据源，或者通过数据环境的 方法和属性由等程序访问，数据环境设计器具有用户连接设计器的全部功能和附 加特性，如拖放、分层、分组

7、和合计等。 数据报表，允许用户使用拖放方法利用任何记录集合快速创建报表。 数据源，创建可绑定任何控件的数据源用户定义控件和类。 SQL编辑器，允许用户增加新的存储过程至 SQL服务器程序和Oracle数据 库中，用户还可以使用编辑器编写触发器。 增强的数据窗体向导，现在用户不仅可以构造不绑定至数据控件的代码窗 体，而且可以使用 ADO 代码，该向导已经集成到应用程序向导、 Chart 向导和 FlexGrid 向导中。 文件系统对象， Visual Basic 6.0 提供了改进的在文件系统中移动的程序集， 并可创建文本文件和目录。 DataGrid控件，该控件可帮助用户快速构造观察和编辑记录

8、的程序，它也 支持新的 ADO 数据控件。 可视化数据库工具集成 （企业版）。在 Visual Basic 6.0 中用户可以可视地创 建数据库和查询、 SQL 服务器程序、 Oracle 数据库表、使用拖放方法创建视图， 以及自动改变列数据类型。3、Visual Basic 6.0 的版本目前 Visual Basic 6.0有三种版本，各自满足不同的开发需要。其中： Visual Basic 6.0学习版使编程人员可轻松学习和设计一些基本的应用程序。 该版本包括所有的内部控件，连同Grid、Tab和Data_Bound控件。 Visual Basic 6.0专业版为专业编程人员提供了一套进

9、行开发的功能完备的 工具。该版本包括学习版的全部功能连同 ActiveX 控件，还包括 Internet Application Desig ner （In ter net 报务器应用程序设计器）、In tegrated Visual DatabaseTools（集成 可视化数据库工具）、Data Environment数据环境）、ActiveX污染Data Objects（数 据对象，简称ADO ）和Dynamic HTML Page Designer （动态HTML页面设计器）。 Visual Basic 6.0企业版使得专业编程人员能够开发功能强大的组内分布式 应用程序。该版本包括专业版

10、的全部功能连同 Back Office 工具，如 SQL Server Microsoft Transaction Server 、 Internet Information 、 Visual SourceSafe、 SNA Server。三、需求分析3.1 设计思想由于本系统是一个基于 C/S 的数据库的信息管理系统，所以第一步就是需要 利用 SQL Server 2000建立所需要的数据库， 第二步就使用 Visual Basic 6.0完成该 系统客户端应用程序的开发。3.2 可行性分析 可行性分析是系统分析阶段的第二项活动，它的主要目是进一步明确系统的目标、规模与功能，对系统开发背景、

11、必要性和意义进行了调查分析并根据需要 和可能提出开发系统的初步方案与计划。可行性分析是对系统进行全面、概要的 分析。通过调查分析，本系统设计主要有以下三个可行性：3.2.1 操作可行性本系统操作简单，易于理解，只需通过简单指导，上手较快，系统管理员、 教师以及学生均能进行操作，运行环境要求低。3.2.2 技术可行性本系统在 Windows XP Server 开发环境下，利用 Visual Basic 6.0 开发工具， 并使用 SQL Server 2000作为数据库管理系统，来实现学生学籍管理系统的各种功 能。SQL Server 2000属于主从时式的数据库服务器这也是主从式数据库服务器

12、的 特点，服务器本身重在数据的管理，为客户端应用程序提供一致的接口。当然也 可以使用 SQL Server 2005为数据库管理系统，开发工具也可以是它的更高版，这 样可以提高系统的性能，降低它的局限性。3.2.3 经济可行性 采用新的学生学籍管理系统可取代原系统的手工管理工作，减少人工开支， 节省资金，并且可大大提高数据信息的取得，缩短数据信息处理时间，提高学生 信息的利用率，使教学质量更进了一个台阶。3.3 功能需求 按照系统开发业务分析要求和原则，在与系统管理人员的充分沟通，整理出 学生学籍管理系统所需求的基本功能和用户界面的一些需求，这些需求将作为系 统分析和逻辑设计的依据。3.3.1

13、 基本功能需求 能对学生的学籍及成绩进行基本管理，包括：学生基本信息和学科成绩的存 储、输入、删除、修改、查询，以及升留级管理。学生基本信息应包括：学号、姓名、出生年份、籍贯、性别、专业、班级、 家庭住址、本校住址、个人联系电话、家庭联系电话；成绩信息应包括：学号、课号、课名、成绩、上课时间、教师号。 查询能够按照：学号、课号、班级、时间等进行查询。3.4 性能需求根据 Visual Basic 6.0 的运行需求以及系统的调试需求，至少需要满足以下的软硬件要求：开发工具： Visual Basic 6.0；操作系统： Windows2000/XP；数据库：SQL Server 2000；CP

14、U：2.4GHz 以上；内存： 512 以上；硬盘：80GB 以上；VGA 显示器或更高；四、系统设计4.1 系统设计思想1、采用现有的资源，先进的管理系统开发方案，充分利用学校现有的资源， 减少开发中的时间和财力、物力、提高系统开发的水平和应用效果。2、系统就满足学校的需求，例如学生信息的录入、查询、更新等。学生录入 与排名。3、系统就具备数据库维护功能，及时根据用户需求进行数据添加、删除、修 改等操作。4.2 系统设计分析本系统适用于中小学校，其功能主要分为 成绩管理：用于对成绩的输入、修改、查询。学籍管理：用于对学生学籍的录入与修改、查询。帮助信息：用于对本系统的具体操作进行详解。 本系

15、统性能力求易于使用，具体有较高的扩展性和可维护性。4.3 系统功能分析录入功能：为一般用户提供相应的录入功能，为超级用户提供对所有信息的 录入功能。查询功能：为所有用户提供查询的功能，可查询允许范围内的所有信息。维护功能：为一般用户提供查询及相应的修改，删除功能，为超级用户提供 对所有信息的修改删除功能。帮助功能：能帮助初次使用者对本系统的应用及处理常见的问题。 退出功能：结束并关闭系统。4.4 学生学籍系统的目标节约资源，提高学籍信息的精确度本系统能减少很多不必要的资源， 不用象以前那样用冗余的纸张式的管理大节省了学校能源。并且计算机的存储与快速查询功能大大提高了学籍管理的效 率，并且还提高

16、了学籍信息管理的精确度。方便快速操作，精减人员，节约开支方便快速的操作，可减少学籍信息管理的漏洞，又减少因工作的冗余出现的 错误，并且操作非常简单，可减少许多不很必要的人员，这无论从物质上还是工 作人员的工资上都为学校节约了开支。为学校增加了财富。4.5 功能模块分解接口设计 外部接口：用户一般通过终端进行操作，用户进入界面后进行相应的操作。 硬件接口：赛扬 133 、内存 32兆以上 PC 机满足输入端条件。 软件接口： Windows2000/NT 或更高的操作系统。内部接口：内部接口 （模块之间的接口 ） 验证模块：启动系统时，便激活登陆口令界面； 初始化模块：对系统进行初始化； 系统功

17、能模块：接收系统功能的相应消息，启动信息录入、信息查询、信息 维护等模块。4.6 各模块的具体分析： 学生信息管理：主要用于学生的基本信息管理（如学号、姓名、性别、出生 年月、联系地址等）。成绩管理：主要用于学生考试的成绩进行管理4.7 数据库设计4.7.1 数据流图（略）4.7.2 数据库分析 用户需求具体有学籍管理系统提供保存、更新、查询、维护，这就需求数据 库结构能充分满足各种信息的输入与输出，实现有组织地、动态地存储大量关联 数据，方便用户访问系统中的数据，它与文件系统的重要区别是数据的充分共享， 交叉访问，与应用程序的高度独立性。数据流图描述：本系统从总体上分为学生信息管理、学生信息

18、浏览、成绩浏 览和成绩管理等部分。每个模块有自己的作用4.8 数据库表设计 学生基本信息表： xsxj.Mdb 成绩信息表： xscj.Mdb4.9 界面设计4.9.1 主要窗体实现：学生学籍查询，成绩查询，学籍管理，成绩管理以及其 他的窗口信息4.9.2 学生的成绩窗口设计 有主窗体直接进入成绩的查询模块。 主要实现成绩的查询等功能。4.9.3 学生学籍窗口设计 有主窗体直接进入学生状况窗口模块。 主要实现学生状况查询等功能。4.9.4 学生学籍管理窗口设计 有主窗体直接进入学生学籍管理窗口模块。 主要实现学生学籍信息的查询、修改等功能。4.9.5 学生成绩管理窗口设计 有主窗体直接进入学生

19、成绩修改窗口模块。 主要实现学生成绩资料查询结果。五、详细设计及源程序1、模块 module1.BasOption ExplicitDeclare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongDeclare Function GetWindowLong Lib "user32" Alias "GetWin

20、dowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As LongDeclare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As LongPublic Const GWL_WNDPROC =

21、 (-4)Public Const WM_ENDSESSION = &H16Public Const WM_QUERYENDSESSION = &H11Public preWinProc As LongPublic Function Wndproc(ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As LongWndproc = CallWindowProc(preWinProc, hwnd, Msg, wParam, lParam)If (Msg = 132)

22、 ThenSelect Case WndprocCase 10, 11, 12, 13, 14, 15, 16, 17:Wndproc = 0Exif Funaon End se-ecfEnd _fEnd Funaon2,ww口 fonrM.fnnOpfion Exp-icif privaCDSub Command4IC=ck()Fonn6showEnd Sub privaCDSub Command5IC=ck()Fonn4.show unoad Me End Sub privaCDSub Command6IC=ck()Fonn5.show unoad Me End SubPrivate Su

23、b Form_Load()Dim ret As Long'记录原来的 Window Procedure 的位址preWinProc = GetWindowLong(Me.hwnd, GWL_WNDPROC)'设定 form 的 window Procedure 到 wndprocret = SetWindowLong(Me.hwnd, GWL_WNDPROC, AddressOf Wndproc)End SubPrivate Sub Form_Unload2(Cancel As Integer)Dim ret As Long'取消Message的截取，而使之又只送往原来

24、的 Window Procedureret = SetWindowLong(Me.hwnd, GWL_WNDPROC, preWinProc)End SubPrivate Sub Command1_Click()Form2.ShowUnload MeEnd SubPrivate Sub Command2_Click()Form3.ShowUnload MeEnd SubPrivate Sub Command3_Click()Dim yes As Stringyes = MsgBox("你要确定退出？ ", 32 + 1,"提示信息")If yes = 1

25、 ThenUnload MeEnd IfEnd Sub3、学籍浏览窗口 form2.frmOption ExplicitPrivate Sub Form_Load()Data1.DatabaseName = App.Path & "xsxj.mdb"Dim ret As Long'记录原来的 Window Procedure的位址preWinProc = GetWindowLong(Me.hwnd, GWL_WNDPROC)'设定 form 的 window Procedure 到 wndprocret = SetWindowLong(Me.hwnd

26、, GWL_WNDPROC, AddressOf Wndproc) End SubPrivate Sub Form_Unload2(Cancel As Integer)Dim ret As Long'取消Message的截取，而使之又只送往原来的 Window Procedureret = SetWindowLong(Me.hwnd, GWL_WNDPROC, preWinProc)End SubPrivate Sub Command1_Click()Form1.ShowUnload MeEnd SubPrivate Sub Command2_Click()Command4.Enabl

27、ed = TrueCommand3.Enabled = FalseEnd SubPrivate Sub Command3_Click()Command4.Enabled = TrueIf Data1.Recordset.EOF ThenCommand3.Enabled = FalseEnd IfEnd SubPrivate Sub Command4_Click()Command3.Enabled = TrueIf Data1.Recordset.BOF ThenCommand4.Enabled = FalseEnd IfEnd SubPrivate Sub Command5_Click()Co

28、mmand4.Enabled = FalseCommand3.Enabled = TrueEnd Sub4、成绩浏览窗口 form3.frmOption ExplicitPrivate Sub Command2_Click()Command4.Enabled = TrueCommand3.Enabled = FalseEnd SubPrivate Sub Command3_Click()Command4.Enabled = TrueIf Data1.Recordset.EOF ThenCommand3.Enabled = FalseEnd IfEnd SubPrivate Sub Comman

29、d4_Click()Command3.Enabled = TrueIf Data1.Recordset.BOF ThenCommand4.Enabled = FalseEnd IfEnd SubPrivate Sub Command5_Click()Command4.Enabled = FalseCommand3.Enabled = TrueEnd SubPrivate Sub Form_Load()Data1.DatabaseName = App.Path & "xscj.mdb"Dim ret As Long'记录原来的 Window Procedure

30、 的位址preWinProc = GetWindowLong(Me.hwnd, GWL_WNDPROC)'设定 form 的 window Procedure 到 wndprocret = SetWindowLong(Me.hwnd, GWL_WNDPROC, AddressOf Wndproc)End SubPrivate Sub Form_Unload2(Cancel As Integer)Dim ret As Long'取消Message的截取，而使之又只送往原来的 Window Procedureret = SetWindowLong(Me.hwnd, GWL_WNDP

31、ROC, preWinProc)End SubPrivate Sub Command1_Click()Form1.ShowUnload MeEnd Sub5、学籍管理窗口 form4.frmOption ExplicitPrivate Sub Command1_Click()Form1.ShowUnload MeEnd SubPrivate Sub Command2_Click（）Dim num As StringDim n As StringDim s As Integernum = InputBox（" 请输入要删除的学生学号（三位数） ", ""）

32、n 二 Datal .R ecordset.Fields（学号”）If num = n Thens = MsgBox（" 确定要删除吗？ ", vbQuestion + vbOKCancel, " 确定删除）If s = 1 ThenIf Data1.Recordset.RecordCount > 0 ThenIf Data1.Recordset.EOF ThenEnd IfEnd IfEnd IfExit DoElseEnd IfLoopIf Data1.Recordset.EOF ThenMsgBox （" 查无此人 "）End If

33、End SubPrivate Sub Command3_Click（）Dim n As StringData1.Refreshn 二 Datal .R ecordset.Fields（学号”） If text1.Text = n ThenMsgBox （"已有学号 "）text1.Enabled = Falsetext2.Enabled = Falsetext3.Enabled = Falsetext4.Enabled = Falsetext5.Enabled = Falsetext6.Enabled =Falsetext7.Enabled =Falsetext8.Enab

34、led =Falsetext9.Enabled =FalseExit DoElseData1.UpdateRecordData1.Refreshtext1.Enabled =Falsetext2.Enabled =Falsetext3.Enabled =Falsetext4.Enabled =Falsetext5.Enabled =Falsetext6.Enabled =Falsetext7.Enabled =Falsetext8.Enabled =Falsetext9.Enabled =FalseEnd IfLoopEnd SubPrivate Sub Command4_Click() Da

35、ta1.Refresh Data1.Recordset.AddNew text1.Text = "" text2.Text = "" text3.Text = "" text4.Text = "" text5.Text = "" text6.Text = "" text7.Text = "" text8.Text = "" text9.Text = "" text1.Enabled = True text2.Enab

36、led = True text3.Enabled = True text4.Enabled = True text5.Enabled = True text6.Enabled = True text7.Enabled = True text8.Enabled = True text9.Enabled = True End SubPrivate Sub Command5_Click（）Dim num As StringDim n As Stringnum = InputBox（" 请输入三位数学号 ", "学号查询 "） Data1.Refreshn 二

37、Datal .R ecordset.Fields（学号”）If n = num ThenExit DoElseEnd IfLoopIf Data1.Recordset.EOF ThenMsgBox （" 查无此人 "）End IfEnd SubPrivate Sub Command6_Click（）Dim name As StringDim m As Stringname = InputBox（"请输入学生姓名","姓名查询"）Data1.Refreshm = Datal .R ecordset.Fields（姓名”）If m = n

38、ame ThenExit DoElseEnd IfLoopIf Data1.Recordset.EOF ThenMsgBox （"查无此人 "）End IfEnd SubPrivate Sub Form_Load（）Data1.DatabaseName = App.Path & "xsxj.mdb"Dim ret As Long'记录原来的 Window Procedure的位址preWinProc = GetWindowLong(Me.hwnd, GWL_WNDPROC)'设定 form 的 window Procedure 到

39、 wndprocret = SetWindowLong(Me.hwnd, GWL_WNDPROC, AddressOf Wndproc) End SubPrivate Sub Form_Unload2(Cancel As Integer)Dim ret As Long'取消Message的截取，而使之又只送往原来的 Window Procedureret = SetWindowLong(Me.hwnd, GWL_WNDPROC, preWinProc) End Sub6、成绩管理窗口 form5.frmOption ExplicitPrivate Sub Command1_Click(

40、)Form1.ShowUnload MeEnd SubPrivate Sub Command3_Click()Source= " & App.Path & "xscj.mdb;Persist Security Info=False "Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim sql As StringDim cnstr As Stringcn.CursorLocation = adUseClientcnstr = "Provider=Microsoft.J

41、et.OLEDB.4.0;Data Source=" & App.Path & "xscj.mdb;Persist Security Info=False"cn.ConnectionString = cnstrcn.Open cnstrsql = "select * from xscj"rs.Open sql, cn, adOpenStatic, adLockOptimistic 'adOpenStatic 或 许 用 adOpenDynamicSet DataGrid1.DataSource = rsEnd SubPr

42、ivate Sub Command5_Click()Dim cn As New ADODB.ConnectionDim rs As New ADODB.Recordsetrs.CursorLocation = adUseClientcn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "xscj.mdb;Persist Security Info=False"cn.OpenIf Text1.Text = ""

43、 ThenMsgBox " 请填写学号！ ", vbExclamation, " 提示信息 "Exit SubEnd If'" & Text1.Text & "'", cn,rs.Open "select * from xscj where 学 号adOpenKeyset, adLockOptimisticIf rs.RecordCount = 0 ThenMsgBox "没有此学号！ ", vbExclamation, "提示信息 "End

44、IfSet DataGrid1.DataSource = rsText1.Text = ""End SubSource=" &Private Sub Command6_Click() Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset rs.CursorLocation = adUseClient cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;DataApp.Path & "xscj.mdb;P

45、ersist Security Info=False"cn.OpenIf Text2.Text = "" ThenMsgBox " 请填写课号！ ", vbExclamation, " 提示信息 "Exit SubEnd Ifrs.Open "select * from xscj where 课 号Ill& Text2.Text &Hillcn,adOpenKeyset, adLockOptimisticIf rs.RecordCount = 0 ThenMsgBox " 没有此课号！ &

46、quot;, vbExclamation, " 提示信息 "End IfSet DataGrid1.DataSource = rsText2.Text = ""End SubPrivate Sub Form_Load() Adodc1.ConnectionString = " Provider=Microsoft.Jet.OLEDB.4.0;DataSource= " & App.Path & "xscj.mdb;Persist Security Info=False "Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim sql As StringDim cnstr As Stringcn.CursorLocation = adU