毕业设计（论文）学生成绩信息管理系统设计.doc

《毕业设计（论文）学生成绩信息管理系统设计.doc》由会员分享，可在线阅读，更多相关《毕业设计（论文）学生成绩信息管理系统设计.doc（42页珍藏版）》请在三一办公上搜索。

1、 分类号 编号中央广播电视大学计算机应用专业毕业论文学生姓名：_ _学 号：_087261612_ 指导老师：_ _专 业：_计算机应用_年 级：_08秋_2010年12月16日摘 要本课题针对当前我国学生成绩多数采用人工管理的现状以及即使采用了计算机学生成绩信息管理系统却不能完全满足本单位图书管理的需要的实际情况出发，对学生成绩管理业务经过详细的系统调查，开发出的操作简单而且方便实用的一个学生成绩管理管理系统，以适应新时代发展的需要。本系统使用Visual Basic6.0开发工具，主要使用SQL语句，结合Access数据库、VB的DAO数据访问对象，DATA控件和ADO控件来实现数据库的操

2、作。学生成绩管理系统主要对图书管理日常工作中遇到的实际问题，例如学生信息、学生成绩信息等等。本系统经过测试，运行稳定，可投入使用。 关键词:VB,Access数据库,管理系统程序设计: 学生成绩信息管理系统目录一、引言2(一)开发背景21.2开发目标21.3项目提出意义2二、系统分析22.1用户需求22.3.词汇表22.4系统功能概述22.5.系统支持软件2三、Access 2003数据库23.1设计关系数据库23.2.创建数据库23.3.Access数据库与SQL语句23.4.VB6企业版与Access2003数据库连接2四、学生成绩管理系统设计及代码编写24.1.登陆界面设计24.2主界面

3、设计24.3学生信息管理界面设计24.4学生信息添加界面设计24.5 学生信息管理修改界面设计24.6学生信息删除界面设计24.7学生信息查询(报表)界面设计24.8学生信息统计界面设计24.9系统退出2五、系统问题与调试2一、引言(一)开发背景几年前，各个学校的学生成绩管理基本上都是靠手工进行，随着各个学校的规模增大，有关学生成绩管理工作所涉及的数据量越来越大，有的学校不得不靠增加人力、物力来进行学生成绩管理。但手工管理具有效率底、 。所以我想借本次毕业设计之际，开发一个不仅适用本校各系而且适用于其它各校的通用高校学生成绩管理系统。(二)开发目标建立学生成绩管理系统，采用计算机对学生成绩进行

4、管理，进一步提高办学效益和现代化水平。帮助广大教师提高工作效率，实现学生成绩信息管理工作流程的系统化、规范化和自动化(三)项目提出意义目前我国的教育体制正处在不断改革，创新的阶段，随着社会的发展和经济时代的到来，还有学校的教学质量的提高，生源不断扩大。尤其是自从国家实施大众化教育，实行高考扩招以来，我国高校学生数量急剧增大。学校管理就成了一个现实问题摆在了人们面前。学生成绩管理是学校管理中异常重要的一个环节，是整个学校教务管理中的重要一部分，鉴于它的重要性，学生成绩管理系统的开发与应用就逐渐提入议程。运用学生成绩管理系统可以减轻学院教学人员的工作量，加快查询速度，加强管理。 二、系统分析(一)

5、用户需求学生成绩查询系统对学校加强学生成绩管理有着极其重要的作用。由于各个大学都在持续扩招，学生的数量日益庞大，传统的手工成绩管理不仅工作量大，而且容易出现问题。本项目的任务提出者及开发者是学生管理系统软件开发小组,用户是学校老师对学生的成绩管理及统计 本产品能具体化、合理化的管理学生的学生档案，用结构化的思维方式去了解计算机的基本工作原理和汉语程序设计语言。(二)系统流程图学生成绩信息管理系统流程图如图:(三).词汇表词汇名称词汇含义备注静态数据系统固化在内的描述系统实现功能的一部分数据动态数据在软件运行过程中用户输入的后系统输出给用户的一部分数据，也就是系统要处理的数据数据字典数据字典中的

