学生信息管理系统

1、六安职业技术学院学生信息管理系统Stude nt In formatio n Man ageme nt System指导教师：吴永林专业名称：计算机应用技术研究方向：简单快捷的管理学生信息所在系部：信息工程系二o年六月姓名周春燕班级Wj0801指导教师吴永林学号082847毕业论文（设计）题目学生信息管理系统对于当今大学校园内的学生信息管理来说， 其数据量大，各种信息管理内容复杂， 查询和管理校园内的学生信息等工作由人工完成将是很累的，这种管理手段已不能适应时代的发展，因为它浪费了许多的人力和物力。但是一直以来人们使用传统人工的 方式管理学生信息，这种管理方式存在着许多缺点，如效率低等，另外，

2、时间一长， 将产生大量的文件和数据，这给查找和更新带来不少的困难。不仅浪费了许多人力物 力资源，而且还很容易出现差错，有一个符合要求的软件对其进行智能化的学生信息 管理是最好不过的，节省了人力物力资源，并且对各种信息的把握和操作也更加方便 了，对所有信息有了一个全局的掌握。我选择设计这个系统主要原因有：一是：我熟悉学校的学生信息管理工作，进行需求分析时比较方便；二是：学习了关于系统设计的一些课程，在此我设计了关于学生信息管理的系统， 希望能够有所用处。三：该系统可以存储历届的学生信息，安全、高效；五：查找信息速度快、效率高，可以检索有条件信息。通过本论文课题的研究，预计达到：界面设计美观； 数

3、据存储安全、可靠；信息分类清晰、准确；保证数据查询的灵活性；操作简单易用、易维护性；占用资源少、对硬件要求低。具体安排进度：2011年3月1日一30日，选好课题，查找资料，编写提纲；2011年4月1日一20日，了解论文的格式，咨询指导老师从哪方面入手，进行写 的状态形成初稿，形成初稿；2011年4月21日一5月10日，提交初稿，在指导老师的指导下，形成二稿；2011年5月11日一5月31日，提交二稿，在老师的指导下修改定稿并准备答辩。指导教师意见指导教师签名：年 月日开题报 告答辩 评语及 成绩（百分 制）教研室主任签名：年 月日系部意见系部签字盖章：年 月日指 导 教 师 .、从意 见答辩专

4、家组意见系 专 业 教 学 委 员 会 .、从意 见摘要 对于当今大学校园内的学生信息管理来说，其数据量大，各种信息管理内容复杂， 查询和管理校园内的学生信息等工作由人工完成将是很累的， 这种管理手段已不能适应 时代的发展，因为它浪费了许多的人力和物力。在信息化时代 , 学生信息管理越来越信 息化，简单方便的管理学生信息越来越得到大部分学校的关注，因此研究学生信息的管 理越来越显重要。本课题主要运用了 Visual Basic 和 Microsoft visual studio 2005 语言研究学生信息管理系统， 详细分析了学生信息的添加、 删除、修改以及查询等技术。关键字 ：信息管理 Vi

5、sual Basic Microsoft visual studio 2005AbstractUniversity school for today student information management, its data capacity, the complexity of the various information management, query and management of campus information for students to complete the work by hand would be tired, and this management

6、 tool can not meet the development of the times, because it wasted a lot of manpower and material resources. In the information age, more and more information student information management, simple management of student information has increasingly gained attention in most schools, so the research s

7、tudent information management increasingly important. The main subject of the use of Visual Basic and Microsoft visual studio 2005 Language student information management system, a detailed analysis of student information to add, delete, modify and query technologies.Key Words: Information managemen

8、t Visual Basic Microsoft visual studio 2005目录引言 3第一章：系统开发技术简介41.1 Visual Basic 语言概述1.2 SQL server 2005 技术简介1.3 运行环境第二章数据库设计52.1 数据库概要说明2.2 数据库逻辑设计第三章系统详细设计73.1 与数据库连接的实现3.2 登录与主程序界面的设计3.3 添加新用户模块3.3.1 添加学生信息3.3.2 添加学生成绩信息3.4 信息查询模块3.4.1 学生信息查询模块3.4.2 学生课程查询模块3.4.3 学生成绩查询模块3.5 修改模块3.5.1 修改学生信息模块3.5.2

9、 修改学生成绩模块3.6 删除信息3.6.1 删除学生信息3.6.2 删除学生成绩信息第四章结束语19第五章致谢2021参考文献引言随着全球信息化的飞速发展 , 学生信息管理系统已经成为各大校园的一项重要内容 学生信息管理的简便性、可靠性、完整性和安全性是一个非常重要的问题，更是校园生 存力和竞争力的重要体现 , 信息管理越来越为众多校园所关注。以前各个学校的学生信息管理基本上都是靠手工进行，随着各个学校的规模增大， 有关学生信息管理工作所涉及的数据量越来越大，有的学校不得不靠增加人力、物力来 进行学生信息管理。但手工管理具有效率底、易出错、检索信息慢、对学校的管理提供 决策信息较为困难等缺点

