学生信息管理系统毕业论文26856

1、 基于DELPHI的学生信息管理系统的设计与实现【摘要】随着科学技术和信息技术的发展，计算机领域不断取得新的研究成果。大家都知道，在学校工作中学生的信息管理是一项重要的内容。无论是农村学校还是城市学校、无论是小学还是初中，随着信息技术在管理上越来越深入而广泛的应用，在学校里，要处理大量的学生数据信息显得尤为的重要。为此，学校不得不建立信息化的学生信息管理系统。学生信息管理信息系统是一个不断发展的新型学科，任何一个学校要生存和发展，就要高效率地把内部活动有机地组织起来，本系统论文主要是管理学生的资料。重点介绍其功能：学生信息管理、学籍管理、成绩管理、奖惩管理、系统管理。使用delphi设计程序进

2、行管理操作，并用Access进行后台数据库的连接设计。主要是以五大功能进行系统的设计和实现。随着信息技术在管理上越来越深入而广泛的应用，管理信息系统的实施在技术上已逐步成熟。管理信息系统是一个不断发展的新型学科，任何一个单位要生存要发展，要高效率地把内部活动有机地组织起来，就必须建立与自身特点相适应的管理信息系统。在计算机技术的迅速发展的前提下,为了加快学校学籍管理,开发一套学籍管理系统迫在眉捷。本系统主要采用Delphi 7做为开发工具,应用面向对象的程序设计方法进行开发与设计的。利用其提供的集成开发环境及各种控件，尤其是对数据库的支持完成对数据库的各种操作，达到对学生成绩管理的目的。本系统

3、使用ADO连接数据库Access2003，提出了权限管理模块的具体实现方法，并完成了相关软件的设计任务。最终系统能够完成信息的输入、输出,数据的修改、查询和统计等功能，使用户操作起来简便快捷。随着科学技术的不断进步，计算机科学日渐成熟，其强大的功能已为人们深刻认识，它已进入人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一个重要部分，信息管理系统是一个由用户和计算机组成的进行信息管理、信息收集、存储处理、传递使用和维护的软件系统。学生信息管理系统是学校地方管理工作过程中不可缺少的部分，对学生信息管理工作，具有着手工管理所无法比拟的优点，检索迅速、查找方便、可靠性高、存储量大等。这些

4、优点能够极大地提高日常查询的效率。因此，开发学生信息管理系统成为很有必要的事情。数据库技术是一种计算机辅助管理数据的方法，它研究如何组织和存储数据，如何高效地获取和处理数据。而在互联网日益发展、壮大的背景下，在因特网普及浪潮持续高涨的情况下，如何让原来在单机中使用的数据库可供多机使用，也成了必然的趋势。学生信息管理系统是典型的信息管理系统 (MIS)，其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备，易使用等特点。经过分析，我们使用MICROSOFT公司的VISUAL BASIC开发工

5、具，利用其提供的各种面向对象的开发工具，尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象，首先在短时间内建立系统应用原型，然后，对初始原型系统进行需求迭代，不断修正和改进，直到形成用户满意的可行系统。【关键词】管理信息系统、学生管理、delphi应用一、 Delphi 概述1.1 Delphi 语言的特点 Delphi是基于Object Pascal语言的面象对象的开发工具，使用其集成开发环境可以快速地建立应用程序，即可开发本地类型的软件，又可开发客房/服务器类型的程序，并提供了丰富的数据库管理工具，在开发数据库应用程序方面具有独特的优势。Delphi的主要特点体现在以下几个方面：（1）D

6、elphi为32位应用程序，因此其性台就像装上了涡轮引擎一样强劲有力，使用它可开发出功能强大的应用程序。（2）Delphi的编译器是目前世界上最快的32位本地代码编译器。使用这种编译器产生的运行文件EXE是独立的，不需要链接运行时的解释器DLL.（3）Delphi可充分发挥Windwos95/98/2000/xp/2003的强大功能。（4）Delphi提供了多种32位可视组件库。（5）Delphi是一种面向对象的程序设计语言，因此可做到可视窗体的继承。（6）Delphi采用3层数据管理模式(数据层、对象层、应用程序层)，把诸如数据模型、业务规则、窗体、对象等集中存储在对象存储库中。（7）应用程

