学生信息管理系统期末论文

1、2011-2012学年第二学期期末考试必修课期末课程设计科目：数据库原理院 系: 计算机科学学院 专 业: 信息管理与信息系统 学 号: 姓 名: 贾 燚 指导老师: 李 燕 二零一二年六月摘 要随着信息技术的快速发展，基于数据库的管理系统，越来越受到人们的青睐。它查询效率高，数据安全性好，数据共享性高。以学生信息管理系统为例的系统，在日常生活中给人们管理数据带来了极大的方便，下面以学生信息管理系统为例，阐述了数据库系统在生活中的应用。关键词：学生信息管理系统； 数据库； 高效率； 安全性AbstractWith the rapid development of information tec

2、hnology, based on the database management system, more and more people of all ages. Its high query efficiency, data security, data sharing and high. Student information management system as an example of the system, in the daily life to people management data has brought great convenience, the stude

3、nt information management system as an example, describes the database system in application in life.Keywords: Student information management system; Database; High efficiency; Safety目 录摘 要1Abstract2一.绪论4二.开发环境5三.需求分析53.1程序简介53.2程序功能5四.系统设计54.1数据库的设计5用企业管理器创建数据库54.1.2 用企业管理器基本表74.2 程序的概要设计84.3 程序的详细

4、设计94.3.1 登陆界面的实现94.3.2 主界面的实现104.3.3 系统管理的实现134.3.4 学生档案管理的实现154.3.5 班级管理的实现184.3.6 课程管理的实现224.3.7 成绩管理的实现26五.测试30六.结论30一.绪论对于一个选择编写学生信息管理系统的人来说，必须要有足够的细心和耐心，因为编程一般来说是很枯燥的乏味的，而且程序会越来越复杂，它所用到的符号、标记很多，所以不能出点小错误的。还有，我们不能只是看程序，要学会把自己学的自己拿去实践，自己去编一些程序，培养自己的动手能力，掌握一些编程技巧，熟练运用自己学到的理论知识，这样在以后才能开发出属于自己的东西。如今

5、，随着科学技术的发展，计算机已成为了我们生活中必不可少的设备了，而掌握计算机知识和运用，又成了我们每一个人的目标了。现在IT行业的飞速发展，无不应正了以前、现在、将来计算机行业都是科学发展的主导行业。而这些基本上都建立在程序上的，所以程序员对计算机行业来说，可想而知有多么的重要了，他们所付出的每一滴汗水都将推动这个行业的发展。现在我就用Basic语言编写一个基于数据库的程序学生信息管理系统。将所学的基本知识用到其中去，这里包括了需求分析、数据库的搭建、基本Visual Basic的应用程序的编写等等。这不仅能锻炼我的实践能力，同时也进一步复习和巩固了我所学的理论知识。对以前没有学好的还有督促和

6、促进作用。而且，根据需要，还可以了解一些课外的知识。增加自己的知识面。二.开发环境在开发此学生信息管理系统程序时，该程序所使用的软件开发环境如下：操作系统：Windows 7开发工具：Microsoft Visual Studio 2008，SQL server 2000三.需求分析3.1程序简介随着网络技术的发展，人们越来越多的依赖于简便的程序，为了方便人们的管理，各种管理系统自然成为了热点，各种管理系统到处都是。此程序便是参考其他管理系统设计的，当然只是实现了比较基本的功能，可以进行学生信息处理的基本操作。3.2程序功能该程序功能：该程序分为5个部分，分别是学生档案管理、班级管理、课程管理

7、、成绩管理和系统管理。 四.系统设计4.1数据库的设计4.1.1用企业管理器创建数据库打开企业管理器，进入数据库，右击点创建数据库，选择主数据文件和事物日志文件的存放位置，分别位置主数据文件和事物日志文件的大小，最后点击确定按钮即完成数据库的创建。其截图如下图1-1、1-2和1-3所示：图1-1 新建数据库的名称图1-2 数据文件图1-3 事物日志文件 用企业管理器基本表打开企业管理器，进入已创建好的数据库xsxxglxt，在表上右键单击创建表，分别创建用户表、学生基本信息表、班级表、课程表和成绩表。其表结构如下表1、2、3、4和5所示：表1 用户表的结构表2 学生基本信息表的结构表3 班级表

