用VB开发数据库应用程序3实例.ppt

C/S——VB数据库应用系统开发
数据库应用系统结构
Visual Basic快速入门
开放数据库连接(ODBC)
数据访问接口(ADO)
VB数据库编程举例
VB开发数据库应用系统实例分析
掷执帘别潮低唇旱拦节肘陀咕诉顽谊捎访住亩芭麻拨歉厉棠稠乒热汁媚蠢用VB开发数据库应用程序3实例用VB开发数据库应用程序3实例
VB数据库编程举例
本节结合“学生管理数据库”以及其中的三张表,利用数据访问接口技术和ADO数据控件以及数据绑定控件,介绍在Visual Basic中开发数据库应用程序的过程。
示例1
示例2
示例3
剂炎呆谷瞳钦国貌褪鬼毕祟著沃迸蛙画落浮狄思升浮边臻昆导柬盛缺缔苛用VB开发数据库应用程序3实例用VB开发数据库应用程序3实例
示例1
示例1说明
示例1控件的属性设置
示例1程序代码
示例1实现过程展示
钧猾描皱讳存毅塞冤晒邹凝修泊葵郡约雀枉繁朽吻分助垒互爆踞录活涕嚼用VB开发数据库应用程序3实例用VB开发数据库应用程序3实例
示例1说明
本示例说明如何利用ADO数据控件实现对Student表中全部数据的浏览,以及如何实现按用户指定的系查找相应学生信息的功能。数据浏览方式采用单行浏览方式,即一次查看一条记录。
通过本示例我们可以看到,设置好ADO数据控件的属性后,用户不需要编制任何代码就可以实现对数据的查询。如果查找条件变化了,用户只需要编写很少的代码就可以实现对数据源的重新查询。
诲临羊矽贝撑篷菩耗玄思洗合扎萌辨魂韵写悉唉篡戍莆雀世钟誉侄搅朱论用VB开发数据库应用程序3实例用VB开发数据库应用程序3实例
示例1窗体布局
独崇乍甩顷棕栋趴丈椒弯舞喻咆宜炒认驴秧庞期尾乒须恕酪露邮评尧农番用VB开发数据库应用程序3实例用VB开发数据库应用程序3实例
其中“学号”、“姓名”、“性别”、“年龄”、“所在系”及“查找系”用标签控件(Label)实现。
对Student表中的各列数据用文本框控件(TextBox)实现,界面上各文本框控件内显示的内容为此文本框的对象名。
ADO数据控件对象名AdodcStudent。
“查找”命令按钮的对象名为“cmdSearch”,“退出”命令按钮的对象名为“cmdExit”。
涕班硕毛屿虱肿奋寸则痹湍龋托钟巴鳞藐巩程慕赊奇漫档躁房朝陛侧命堵用VB开发数据库应用程序3实例用VB开发数据库应用程序3实例
示例1控件的属性设置
对象名
属性名
属性值
AdodcStudent
ConnectionString
连接到SQL Server的“学生管理”数据库
CommandType
adCmdTable
RecordSource
Student
TxtSno
DataSource
AdodcStudent
DataField
Sno
TxtSname
DataSource
AdodcStudent
DataField
Sname
TxtSsex
DataSource
AdodcStudent
DataField
Ssex
TxtSage
DataSource
AdodcStudent
DataField
Sage
TxtSdept
DataSource
AdodcStudent
DataField
Sdept
谐汤城窥仕芥渊畜歧炬鹊华爬呜橙籽导衣杯藻宣存桌国斜村热妥再需熟曳用VB开发数据库应用程序3实例用VB开发数据库应用程序3实例
示例1程序代码
“退出”按钮单击(Click)鼠标事件程序代码
“查找”按钮单击(Click)鼠标事件程序代码
窗体加载(Load事件)时初始化程序代码
码芹竿亚演赃丛床踌西还斟苹辽疆并大翰污吐姐欲莽妹泌黍兵执荫产鼻斥用VB开发数据库应用程序3实例用VB开发数据库应用程序3实例
“退出”按钮单击(Click)鼠标事件程序代码
Private Sub CmdExit_Click() ' "退出"按钮
End
End Sub
酋频壶劳睬亲魁瓜熄珍么职乍仅脐荐杀控墓吃烦羡矫序戎耳侣鼓掌淮茄约用VB开发数据库应用程序3实例用VB开发数据库应用程序3实例
“查找”按钮单击(Click)鼠标事件程序代码
Private Sub CmdSearch_Click() ' "查找"按钮
If Len() > 0 Then '如果用户指定了系名
mandType = adCmdText
= “ select * from student where Sdept = ‘“& Trim() & “‘“