7、序可通过在Delphi中使用Borland公司提供的数据引擎(BDE)功能，可以毫无障碍地使用多种数据库，不论是大型数据库还是PC机中的数据库。（8）Delphi中的数据库感知功能，可使用户在开发应用程序时就可看到数据库的动态变化。(9)使用Delphi提供的数据库浏览器，则可使用用户在Delphi的集成开发环境中，方便浏览、修改、索引数据库。(10)为了便于维护程序，Delphi将数据访问与业务规则从程序中分离出来，集中存储在数据模型对象中，当业务规则需要修改时，只需在数据模型级进行修改。程序运行调用这些数据模型时，修改的结果会自动反映在应用程序中。此外，在Delphi中，为用户免费提供了2

8、个用户许可的本地Interbase(数据库管理系统).1.2 Delphi的常用组件：（1） Delphi的常用组件有tlable,tedit,tcombox,tmemo,tbutton,tcheckbox,tradiobutoon,等连数据库的控件会在下面连接数据库时用到。最简单的方法是：1. 在DELPHI中添加adoconnection 控件。连到你要修改的数据库，active属性改成true,说明数据库连接成功2. 添加adotable控件，connection 属性填上第1步中的adoconnection 名称。tablename填上你要修改的表，active属性改成true,说明数

9、据表连接成功或添加adoquery控件，设置与adotable稍有不同，就是没有tablename属性，需要在SQL属性中输入你连接表的sql语句。3.添加data access 中的 datasource控件。dataset属性设置成你第2步中的adotable或adoquery控件名称。4.在dbgrid控件（可能是你说的列表框吧）的datasource属性中设置成第3步中datasource控件的名称。这时，数据表中的数据已经显示到了dbgrid中。5. 查看以上用到的adotable和dbgrid的readonly属性，全部改成false(默认false)6. 这时，你修改列表框中的值

10、后，鼠标点另一行后，数据会自动保存到oracle表。 第二章 设计的目的与需求分析2.1 设计的目的随着计算机技术的发展和互联网时代的到来和飞速发展，我们已经进入了信息时代，也有人称为数字化时代，在这数字化的时代里，学校传统的管理方法和办学水平都受到了极大的挑战。Internet技术持续迅猛的发展，也给传统的办学提出了新的模式。绝大部分大学和学院都已接入互联网并建成校园网，各校的硬件设施已经比较完善。通过设计和建设网络拓扑架构、网络安全系统、数据库基础结构、信息共享与管理、信息的发布与管理，从而方便管理者、老师和学生间信息发布、信息交流和信息共享。以现代计算技术、网络技术为基础的数字化教学主要

11、是朝着信息化、网络化、现代化的目标迈进。与网络技术相结合的新型办学模式具有对于教育、教学过程来说极为宝贵的特性，可以为新型办学模式的建构提供理想的环境。通过设计达到熟练掌握.NET基本结构以及Visual Basic语言的基本知识和技能；基本掌握面向对象程序开发的基本思路和方法；掌握Acess数据库开发基本知识；能够利用所学的基本知识和技能，进行简单数据库应用程序设计。根据题目的要求，给出解决问题的方案，通过分析问题、分解问题来解决问题，最终达到熟练掌握Visual Basic语言的运用和Visual Studio2008工具的使用。2.2 需求分析用户的需求具体体现在各种信息的录入、修改、删

12、除和查询，这就要求数据库结构能充分满足各种信息的输出和输入。收集基本数据、数据结构以及数据处理的流程，组成一份详尽的数据字典，为后面的具体设计打下基础。更重要的是数据库设计经验在今后其他项目的开发过程中同样有着很重要的借鉴作用。学生管理系统的开发目的是为了实现学生课程、学籍的信息化管理。本系统需要完成的功能有： 有关学籍等信息的输入，包括输入学生基本信息、所在班级、所学课程和成绩等。学生信息的查询，包括查询学生基本信息、所在班级、已学课程和成绩等。学生信息的修改。班级管理信息的输入，包括输入班级设置、年级信息等。班级管理信息的查询。班级管理信息的修改。学生课程的设置和修改。8.学生奖罚情况的查