8、的结构表4 课程表的结构表5 成绩表的结构4.2 程序的概要设计此管理系统共有5个部分，分别是学生档案管理、班级管理、课程管理、成绩管理和系统管理。程序流程图如下图2所示：图2 程序流程图4.3 程序的详细设计 登陆界面的实现打开Visual Basic.NET2008，创建一个项目名为“学生信息管理系统”的项目，项目创建完毕后，在在项目下添加一个windows窗体，窗体名为“登陆界面”，双击按钮控件，对按钮的Click事件进行编程，其关键码如下：Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System

9、.EventArgs) Handles Button1.Click If TextBox1.Text = Then MsgBox(用户名不能为空，请输入用户名！, 20, 提示) ElseIf TextBox2.Text = Then MsgBox(密码不能为空，请输入密码！, 20, 提示) End If If TextBox1.Text And TextBox2.Text Then apppath = Application.StartupPath If cslj() Then Dim strsql As String = select count(*) from 用户表 where 用户

10、名= & Trim(TextBox1.Text) & & and & 密码= & Trim(TextBox2.Text) & & and 身份 = & ComboBox1.Text & objconn1.Open() Dim objcmd As New SqlCommand(strsql, objconn1) Dim n1 As Integer = objcmd.ExecuteScalar objconn1.Close() objcmd.Dispose() If n1 0 Then yh = Trim(TextBox1.Text) yonghu = Trim(TextBox1.Text) sf

11、 = ComboBox1.Text Dim frm As New 主界面 frm.Show() Else MsgBox(用户名或密码不对，无法登陆！, MsgBoxStyle.DefaultButton1, 提示) End If Else MsgBox(无法连接到数据库！可能是网络的问题或数据库服务器有问题!, MsgBoxStyle.DefaultButton1, 提示) End If End If End Sub其运行截图如下图3所示：图3 登陆界面 主界面的实现在“学生信息管理系统”的项目下，添加一个windows窗体，窗体名为“主界面”，双击按钮控件，对按钮的Click事件进行编程，其

12、关键码如下：Private Sub 档案添加ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 档案添加ToolStripMenuItem.Click Dim xxtj As New 学生信息添加 xxtj.ShowDialog() End Sub Private Sub 档案浏览ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 档

13、案浏览ToolStripMenuItem.Click Dim xxll As New 学生信息浏览 xxll.ShowDialog() End Sub Private Sub 退出系统ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 退出系统ToolStripMenuItem.Click Me.Close() End Sub Private Sub 班级浏览ToolStripMenuItem_Click(ByVal sender As System.Object

14、, ByVal e As System.EventArgs) Handles 班级浏览ToolStripMenuItem.Click Dim bjll As New 班级信息浏览 bjll.ShowDialog() End Sub Private Sub 班级添加ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 班级添加ToolStripMenuItem.Click Dim bjtj As New 班级信息添加 bjtj.ShowDialog() End Sub

15、 Private Sub 课程浏览ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 课程浏览ToolStripMenuItem.Click Dim ccll As New 课程信息浏览 ccll.ShowDialog() End Sub Private Sub 课程添加ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 课程添加To

16、olStripMenuItem.Click Dim cctj As New 课程信息添加 cctj.ShowDialog() End Sub Private Sub 成绩添加ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 成绩添加ToolStripMenuItem.Click Dim cctj1 As New 成绩信息添加 cctj1.ShowDialog() End Sub Private Sub 成绩浏览ToolStripMenuItem_Click(By

17、Val sender As System.Object, ByVal e As System.EventArgs) Handles 成绩浏览ToolStripMenuItem.Click Dim ccll As New 成绩信息浏览 ccll.ShowDialog() End Sub Private Sub 添加用户ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 添加用户ToolStripMenuItem.Click Dim tjyh As New 添加用户

18、tjyh.ShowDialog() End Sub Private Sub 修改密码ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 修改密码ToolStripMenuItem.Click Dim xgmm As New 修改密码 xgmm.ShowDialog() End Sub其运行截图如下图4所示：图4 主界面 系统管理的实现在“学生信息管理系统”的项目下，添加多个windows窗体，双击按钮控件，对按钮的Click事件进行编程，其关键码如下：Privat

