学生管理系统的设计
杨世坤 计算机科学与技术系 09级 0940141022
摘要：在 VB2008 环境下，通过连接 Acce2000 数据库，建立了一个学生管理系统。 在这个系统里，可以实现学生学生的学号，姓名，性别，民族，年级，出生年月，系别，家庭住址等各种信息的录入，精确查找，模糊查找，更新，删除等操作。 从程序的界面设计到源代码，都做了详尽的说明，适合初学者快速掌握信息管理系统开发的步骤。 关键词：VB；数据库；管理系统；acce；查询
Abstract: It is designed for the establishment of student information managementsystem in vb6.0 by connecting Acce2000 database.This system can realize Information Proceing including data entry, query, update, delete and so on.The Information means the student\'s number,name,age, contact.From the interface design to the source code, it has shown a detailed description, which suitable for beginners tomaster the designing of system quickly.Key words: vb; database; system of management; acce; query 1 引言
随着学校办学规模的扩大,学生数量急剧增加,有关学生各种信息的数量也在成倍增长。面对庞大的信息量,利用计算机信息管理系统对学生的学号，姓名，性别，民族，年级，出生年月，系别，家庭住址等综合信息进行管理经成为一种必然趋势。我根据学校特点,通过开发学生信息管理系统,可以做到信息的规范管理、科学统计和快速查询,从而解决大量繁琐的工作,实现学生信息管理的办公无纸化和高效化。
2 功能需求分析
学生管理系统采用 Visual Basic 2008 作为开发工具，后台数据库采用 Aecc2000。系统开发的总体任务是实现学生信息管理的条理化，系统化。 用户通过界面，完成对学生的学号，姓名，性别，民族，年级，出生年月，系别，家庭住址等信息的管理。 可以对学生信息方便的实现输入，删除，修改，模糊查询，精确查询，在浏览记录时可以切换上一条，下一条，第一条和最后一条。还可对学生信息记录进行排序。
3 数据库建立与连接
3.1 数据库建立
目前,可应用的数据库开发工作很多,Oracle是面向网络计算的数据库,适合开发大型网络应用软件;Acce和Visual Foxpro系统适合开发小型数据库应用软件。Acce数据库功能比较齐全,数据的备份、拷贝都很方便,且程序发布时不需要额外安装其他的数据库管理软件。本系统数据量较小,采用Acce数据库就可满足要求。
3.2 数据库连接
VB 提供了多种与数据库连接的方式，这里使用数据控件（Data）。 数据控件（Data）提供 了一种方便地访问数据库中数据的方法，使用数据控件无须编写代码就可以对 VB 所支持 的各种类型的数据库执行大部分数据访问操作。数据控件本身不能显示和直接修改记录， 但是可以通过与数据控件相关联的数据约束控件中显示各个记录。
4 用户界面设计 在 Visual Basic2008 环境中，建立一个标准的 exe 工程。 学生的学号，姓名，性别，民族，年级，出生年月，系别，家庭住址用文本框控件来显示， 名称分别为 text1,text2…text8, 他们分别与数据库中的相应字段绑定。
选择数据控件 data1，并设置它的属性，使得它与数据库连接。 实现记录的第一条，上一条，下一条，最后一条的切换以及添加记录，删除记录和编辑记录的操作用按钮来控制实现，名称分别为 command1,command2…command7。对按不同的条件进行查询，这里使用了组合框 Combo1 和 Combo2，分别用来选择精确查找和模糊查找的条件。
5 代码
程序的实现主要使用了 data 控件的常用方法。 对于精确查找和模糊查找中的“查找第一个”与“查找下一个”按钮的事件中，它
们所使用的查找条件是一样的，所以需要先定义窗体变量。 5.1 登陆界面
mystr = \"Provider=Microsoft.Jet.OLEDB.4.0;Data source=student.mdb\"
myconn.ConnectionString = mystr
myconn.Open()
Dim mycmd As New OleDbCommand
mycmd.Connection = myconn
mycmd.CommandText = \"select * from admin\"
Dim myreader As OleDbDataReader = mycmd.ExecuteReader
While myreader.Read()
If TextBox1.Text = myreader(\"ID\").ToString And TextBox2.Text = myreader(\"psw\") Then
MsgBox(\"用户名密码正确！！！\", MsgBoxStyle.Information, \"提示\")
Module1.paword = TextBox2.Text
Module1.username = TextBox1.Text
Module1.pright = myreader(\"pright\")
Form1.Show()
Me.Hide()
Exit Sub
End If
End While
MsgBox(\"用户密码不正确\", MsgBoxStyle.Information, \"提示\")
TextBox1.Text = \"\"
TextBox2.Text = \"\"
TextBox1.Focus() 5.2 添加删除用户
在实际应用中,除了超级用户之外,往往会赋予用户一定的访问权限,在给用户设置访问权限之前,应先创建一个用户帐户,将其追加到用于当前数据库的工作组信息文件中的默认Users组。本系统的安全措施在数据库的访问过程中虽然起到了一定的防护作用,然而,尽管人们想到了种种办法维护自己的数据安全,但也总是有漏洞被发现,因此,备份数据是简单有效的方法。 5.2 记录的跳转 查找首记录 mybs.MoveFirst()
Label9.Text = \"共有\" & mybs.Count & \"条记录，\" & \"本记录为第\" & mybs.Position + 1 & \"条记录\" 查找下一条记录
If mybs.Position mybs.Count - 1 Then
mybs.MoveNext()
Label9.Text = \"共有\" & mybs.Count & \"条记录，\" & \"本记录为第\" & mybs.Position + 1 & \"条记录\"
Else
MsgBox(\"已经是最后一条记录\", MsgBoxStyle.Information, \"提示\")
End If 查找上一条记录 If mybs.Position 0 Then
mybs.MovePrevious()
Label9.Text = \"共有\" & mybs.Count & \"条记录，\" & \"本记录为第\" & mybs.Position + 1 & \"条记录\"
Else
MsgBox(\"已经是第一条记录\", MsgBoxStyle.Information, \"提示\")
End If 查找末记录 mybs.MoveLast()
Label9.Text = \"共有\" & mybs.Count & \"条记录，\" & \"本记录为第\" & mybs.Position + 1 & \"条记录\" 5.3 记录的修改、删除、添加、保存
记录的修改
a = 3
Button5.Enabled = False
Button6.Enabled = False
Button8.Enabled = True
Button7.Enabled = False
GroupBox2.Enabled = False 记录的删除
a = 1
Button5.Enabled = False
Button6.Enabled = False
Button8.Enabled = True
Button7.Enabled = False
GroupBox2.Enabled = False 记录的添加
a = 2
TextBox1.Text = \"\"
TextBox2.Text = \"\"
TextBox3.Text = \"\"
TextBox4.Text = \"\"
TextBox5.Text = \"\"
TextBox6.Text = \"\"
TextBox7.Text = \"\"
TextBox8.Text = \"\"
TextBox1.Focus()
Button5.Enabled = False
Button6.Enabled = False
Button8.Enabled = True
Button7.Enabled = False
GroupBox2.Enabled = False 记录的保存
Select Case a
Case 1
If MsgBox(\"您确定删除此条记录吗？\", MsgBoxStyle.Question + MsgBoxStyle.YesNo, \"提示\") = MsgBoxResult.Yes Then
myds.Tables(\"info\").Rows(mybs.Position).Delete()
Dim mybd = New OleDbCommandBuilder(myada)
myada.Update(myds, \"info\")
myds.Clear()
myada.Fill(myds, \"info\")
GroupBox2.Enabled = True
Button5.Enabled = True
Button6.Enabled = True
Button7.Enabled = True
Button8.Enabled = False
Else
GroupBox2.Enabled = True
Button5.Enabled = True
Button6.Enabled = True
Button7.Enabled = True
Button8.Enabled = False
End If
Case 2
Dim myrow As DataRow = myds.Tables(\"info\").NewRow
myrow(\"学号\") = TextBox1.Text
myrow(\"姓名\") = TextBox2.Text
myrow(\"性别\") = TextBox3.Text
myrow(\"民族\") = TextBox4.Text
myrow(\"年级\") = TextBox5.Text
myrow(\"出生年月\") = TextBox6.Text
myrow(\"系\") = TextBox7.Text
myrow(\"家庭住址\") = TextBox8.Text
myds.Tables(\"info\").Rows.Add(myrow)
GroupBox2.Enabled = True
Dim mybd = New OleDbCommandBuilder(myada)
myada.Update(myds, \"info\")
myds.Clear()
myada.Fill(myds, \"info\")
Button5.Enabled = True
Button6.Enabled = True
Button7.Enabled = True
Button8.Enabled = False
Case 3
myds.Tables(\"info\").Rows(mybs.Position).BeginEdit()
myds.Tables(\"info\").Rows(mybs.Position).EndEdit()
Dim mybd = New OleDbCommandBuilder(myada)
myada.Update(myds, \"info\")
myds.Clear()
myada.Fill(myds, \"info\")
GroupBox2.Enabled = True
Button5.Enabled = True
Button6.Enabled = True
Button7.Enabled = True
Button8.Enabled = False
End Select
Label9.Text = \"共有\" & mybs.Count & \"条记录，\" & \"本记录为第\" & mybs.Position + 1 & \"条记录\"
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
a = 1
Button5.Enabled = False
Button6.Enabled = False
Button8.Enabled = True
Button7.Enabled = False
GroupBox2.Enabled = False 5.4 记录的查找 Dim condstr As String
condstr=\"\"
If TextBox1.Text \"\" Then
If condstr = \"\" Then
If ComboBox1.Text = \"等于\" Then
condstr = \"姓名=\'\" & TextBox1.Text & \"\'\"
Else
condstr = \"姓名 like \'%\" & TextBox1.Text & \"%\'\"
End If
End If
End If
If TextBox2.Text \"\" Then
If condstr = \"\" Then
condstr = \"性别=\'\" & TextBox2.Text & \"\'\"
Else
condstr = condstr & \" and \" & \"性别=\'\" & TextBox2.Text & \"\'\"
End If
End If
If TextBox3.Text \"\" Then
If condstr = \"\" Then
condstr = \"民族=\'\" & TextBox2.Text & \"\'\"
Else
condstr = condstr & \" and \" & \"民族=\'\" & TextBox2.Text & \"\'\"
End If
End If
If TextBox4.Text \"\" Then
If condstr = \"\" Then
If ComboBox2.Text = \"等于\" Then
condstr = \"家庭住址=\'\" & TextBox4.Text & \"\'\"
Else
condstr = condstr & \" and \" & \"家庭住址 like \'%\" & TextBox4.Text & \"%\'\"
End If
End If
End If
mydv.RowFilter = condstr 6 结束语
本系统达到了预期的要求，系统设计是根据学校的学生信息管理流程，合理设置各种操作模块，各管理员和操作员之间分工明确，并且能够及时、准确地记录每次操作信息。 操作简单易行，定期审核，确保了数据的正确性。 从根本上解决了学生管理的计算机实现方式，对学校管理来讲是一个大的跨越。
参考文献：郑阿奇 彭作民 Visual Basic.NET 程序设计教程（第二版）械工业出版社