13、询。第三章 学生信息管理系统的总体设计3.1模块的设计分析本次设计主要分为四个模块：管理员模块、学生模块、教师模块、访客模块，详细情况如下图所示：登陆界面管理员学生教师访客用户管理新生注册课程班级信息成绩录入成绩查询学生奖罚信息个人信息查询添加用户删除用户修改用户密码数据库文件备份退出课程设置班级辅导员信息个人成绩查询班级成绩查询学生信息课程信息重新登陆退出修改个人信息必修课查询选修课查询 3.2可行性分析学生信息，作为一个学校，就有一定的工作量存在，而学生信息，它的工作量可能是其它信息工作量的几倍，班级的增加、班级的查找、班级的修改；学生档案；课程管理；成绩管理；缴费管理；统计等等，每个信息

14、的数据都在不断地变化着，如果采用人工的方式进行操作，那么，一天的工作量，足以让人觉得比较繁琐，吃不消。针对这样的情况，采用让数据的查询变得简单化，数据变的更让每个人都在任何时刻都可以了解到。学生信息管理系统是为本校开发的，本系统所采用的语言是Visual Basic，用Microsoft Access 2003数据库完成。该系统总体有三部分组成，包括用户管理信息、学生信息、老师信息。通过本系统，把本校内部查询用户管理信息、学生信息、老师信息各个环节进行有效地计划、组织和控制。通过本校内部的信息，依据统一数据信息进行管理，把任何一块信息所产生的数据变动及时地反映给其它相关信息，做到数据共享。本系

15、统主要信息流程为：管理员维护接受学生的信息，学生信息查询根据管理员维护的学生信息做出对所接收的信息合理性进行判断，并交于信息维护进行相应的修改，再把信息存入数据库中。学生信息是对学生进行相应地修改自己的个人信息。采用本系统，能够使整个系统内部所有信息的工作简化，提高工作效益。由于采用统一的数据信息，使相关资料能够快速地查询所需的数据、资料及其它信息的，使信息快速高效运行。本系统中使用到的数据表主要有学生信息表、登陆信息表、课程表、必修课、选修课成绩表、班级辅导员信息表、学生奖罚信息表，由这七个表，组成了名为student的数据库（如图一）。其中学生信息表是本系统主要的一张表（图一）3.3关系型

16、数据库的实现Access2000就是关系数据库开发工具，数据库能汇集各种信息以供查询、存储和检索。Access的优点在于它能使用数据表示图或自定义窗体收集信息。数据表示图提供了一种类似于Excel的电子表格，可以使数据库一目了然。另外，Access允许创建自定义报表用于打印或输出数据库中的信息。Access也提供了数据存储库，可以使用桌面数据库文件把数据库文件置于网络文件服务器，与其他用户共享数据库。Access 是一种关系数据库工具，关系数据库是已开发的最通用的数据库之一。如上所述，Access作为关系数据库开发具备了许多优点，可以在一个数据包同时拥有桌面数据库的便利和关系数据库的强大功能。

17、数据库与VB的连接：本系统的数据链接采用的是ADO方法，打开控制面板，打开ODBC数据源图标，选择“系统DSN”标签，点击“添加”按钮，在弹出的“创建新数据源”对话框中选择名称为“Microsoft Access Drive（*.mdb）”，点击“完成”按钮，在ODBC Microsoft Access 安装对话框中在数据源名中输入信息，在数据库这个框中， 单击“选择”按钮，在弹出的选择数据库这一对话框架中，在驱动器下拉列表框中选择本系统数据库所在驱动器，在目录中选择库所在的文件夹，在文件类型中选择选“Access数据库（*.mdb）”，在数据库名中选择本系统的数据库，点击“确定”按钮即完成数

18、据链接。所有信息都是根据这张学生档案进行有关的操作，主要的字段有如下表所示：字段代号字段类型字段长度是否可以为空备注学号Char10否学生编号姓名char10否学生姓名性别char10是学生性别出生年月char10是民族char1000是籍贯char1000是家庭住址char100是电话char10否入学年份Char10否班名Char10否专业名Char10否班治面貌Char10是职务Char10是宿舍住址Char10否班内序号Char10是学校char10否 各表间关系如图所示：E-R图：学生信息表民 族出生年月性 别姓 名学 号政治面貌专业名班 名入学年份电 话家庭住址籍 贯职 务宿舍住址