10、。在学校学习了关于系统设计的一些课程，在此我设计了关于 学生信息管理的系统，希望能够有所用处，也将自己所学的运用于实际中。总之，本系统使用的 Microsoft visual studio 2005 和 Visual Basic 的开发语言。 详细介绍了学生信息管理系统从技术及运行环境、系统分析、数据库设计、总体设计和 详细设计的全部过程。实现一个管理信息系统的方法。作为毕业论文设计，由于时间比 较紧张，加上自己没有过系统开发的经验，它肯定存在一些不足的地方，希望老师给与 指导。本人将再接再厉在原来的基础上，更加完美的完成此次设计。第一章 系统开发技术简介1.1 Visual Basic 语言

11、概述Visual Basic 是一种可视化、面向对象和采用事件驱动方式的结构化高级程序设 计语言，可用于开发 Windows环境下的各类应用程序。它简单易学、效率高、且功能强 大。 Vi sual Basic 语言用其设计应用程序时具有两个基本特点：可视化设计和事件驱 动编程。1.2 SQL server 2005 技术简介SQL(Structured Query Language) 是一种通用的关系型数据库的编程语言，是一组 命令的集合，包括关系型数据库的建立、维护和查询等操作，已成为关系型数据库普遍 使用的标准。Mircrosoft SQL Server 2005 是一个应用广泛的数据库管

12、理系统，具有许多显著特 点。SQL语言是一种非过程化的语言。SQ是所有关系数据库的公共语言。SQI语言非常简洁。SQI语言可以直接以命令方式使用。1.3 运行环境 为了保证宿舍卫生检查管理信息系统运行的效率和可靠性，运行要求如下：硬件平台：CPU Pentium川及其兼容处理器，建议主频 600MHz或更高内存：512MB以上软件平台：操作系统： Windows2005 Server SP4、 Windows2005 Advanced Server SP4、 Windows 2005 Date Center Server SP4 、 Windows Server 2003 SP1 、 Wind

13、ows 2003 企业 版 SP1、 Windows 2003 数据中心版 SP1数据库： SQL Server 2005 分辨率：最佳效果 1024*76第二章数据库设计2.1数据库概要说明本系统采用的是SQL server 2005数据库，系统数据库命名为“学生信息管理”， 数据库用来存储学生信息、课程信息、用户信息等，在该数据库中包含 4张表，下面给 出数据表的概要说明和主要数据表的结构定义。表4-1数据表的对照表表名说明Stu用来保存学生信息xk学生的选课信息kc学生的课程信息yh用户及密码Cj学生的成绩信息2.2数据库逻辑设计系统数据库中各表的结构如下yh信息表用户信息表用来保存用户

14、和密码Yh表说明：用户信息表字段名类型大小主键空值默认描述user_IDchar10Yuser_PWDchar10Y(2) xk信息表选课信息表用于存储选课信息以及成绩相关信息，其中“ kch ”，为主键，包括“ kch ”、“xh”、“cj、字段，其结构表如表所示Xk表说明：选课信息表字段名类型大小主键空值默认描述xhchar10Ykchchar4Y无cjchar10Y无(3) stu信息表stu信息表用来存储学生信息，其中“xh”为主键，包括“xb”、“xm”、“ag6'、“bj”、字段，其结构表如表4-8所示表4-8 stu 的表结构Stu表说明：stu信息表字段名类型大小主键空

15、值默认描述xhchar4Yxmchar10Yxbchar10Y无agechar30Y无Bjchar20Y无(4) kc信息表kc信息表用于保存kc信息，其中“kch”为主键，包括“kch”、“kcm”、“teacher字段，其结构表如4表4-9 kc的表结构Kc表说明：kc信息表字段名类型大小主键空值默认描述kchchar8Ykcmchar4teacherchar10 0'(5)cj 表Cj表用来保存cj信息，期中xh为主键学生成绩信息字段名类型大小主键空值默认描述XhChar10YXmChar10平时成绩Char10期中成绩Char10期末成绩Char10第三章系统详细设计3.1与数

