论文部分内容阅读
[摘 要] Visual Basic程序设计是实践性很强的可视化编程语言，在WINDOWS应用程序，数据库应用程序、多媒体程序以及Internet网上有广范应用．本程序是利用VB强大的图形图象功能，及Visual Basic和ADO技术结合编制数据库访问应用程序的设计。
[关键词] 信息管理系统 ActiveX
[Abstract] 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.
[Key words] multimedia weather forecast ActiveX
1.引言
Visual Basic 语言提供了一种面向对象、事件驱动的可视化程序設计工具，它集成环境友好，可以快速地设计界面、编写程序、调试程序，在windows中可自由发布。本程序中采用Visual Basic+ADO+Access,用来实现对学籍、课程、成绩及用户的管理。
2.准备工作
首先要对整个信息管理系统进行分析，确定对系统的数据要求。将在设计过程中用到的数据准备好，系统功能如下：
（1）学籍管理
学籍管理功能主要有添加学籍信息，修改学籍信息和查询学籍信息。学籍信息包括：学号、姓名、性别、系别、班级和班主任等信息。
（2）课程管理
课程管理主要有添加课程信息、修改课程信息两个功能。课程信息包括：课程名称、课程编号、课程任课教师。
（3）成绩管理
成绩管理功能主要有添加成绩信息、修改成绩信息和查询成绩信息三个功能。成绩信息包括：考试时间、学号、课程编号和考试成绩。
（4）补助管理
补助管理包括贷款增加、浏览贷款、补助增加三个功能。
（5）奖惩管理
奖惩管理包括添加奖励信息、添加惩罚信息和浏览奖惩信息三个功能
（6）系统管理
系统管理包括添加新的用户、删除用户和修改密码功能。
3.各表的物理结构
建立学生信息数据库。利用VB中的“可视化数据管理器”建立数据库。
（1）学籍表结构。该表存放学生的基本信息。（见表1所示）
（2）课程管理表结构。该表存放课程信息。（见表2所示）
（3）成绩管理表结构。该表存放学生成绩（见表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和dgdInGrade控件。用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=adoNoName.Recordset(“姓名”).value
5.结束语
本程序充分利用VB和数据库的结合,创建了大量的数据库及表。具有界面友好，操作简单的特点，并充分利用了VB面向多媒体的强大处理功能，成功演示了学生信息管理系统，包括灵活地调用表，能切换的界面，会变化的图片，可随时更换数据。这些内容的组合，使学生信息管理系统达到良好效果。
参考文献：
[1] 郑有增等《Visual Basic 可视化程序设计实验指导与实训》，中国水利水电出版社，2008.8.
[2]http://www.meet99.com/.
[3]http://www.go2map.com/.
[4]李鑫等，《Visual Basic.NET课程设计案例精编》，中国水利水电出版社，2008.7.
[5]刘彩虹等，《Visual Basic程序设计案例教程》，中国铁道出版社出版社，2008.2.
[关键词] 信息管理系统 ActiveX
[Abstract] 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.
[Key words] multimedia weather forecast ActiveX
1.引言
Visual Basic 语言提供了一种面向对象、事件驱动的可视化程序設计工具，它集成环境友好，可以快速地设计界面、编写程序、调试程序，在windows中可自由发布。本程序中采用Visual Basic+ADO+Access,用来实现对学籍、课程、成绩及用户的管理。
2.准备工作
首先要对整个信息管理系统进行分析，确定对系统的数据要求。将在设计过程中用到的数据准备好，系统功能如下：
（1）学籍管理
学籍管理功能主要有添加学籍信息，修改学籍信息和查询学籍信息。学籍信息包括：学号、姓名、性别、系别、班级和班主任等信息。
（2）课程管理
课程管理主要有添加课程信息、修改课程信息两个功能。课程信息包括：课程名称、课程编号、课程任课教师。
（3）成绩管理
成绩管理功能主要有添加成绩信息、修改成绩信息和查询成绩信息三个功能。成绩信息包括：考试时间、学号、课程编号和考试成绩。
（4）补助管理
补助管理包括贷款增加、浏览贷款、补助增加三个功能。
（5）奖惩管理
奖惩管理包括添加奖励信息、添加惩罚信息和浏览奖惩信息三个功能
（6）系统管理
系统管理包括添加新的用户、删除用户和修改密码功能。
3.各表的物理结构
建立学生信息数据库。利用VB中的“可视化数据管理器”建立数据库。
（1）学籍表结构。该表存放学生的基本信息。（见表1所示）
（2）课程管理表结构。该表存放课程信息。（见表2所示）
（3）成绩管理表结构。该表存放学生成绩（见表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和dgdInGrade控件。用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=adoNoName.Recordset(“姓名”).value
5.结束语
本程序充分利用VB和数据库的结合,创建了大量的数据库及表。具有界面友好，操作简单的特点，并充分利用了VB面向多媒体的强大处理功能，成功演示了学生信息管理系统，包括灵活地调用表，能切换的界面，会变化的图片，可随时更换数据。这些内容的组合，使学生信息管理系统达到良好效果。
参考文献：
[1] 郑有增等《Visual Basic 可视化程序设计实验指导与实训》，中国水利水电出版社，2008.8.
[2]http://www.meet99.com/.
[3]http://www.go2map.com/.
[4]李鑫等，《Visual Basic.NET课程设计案例精编》，中国水利水电出版社，2008.7.
[5]刘彩虹等，《Visual Basic程序设计案例教程》，中国铁道出版社出版社，2008.2.