数据库原理及应用最后一次上机实践.docx
《数据库原理及应用最后一次上机实践.docx》由会员分享，可在线阅读，更多相关《数据库原理及应用最后一次上机实践.docx（38页珍藏版）》请在冰豆网上搜索。
数据库原理及应用最后一次上机实践
第六次上机实践
2设计应用程序界面
实验七应用VB开发简单的数据库应用系统
项目:
基于VisualBasic/SQLServer的学生信息管理系统
★学生信息管理系统开发主要包括
▲后台数据库设计和维护
要求：
建立一致性，完整性，安全性好的数据库
工具：
SQLServer2008
▲前端应用程序的开发
要求：
应用程序功能完备，易使用。
工具：
VisualBasic
★学生信息管理系统采用C/S（客户机和服务器结构）体系结构，按照客户端设计和教据库设计两部分进行。
客户端设计负责提供表达逻辑、显示用户界面信息、访问数据库服务器等，采用ⅥsualBasic6.0作为开发工具；服务器端则用于提供数据服务，采用SQLServer2008作为数据库管理系统。
数据库设计实现服务器端的数据处理。
★客户端系统总体设计
学生信息管理系统客户端主要对学生信息、课程信息、学生成绩信息进行管理，该系统分4个功能模块，如图所示。
1）专业班级管理：
包括专业信息和班级信息的录入、修改、删除等操作。
2）学生信息管理：
包括学生信息的录入、修改、删除、查询和生成报表等操作。
3）选修课程设置：
实现课程信息的录入、修改、删除、查询和生成报表等操作。
4）成绩信息管理：
实现学生成绩的录入、修改、删除和查询等操作。
录入某个学生的某门课程的成绩时，由于学生信息和课程信息已在数据库中存在，可通过下拉列表框的形式来选择学生和课程来录入、修改、删除和查询成绩。
系统的功能模块图
预备知识VB基础
一、为什么采用VisualBasic6.0开发数据库
数据库系统（信息管理系统）开发工具很多，早期的如FoxPro等。
目前，主流的开发工具有VisualBasic,VisualC++,Delphi等，其中VisualBasic以其简洁易懂的语法，直观而强大的IDE（集成开发环境），丰富强大的数据库操作特性成为最流行的数据库系统开发工具。
在Windows操作系统中，VisualBasic是最简单的数据库开发平台，通过它可以在很短的时间内开发出高效、美观的数据库应用程序。
1）VisualBasic作为数据库开发平台有以下优点：
简单性。
VisualBasic提供了数据控件，利用该控件用户可以方便地访问数据库，对数据库进行浏览。
灵活性。
VisualBasic不像一般的数据库（如Access）那样局限于特定的应用程序结构，也不需要某些指令对当前打开的数据库进行操作，因而比较灵活。
可扩充性。
VisualBasic是一种可以扩充的语言，其中包括在数据库方面的扩充。
在VisualBasic中，可以使用Active控件，这些控件可以由Microsoft公司提供，也可由第三方开发者提供。
有了这些控件，可以很容易地在VisualBasic中增加新功能。
2）数据库前端是一个计算机应用程序，用该应用程序可以选择数据库中的数据项，并把所选择的数据项按用户的要求显示出来。
数据库系统本身被称为后端，后端数据库通常是一个关系表的集合。
选择VisualBasic作为开发数据库前端应用程序的工具，主要是因为VisualBasic可以和多种数据库连接。
目前，较为流行的大多数数据库都可以与VisualBasic连接，因而可以用VisualBasic开发相应的前端应用程序。
二、VB环境下数据处理功能简介
VB中提供了多种数据库访问方法，可以访问的数据类型有dBase,FoxPro和Access数据库。
VB提供的数据库访问方法主要有：
使用可视化数据管理器管理数据库，用Data,ADO数据控件访问数据库，通过ODBC方式访问远程数据库以及采用对象变量访问数据库等。
VB提供了多种SQLServer数据库的访问方法，例如使用数据访问对象（DAO），远程访问对象（RDO），ADO数据控件及ADO对象等。
可视化数据库工具（VisualDambaseTools）是集成在VB6.0开发环境中的可视化的数据库管理工具使用这套工具主要可以完成下列功能：
链接到任何符合ODBC（微软公司推出的开放式数据库互联）规则的数据库。
使用数据库图表创建和修改soLServer数据库。
设计、执行和保存复杂的查询。
添加、更改和删除存储在数据库表中的数据
可视化数据库工具（VisualDambaseTools）主要由数据视图、数据库设计器、查询设计器和源代码编辑器四部分组成。
1数据视图
数据视图的外观与工程窗口十分类似，只是数据视图是用来管理数据库对象的，它提供了一种图形化方法来组织数据库对象，这些数据库对象包括数据库图表、表、视图、触发器和存储过程。
用户可以通过双击、拖动及右键菜单对数据库对象执行打开、创建和编辑等操作。
数据绑定控件。
在VB环境下，常用的对象有各种控件、窗体、菜单、应用程序的部件以及数据库等。
这些对象都具有属性（数据）和行为方式（方法）。
属性用于描述对象的一组特征，方法为对象实施一些动作，对象的动作常常要触发事件，而触发事件又可以修改属性。
一个对象建立后，其操作可通过与该对象有关的属性、事件和方法来描述。
数据绑定控件是数据识别控件，在数据库中通过它访问信息，当一个控件被绑定到数据控件控件，该控件将显示数据库中的字段，并接受对数据库的修改。
大多数绑定控件是用DataChanged,DataField,DataSource属性的设置与Data控件绑定的。
其中DataChanged属性表明返回绑定控件中的值是否极已经改变,DataField属性用于设置要显示得数据库中的字段名称,DataSource属性用于设置与该控件绑定的Data控件的名称。
实验七应用VB开发简单的数据库应用系统2设计应用程序界面
一、实验目的
熟悉VB6.0的集成环境及其基本操作：
熟悉VB软件的使用，要求掌握VB的基本功能、常用控件能够运用；
学会对数据控件（Data控件、数据绑定控件等）的使用；
熟悉VB数据访问技术。
二、实验内容
1）VB的启动，对VB集成开发环境（IDE）的熟悉,熟悉工具箱中相应的控件功能及其使用方法。
重点掌握数据控件（Data）、数据绑定控件（如文本框、组合框等标准控件）。
三、实验步骤和方法
1）启动VB程序后，首先显示“新建工程”对话框，如图1所示。
图1.“新建工程”对话框
双击“新建”选项卡中的“标准EXE”选项（默认选项）或在选择了某种工程后，单击“打开”按钮，进入VB的集成开发环境（IDE）,如图2所示。
当一个应用程序开始创建时，系统会自动为该程序添加一个空白窗体到窗体设计器中。
在设计程序界面时仅需要将工具箱中的相应的控件（部件），画到窗体的适当位置即可。
而后编写这些控件的事件代码，即可完成一般性的程序设计过程。
在集成开发环境中集中了许多不同的功能，如程序设计、编辑、编译、调试等，这使用户在一个界面中可以完成多个任务。
图2.VB6.0的集成开发环境
2）使用ADO控件设计一个数据库浏览程序
在窗体中添加几对标签和文本框和一个ADO控件。
设置标签的Caption属性，文本框的Text属性设置为空。
设置ADO控件的属性：
鼠标指向ADO控件，单击右键，选择“ADODC属性”。
在“通用”选项卡中选择“使用链接字符串”，单击“生成”按钮，打开了“数据链接属性”对话框，
在“提供者”选项卡中选择
单击下一步，进入“链接”选项卡，在其中选择需要使用的数据库文件，然后单击“测试链接”按钮，验证链接的正确性。
单击“确定”按钮完成数据链接属性的设置。
在ADO控件属性页的“记录源”选项卡中，设置命令类型为2（表类型），设置控件的RecordSource属性。
在ADO控件的属性设置完毕之后，设置文本框的DataSource属性和DataField属性。
编写程序代码
PrivateSubText1_Change（）
a=Adodc1.Recordset.AbsolutePosition
b=Adodc1.Recordset.RecordCount
Adodc1.Caption=”当前记录号：
”&a&”/”&b
EndSub
可有如下运行结果：
3）创建窗体
4）使用数据视图工具创建数据连接。
点击
，打开数据视图窗口：
点击数据视图窗口中工具栏第三个图标“添加新的数据连接”，打开对话框
图“数据链接属性”列话框
在“提供者”选项卡中选择“MicrosoftOLEDBProviderforODBCDrivers”选项后，单击“下一步”按钮,进入链接选项卡，在其中选择“使用链接字符串”后，单击“编译“按钮。
图使用字符串创建链接
图新建机器数据源
在上图所示的对话框中，选择“机器数据源”选项卡，单击其中“新建”按钮。
在图14-24所示的对话框中选择数据源的类型，本例选择了“系统数据源”。
选择数据源类型
单击下一步
图选择数据源的驱动程序
对话框中选择数据源的驱动程序，本例选择了SQLServer，单击“下一步”按钮。
在上图所示的对话框中单击“完成”按钮，启动新的向导程序，该向导用于创建一个能连接到SQLServer的ODBC数据源。
（链接到任何符合ODBC（微软公司推出的开放式数据库互联）规则的数据库。
）
指定SQLServer所在的服务器名称，该服务器名称为应用程序要登录的数据库所在的服务器名称，参考SQLServer2008登录时的服务器名称。
单击下一步。
在上图所示的对话框中，选择登录SQLServer时验证用户身份的方法，本例选择“使用网络登录lD的WindowsNT验证”方式。
如果“使用用户输入登录ID和密码的SQLServer验证”，使用这种方法用户需要在每次登录SQLServer时输入用户名和密码。
如果选择了“使用网络登录lD的WindowsNT验证方式，用
户仅需在启动Windows，并登录WindowsNT或2000时输入用户名和密码即可。
在上图所示对话框中选择默认数据库，本例选择了“student”。
在上图所示的对话框中，用户可以选择更改系统消息的语言，这里选择默认值“SimplifiedChinese（简体中文）”、是否执行字符数据翻译、曰志文件的设置等。
单击“完成”按钮。
在上图对话框中显示，新建ODBC数据源的详细信息，单击测试数据源按钮，可以检测设置的正确性，
单击确定按钮，返回选择数据源窗体，
选择studb数据源，单击确定。
此时会出现下所示的对话框
单击确定按钮。
此时在数据视图窗口中可以看到该数据库中包含的表、视图和存储过程等信息，如下图所示。
3）使用数据链接访问数据库
在创建了数据链接后，就可以使用该链接来访问SQLServer数据库了，新建一个标准EXE类型VB工程。
这里使用数据窗体向导。
数据窗体向导可以根据用户的选择自动设置ADO控件和数据绑定控件。
在外接程序菜单中打开外接程序管理器，选择“VB6数据窗体向导”,加载。
在外接程序中出现了数据窗体向导选项。
启动数据窗体向导。
在数据窗体向导中选择
设置文本框的DataSource属性和DataField属性。
5）运行，调试程序。
最后生成一个可执行文件，应用程序设计完成。
体会
★学生信息管理系统开发主要包括
▲后台数据库设计和维护
要求：
建立一致性，完整性，安全性好的数据库
工具：
SQLServer2008
▲前端应用程序的开发
要求：
应用程序功能完备，易使用。
工具：
VisualBasic
6）完成实验报告
最后一次实践任务：
用代码来访问数据库，建立应用程序。
本任务有一定难度，有兴趣同学可选作，
熟悉VB的同学可以选作。
-------------------用代码来访问数据库，建立应用程序
步骤一：
在创建了数据链接后，就可以使用该链接来访问SQLServer数据库了，新建一个标准EXE类型VB工程，执行“工程”菜单“DataEnvironment”命令，将一个数据环境设计器添加到当前工程中。
单击VB工具栏中的“数据视图窗口”工具按钮，打开“数据视图”对话框。
将其中的spe_Info表拖放到数据环境设计器中，如下图。
此时在数据环境设计器中自动添加一个链接对象Connection2，该对象中包含有spe_Info表，从窗口可以看到该表中所有字段信息。
鼠标指向数据环境设计器下spe_Info表，单击右键在弹出的菜单中执行属性命令，打开spe_Info对话框。
进入“高级”选项卡，将“游标位置’’设置为“2使用服务器端游标”，将“游标类型设置为2-动态”，将“锁定类型设置为开放式。
设置完毕后，单击“确定”按钮，关闭spe_Info属性对话框；
对象属性设置完毕后，在数据环境设计器中将“spe_Info’直接拖放到标准EXE工程的窗体上，系统自动为各字段建立约束控件（数据绑定控件）及对应的标签控件。
●观察数据绑定控件的使用。
在上图中，在窗体上有两个文本框，两个标签。
将两个标签的Caption属性分别设为“专业号”和“专业名”。
如上图，在窗体上添加3个按钮控件（Command1、Command2、Command13），并放在适当位置，按下面编写按钮控件的事件代码。
PrivateSubCommand1_Click（）
OnErrorGoToerror1
DataEnvironment1.rsspe_Info.MovePrevious
IfDataEnvironment1.rsspe_Info.BOFThen
DataEnvironment1.rsspe_Info.MoveFirsr
EndIf
ExitSub
error1:
MsgBoxErr.Description.vbOKOnly,"出错提示"
EndSub
退出按钮：
PrivateSubCommand3_Click（）
End
EndSub
程序运行结果如上图。
步骤二:
4）正式设计学生信息管理系统应用程序：
界面与代码设计
一、公共模块中定义的全局变量及子程序
1．定义的全局变量
PubllcMyConnectionAsNewADODB.Connection用于建立弓数据库的连接
PublicSQLUserNameAsString存放SQL的登录账号
2.ChangeFormPos（frmMainAsMDIForm,frmAsForm）子过程
功能：
用于确定调用窗体在主窗体frmMain中昀显示位置。
PubllcSubChangormPos（frmMainAsMDIForm,frmAsForm）
DimTopASInteger
Top=（FtrmMain.ScaleHeight-frm.Height）/2-600
IfTop>0Then
Frm.Top=Top
Else
Frm.Top=0
Endif
frm.Ltft=（frmMain.ScaleWidth-frm.Width）／2
EndSub
二、用户登录窗体的设计
用户登录是为了确定该用户是否具备使用系统的权力及访问各模块的权限。
该窗体首先完成与数据库的信任连接，并将student数据库的所有SQLServer用户添加到用户名组合列表框中。
登录时，用户从列表框中选择用户名，输入密码后，单击“确定”按钮，应用程序将验证用户名和密码，若是合法的SQLServer用，一，则该用户有权进入系统。
登录窗体界面如图所示
窗体中的主要控件名称及属性值如表所示:
窗体中主要控件及属性值┃
在窗体frmLogin中，添加以下代码：
DimMyconnection_isOpenAsBoolean‘定义变量用于标记数据库是否连接
PriVateSubFormLoad（）
DimstrConnASStrinq‘先以Windows用户连接到SQLServer，获取数据库SQL账户
strConn="provider=sqloledb;integratedsecurity-sspi;”_
+"persistsecurityinfo=false;initialcatalog=student;datasource=（local）”
MvConntction.ConnectionStrinq-strConn
OnErrorGoToerr_Open_msq
MyConnection.Open
Myconnection_IsOpen=True
CallGetUserList
ExitSub
err_Open_msq:
MsgBox（"Windows用户连接到SQLServer"）
EndSub
SubGet_UserList（）,获取数据库的SQL账户
DimobirsAsNewADODB.Recordset
objrs.CursorType=adOpenKeyset
objrs.LockType=adLockOptimistic
objrs.Open"selectnametromsysuserswhereissqluser=l",_
MyConnection,,,adCmdText
cmbUser.Clear
DoUntilobjrs.EOF
cmbUser.AddItemobjrs.Fields（"name"）
objrs.MoveNext
Loop
Setobjrs=Nothing
IfcmbUser.ListCount>0ThencmbUser.ListIndex=0
EndSub
PrivateSubcmdExit_Click（）
End
EndSub
PrivateSubcmdOK_Click（）‘重新以SQL用J、1身份连接到SQLServer
DimstrConnAsString
DimSQLPasswordAsString
IfMyconnection_IsOpenThen
MyConnection.Close
Myconnection_IsOpen=False
EndIf
SQLUserName=cmbUser.Text
SQLPassword=txtPwd.Text
strConn=”provider=SQLOLEDB.l;uid="&SQLUserName＆";pwd="_
＆SQLPassword＆";database=student;datasource=（local）"
MyConnection.ConnectionString=strConn
OnErrorGoToerr_msq
MyConnection．Open
MDIformMain．Show
Myconnaction_IsOpen=True
UnloadMe
ExitSub
Err_msg:
MsgBox（“SQL用户不存在，或密码不正确”）
EndSub
三、主窗体MDlformMain的设计
主窗体用于定位应用程序的不同部分，为应用程序提供导航功能。
本系统采用多文档界面，使用户方便地在各个应用程序之间切换，且多文档窗体还可以少占系统资源。
创建主窗体的一般步骤如下所述。
（l）在“工程”菜单中单击“添加MDI窗体”命令，在出现的“添加MDI窗体”对话框的“新建”选项卡中选择“窗体”项，然后单击“打开”按钮。
（2）在“属性”对话框中设置窗体名称为MDIfonnMain，Caption为“学生信息管理系统”，WindowState为2-Maxmized，窗体界面如图所示。
图主窗体MDIformMain的界面
（3）在窗体上单击鼠标右键，在弹出的快捷菜单L选择“菜单编辑器”，打开“菜单编辑器”对话框，按图所示编辑菜单项。
图菜单编辑器界面
各菜单项标题、名称及单击所执行的命令如表所示。
界面设计完成后，在MDlformMain窗体中添加如下代码:
PrivateSubMDIForm_Load（）
'如果以客人身份登录,不允许进行班级专业管理
IfSQLUserName="guest"Then
mnuSpeClass.Enabled=False
mnuClass.Enabled=False
mnuSpe.Enabled=False
EndIf
EndSub
PrivateSubmnuScore_Click（）'进入成绩管理对话框
frmScore.Show
ChangeFormPosMDIformMain,frmScore
EndSub
PrivateSubmnuSpe_Click（）'进入专业管理对话框
frmSpe.Show
ChangeFormPosMDIformMain,frmSpe
EndSub
PrivateSubmnuClass_Click（）'进入班级管理对话框
frmClass.Show
ChangeFormPosMDIformMain,frmClass
EndSub
PrivateSubmnuCourse_Click（）'进入选修课程管理对话框
frmCourse.Show
ChangeFormPosMDIformMain,frmCourse
EndSub
PrivateSubmnuStu_Click（）'进入学生信息管理对话框
frmStu.Show
ChangeFormPosMDIformMain,frmStu
EndSub
PrivateSubmnuExit_Click（）
End
EndSub
四、专业管理和班级管理模块的设计
专业班级管理模块主要实现班级和专业的添加、修改和删除等功能。
1．专业管理frmSpe窗口的设计
选择“专业班级管理”中的“专业管理”菜单项，将出现如图所示的frmSpe窗体。
图“专业管理”窗体frmSpe的界面
窗体中的主要控件名称及属性值如表所示。
表“专业管理”系统菜单标题及名称
在窗体frmSpe中，添加以下代码：
PrivateSubForm_Load（）'初始化窗口
MSFlexGrid1.TextMatrix（0,0）="记录"
MSFlexGrid1.TextMatrix（0,1）="专业编号"
MSFlexGrid1.TextMatrix（0,2）="专业名称"
MSFlexGrid1.ColWidth（0）=500
MSFlexGrid1.ColWidth
（1）=1000
MSFlexGrid1.ColWidth
（2）=2000
CallDisplay_Spe'显示所有专业的信息
升级会员 