16、据库连接的实现(1)附加数据库打开Microsoft visual studio 2005,然后在左侧的“数据库”图标上右击，单击弹出菜单上的所有任务|附加数据库命令，在弹出的对话框中，单击浏览，选择路径信息管理系统文件，最后单击确定，附加数据库成功。数据库配置如图5-1图5-1数据库配置通过SQLW本生成数据库用查询分析器打开信息管理系统文件，单击执行就会生成相应的表。这样可以生成一个数据清空的数据库，用户可以设置自己的基础数据。3.2登录与主程序界面的设计(1)登录模块启动程序以后，首先进入登录界面，系统登录主要用于对登录学生管理信息系统的 用户进行安全性检查，以防止非法用户登录该系统。登

17、录界面如图5-2所示。登录界面主要实现以下功能：以文本框的形式显示系统用户登录和密码验证成功后，进入系统主界面输入密码错误，提醒登录给出错误登录界面输入用户名和密码以后，单击确定，这时应该设计程序验证输入的用户名和密码 与数据库中保存信息的差别，若相同则进入系统，否则给出错误提示信息。本系统的登 录设计对用户输入用户名和密码的次数进行限制，从而增加了系统的安全性。这部分代 码如下：Imports System.dataImports System.Data.SqlClie ntDim cn As SqlCo nn ectio n,da As SqlClie nt.SqlDataAdapter,