19、学 校班内序号关联关联关联登陆信息表用户名密码身份选修课成绩表必修课成绩表课程表ID必修课程选修课程ID学号姓名专业学期课程成绩ID学号专业学期课程成绩姓名第一章 程序设计与编码 4.1 开发平台与工具本次系统设计，是在Windows XP系统下，基于Visual Studio 2008环境下，使用Visual Basic语言进行编程，通过与Acess 2003数据库连接，使整个系统能更加完美的得以实现。4.2 程序设计4.2.1 登录模块程序设计本模块主要是用户通过学生信息管理系统的首页登录进入该系统。用户输入正确的用户名和密码，系统会根据用户的身份进行相应权限划分；如果登录信息有错误，则系

20、统提示登入错误的信息，并且禁止系统用户进行任何操作。学生信息管理系统的登录主页面如图4.1所示。 图4.1 学生信息管理系统登录首页用户在登录页面写好用户名和密码，选择登录，登录成功则跳转到系统的首页，否则提示错误信息。代码如下：If frm1.DialogResult = Windows.Forms.DialogResult.OK Then If frm1.shenfen.Text = 访客 Then Shell(explorer.exe /, 1) Me.Close() Exit Sub ElseIf frm1.shenfen.Text = 学生

21、 Then studentlogin.Show() Exit Sub ElseIf frm1.txtUsername.Text = Then MsgBox(用户名不能为空！, MsgBoxStyle.OkOnly + MsgBoxStyle.Exclamation, information.) show_login() Exit Sub ElseIf frm1.txtPassword.Text = Then MsgBox(密码不能为空！, MsgBoxStyle.OkOnly + MsgBoxStyle.Exclamation, information.) show_login() Exit

22、Sub ElseIf frm1.shenfen.Text = 请选择 Then MsgBox(请选择身份！, MsgBoxStyle.OkOnly + MsgBoxStyle.Exclamation, information.) show_login() Exit Sub End If Dim tablename As String = 登录信息表 Dim strr As String strr = select 用户名,密码,身份from 登录信息表where(用户名= & frm1.txtUsername.Text & ) Try Commonmodule.SQLOpera(strr, t

23、ablename) If (Commonmodule.myrow.Item(1) = frm1.txtPassword.Text) And (Commonmodule.myrow.Item(2) = frm1.shenfen.Text) Then Dim str As String str = Application.StartupPath() Me.BackgroundImage = Drawing.Image.FromFile(str & 8.jpg) Me.Icon = New Icon(str & 1.ico) Timer1.Start() Timer2.Start() Me.Show

24、() ElseIf (Commonmodule.myrow.Item(1) = frm1.txtPassword.Text) Then MsgBox(身份错误！, MsgBoxStyle.OkOnly + MsgBoxStyle.Exclamation, information.) show_login()Exit Sub ElseIf (Commonmodule.myrow.Item(2) = frm1.shenfen.Text) Then MsgBox(密码错误！, MsgBoxStyle.OkOnly + MsgBoxStyle.Exclamation, information.) sh

25、ow_login() Exit Sub Else MsgBox(身份或密码错误！, MsgBoxStyle.OkOnly + MsgBoxStyle.Exclamation, information.) show_login() Exit Sub End If Catch ex As Exception MsgBox(没有该用户！, MsgBoxStyle.Exclamation + MsgBoxStyle.OkOnly, information.) show_login() Exit Sub End Try ElseIf frm1.DialogResult = Windows.Forms.D

26、ialogResult.Cancel Then If MessageBox.Show(你真的不登录学生信息管理系统吗?, 退出系统提示信息, _ MessageBoxButtons.YesNo, MessageBoxIcon.Information) = MsgBoxResult.Yes Then Application.Exit() End If End If4.2.2 管理员功能模块设计本模块中最主要的是管理系统用户,设置用户信息等操作,其中管理系统用户包括对他们进行添加,修改,删除及查询操作。其中系统管理员对系统用户进行管理的操作页面如下图（4.2）所示： 图4.2管理员管理用户操作界面

