用VB制作学生信息管理系统程序-精选文档
用VB 制作学生信息管理系统程序
[] VB6.0 has been as an ideal tool for programming
Windows application, database application, multimedia application and Internet application. This program makes use of the powerful function of VB to image, picture, multi-media process, and ActiveX controller to demonstrate the broadcasting process of weather report in which the design of pictures, sound and interface are chiefly used.
1.引言
Visual Basic 语言提供了一种面向对象、事件驱动的可视化程序设计工具，它集成环境友好，可以快速地设计界面、编写程序、调试程序，在windows 中可自由发布。本程序中采用 Visual
Basic+ADO+Access,用来实现对学籍、课程、成绩及用户的管理。
2.准备工作
首先要对整个信息管理系统进行分析，确定对系统的数据要求。将在设计过程中用到的数据准备好，系统功能如下：
1）学籍管理
学籍管理功能主要有添加学籍信息，修改学籍信息和查询学籍信息。学籍信息包括：学号、姓名、性别、系别、班级和班主任等信息。
2）课程管理
课程管理主要有添加课程信息、修改课程信息两个功能。课程信息包括：课程名称、课程编号、课程任课教师。
3）成绩管理
成绩管理功能主要有添加成绩信息、修改成绩信息和查询成绩信息三个功能。成绩信息包括：考试时间、学号、课程编号和考试成绩。
4）补助管理
补助管理包括贷款增加、浏览贷款、补助增加三个功能。
5）奖惩管理
奖惩管理包括添加奖励信息、添加惩罚信息和浏览奖惩信息
三个功能
6）系统管理
系统管理包括添加新的用户、删除用户和修改密码功能。
3.各表的物理结构
建立学生信息数据库。利用VB中的“可视化数据管理器”
建立数据库。
学籍表结构。该表存放学生的基本信息。（见表 1 所
示）
课程管理表结构。该表存放课程信息。（见表 2 所示）
成绩管理表结构。该表存放学生成绩（见表 3 所示）
4.程序设计
1）系统主窗体作为学生信息管理系统的主界面。窗体主
菜单包括：系统、学籍管理、课程管理、成绩管理、补助管理、奖惩管理和用户管理。
具体程序如下：
Private Sub Form_initialize
Chdrive App.Path
ChDir.App.Path
Me.WindowState=vMaximized
Call MySize
End sub
Private Sub Form_load( ) mnuAddUser.Visible=gblnPurview
mnuDelUser.Visible=gblnPurview
mnuModiurview.Visible=gblnPurview
End Sub
Private Sub mnuAddCourse_Click( ) frmDelUser.show
Me.Hide
End Sub
Private Sub mnuAddUser_Click() frmUser.show
Me.Hide
End Sub
Private Sub mnuExit_Click( )
Unload Me
End Sub
Private Sub mnuQueryGrade_Click( ) frmQueryGrade.Show
Me.hide
End Sub
Private Sub MySize( )
Dim Fw As Long
Line1.x1=0:Line1.X2=Me.ScaleWidth
Line2.x1=0:Line2.X2=Me.ScaleWidth
FW=Me.ScaleWidth*0.98
Shape1.left=(FW-Shape1.Width)\2
Shape2.Left=(FW-Shape2.Width)\2+96
Label1.Left=(FW-Label1.Width)\2
Label2.Left=(FW-Label2.Width)\2
End Sub
(2)学籍管理模块主要包括有添加学籍信息，修改学籍信息
和查询学籍信息。窗体上的文本框分别用于输入学号、姓名、和出生日期，组合框用于选择性别。在窗体上添加一个 ADO数据控件，设Visible=False,将其与数据库连接，用 SQL语句记录源
与数据库中的“学籍”表绑定。在窗体上添加两个ADO数据控
件，分别命名为adoEdit和adoGrade,将其与数据库连接，用SQL 语句将adoEdit 的记录与数据库中的“学籍”表绑定，设
Align=2 。
界面属性：
具体程序如下：
Private Sub cboClass_LostFocus()
Call NewClassItem(cboClass)
End Sub
Private Sub cmdExit_Click( )
Unload Me
End Sub
Private Sub cmdOk_Click( )
If Trim$(txtSID.Text)= Then
MsgBoX 请输入学号！”，vbzExclamation txtName.SetFocus
Exit sub
End if
End sub
(3)课程管理菜单下有两个菜单项：添加课程和修改课程。
窗体上的文本框分别用于输入课程编号和课程名称。在窗体上添
加一个ADO空件，设Visible=False, 将其与数据库连接，用SQL
语句将记录源与数据库中的“课程信息”表绑定，对文本框的锁定处理和各按钮的处理与“修改学籍信息”相似。具体代码：
Private sub adoEdit_MoveComplete(Byval adReason As
ADOOB.EventReasonEnum,_
ByVal pError As ADODB.Error,adStatus As
ADODB.EventStatusEnum,_
*
Byval pRecordset AsADODB.Recordset)
adoEdit.Caption= ”Record:”
Cstr(adoEdit.Recordset.AbsolutePosition)
End Sub
Private Sub cmdCancel_Click( )
With adoEdit.Recordset
.CancelUpdate
.MoveNext
.MovePrevious
End With
Call MyLock(True)
End Sub
(4)成绩管理包括：输入成绩、修改成绩和查询成绩。在窗体上添加4个ADO数据控件，均设 Visible=False, 用SQL语句将adoAdd记录源与数据库中的“成绩”表绑定。框架中的组合框用于选择班级和课程， Style 属性均为 2。添加两个 DataGrade 和dgd In Grade控件。用SQL语句生成当前班级、课程已有成绩
号、记录集。将临时表中的学号、分数以及课程组合框中的课程名称
追加到与ADO数据控件adoAdd绑定的成绩表中。“修改成绩” 框架中的组合框用于选择课程，文本框用于显示和修改分数。修改成绩用以下代码实现：
Private Sub adoNoName_MoveComplete（Byval adReson As ADODB.EventReasonEnum,Byval
pError As ADODB.Error,adStatus As
ADODB.EventStatusEnum,ByVal pRecordset
AsSDODB.Recordset）
If adononame.Recordset.Bof or
adoNoname.Recordset.EOF then
TxtNo.Text= ””
TxtName.Text=”” txtGrade.text_ ””
Exit sub
End if txtNo.text=adoNoName.Recordset（“学号”）.value
txtName.text=adoN oName.Recordset（“姓名”）.value
5.结束语
本程序充分利用VB和数据库的结合,创建了大量的数据库
及表。具有界面友好，操作简单的特点，并充分利用了 VB面向多媒体的强大处理功能，成功演示了学生信息管理系统，包括灵