18、 ds As New DataSetcn = New SqlCo nn ectio n()cn.ConnectionString= "server=.;initial catalog= 信 息管理;userid=sa;pwd=123456"cn. Ope n()da = New SqlClie nt.SqlDataAdapter("select * from yh where yhm='"& TextBoxl.Text & "'and mm='" & TextBox2.Text &

19、; "”', cn)da.Fill(ds, "yh")If ds.Tables(0).Rows.Cou nt > 0 The nMsgBox("right")main .Show()Me.Fi nalize()ElseMsgBox("你输入的用户名和密码错误")End If(2)主程序界面运行程序首先看到的是登录界面，如图5-2所示。输入用户名和密码，单击确定,进入主窗体界面，如图5-3所示3.3添加新用户模块331添加学生信息首先完成新用户注册的功能，输入需要创建的信息后，单击图 5-4左侧的确认按 钮，就可

20、以修改成功。这部分代码如下：Private Sub Button1_Click( ByVal sender As System.Object, ByVal e AsSystem.Eve ntArgs) Han dies Butto nl.ClickDim cn As NewSqlClient.SqlConnection, cm As NewSqlClient.SqlCommand cn.ConnectionString ="server=.;initial catalog=信息管理;userid=sa;pwd=123456"cn. Ope n()cm.C onnection

21、 = cncm.Comma ndType = Comma ndType.TextIf RadioButton1.Checked = True Thencm.Comma ndText =TextBox2.Text & "','男','""in sert stu values('" & TextBox1.Text &"','"&IIIIIElsecm.Comma ndText ="in sert stu values('"&

22、amp; TextBox1.Text &"','"&TextBox2.Text & "'女','"& ComboBox1.SelectedItem & "','"& TextBox3.Text &IIIII& ComboBox1.Selectedltem & "','"& TextBox3.Text &End Ifcm.ExecuteN on Query()

23、MsgBox( "添加成功")End Sub添加学生成绩信息Dim cn As NewSqlClient.SqlConnection, cm As NewSqlClient.SqlCommandcn.ConnectionString ="server=.;initial catalog=信息管理;userid=sa;pwd=123456"cn. Ope n()cm.C onnection = cncm.Comma ndType = Comma ndType.Textcm.ExecuteN on Query()MsgBox("添加成功"

24、)3.4.信息查询模块学生信息查询模块5-6在主界面中用户单击工具栏上的三按钮，就可以看到学生信息的界面，如图 所示。用户可以在这个界面上分别按照学号等信息在学生查询窗体中实现查询学生信息的功能，窗体如图5-6所示。选择查询类型，填入查询内容，单击查询，就能完成相应的查询。这部分代码如下Private Sub Button1_Click( ByVal sender As System.Object, ByVal e As System.Eve ntArgs) Ha ndles Butt on 1.ClickDim cn As SqlConnection, da As SqlDataAdapte

25、r, ds As NewDataSet cn =NewSqlC onn ectio n()cn.ConnectionString ="server=.;initial catalog=信息管理;userid=sa;pwd=123456"da =NewSqlDataAdapter( "select * from stu where xh='" & TextBoxl.Text & "”，, cn)ds.Clear()da.Fill(ds,"stu")If ds.Tables(0).Rows.Count &

26、gt; 0 ThenMeDataGridView1.Refresh()MeDataGridView1.DataSource = dsMeDataGridView1.DataMember = "stu"ElseMsgBox（ "没有此学号"）End IfEnd Sub342学生课程查询模块Dim cn As NewSqlConnection, daAs SqlDataAdapter, ds As NeWDataSetcn.ConnectionString ="server=.;initial catalog=信息管理;userid=sa;pwd=

27、123456"cn. Ope n()da =NewSqlClie nt.SqlDataAdapter("select * from kc" , cn)ds.Clear()da.Fill(ds,"kc")学生课程.Show()343学生成绩查询模块沪学生或議回乂Dim cn As NewSqlConnection, daAs SqlDataAdapter, ds As NewDataSetcn.ConnectionString ="server=.;initial catalog=信息管理;userid=sa;pwd=123456&qu

28、ot;cn. Ope n()da =NewSqlClie nt.SqlDataAdapter("select * from cj" , cn)ds.Clear()da.Fill(ds,"cj")学生成绩.Show()3. 5修改模块3.5 . 1修改学生信息模块在修改学生信息窗体中实现修改学生信息的功能，如图所示这段代码如下:Private Sub Button1_Click( ByVai sender As System.Object, ByVai e AsSystem.Eve ntArgs) Ha ndles Butt on I.ClickDim c

29、m As NewSqlCommandcm.C onnection = cncm.Comma ndType = Comma ndType.Textcm.Comma ndText = "update stu set xm='"& TextBoxl.Text &"',xb='"&TextBox2.Text & "',bj='"& TextBox3.Text & ' "where xh='" & ListBoxl

30、.Selectedltem& "”'cm.ExecuteN on Query()MsgBox("修改成功")End Sub修改学生成绩信息Imports System.DataPublic Class修改学生成绩Dim cn As NewSqlClient.SqlConnection, da As SqlDataAdapter, ds As New DataSetPrivate Sub 修改学生成绩 _Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles M

31、yBaseLoadcn.ConnectionString ="server=.;initial catalog=信息管理;userid=sa;pwd=123456"cn. Ope n()da = NewSqlClie nt.SqlDataAdapter( "select * from cj" , cn)da.Fill(ds,"cj")Dim sno As String , n As Integer , i As Integer = 0n = ds.Tables(0).Rows.Co untFor i = 0 To n - 1sno =

32、 ds.Tables(O).Rows(i)("xh")ListBox1.Items.Add(s no)NextListBoxl.Selectedl ndex = 0"xm")TextBoxl.Text = ds.Tables(0).Rows(0)(TextBox2.Text = ds.Tables(0).Rows(0)("xb" )TextBox3.Text = ds.Tables(0).Rows(0)("kc" )TextBox4.Text = ds.Tables(0).Rows(0)("平时成绩&qu

33、ot;)TextBox5.Text = ds.Tables(0).Rows(0)("期中成绩")TextBox6.Text = ds.Tables(0).Rows(0)(End Sub"期末成绩")Private Sub ListBox1_SelectedIndexChanged( ByVal sender As System.Object,ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChangedDim i As Integeri = ListBox1.SelectedIndex

34、TextBox1.Text = ds.Tables(0).Rows(i)("xm")TextBox2.Text = ds.Tables(0).Rows(i)("xb" )TextBox3.Text = ds.Tables(0).Rows(i)("kc" )TextBox4.Text = ds.Tables(0).Rows(i)("平时成绩")TextBox5.Text = ds.Tables(0).Rows(i)("期中成绩")TextBox6.Text = ds.Tables(0).Rows(

35、i)(End Sub"期末成绩")Private Sub Button1_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim cm As NewSqlCommandcm.Connection = cncm.CommandType = CommandType.Textcm.CommandText ="update stu set xm='" & TextBox1.Text & "',x

36、b='" &TextBox2.Text & "',kc='" & TextBox3.Text & "', 平时成绩 ='" & TextBox4.Text & "', 期中成绩 ='" & TextBox5.Text & "', 期末成绩 ='" & TextBox6.Text & "',"cm.ExecuteNonQuery(

37、)MsgBox( " 修改成功 ")End SubPrivate Sub Button2_Click( ByVal sender As System.Object, ByVal e AsSystem.Eve ntArgs) Ha ndles Butt on 2.ClickMeClose()End SubEnd Class3.6删除信息删除学生信息在主界面中用户单击删除管理项，进入到删除信息的界面，如图所示。在这个界 面中，可以删除信息。这段代码如下：cn.ConnectionString= "server=.;initialcatalog= 信 息 管理;user

38、id=sa;pwd=123456"cn. Ope n()da = New SqlClie nt.SqlDataAdapter("select * from stu", cn)da.Fill(ds, "stu")Dim cm As New SqlClie nt.SqlComma ndcm.C onnection = cncm.Comma ndType = Comma ndType.Textcm.Comma ndText = "delete stu where xh='" & TextBoxl.Text & "”' cm.ExecuteN on Query()MsgBox(" 删除成功")362删除学生成绩信息cn.ConnectionString ="server=.;initia