27、 用户管理添加用户、删除用户、修改用户密码添加用户是管理员的专有权限，其操作页面如下图（4.3）图（4.4）图（4.5）所示： 图4.3 图4.4 图4.5添加代码如下：Dim tablename As String = 登录信息表 Dim strr As String strr = select 用户名,密码 from 登录信息表 Try If TextBox1.Text = Then MsgBox(请输入用户名！, MsgBoxStyle.OkOnly + MsgBoxStyle.Information, information.) TextBox1.Focus() Exit

28、 Sub End If If TextBox1.Text = Then MsgBox(请输入密码！, MsgBoxStyle.OkOnly + MsgBoxStyle.Information, information.) TextBox2.Focus() Exit Sub End If If TextBox2.Text = TextBox3.Text Then Commonmodule.SQLOpera(strr, tablename) Dim addrow As DataRow = Commonmodule.mytable.NewRow addrow.Item(0) = Trim(TextB

29、ox1.Text) addrow.Item(1) = Trim(TextBox2.Text) mytable.Rows.Add(addrow) Commonmodule.mycmdbuilder = New OleDb.OleDbCommandBuilder(Commonmodule.mydap) Commonmodule.mydap.Update(Commonmodule.mydataset, tablename) MsgBox(添加成功！, MsgBoxStyle.OkOnly + MsgBoxStyle.Information, information.) TextBox1.Text =

30、 TextBox2.Text = TextBox3.Text = Else MsgBox(两次输入的密码不匹配，请重新输入！, MsgBoxStyle.OkOnly + MsgBoxStyle.Information, information.) TextBox3.Focus() End If Catch ex As Exception MsgBox(Err.Description, MsgBoxStyle.OkOnly + MsgBoxStyle.Exclamation, information.) End Try删除用户代码如下：If Commonmodule.myrow.Item(1)

31、= TextBox1.Text Then Try Dim str As String str = select * from 登录信息表 Commonmodule.SQLOpera(str, tablename) Commonmodule.mytable.Rows(currentrow).Delete() If MsgBox(确定删除该用户吗？, MsgBoxStyle.Question + MsgBoxStyle.OkCancel + MsgBoxStyle.DefaultButton2, information.) = MsgBoxResult.Ok Then Dim cbuild As

32、New OleDb.OleDbCommandBuilder(Commonmodule.mydap) Commonmodule.mydap.InsertCommand = cbuild.GetInsertCommand Commonmodule.mydap.DeleteCommand = cbuild.GetDeleteCommand Commonmodule.mydap.UpdateCommand = cbuild.GetUpdateCommand Commonmodule.mycmdbuilder = New OleDb.OleDbCommandBuilder(Commonmodule.my

33、dap) Commonmodule.mydap.Update(Commonmodule.mydataset, 登录信息表) MsgBox(删除成功！, MsgBoxStyle.Information + MsgBoxStyle.OkOnly, infoemation.) ComboBox1.Items.Clear() TextBox1.Text = datashow() End If Catch ex As Exception MsgBox(ex.Message) End Try Else MsgBox(密码错误！不能删除！, MsgBoxStyle.OkOnly + MsgBoxStyle.

34、Exclamation, information.) End If End Sub Public Sub datashow() Dim tablename As String = 登录信息表 Dim strr As String strr = select 用户名 from 登录信息表 Try Commonmodule.SQLOpera(strr, tablename) Dim count As Int32 = Commonmodule.mytable.Rows.Count Dim i As Int32 = 0 For i = 0 To count - 1 ComboBox1.Items.Ad