6、名字都是一些属性与内容的抽象和概括，它们的特点是数据的“严密性”和“精确性”，没有半点含糊(四)系统功能概述系统特性名称系统特性描述优先级系统用户管理用户登录学生信息成绩管理管理：添加、修改、删除、息学生成绩查询查询、报表学生信学生成绩统计最高分、最低分、降序、报表、数据显示学生成绩打印报表打印报表。(五).系统支持软件操作系统：Windows XP数据库管理系统：Access2003mysql其他支撑软件：Visual Basic 6三、Access 2003数据库(一)设计关系数据库1.确定数据库的用途和需求.在这个过程中,需要对所建的数据库系统的应用环境进行分析.根据应用环境,确定创建数

7、据库的目的,确定要完成哪些操作,建立哪些对象.这一过程是数据库设计的第一步,也是最重要的一步,它直接影响数据库设计的质量.2.确定数据库中所需要的表. 首先,确定表时,要求每个表只能包含一个主题的信息,从而根据主题信息确定表名.同一数据库中,不同的表不能同名.其次,数据库中的表是数据库的基础数据来源.确定需要建立的表,是设计数据库的关键.3.确定表中所需字段.确定表中字段时,需要确定字段的名称,类型,属性.4.确定主关键字.5.确定表之间的关系.关系分为三种类型:一对一关系,一对多关系,多对多关系.6.优化设计.(二)创建数据库1.使用向导创建数据库. 使用向导创建数据库就是利用其中的模板数据

8、库,在向导的指引下,进行一些简单的操作,就可以创建一个包含了表,查询,窗体,报表等对象的数据库应用系统.2.创建空数据库. 空数据库就是没有任何对象的数据库,建好以后,可以根据实际需求添加表,查询,窗体等对象.这样就能创建符合实际的针对性较强的数据库应用系统.(三)Access数据库与SQL语句在Access中我们有时通过设计视图进行查询也未必能够达到我们所要的目的；在这时我们要运用SQL语句来实现.在SQL语句中最常用的是SELECT这一语言句子，它的语法包括5个主要子句，分别是FORM、WHERE、GROUP BY、HAVING、ORDER BY子句。SELECT语句的结构是这样的。 SE

9、LECT 字段列表 FROM 表列表 WHERE行选择说明GROUP BY 分组说明 HAVING 组选择说明ORDER BY 排序说明；例如：我们对一学生信息管理系统的所有数据查询我们可以这样用：SELECT * FROM 表名 ORDER BY id该语句通过ID排序将整个数据库的数据进行读取。注意在使用ORDER BY 时，尽量不要使用WHERE关键字。（经验之谈）(四)VB6企业版与Access2003数据库连接Adodc控件是一个ActiveX控件，它使用Microsoft ActiveX Data Objects(ADO)创建到数据库的连接。使用Adodc控件之前，要先将Adodc

10、控件添加到控件工具箱中。方法如下：在VB 6.0种选择“工程”菜单，再点击“部件”菜单项，在弹出的“部件”对话框中选中“Microsoft ADO Data Control 6.0(OLEDB)”选项即可。 通过Adodc控件连接加密的数据库的方法也有两种： 一种方法是在设计状态时，在“属性窗口”中，对Adodc控件的ConnectionString属性设置一个有效的连接字符串，并在连接字符串后增加上”; Jet OLEDB: DataBase password=1234”，再设置Adodc控件的CommandType、RecordSource的属性就可以创建到加密的数据库的连接了。 另一种方

11、法是在运行时，通过代码动态地设置ConnectionString、CommandType和RecordSource属性来创建连接。 只要在ConnectionString属性的有效连接字符串后增加上”; Jet OLEDB: DataBase password=1234”即可。四、学生成绩管理系统设计及代码编写(一).登陆界面设计系统运行时的主界面大致要求为windows的经典运行界面，主界面可以是SDI（单文档界面）即每个窗体之间是独立的，也可以是MDI（多文档界面）：有一个主窗体，可以包含其他窗体。建议本系统采用多文档界面，这样可以使程序更加美观，整齐有序。系统启动后，将首先出现用户登录窗

12、体，用户首先输入用户名，然后输入密码，如果用户3次输入密码不正确，将退出程序。 登陆界面如图：代码如下：Private Sub Command1_Click()If Trim(Text1.Text) = ThenMsgBox 用户帐户不能为空, 64 + 0, 提示Exit SubEnd IfIf Trim(Text2.Text) = ThenMsgBox 用户密码不能为空, 64 + 0, 提示Exit SubEnd IfAdodc1.RecordSource = select * from s1 where zh= & Trim(Text1.Text) & and mm= & Trim(T

13、ext2.Text) & Adodc1.RefreshIf Adodc1.Recordset.BOF ThenMsgBox 用户帐户与密码有误，请重新输入, 64 + 0, 提示ElseUnload MeForm1.ShowExit SubEnd IfEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load()Adodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & a1db1.mdb;Persist Sec