19、e Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If TextBox1.Text = Then MsgBox(用户名不能为空，请输入用户名！, 20, 提示) ElseIf TextBox2.Text = Then MsgBox(密码不能为空，请输入密码！, 20, 提示) ElseIf TextBox2.Text = Then MsgBox(请再次输入密码！, 20, 提示) End If If TextBox1.Text And Tex

20、tBox2.Text And TextBox3.Text And TextBox2.Text = TextBox3.Text Then Dim strin As String objconn1.Open() Dim yhm As New SqlParameter(yhm, SqlDbType.VarChar, 20) Dim mm As New SqlParameter(mm, SqlDbType.VarChar, 20) Dim sf As New SqlParameter(sf, SqlDbType.VarChar, 20) strin = insert into 用户表(用户名,密码,身

21、份) values(yhm,mm,sf) Dim shouquan As String = sp_adduser yhm Dim objcmd2 As New SqlCommand(shouquan, objconn1) Dim objcmd1 As New SqlCommand(strin, objconn1) objcmd1.Parameters.Add(yhm) objcmd1.Parameters.Add(mm) objcmd1.Parameters.Add(sf) yhm.Value = TextBox1.Text mm.Value = TextBox2.Text If RadioB

22、utton1.Checked Then sf.Value = RadioButton1.Text ElseIf RadioButton2.Checked Then sf.Value = RadioButton2.Text ElseIf RadioButton3.Checked Then sf.Value = RadioButton3.Text End If objcmd1.ExecuteNonQuery() objconn1.Close() objcmd1.Dispose() Dim strsq111 As String strsq111 = select * from 用户表 where 用

23、户名= & TextBox1.Text & xs3(strsq111) MsgBox(添加成功！, 64, 提示) End If If CheckBox1.Checked Then Dim str111 As String = grant update on table 学生基本信息表 to yhm Dim objcmd3 As New SqlCommand(str111, objconn1) End If End Sub其运行截图如下图5-1和5-2所示：图5-1 添加用户图5-2 修改密码 学生档案管理的实现在“学生信息管理系统”的项目下，添加多个windows窗体，双击按钮控件，对按钮的

24、Click事件进行编程，其关键码如下：Private Sub PictureBox3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox3.Click If DataGridView2.Rows(linenum).Selected = False Then MsgBox(没有选择记录不能删除！, 64, 提示) Else Dim yn As Integer yn = MsgBox(确定要删除该条记录吗? & vbCrLf & 该操作会导致该学生数据的丢失！确定？, 16 + 4

25、, 提示) If yn = 6 Then Dim strsq3 As String = delete from 学生基本信息表 where 学号= & Trim(xuehao) & objconn1.Open() Dim objcmd As New SqlCommand(strsq3, objconn1) objcmd.ExecuteNonQuery() objconn1.Close() objcmd.Dispose() Dim strsq2 As String = select * from 学生基本信息表 where 学号= & Trim(xuehao) & xs3(strsq2) Msg

26、Box(删除成功！, 64, 提示) End If End If PictureBox3.Enabled = False End Sub Sub xs3(ByVal sj1 As String) Dim strsql1 As String = sj1 sqlconnection1 = New System.Data.SqlClient.SqlConnection(conn) sqlconnection1.Open() Dim objAdap As New SqlClient.SqlDataAdapter(strsql1, conn) sqlconnection1.Close() objdset

