数据库应用技术.docx
- 文档编号:29444020
- 上传时间:2023-07-23
- 格式:DOCX
- 页数:27
- 大小:1.12MB
数据库应用技术.docx
《数据库应用技术.docx》由会员分享,可在线阅读,更多相关《数据库应用技术.docx(27页珍藏版)》请在冰豆网上搜索。
数据库应用技术
数据库应用技术
【实验目的】
1、了解数据库应用结构。
2、了解数据库接口。
3、掌握数据库应用过程尤其连接数据库、表现数据库。
4、加深SQL语言掌握。
【实验性质】
综合性实验(学时数:
4H)
【实验导读】
1.窗体是VB中的对象,具有自己的属性、事件和方法。
窗体属性:
(1)Name属性
对象的名称,是所有对象都具有的属性,用来唯一标识该控件。
在程序中,控件名是作为对象的标识而引用,不会显示在窗体上。
所有的控件在创建时由VB自动提供一个默认名称。
(2)Height、Width、Top和Left属性
Height和Width属性决定了控件的高度和宽度,Top表示控件到窗体顶部的距离,Left表示控件到窗体左边框的距离。
默认单位为twip,
1twip=1/20点=1/1440英寸=1/567cm。
窗体位置、大小如图3-1所示。
(3)Caption标题属性
Caption属性的值是显示在窗体标题栏上的文字。
(4)BackColor属性和ForeColor属性
BackColor属性用于返回或设置对象的背景颜色,ForeColor属性用于返回或设置在对象里显示图片和文本的前景颜色。
(5)BorderStyle属性
此属性决定边框风格,通过改变BorderStyle属性,可以控制窗体如何调整大小。
(6)MaxButton、MinButton和ControlBox属性
MaxButton最大化按钮和MinButton最小化按,当值为True,有最大或最小化按钮,False则无。
ControlBox控制菜单框属性,其值设置为Ture时,有控件菜单;设置为False时,则无控件菜单,同时窗体也无“最大化”按钮和“最小化”按钮,即使MaxButton属性和MinButton属性设置为Ture。
(7)Picture属性
使用Picture属性可以指定一幅图片显示在窗体的表面上,作为控件的背景。
(8)WindowsState属性
0:
正常窗口状态,有窗口边界;
1:
最小化状态,以图标方式运行;
2:
最大化状态,无边框,充满整个屏幕。
(9)字体Font属性组
FontName属性是字符型,决定对象上正文的字体(缺省为宋体)。
FontSize属性是整型,决定对象上正文的字体大小(缺省为9磅)。
FontBold属性是逻辑型,决定对象上正文是否是粗体(缺省为False)。
FontItalic属性是逻辑型,决定对象上正文是否是斜体(缺省为False)。
FontStrikeThru属性是逻辑型,决定对象上正文是否加一删除线(缺省为False)。
FontUnderLine属性是逻辑型,决定对象上正文是否带下划线(缺省为False)。
(10)AutoRedraw属性
该属性决定窗体被隐藏或被另一窗口覆盖之后重新显示时,是否重新还原该窗体被隐藏或覆盖以前的画面。
即是否重画如Circle、Line、Pset和Print等方法的输出。
当为True时,重新还原该窗体以前的画面。
当为False时,则不重画。
窗体常用事件:
窗体常用的事件有Load、Click、DblClick、Activate、Resize等。
其中Load事件是当窗体被装入工作区时触发的事件,常用来在启动应用程序时对属性和变量进行初始化。
Activate是当一个窗体成为活动窗口时所触发的事件,Resize是当窗体大小发生改变时所触发的事件。
窗体常用方法:
窗体常用的方法有Print(打印输出)、Cls(清除)、Show(显示)、Hide(隐藏)以及(Move)移动等。
2.在窗体上添加控件
窗体是设计VB应用程序的一个基本平台,几乎所有的控件都是添加在窗体上的。
对于生成的控件,可以调整控件大小、移动控件位置、使用网格精确定位控件;对于多个控件,还可以对它们进行排列、调整大小等操作。
另外,在VB中还允许可视地创建和编辑控件数组,这对于编组使用选择框、命令按钮等控件提供了很大方便。
3.设置启动窗体
在默认情况下,应用程序中的第一个窗体被指定为启动窗体。
应用程序开始运行时,此窗体就被显示出来。
如果想在应用程序启动时显示别的窗体,可以将其他窗体设置为启动窗体。
设置方法:
在“工程”菜单或者“工程资源管理器”快捷菜单中选择工程“属性”,会弹出“工程属性”对话框,如图3-2所示,在“启动对象”的选择列表中选择窗体名称即可把该窗体设为启动窗体。
4.实验举例
例:
使用VB建立一个简单的应用程序,在窗体上输出“大家好!
”“欢迎来到这里”。
设计思路:
窗体上通常是不直接输出文本信息,一般通过窗体上的对象输出文本信息。
例如,可以用标签输出“大家好!
”,用文本框输出“欢迎来到这里!
”,因此可以在窗体上放置一个标签、一个文本框和一个命令按钮,单击命令按钮,则在标签上显示“大家好!
”,在文本框显示“欢迎来到这里!
”。
设计步骤:
(1)新建工程
单击Windows任务栏中的“开始”“程序”“MicrosoftVisualBasic6.0中文版”“MicrosoftVisualBasic6.0中文版”命令,进入VisualBasic6.0集成开发环境,并显示“新建工程”对话框,默认选择是建立“标准EXE”(即标准工程)。
单击“打开”按钮,VisualBasic6.0进入设计模式,并自动创建了一个窗体模块Form1,这就是将要建立的应用程序的窗体。
在这个窗体上添加控件,即可建立应用程序界面。
(2)创建应用程序界面
①设置窗体属性
A.在属性窗口中双击“Caption”属性条,输入“我的第一个VB程序”。
B.在属性窗口中选择“BackColor”属性条,然后单击右端的箭头,在所显示的“调色板”中选择一种颜色(例如浅黄色)。
②在窗体上添加控件
A.单击工具箱中的标签(Label)控件类型图标,鼠标指针变为十字形,再在“对象”窗口的窗体上单击并拖动,然后释放鼠标键,窗体上就会出现一个标签类型的控件对象,同时鼠标指针恢复为箭头形状。
B.用同样方法将文本框(TextBox)控件放置在窗体上。
C.放置命令按钮(CommandButton)到窗体上。
③设置控件属性
在窗体上选中命令按钮,然后在属性窗口中双击“Caption”属性条,输入“显示”。
通过鼠标的几个简单操作,我们已经建立好了应用程序界面,如图1-3所示。
(3)编写应用程序代码
创建好了应用程序界面,下面就开始编写应用程序代码,控制程序的运行。
编写的程序具有这样的功能:
当用户在应用程序窗体中用鼠标单击“显示”按钮时,窗体中的标签上会显示“大家好!
”,文本框中会显示“欢迎来到这里!
”。
在这里要对“显示”命令按钮(Command1)进行编程,在窗体上双击“显示”命令按钮(Command1),会弹出代码编辑窗口,在编辑窗口上部左侧的对象列表框中显示对象名为“Command1”,在右侧的过程列表框中显示的过程是“Click”,如图1-4所示。
此时,在代码编辑窗口会出现如下代码:
PrivateSubCommand1_Click()
EndSub
说明我们是对命令按钮Command1的单击事件进行编程。
在这两条语句之间输入如下代码:
Label1.Caption="大家好!
"
Label1.FontName="宋体"
Label1.FontSize=15
Label1.FontBold=True
Text1.Text="欢迎来到这里!
"
Text1.FontName="黑体"
Text1.FontSize=16
Text1.FontBold=True
至此,我们完成了对命令按钮Command1(“显示”按钮)的编程。
(4)运行程序
点击工具栏中的“启动”按钮,开始运行程序,单击命令按钮(显示),结果如图3-5所示。
(5)保存文件
程序在编写过程中或运行结束后常常要将有关文件保存到磁盘上,以便以后多次使用。
通常一个工程中会涉及到多种文件类型,但本例比较简单,它仅涉及到一个窗体,因此在保存文件时,只需保存一个窗体文件和工程文件即可。
保存文件的步骤如下:
A.选择“文件”→“保存Form1”(窗体文件)命令,系统弹出“文件另存为”对话框,提示用户输入文件名。
如图3-6所示。
用户在“保存在”文本框选择保存的文件夹,在“文件名”文本框输入窗体文件名(后缀名由系统根据不同的文件类型自动添加,这里是.frm)。
本例窗体文件名为vblx.frm,保存在G盘的VBpro文件夹下。
B.选择“文件”→“保存工程”(工程文件)命令,系统弹出“工程另存为”对话框,提示用户输入文件名,操作同上。
本例工程文件名为vblx.vbp。
在保存了文件后,用户若要再次调入文件进行修改或运行,只需选择“文件”→“打开工程”命令,输入要打开的工程文件名,就可把硬盘上的文件调入内存进行所需的操作。
(6)生成可执行文件
在前面的程序运行时,我们直接选择在工具栏单击“”启动按钮,或选择“运行”¨“启动”命令运行程序,这时的运行是在解释运行模式下,仍然在VB环境中。
有时我们需要程序的运行能脱离VB环境,可像任何基于Windows的应用程序那样,双击程序文件图标就可运行。
这就必须对应用程序源代码进行编译,生成可执行文件(.EXE文件)。
生成可执行文件的步骤如下:
A.选择“文件”¨“生成.exe”命令,系统显示“生成工程”对话框,如图3-7所示。
B.在“文件名”文本框内显示与原工程文件名一致的可执行文件名,用户也可修改文件名,本例文件名为vblx1_1.exe。
【实验内容】
1、利用SQLServer2000数据查询分析器建立数据库应用结构
dropdatabasetest
go
createdatabasetest
go
usetest
go
createtablestudent(
snonvarchar(7)primarykey,
snamenvarchar(10)notnull,
ssexnvarchar
(2)check(ssex='男'orssex='女'),
sagetinyintcheck(sage>=15andsage<=45),
sdeptnvarchar(20)default'计算机系'
)
go
insertintostudentvalues('9512101','李勇','男',19,'计算机系')
insertintostudentvalues('9512102','刘晨','男',20,'计算机系')
insertintostudentvalues('9512103','王敏','女',20,'计算机系')
insertintostudentvalues('9521101','张立','男',22,'信息系')
insertintostudentvalues('9521102','吴宾','女',21,'信息系')
insertintostudentvalues('9521103','张海','男',20,'信息系')
insertintostudentvalues('9531101','钱小平','女',18,'数学系')
insertintostudentvalues('9531102','王大力','男',19,'数学系')
select*fromstudent
2、新建一VB应用程序工程文件
设置窗体Form1标题栏的Caption属性为学生信息管理系统如图3-8所示
图3-8
3、添加对ADO对象的引用
选择【工程】菜单下的【引用】,如图3-9所示。
图3-9
在引用对话框中将MicrosoftActiveXDataObject2.8Library选项打勾,添加对ADO对象的引用,选择确定。
如图3-10所示。
图3-10
4、添加ADO数据控件和MSHFlexGrid网格控件
选择【工具】菜单下的【部件】,如图3-11所示。
图3-11
在部件对话框中分别对MicrosoftADODataControl6.0(SP6)和MicrosoftHierarchicalFlexGridControl6.0(SP4)(OLEDB)打勾,添加ADO数据控件和MSHFlexGrid数据网格控件。
如图3-12和3-13所示。
图3-12
图3-13
图3-14
5、设计应用程序界面,界面效果如图3-15所示,各个控件的说明及属性如下表所示。
图3-15
窗体及各个控件名称说明如图3-16所示:
图3-16
各个控件属性说明如下:
对象名称(控件名称)
属性名称
属性值
Form1
caption
学生信息管理系统
Label1
Caption
学号:
Label2
Caption
姓名:
Label3
Caption
性别:
Label4
Caption
年龄:
Label5
Caption
系部:
Label6
Caption
请输入要查询的学号:
txtSno
Text
空
txtSname
Text
空
txtSsex
Text
空
txtSage
Text
空
txtSdept
text
空
txtFind
text
空
cmdFirst
Caption
第一条
cmdPrev
Caption
上一条
cmdNext
Caption
下一条
cmdLast
Caption
最末条
cmdAddNew
Caption
添加记录
cmdDelete
Caption
删除记录
cmdUpdate
Caption
更新记录
cmdFind
Caption
查找记录
adodc1
Caption
学生信息记录
Visible
false
MSHFlexGrid1
DataSource
adodc1
表1
6、设置ADO控件adodc1的数据库连接及属性
选择adodc1控件,在右键菜单中选择ADODC属性,出现数据库连接属性页,如图3-17和图3-18所示。
图3-17
图3-18
选择生成按钮,设置数据链接属性。
在提供程序中选择MicrosoftOLEDBProviderforSQLServer,然后选择下一步。
如图3-19所示。
图3-19
在连接属性页中输入服务器名称localhost,使用指定的用户名:
sa,密码:
空,然后在服务器上选择数据库test,如图3-20所示。
点击测试连接按钮。
如果出现测试连接成功对话框说明数据库连接成功。
如图3-21所示。
图3-20
图3-21
点击确定以后,在属性页的通用选项卡中出现连接数据库的字符串。
如图3-22所示。
图3-22
选择记录源选项卡,在命令类型中选择adCmdTable,在表或存储过程中选择student。
如图3-23。
图3-23
7、绑定数据控件
选择txtSno文本框控件,在右边的属性中设置DataSource属性为adodc1,DataField属性为sno。
如图17所示。
选择txtSname文本框控件,在右边的属性中设置DataSource属性为adodc1,DataField属性为sname。
参看图17所示。
选择txtSsex文本框控件,在右边的属性中设置DataSource属性为adodc1,DataField属性为ssex。
参看图17所示。
选择txtSage文本框控件,在右边的属性中设置DataSource属性为adodc1,DataField属性为sage。
参看图17所示。
选择txtSdept文本框控件,在右边的属性中设置DataSource属性为adodc1,DataField属性为sdept。
参看图3-24所示。
图3-24
8、编写第一条、上一条、下一条、最末条按钮的事件代码。
运行程序并测试功能。
'第一条按钮事件代码
PrivateSubcmdFirst_Click()
Adodc1.Recordset.MoveFirst
EndSub
'上一条按钮事件代码
PrivateSubcmdLast_Click()
Adodc1.Recordset.MoveLast
EndSub
'下一条按钮事件代码
PrivateSubcmdNext_Click()
Adodc1.Recordset.MoveNext
IfAdodc1.Recordset.EOFThen
Adodc1.Recordset.MoveLast
EndIf
EndSub
'最末条按钮事件代码
PrivateSubcmdPrev_Click()
Adodc1.Recordset.MovePrevious
IfAdodc1.Recordset.BOFThen
Adodc1.Recordset.MoveFirst
EndIf
EndSub
9、编写添加记录、删除记录、更新记录、查询记录按钮的事件代码。
运行程序并测试功能。
'添加记录按钮事件代码
PrivateSubcmdAddNew_Click()
IfcmdAddNew.Caption="添加记录"Then
cmdAddNew.Caption="保存记录"
Adodc1.Recordset.AddNew
txtSno.SetFocus
Else
cmdAddNew.Caption="添加记录"
Adodc1.Recordset.Update
Adodc1.Refresh
EndIf
EndSub
'删除记录按钮事件代码
PrivateSubcmdDelete_Click()
DimiAsInteger
i=MsgBox("真的要删除该记录吗?
",vbYesNo+vbExclamation,"提示")
Ifi=vbYesThen
Adodc1.Recordset.Delete
Adodc1.Refresh
MsgBox"删除学生记录成功!
",vbOKOnly,"提示"
EndIf
EndSub
'更新记录按钮事件代码
PrivateSubcmdUpdate_Click()
IfTrim(txtSno.Text)=""OrNotIsNumeric(txtSno.Text)Then
MsgBox"请输入正确的学号。
例如:
9512101",vbOKOnly+vbExclamation,"提示"
txtSno.SetFocus
ExitSub
EndIf
IfTrim(txtSname.Text="")Then
MsgBox"请输入学生的姓名。
",vbOKOnly+vbExclamation,"提示"
txtSname.SetFocus
ExitSub
EndIf
IfTrim(txtSsex.Text)<>"男"AndTrim(txtSsex.Text)<>"女"Then
MsgBox"请输入正确的学生性别。
",vbOKOnly+vbExclamation,"提示"
txtSsex.SetFocus
ExitSub
EndIf
IfVal(txtSage.Text)<15OrVal(txtSage.Text)>45Then
MsgBox"请输入学生的正确年龄。
范围在15岁和45岁之间。
",vbOKOnly+vbExclamation,"提示"
txtSage.SetFocus
ExitSub
EndIf
Adodc1.Recordset.Update
'添加完数据后应及时更新数据源adodc1,否则数据显示无法同步
Adodc1.Refresh
EndSub
'查找记录按钮事件代码
PrivateSubcmdFind_Click()
Adodc1.Recordset.Find"sno='"&txtFind.Text&"'"
IfAdodc1.Recordset.EOFOrAdodc1.Recordset.BOFThen
MsgBox"您查询的记录不存在。
",vbOKOnly+vbExclamation,"提示"
Adodc1.Refresh
EndIf
EndSub
10、自由发挥,完善代码,并测试功能。
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 数据库 应用技术