14、urity Info=FalseAdodc1.RecordSource = select * from s1Adodc1.RefreshEnd Sub(二)主界面设计系统登陆后，将首先出现主窗体，系统管理模块主要实现以下功能:1 学生信息成绩管理2学生信息成绩输入3 学生信息成绩查询4 学生信息成绩统计5 学生信息成绩报表6 系统退出现主窗体设计如图：代码如下：Private Sub a2_Click()tj.ShowEnd SubPrivate Sub a3_Click()gl.ShowEnd SubPrivate Sub a4_Click()gl.ShowEnd SubPrivate Su

15、b a5_Click()cx.ShowEnd SubPrivate Sub a6_Click()tji.ShowEnd SubPrivate Sub a7_Click()If data1.rsCommand1.State = 1 Then data1.rsCommand1.CloseEnd If data1.rsCommand1.Open Adodc1.RecordSource datar1.ShowEnd SubPrivate Sub a8_Click()If MsgBox(你真的要退出吗？, 64 + vbOKCancel, 提示) = vbOK ThenEndEnd IfEnd SubP

16、rivate Sub Form_Load()data1.Connection1.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & a1db1.mdb;Persist Security Info=FalseStatusBar1.Panels(2) = 当前系统日期是： & DataStatusBar1.Panels(1) = 学生信息共有 & cx.Adodc1.Recordset.RecordCount & 条Adodc1.ConnectionString = Provider=Micro

17、soft.Jet.OLEDB.4.0;Data Source= & App.Path & a1db1.mdb;Persist Security Info=FalseAdodc1.RecordSource = select * from xsAdodc1.RefreshEnd SubPrivate Sub Form_Unload(Cancel As Integer)If MsgBox(你真的要退出吗？, 64 + vbOKCancel, 提示) = vbOK ThenCancel = 0ElseCancel = 1End IfEnd Sub数据结构设计：(三)学生信息管理界面设计启动学生信息管理

18、功能，管理模块主要实现以下功能:1 学生信息修改2学生信息删除3 系统退出现管理界面计如图：代码如下：Private Sub Command1_Click() xg.Text1.Text = Adodc1.Recordset.Fields(0)xg.Text2.Text = Adodc1.Recordset.Fields(1)If Adodc1.Recordset.Fields(2) = 男 Then xg.Option1.Value = True Else xg.Option2 = True End If xg.Combo1.Text = Adodc1.Recordset.Fields(3)

19、 xg.Text3.Text = Adodc1.Recordset.Fields(4) xg.Text4.Text = Adodc1.Recordset.Fields(5) xg.Text5.Text = Adodc1.Recordset.Fields(6)xg.Show End SubPrivate Sub Command2_Click()If MsgBox(你真的要删除学号为 & Adodc1.Recordset.Fields(0) & 吗？, 64 + vbOKCancel, 提示) = vbOK ThenAdodc1.Recordset.DeleteAdodc1.Recordset.U

20、pdateMsgBox 删除成功, 64 + 0, 提示End IfEnd SubPrivate Sub Form_Load()Adodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & a1db1.mdb;Persist Security Info=FalseAdodc1.RecordSource = select * from xsAdodc1.Refresh Label2.Caption = 学生成绩信息共有 & Adodc1.Recordset.RecordCount & 条E

21、nd Sub(四)学生信息添加界面设计点击信息输入功能，对学生信息进行添加。添加学生成绩信息界面如图：代码如下：Private Sub Command1_Click()If Trim(Text1.Text) = ThenMsgBox 学号不能为空, 64 + 0, 提示Exit SubEnd IfIf Trim(Text2.Text) = ThenMsgBox 姓名不能为空, 64 + 0, 提示Exit SubEnd IfIf Trim(Text3.Text) = ThenMsgBox 语文成绩不能为空, 64 + 0, 提示Exit SubEnd IfIf Trim(Text4.Text)