27、1.Clear() objAdap.Fill(objdset1, a2) DataGridView2.DataSource = objdset1.Tables(a2) End Sub其运行截图如下图6-1、6-2、6-3、6-4和6-5所示：图6-1 学生信息添加图6-2 查询学生档案图6-3 学生信息浏览图6-4 学生信息修改图6-5 学生信息删除 班级管理的实现在“学生信息管理系统”的项目下，添加多个windows窗体，双击按钮控件，对按钮的Click事件进行编程，其关键码如下：Private Sub TreeView1_AfterSelect(ByVal sender As System

28、.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect If TreeView1.SelectedNode.Text = 退出系统 Then End End If If TreeView1.SelectedNode.Text = 档案添加 Then Dim datj As New 学生信息添加 datj.ShowDialog() End If If TreeView1.SelectedNode.Text = 档案浏览 Then Dim dall As New 学生信息浏览

29、 dall.ShowDialog() End If If TreeView1.SelectedNode.Text = 课程添加 Then Dim kctj As New 课程信息添加 kctj.ShowDialog() End If If TreeView1.SelectedNode.Text = 课程浏览 Then Dim kcll As New 课程信息浏览 kcll.ShowDialog() End If If TreeView1.SelectedNode.Text = 班级添加 Then Dim bjtj As New 班级信息添加 bjtj.ShowDialog() End If I

30、f TreeView1.SelectedNode.Text = 班级浏览 Then Dim bjll As New 班级信息浏览 bjll.ShowDialog() End If If TreeView1.SelectedNode.Text = 成绩添加 Then Dim cjtj As New 成绩信息添加 cjtj.ShowDialog() End If If TreeView1.SelectedNode.Text = 成绩浏览 Then Dim cjll As New 成绩信息浏览 cjll.ShowDialog() End If If TreeView1.SelectedNode.Te

31、xt = 添加用户 Then Dim tjyh As New 添加用户 tjyh.ShowDialog() End If If TreeView1.SelectedNode.Text = 修改密码 Then Dim xgmm As New 修改密码 xgmm.ShowDialog() End If End Sub Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click Dim bjcx As New 班级信息查询 bjc

32、x.ShowDialog() PictureBox2.Enabled = True PictureBox3.Enabled = True ysj.CurrentCell = ysj.Rows(linenum).Cells(0) 移动游标 ysj.Rows(linenum).Selected = True 设置选中行 End Sub其运行截图如下图7-1、7-2、7-3、7-4和7-5所示：图7-1 班级信息添加图7-2 查询班级图7-3 班级信息浏览图7-4 班级信息修改图7-5 班级信息删除 课程管理的实现在“学生信息管理系统”的项目下，添加多个windows窗体，双击按钮控件，对按钮的Cl

33、ick事件进行编程，其关键码如下：Sub xs3(ByVal sj1 As String) Dim strsql1 As String = sj1 sqlconnection1 = New System.Data.SqlClient.SqlConnection(conn) sqlconnection1.Open() Dim objAdap As New SqlClient.SqlDataAdapter(strsql1, conn) sqlconnection1.Close() objdset1.Clear() objAdap.Fill(objdset1, d2) DataGridView1.D

34、ataSource = objdset1.Tables(d2) End Sub Private Sub PictureBox3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox3.Click If DataGridView1.Rows(linenum).Selected = False Then MsgBox(没有选择记录不能删除！, 64, 提示) Else Dim yn As Integer yn = MsgBox(确定要删除该条记录吗? & vbCrLf & 该操作会导

35、致该课程数据的丢失！确定？, 16 + 4, 提示) If yn = 6 Then Dim strsq14 As String = delete from 课程表 where 课程号= & Trim(kchao) & objconn1.Open() Dim objcmd As New SqlCommand(strsq14, objconn1) objcmd.ExecuteNonQuery() objconn1.Close() objcmd.Dispose() Dim strsq51 As String = select * from 课程表 where 课程号= & Trim(kchao) &

36、 xs3(strsq51) MsgBox(删除成功！, 64, 提示) End If End If PictureBox3.Enabled = False End Sub其运行截图如下图8-1、8-2、8-3、8-4和8-5所示：图8-1 课程信息添加图8-2 查询课程图8-3 课程信息浏览图8-4 课程信息修改图8-5 课程信息删除 成绩管理的实现在“学生信息管理系统”的项目下，添加多个windows窗体，双击按钮控件，对按钮的Click事件进行编程，其关键码如下：Private Sub Button1_Click(ByVal sender As System.Object, ByVal e

37、 As System.EventArgs) Handles Button1.Click If TextBox1.Text = Then MsgBox(学号不能为空，请输入学号!, 64, 提示) ElseIf TextBox2.Text = Then MsgBox(班号不能为空，请输入班号！, 64, 提示) ElseIf TextBox3.Text = Then MsgBox(课程号不能为空，请输入课程号！, 64, 提示) ElseIf TextBox4.Text = Then MsgBox(成绩不能为空，请输入成绩！, 64, 提示) End If If TextBox1.Text And TextBox2.Text And TextBox3.Text And TextBox4.Text Then Dim strin16 As String objconn1.Open() Dim xh As New SqlParameter(xh, SqlDbType.VarChar, 20) Dim bh As New SqlParameter(bh, SqlDbType.VarChar, 20) Dim kch As New SqlParam