35、d(Commonmodule.mytable.Rows.Item(i).Item(0).ToString() Next Catch ex As Exception MsgBox(ex.Message) End Try修改用户密码代码如下：If TextBox2.Text = Commonmodule.myrow.Item(1).ToString Then Try If TextBox3.Text = TextBox4.Text Then Commonmodule.myrow.Item(1) = Trim(TextBox3.Text) MsgBox(密码修改成功！, MsgBoxStyle.In

36、formation + MsgBoxStyle.OkOnly, information.) Dim cbuilder As New OleDb.OleDbCommandBuilder(Commonmodule.mydap) Commonmodule.mydap.InsertCommand = cbuilder.GetInsertCommand Commonmodule.mydap.DeleteCommand = cbuilder.GetDeleteCommand Commonmodule.mydap.UpdateCommand = cbuilder.GetUpdateCommand Commo

37、nmodule.mycmdbuilder = New OleDb.OleDbCommandBuilder(Commonmodule.mydap) Commonmodule.mydap.Update(Commonmodule.mydataset, 登录信息表) TextBox1.Text = TextBox2.Text = TextBox3.Text = TextBox4.Text = TextBox1.Focus() Else MsgBox(两次输入密码不相同！请重新输入！, MsgBoxStyle.Information + MsgBoxStyle.OkOnly, information.)

38、 TextBox2.Text = TextBox3.Text = TextBox4.Text = TextBox2.Focus() Exit Sub End If Catch ex As Exception MsgBox(ex.Message) End Try ElseMsgBox(原密码输入错误!请重新输入!, MsgBoxStyle.Information + MsgBoxStyle.OkOnly, information.) TextBox4.Text = TextBox2.Text = TextBox3.Text = TextBox2.Focus() End If 新生注

39、册这是管理员添加修改新进学生信息的最为重要模块，如果管理员没有这个功能，学生信息管理系统就不完美地实现最基本的功能了。新生注册界面如图（4.6）所示： 图4.6 新生注册界面主代码如下： Dim tablename As String = 学生信息表 Dim strr As String strr = select * from 学生信息表 where(学号= & txtid.Text & ) Try Commonmodule.SQLOpera(strr, tablename) Dim count As Integer = Commonmodule.mytable.Rows.Count If

40、count 0 Then MsgBox(学生信息表中已经存在该学号的学生信息！, MsgBoxStyle.OkOnly + MsgBoxStyle.Information, information.) Exit Sub Else datashow() End If Catch ex As Exception MsgBox(ex.Message) End Try End Sub Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click Me

41、.Close() End Sub Public Sub datashow() Dim tablename As String = 学生信息表 Dim strr As String strr = select 学号,姓名,性别,出生年月,民族,籍贯,家庭住址,电话,入学年份,班名,专业名,政治面貌,职务,宿舍住址,班内序号 from 学生信息表 Commonmodule.SQLOpera(strr, tablename) If txtid.Text = Then MsgBox(请输入学号！, MsgBoxStyle.OkOnly + MsgBoxStyle.Information, inform

42、ation.) txtid.Focus() Exit Sub End If If txtname.Text = Then MsgBox(请输入姓名！, MsgBoxStyle.OkOnly + MsgBoxStyle.Information, information.) txtname.Focus() Exit Sub End If If txtsex.Text = Then MsgBox(请输入性别！, MsgBoxStyle.OkOnly + MsgBoxStyle.Information, information.) txtsex.Focus() Exit Sub End If If t

43、xtbirthyear.Text = Then MsgBox(请输入出生年份！, MsgBoxStyle.OkOnly + MsgBoxStyle.Information, information.) txtbirthyear.Focus() Exit Sub End If If txtbirthmonth.Text = Then MsgBox(请输入出生月份！, MsgBoxStyle.OkOnly + MsgBoxStyle.Information, information.) txtbirthmonth.Focus() Exit Sub End If If txtNation.Text

44、= Then MsgBox(请输入民族！, MsgBoxStyle.OkOnly + MsgBoxStyle.Information, information.) txtNation.Focus() Exit Sub End If If Txtplace.Text = Then MsgBox(请输入籍贯！, MsgBoxStyle.OkOnly + MsgBoxStyle.Information, information.) Txtplace.Focus() Exit Sub End If If txtFamilyaddr.Text = Then MsgBox(请输入家庭住址！, MsgBox

45、Style.OkOnly + MsgBoxStyle.Information, information.) txtFamilyaddr.Focus() Exit Sub End If If txtPhone.Text = Then MsgBox(请输入电话号码！, MsgBoxStyle.OkOnly + MsgBoxStyle.Information, information.) txtPhone.Focus() Exit Sub End If If txtyear.Text = Then MsgBox(请输入入学年份！, MsgBoxStyle.OkOnly + MsgBoxStyle.Information, information.) txtyear.Focus() Exit Sub End If If txtClass.Text = Then MsgBox(请输入班级名称！, MsgBoxStyle.OkOnly + MsgBoxStyle.Information,