22、 = ThenMsgBox 数学成绩不能为空, 64 + 0, 提示Exit SubEnd IfIf Trim(Text5.Text) = ThenMsgBox 英语成绩不能为空, 64 + 0, 提示Exit SubEnd IfAdodc1.RecordSource = select *from xs where xh = & Trim(Text1.Text) & Adodc1.RefreshIf Adodc1.Recordset.RecordCount 0 ThenMsgBox 学号有重复，请重新输入, 64 + 0, 提示Exit SubEnd Ifa = Val(Trim(Text3.

23、Text) + Val(Trim(Text4.Text) + Val(Trim(Text5.Text)b = a / 3With Adodc1.Recordset.AddNew.Fields(0) = Trim(Text1.Text).Fields(1) = Trim(Text2.Text)If Option1.Value = True Then .Fields(2) = 男 Else .Fields(2) = 女 End If.Fields(3) = Combo1.Text.Fields(4) = Trim(Text3.Text).Fields(5) = Trim(Text4.Text).F

24、ields(6) = Trim(Text5.Text).Fields(7) = a.Fields(8) = b.UpdateEnd WithMsgBox 添加成功, 64 + 0, 提示End SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load()Adodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & a1db1.mdb;Persist Security Info=FalseAdodc1.RecordSour

25、ce = select * from xsAdodc1.RefreshEnd Sub(五)学生信息管理修改界面设计修改界面如图：代码如下：Private Sub Command1_Click()If Text1.Text = ThenMsgBox 姓名名不能为空, vbInformation + vbOKOnly, 提示Exit SubEnd IfIf Text2.Text = ThenMsgBox 密码不能为空, vbInformation + vbOKOnly, 提示Exit SubEnd IfIf Text3.Text = ThenMsgBox 语文成绩不能为空, vbInformati

26、on + vbOKOnly, 提示Exit SubEnd IfIf Text4.Text = ThenMsgBox 数学成绩能为空, vbInformation + vbOKOnly, 提示Exit SubEnd IfIf Text5.Text = ThenMsgBox 英语成绩能为空, vbInformation + vbOKOnly, 提示Exit SubEnd Ifa = Val(Trim(Text3.Text) + Val(Trim(Text4.Text) + Val(Trim(Text5.Text)b = a / 3If gl.Adodc1.Recordset.RecordCount

27、 0 Then If Text1.Text = gl.Adodc1.Recordset.Fields(0) Then With gl.Adodc1.Recordset .Fields(1) = Text2.Text If Option1.Value = True Then .Fields(2) = 男 Else .Fields(2) = 女 End If .Fields(3) = Combo1.Text .Fields(4) = Text3.Text .Fields(5) = Text4.Text .Fields(6) = Text5.Text .Fields(7) = a .Fields(8

28、) = b .Update End With MsgBox 学号信息修改成功 Else Adodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & db1.mdb;Persist Security Info=False Adodc1.RecordSource = select * from xs where xh= & Trim(Text1.Text) & Adodc1.Refresh If Adodc1.Recordset.RecordCount 0 Then MsgBox 学号输入

29、有重复，请重新输入 Exit Sub Else With gl.Adodc1.Recordset .Fields(0) = Text1.Text .Fields(1) = Text2.Text If Option1.Value = True Then .Fields(2) = 男 Else .Fields(2) = 女 End If .Fields(3) = Combo1.Text .Fields(4) = Text3.Text .Fields(5) = Text4.Text .Fields(6) = Text5.Text .Fields(7) = a .Fields(8) = b .Upda

30、te End With MsgBox 学号信息修改成功 End IfEnd IfEnd IfEnd SubPrivate Sub Form_Load()Adodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & a1db1.mdb;Persist Security Info=FalseAdodc1.RecordSource = select * from xsAdodc1.RefreshEnd Sub(六)学生信息删除界面设计(3)删除代码如下Private Sub Command2_

31、Click()If MsgBox(你真的要删除学号为 & Adodc1.Recordset.Fields(0) & 吗？, 64 + vbOKCancel, 提示) = vbOK ThenAdodc1.Recordset.DeleteAdodc1.Recordset.UpdateMsgBox 删除成功, 64 + 0, 提示End IfEnd Sub(七)学生信息查询(报表)界面设计进入系统查询功能可以清晰或模糊的查询学生的成绩和信息,可以按学号、姓名、班级进文本框中输入关键字进入查询,界面中还有一个功能就是可以能查询出来的信息进行报表打印.查询界面如图：代码设计如下：Private Sub

32、Form_Load()Adodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & a1db1.mdb;Persist Security Info=FalseAdodc1.RecordSource = select * from xsAdodc1.RefreshEnd SubPrivate Sub Command1_Click()Dim a As StringIf Option1.Value = True Then If Option3.Value = True Then a = sel

33、ect * from xs where xh like % & Trim(Text1.Text) & % ElseIf Option4.Value = True Then a = select * from xs where xm like % & Trim(Text1.Text) & % ElseIf Option5.Value = True Then a = select * from xs where bj like % & Trim(Text1.Text) & % End If Else If Option2.Value = True Then If Option3.Value = T

34、rue Then a = select * from xs where xh like & Trim(Text1.Text) & ElseIf Option4.Value = True Then a = select * from xs where xm like & Trim(Text1.Text) & ElseIf Option5.Value = True Then a = select * from xs where bj like & Trim(Text1.Text) & End If End If End If Adodc1.RecordSource = a Adodc1.Refre

35、sh Label2.Caption = 查询到学生数据 & Adodc1.Recordset.RecordCount & 条End Sub（1） 报表功能部分界面设计如图：报表功能代码如下：Private Sub Command2_Click()If data1.rsCommand1.State = 1 Then data1.rsCommand1.CloseEnd If data1.rsCommand1.Open Adodc1.RecordSource datar1.ShowEnd Sub(八)学生信息统计界面设计进入学生信息统计界面,主要是对学生信息成绩进行统计,可以按班级分类来统计学生成绩

36、信息,按科目,语文数学英语,统计功能有最高分统计,最低分统计,降序统计,报表功能,显示全部数据,退出等功能.学生信息统计界面如图：统计功能(班级分类、科目选择最高分、最低分、降序、报表、显示全部、退出)代码如下：Private Sub Command1_Click()Dim a As StringIf Option1.Value = True Then a = select * from xs where bj = & DataCombo1.Text & and yw in (select max(yw) from xs where bj= & DataCombo1.Text & ) Else

37、If Option2.Value = True Thena = select * from xs where bj = & DataCombo1.Text & and sx in (select max(sx) from xs where bj= & DataCombo1.Text & ) ElseIf Option3.Value = True Thena = select * from xs where bj = & DataCombo1.Text & and yy in (select max(yy) from xs where bj= & DataCombo1.Text & ) End

38、IfAdodc1.RecordSource = aAdodc1.RefreshLabel2.Caption = 学生成绩共有 & Adodc1.Recordset.RecordCount & 条End SubPrivate Sub Command2_Click()Dim a As StringIf Option1.Value = True Then a = select * from xs where bj = & DataCombo1.Text & and yw in (select min(yw) from xs where bj= & DataCombo1.Text & ) ElseIf

39、 Option2.Value = True Thena = select * from xs where bj = & DataCombo1.Text & and sx in (select min(sx) from xs where bj= & DataCombo1.Text & ) ElseIf Option3.Value = True Thena = select * from xs where bj = & DataCombo1.Text & and yy in (select min(yy) from xs where bj= & DataCombo1.Text & ) End If

40、Adodc1.RecordSource = aAdodc1.RefreshLabel2.Caption = 学生成绩共有 & Adodc1.Recordset.RecordCount & 条End SubPrivate Sub Command3_Click()Dim a As Stringa = select * from xs where bj = & DataCombo1.Text & order by zf descAdodc1.RecordSource = aAdodc1.RefreshLabel2.Caption = 学生成绩共有 & Adodc1.Recordset.RecordC

41、ount & 条End SubPrivate Sub Command4_Click()If data1.rsCommand1.State = 1 Then data1.rsCommand1.CloseEnd If data1.rsCommand1.Open Adodc1.RecordSource datar1.ShowEnd SubPrivate Sub Command5_Click()Adodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & a1db1.mdb;Persist Se

42、curity Info=FalseAdodc1.RecordSource = select * from xsAdodc1.RefreshLabel2.Caption = 学生成绩共有 & Adodc1.Recordset.RecordCount & 条End SubPrivate Sub Command6_Click()Unload MeEnd SubPrivate Sub DataCombo1_Click(Area As Integer)Dim a As Stringa = select * from xs where bj = & Trim(DataCombo1.Text) & Adod

43、c1.RecordSource = aAdodc1.RefreshLabel2.Caption = 学生成绩共有 & Adodc1.Recordset.RecordCount & 条End SubPrivate Sub Form_Load()Adodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & a1db1.mdb;Persist Security Info=FalseAdodc1.RecordSource = select * from xsAdodc1.RefreshAdodc2.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Pa