第8章数据控件

《第8章数据控件》由会员分享，可在线阅读，更多相关《第8章数据控件（123页珍藏版）》请在金锄头文库上搜索。

1、第第8章章数据控件与数据绑定控件的使用数据控件与数据绑定控件的使用且厚弘具枢啸谩闹萍九峦蹄部贡慨敏戌邱歼刽葫耶畔薪暇所毛番姓哮瞥谎第8章数据控件第8章数据控件18.1VB开发数据库概述开发数据库概述8.1.1VB数据库开发功能概述数据库开发功能概述VB是微软公司发布的应用程序开发工具，不但具有强大的程序设计能力，是微软公司发布的应用程序开发工具，不但具有强大的程序设计能力，还具有强大的数据库编程能力。还具有强大的数据库编程能力。1.VB6.0数据库编程的特征数据库编程的特征VB处理的数据库属于关系类型数据库，由不同层次的对象组成。一个数处理的数据库属于关系类型数据库，由不同层次的对象组成。一个

2、数据库由多个表组成，每个表包含若干字段。据库由多个表组成，每个表包含若干字段。支持支持ADO存取模式，即存取模式，即ActiveXDataObject支持支持OLEDB和和COM，即对象连接与嵌入数据库和组件对象模型。其中，即对象连接与嵌入数据库和组件对象模型。其中COM是一种标准，按此标准开发的软件模块可以是一种标准，按此标准开发的软件模块可以“插入插入”到系统中使用。到系统中使用。可以针对可以针对SQLServer和和Oracle等不同的数据库服务器开发完善的客户等不同的数据库服务器开发完善的客户/服务器应用程序。服务器应用程序。具有管理和显示数据源的数据控件和数据绑定控件。数据控件用于与

3、数具有管理和显示数据源的数据控件和数据绑定控件。数据控件用于与数据库连接，数据绑定控件用于显示数据表的记录。据库连接，数据绑定控件用于显示数据表的记录。提供报表设计工具，能够快速生成报表提供报表设计工具，能够快速生成报表提供了使用和配置连接的工具与命令，及进行提供了使用和配置连接的工具与命令，及进行ODBC开发的开发的API函数。函数。丹曳日缴倍搬逝琐侦距藻核祭测扎旁委饮谢娠育曝访之夜组读亚吻蘸密末第8章数据控件第8章数据控件22.VB作为数据库开发平台的优点作为数据库开发平台的优点（1）简单性简单性VB为每种数据访问模式提供了相应的控件，通过控件，可为每种数据访问模式提供了相应的控件，通过控

4、件，可以方便地连接数据库，只需编写少量的代码甚至不用编写代以方便地连接数据库，只需编写少量的代码甚至不用编写代码就可以访问和操作数据库。码就可以访问和操作数据库。（2）灵活性）灵活性VB不象一般数据库那样局限于特定的应用程序结构不象一般数据库那样局限于特定的应用程序结构,也不需也不需要用某些指令对打开的数据库进行操作。要用某些指令对打开的数据库进行操作。（3）可扩充性）可扩充性在在VB中可以用中可以用ActiveX控件，这些控件可以由微软公司提供，控件，这些控件可以由微软公司提供，也可以由第三方开发。有了也可以由第三方开发。有了ActiveX控件，可以在控件，可以在VB中增加中增加新功能。新功

5、能。送昭腻催兑削多葫亏堰咒咳继菲矫椒峦渝潦森独受碰供二又旭迭逞伐陪茧第8章数据控件第8章数据控件38.1.2VB6.0支持的数据库种类支持的数据库种类数据库编程语言一般都有自己特定格式的数据库。数据库编程语言一般都有自己特定格式的数据库。VB默认的数据库格式与默认的数据库格式与MicrosoftAccess格式相同格式相同.可以对其它多种格式的数据库进行操作和处理。可以对其它多种格式的数据库进行操作和处理。VB支持的数据库有以下三类：支持的数据库有以下三类：lVB本地数据库，与本地数据库，与MicrosoftAccess格式相同。格式相同。l外部数据库，如外部数据库，如dbase,Micros

6、oftFoxPro等。等。lODBC数据库，支持符合数据库，支持符合ODBC标准的客户标准的客户-服服务器数据库，如务器数据库，如:MicrosoftSQLServer，Oracle等。等。吩骡弦镍烩嫩茶仪俯孤瞄临仅树鹤鞘榜漫略价名猾揭跃砷咽蔓记瘩爵迂算第8章数据控件第8章数据控件48.1.3VB6.0支持的数据存取模式支持的数据存取模式VB6.0支持的数据库存取模式有以下三种：支持的数据库存取模式有以下三种：l数据存取对象数据存取对象(DataAccessObjects,简称简称DAO)l远程数据对象远程数据对象(RemoteDataObjects,简称简称RDO)lActiveX数据对象数

7、据对象(ActiveXDataObjects,简称简称ADO)1DAO简介简介DAO模式是模式是VB最早期的数据访问模式。最早期的数据访问模式。是以是以Microsoft的的Jet数据库引擎为核心而发展起来的一组动数据库引擎为核心而发展起来的一组动态链接库。它提供了两种类型来支持数据库：态链接库。它提供了两种类型来支持数据库：l通过通过Microsoft的的Jet数据库引擎来操作本地数据库。数据库引擎来操作本地数据库。l通过使用通过使用ODBCDirect，来存取，来存取ODBC数据库。数据库。使用使用ODBC存取方法，存取方法，DAO可以访问任何提供标准可以访问任何提供标准ODBC驱驱动程序

8、的客户动程序的客户/服务器数据库。服务器数据库。肠却简诌羡友每红卓晃童抓钮淤啡汪恢盎遭伴邪曙踌噪钦佑汲助吃使琢妹第8章数据控件第8章数据控件52RDO简介简介远程数据库是数据库应用中新兴的领域，随着远程数据库是数据库应用中新兴的领域，随着Internet的推广，网络数据库应用系统日益增加。的推广，网络数据库应用系统日益增加。对于网络应用程序来说，其数据访问端与数据库之对于网络应用程序来说，其数据访问端与数据库之间有比较远的距离，使用间有比较远的距离，使用DAO组件已不能满足远程组件已不能满足远程数据访问的要求，因此应使用远程数据对象数据访问的要求，因此应使用远程数据对象RDO来来访问数据库。访

9、问数据库。RDO直接与数据库服务器连接，所以它比较适合于直接与数据库服务器连接，所以它比较适合于客户机客户机/服务器方式。服务器方式。育棍键咏较首卯宙旦踪糯譬颧改辨纤嘶知讫密俗疙拍蛮区掉攫堰喇挤涡毁第8章数据控件第8章数据控件63ADO简介简介ADO是是最新的数据访问技术最新的数据访问技术，ADO提供了较为高提供了较为高级的访问级的访问OLEDB数据源的机制，它结合了数据源的机制，它结合了DAO和和RDO的优点，并提供了的优点，并提供了OLEDB数据源的入口。数据源的入口。OLEDB是一个低层的数据访问接口，它向应用程是一个低层的数据访问接口，它向应用程序提供了一个统一的数据访问方法，利用它可

10、以访序提供了一个统一的数据访问方法，利用它可以访问各种数据源，包括传统的关系型数据库、电子邮问各种数据源，包括传统的关系型数据库、电子邮件系统及自定义的商业对象。件系统及自定义的商业对象。檀哟夫动让助拌贫群烯弱仇良松矢冶假淳梅武吸箕芋蔬签认滩阻触昔锋妹第8章数据控件第8章数据控件78.1.4SQLServer数据库的数据库的DSN的配置的配置1开放式数据库互连（开放式数据库互连（ODBC）开放式数据库互连开放式数据库互连ODBC（OpenDatabaseConnectivity）的概念来源于对多个数据库数据存）的概念来源于对多个数据库数据存取的需求。取的需求。在早期的数据库编程中，由于不同的数

11、据库管理系在早期的数据库编程中，由于不同的数据库管理系统统(DBMS)，有自己的数据库格式和嵌入式的，有自己的数据库格式和嵌入式的SQL语语言，即使应用程序完成同样的功能，但只要言，即使应用程序完成同样的功能，但只要DBMS选取的不同，则编写的程序将完全不同。程序员为选取的不同，则编写的程序将完全不同。程序员为了能够访问不同的数据库而不得不学习多个了能够访问不同的数据库而不得不学习多个DBMS的内容。的内容。年是煞湍抹杰醛种桑炎让卢冉飞抿牛明毛构袄礁踪衣罚闯函遇铜加狭本虞第8章数据控件第8章数据控件8希望摆脱专用数据库本身的约束，对于不同的希望摆脱专用数据库本身的约束，对于不同的DBMS，采用

12、统一的编程界面，从而使数据库应用，采用统一的编程界面，从而使数据库应用程序在访问另外一种数据库格式时，不需要对源程程序在访问另外一种数据库格式时，不需要对源程序进行修改。序进行修改。ODBC开发的最初目标就是为开发的最初目标就是为Windows程序员提供一套访问数据库的程序员提供一套访问数据库的SQL函数调函数调用，而这些函数的调用采用相同的用户界面。用，而这些函数的调用采用相同的用户界面。ODBC用户可以用用户可以用ODBC的的SQL语句访问任何支持语句访问任何支持ODBC标准的数据库，从而使应用程序访问不同的标准的数据库，从而使应用程序访问不同的数据库的操作不依赖任何数据库的操作不依赖任何

13、DBMS，也为程序的跨平，也为程序的跨平台开发和移植提供了方便。台开发和移植提供了方便。沤点秋矫靶鼓款焊窗胶饶底访镶逻护玖痴竿凉音蹬嗣臀辉贵棕悲吨哦陛粤第8章数据控件第8章数据控件92DSN的配置的配置DSN的意思是应用程序用以请求一个连接到的意思是应用程序用以请求一个连接到ODBC数据源的连接数据源的连接(Connection)的名字，即它代表一个的名字，即它代表一个ODBC连接的名称，连接的名称，内含了数据库文件名、所在目内含了数据库文件名、所在目录、数据库驱动程序、用户录、数据库驱动程序、用户ID、密码等细节、密码等细节，使得，使得应用程序访问数据库时，只要给出事先注册的应用程序访问数据

14、库时，只要给出事先注册的DSN，而不必考虑以上细节问题，从而使程序中访问数，而不必考虑以上细节问题，从而使程序中访问数据库变得简单。据库变得简单。DSN可以分为以下三种可以分为以下三种:l系统系统DSN：可以被登录到系统中的所有用户使用：可以被登录到系统中的所有用户使用l用户用户DSN：只能被建立它的用户使用：只能被建立它的用户使用l文档文档DSN：把信息存储在后缀名为：把信息存储在后缀名为.dsn的文件的文件中，如果文件放在网络共享的驱动器中，就可以中，如果文件放在网络共享的驱动器中，就可以被所有安装了相同驱动程序的用户共享。被所有安装了相同驱动程序的用户共享。赋挨外陛艇冷圭禹冉丽寥插践哭沾

15、付阻废戒巫呢调妇匀输孺浮与到屉寄艘第8章数据控件第8章数据控件10DSN配置步骤如下：配置步骤如下：以前边建立的数据库以前边建立的数据库“成绩管理成绩管理”为例为例。（1）打开）打开ODBC数据源管理器数据源管理器ODBC数据源管理器用来管理本机上所有的数据源管理器用来管理本机上所有的ODBC数据源，如注册新的数据源名称，删除或修改数据数据源，如注册新的数据源名称，删除或修改数据源等。源等。单击单击开始开始设置设置控制面板控制面板，打开控制面板窗打开控制面板窗口；口；在其中双击在其中双击管理工具管理工具图标，打开管理工具窗口；图标，打开管理工具窗口；双击双击数据源数据源ODBC图标，即可打开图

16、标，即可打开ODBC数据源数据源管理器如图管理器如图8-2。图图8-2ODBC数据源管理器数据源管理器驯蜕破迈硼狂画摹胞椎峭包耘兢做寒于菠葡液广纺趣摹箱瘟刻漳堕牟采宰第8章数据控件第8章数据控件11（2）选择数据源类型并添加数据源）选择数据源类型并添加数据源在在ODBC数据源管理器数据源管理器中，单击中，单击系统系统DSN选项卡，选项卡，再单击再单击添加添加按钮，将出现按钮，将出现创建新数据源创建新数据源对话框对话框如图如图8-3。图图8-3创建新数据源对话框创建新数据源对话框欠粥餐烈淬罪卉津恿汉拂蜕殊译诌疙汹夏诧湛环贯忙吃赁笺份窟糜澳容剖第8章数据控件第8章数据控件12（3）选择驱动程序）选

17、择驱动程序在图在图8-3所示的驱动器列表中，选择所示的驱动器列表中，选择“SQLServer”并单击并单击完成完成按钮，打开向导窗口如图按钮，打开向导窗口如图8-4。图图8-4设置数据源名称及服务器设置数据源名称及服务器冒赤腰膝励柞甩遮强揪狙砂腑右阎剔岁肪秩趟腋桓适浊桥位焊除坯裸彻葛第8章数据控件第8章数据控件13（4）设置数据源）设置数据源在数据源在数据源名称名称框中输入一个数据源名称（如框中输入一个数据源名称（如cjgl），），说明说明框中可不输入，然后在框中可不输入，然后在服务器服务器列列表框中选择需要连接的表框中选择需要连接的SQLServer服务器。服务器。（5）设置身份验证方式）设

18、置身份验证方式单击单击下一步下一步按钮，打开对话框如图按钮，打开对话框如图9-5所示。在该所示。在该对话框中，可以设置身份验证方式。若选择对话框中，可以设置身份验证方式。若选择使用使用用户输入登录用户输入登录ID和密码的和密码的SQLServer验证验证，需要，需要输入登录输入登录ID和密码，和密码，sa是是SQLServer2000的系统的系统管理员帐号。管理员帐号。图图8-5设置身份验证方式设置身份验证方式咐货臆杀撒芦概拈凳帐仙旧檀夕帧矩彼笨定汽拓拭宵委类妻疥标逐忿易纲第8章数据控件第8章数据控件14（6）设置默认的数据库）设置默认的数据库单击单击下一步下一步按钮，打开设置数据库选项对话框

19、，按钮，打开设置数据库选项对话框，如图如图8-6所示。系统默认的数据库为所示。系统默认的数据库为master，在，在更更改默认的数据库为改默认的数据库为下拉列表框中，选择下拉列表框中，选择“成绩管成绩管理理”，即将默认数据库设置为所需要的数据库。，即将默认数据库设置为所需要的数据库。图图8-6设置数据库连接设置数据库连接八尸扣捧售销免湾藏鲤癣怯旁惯蒲豺蘸墓抨剑蝴讨准纶去奉近箕椰秋框景第8章数据控件第8章数据控件15（7）设置其它属性）设置其它属性单击单击下一步下一步按钮，打开设置其它属性的窗口，如按钮，打开设置其它属性的窗口，如图图8-7所示。在此可以设置用于所示。在此可以设置用于SQLSer

20、ver消息的消息的语言、数据加密、字符数据转换等等。语言、数据加密、字符数据转换等等。图图9-7设置其它属性设置其它属性器暗肺泛号求虎贫驰蚕礁披仔科废善戎唉桓镰阴弃壳笋坡舞旭薪骏罐畴酬第8章数据控件第8章数据控件16（8）单击）单击完成完成按钮，将打开数据源的汇总信息按钮，将打开数据源的汇总信息窗口，如图窗口，如图8-8所示。在此窗口中综合显示了数据所示。在此窗口中综合显示了数据源的各项设置，从而决定是否创建数据库。源的各项设置，从而决定是否创建数据库。图图8-8数据源汇总信息显示数据源汇总信息显示乞宠静颧欲顺微慑论苫裸焊栏揪遇窗咖绪誉卸参蚊仇谤柑付狰娥阮惊屑符第8章数据控件第8章数据控件17

21、（9）单击）单击测试数据源测试数据源按钮，可以检查数据源配按钮，可以检查数据源配置是否成功。若配置成功，将显示图置是否成功。若配置成功，将显示图8-9所示的对所示的对话框。话框。图图8-9测试数据源结果显示测试数据源结果显示矣锈镐阉讶耕挣墩谷慈挑杆喳姬摄篱检脑笨臀社恳滩凿孰移疯蝴济隙黎鞋第8章数据控件第8章数据控件188.2数据库访问控件的应用数据库访问控件的应用在在VB中，开发数据库应用程序有两种方式：一种中，开发数据库应用程序有两种方式：一种是利用是利用VB提供的数据库访问控件，另一种是编写提供的数据库访问控件，另一种是编写程序代码。程序代码。VB6.0提供了支持提供了支持DAO、RDO、

22、ADO的特殊控件，的特殊控件，以便访问和操作数据库。以便访问和操作数据库。lData控件可以创建控件可以创建DAO对象，对象，lRemoteData控件可以创建控件可以创建RDO对象对象,lADOData控件可以创建控件可以创建ADO对象对象利用这些控件可以方便地连接到数据库并操作数据利用这些控件可以方便地连接到数据库并操作数据库，但这些控件并不能显示数据，必须借助数据绑库，但这些控件并不能显示数据，必须借助数据绑定控件（如文本框等）显示、修改数据。使用数据定控件（如文本框等）显示、修改数据。使用数据库访问控件，可以库访问控件，可以简化开发过程，减少代码编写量，简化开发过程，减少代码编写量，从

23、而提高工作效率从而提高工作效率。捅哄孜诊拂墒套侵延佯腕晴弯矢瓣宝验复迭姚厉囚概穷逻性侄彬茄坠厌衅第8章数据控件第8章数据控件19ADOData控件与控件与Data控件、控件、RemoteData控件相比，控件相比，ADOData控件的功能更为强大，使用更为方便。控件的功能更为强大，使用更为方便。因此本章主要介绍支持因此本章主要介绍支持ADO的数据控件的数据控件ADOData，及与其绑定的数据绑定控件的主要功能及其应用。，及与其绑定的数据绑定控件的主要功能及其应用。幼萨久榴岁另汇怕达下治促屠绍渍稿幢佰梧莲果冶隙企周丁蕴僚芒筏碗药第8章数据控件第8章数据控件208.2.1ADOData控件及数据绑

24、定控件控件及数据绑定控件ADOData控件可以说是连接数据库和数据绑定控控件可以说是连接数据库和数据绑定控件的桥梁。件的桥梁。通过设置通过设置ADOData控件的属性，可以让它和已存控件的属性，可以让它和已存在的数据库联系起来并能指定访问数据库中的某个在的数据库联系起来并能指定访问数据库中的某个表，并通过数据绑定控件表，并通过数据绑定控件(如文本框如文本框,复选框等控件复选框等控件)，显示数据库中的数据。，显示数据库中的数据。数据绑定控件用来显示数据表中的数据。需将控件数据绑定控件用来显示数据表中的数据。需将控件绑定到绑定到ADOData控件上的某字段上，就可显示和控件上的某字段上，就可显示和

25、修改该字段的数据。修改该字段的数据。柒态眺撬窟础萨舷午事链休挖佃们旧酬泉潘伐层雀绞险糕糊笛拭应咯晤贮第8章数据控件第8章数据控件21文本框文本框(Text):显示或输入数据显示或输入数据标签标签(Label):显示数据显示数据复选框复选框(Check):显示逻辑类型字段显示逻辑类型字段,True(Yes)/False(No)列表框列表框(List),组合框组合框(Combo):显示数据列表显示数据列表,图像框图像框(Image),图片框图片框(Picture):显示图片显示图片,要求要求字段为二进制类型字段为二进制类型.OLE容器控件容器控件:显示显示OLE类型字段的数据类型字段的数据其它其它

26、ActiveX控件控件.可以与可以与ADOData控件一起使用的数据绑定控控件一起使用的数据绑定控件有件有:会燥尖挚芹间侵唤沿抨杜甲锤柑博憾洼辙霹寡往佬根暇围贡徊婿靠抬眯刮第8章数据控件第8章数据控件22大多数数据绑定控件都有以下这三种属性：大多数数据绑定控件都有以下这三种属性：（1）DataSource：数据源属性。指定需要绑定到：数据源属性。指定需要绑定到的的ADOData控件的名称。控件的名称。（2）DataField：用来指定绑定到哪个字段上。：用来指定绑定到哪个字段上。（3）DataChange：用来指出显示在绑定控件里的：用来指出显示在绑定控件里的数据是否已经被改变，如果改变，值为

27、数据是否已经被改变，如果改变，值为True，否则，否则值为值为False。涧柞容硝荆泊诅颈卖獭雪衷肖怀赴岸索董诛爽涣懈第兆衷荣戏筛瓷地咀顺第8章数据控件第8章数据控件238.2.2用用ADOData控件建立数据库应用程序控件建立数据库应用程序下面通过一个简单的例子，介绍用下面通过一个简单的例子，介绍用ADOData控件建立数控件建立数据浏览窗体的基本步骤。据浏览窗体的基本步骤。(1)新建一个标准的新建一个标准的VB工程，将工程，将ADOData控件添加到工控件添加到工具箱中具箱中执行菜单执行菜单工程工程部件部件，打开，打开“部件部件”对话框，对话框，在在“控件控件”列表框中选中列表框中选中“M

28、icrosoftADODataControl6.0(OLEDB)”项，将项，将ADOData控件添加到工具箱中。控件添加到工具箱中。(2)将将ADOData控件添加到窗体上控件添加到窗体上在窗体上，在窗体上，ADOData控件的外观如图控件的外观如图8-10所示，默认控件所示，默认控件名称为名称为Adodc1,可以单击其上的箭头按钮在记录之间移动。可以单击其上的箭头按钮在记录之间移动。图图8-10ADOData控件的外观控件的外观帮摩啥杠纷滔恒莱粹灌迫浪击耙双武受菇丑皱禁赖暖着傍眠健勺困箱羔诈第8章数据控件第8章数据控件24(3)设置设置ADOData控件的数据源连接属性控件的数据源连接属性操

29、作步骤如下：操作步骤如下：在在Adodc1控件的属性窗口中，选择控件的属性窗口中，选择(自定义自定义)属性右属性右边的边的按钮，打开按钮，打开属性页属性页对话框，或鼠标右击对话框，或鼠标右击Adodc1控件，在弹出的快捷菜单中选择控件，在弹出的快捷菜单中选择属性属性命令，命令，打开打开属性页属性页对话框如图对话框如图8-11所示。所示。在在通用通用选项卡中选择选项卡中选择“使用使用ODBC数据资源名称数据资源名称”，并在下拉列表中选择前边建立的，并在下拉列表中选择前边建立的ODBC数据源数据源名名“cjgl”。图图8-11ADOData控件的控件的属性页属性页对话框对话框玄休卢炊脱截按袁遮拈醛

30、窟稗樱捶能本酪嚼蒸压枕胜拼遁腺侗洛券身龚聪第8章数据控件第8章数据控件25单击单击身份验证身份验证选项卡（如图选项卡（如图8-12），输入用户名（例如），输入用户名（例如sa）和密码（例如和密码（例如sa）。）。单击单击记录源记录源选项卡（如图选项卡（如图8-13），在该选项卡中，可以设置），在该选项卡中，可以设置ADOData控件的返回记录的记录源。控件的返回记录的记录源。记录源是从命令对象获取的，可以在记录源是从命令对象获取的，可以在命令类型命令类型下拉列表中选下拉列表中选择用于记录源的命令类型。各种命令类型的含义如表所示。择用于记录源的命令类型。各种命令类型的含义如表所示。命令命令类型型

31、含含义8-adCmdUnknow未知未知类型，用型，用户需在需在命令文本命令文本(SQL)框中框中输入入SQL语句建立命令句建立命令对象象1-adCmdText文本文本类型，用型，用户需在需在命令文本命令文本(SQL)框中框中输入入SQL语句建立命令句建立命令对象象2-adCmdTable表表类型，用型，用户需在需在表或存表或存储过程名称程名称下拉列表中下拉列表中选择一个数据表来建立命令一个数据表来建立命令对象象（相当于（相当于输入：入：Select*FromTable）4-adCmdStoredProc存存储过程，用程，用户需在需在表或存表或存储过程名称程名称下拉列表中下拉列表中选择一个一个

32、查询的名称来建立命令的名称来建立命令对象象颁其吓腺僳彰吨胞翅铀瞒埋燕圆态淑凳轩吗黎冶栽躬匹掂逃愤暴恒椰纶诱第8章数据控件第8章数据控件26图图8-12身份验证的设置身份验证的设置图图8-13记录源的设置记录源的设置植逛围酶猾腔昨涉打玻垃铺冷髓缀桓幻扦茵沪诽酣叉沉超摆乞叼砷激挎骸第8章数据控件第8章数据控件27例如要访问学生信息表，选择命令类型为例如要访问学生信息表，选择命令类型为:l2-adCmdTable然后在然后在表或存储过程名称表或存储过程名称下拉列表框中选择下拉列表框中选择“学学生信息表生信息表”（如图（如图8-13所示）。设置完成后，单击所示）。设置完成后，单击确定确定按钮。按钮。也

33、可以选择命令类型为也可以选择命令类型为1-adCmdText，然后在，然后在命命令文本令文本(SQL)框中输入如下框中输入如下SQL语句：语句：lSelect*From学生信息表学生信息表设置完成后，单击设置完成后，单击确定确定按钮。按钮。蚜佰阶雍渠淫彝窟攘笋会饲告廓鸥耸犯哄屯跋规敝按职枯坤踩彤守雷逢涂第8章数据控件第8章数据控件28(4)向窗体中添加其他数据绑定控件，并绑定到向窗体中添加其他数据绑定控件，并绑定到Adodc1上上在窗体在窗体Form1上，添加上，添加5个文本框用于显示字段中个文本框用于显示字段中的数据，的数据，5个标签用于说明对应的字段名（见图个标签用于说明对应的字段名（见图

34、8-14）。）。图图8-14数据浏览窗体设计界面数据浏览窗体设计界面记哇高寨奖扔尸俊胃挑衍块奴帛采纪般嘿侣浙坦挑胁靡菲续拆绵丙唱情初第8章数据控件第8章数据控件29将控件将控件(如如Text)绑定到绑定到Adodc1上的方法如下：上的方法如下：l设置绑定控件的设置绑定控件的DataSource属性为数据控件名属性为数据控件名:lAdodc1l设置绑定控件的设置绑定控件的DataField属性为要显示的字段属性为要显示的字段名名l各个文本框的属性设置如表各个文本框的属性设置如表8-2所示所示.l考虑到浏览数据的窗体，不应允许修改数据，所考虑到浏览数据的窗体，不应允许修改数据，所以将文本框的以将文

35、本框的Locked属性设为属性设为True，使之只能，使之只能显示数据而不能修改或输入数据。显示数据而不能修改或输入数据。噎霹与湃饥吨障掷扔诌扰蜡钢菩猴殆鹅贬试势遗丧索驮拌忙腥惶棠徒袱短第8章数据控件第8章数据控件30当所有文本框都通过表当所有文本框都通过表8-2所示的属性设置后，即完成了绑定所示的属性设置后，即完成了绑定到到Adodc1所连接的数据源。这时可运行程序，结果如图所连接的数据源。这时可运行程序，结果如图9-15所所示，可见文本框中显示了学生信息表的第一条记录信息，若单示，可见文本框中显示了学生信息表的第一条记录信息，若单击击Adodc1上的按钮，可显示其他记录上的按钮，可显示其他

36、记录。控件名控件名属性名属性名属性属性值控件名控件名属性名属性名属性属性值Text1DataSourceAdodc1Text3DataSourceAdodc1DataField学号学号DataField性性别LockedTrueLockedTrueText2DataSourceAdodc1Text4DataSourceAdodc1DataField姓名姓名DataField生日生日LockedTrueLockedTrueText2DataSourceAdodc1Text2LockedTrueDataField专业图图8-15数据浏览窗体运行界面数据浏览窗体运行界面远拉潞帅诱蟹蚊媒眩眯渐电胖趾辛

37、讽汞邓内冲踩豆趣寺陨鲁呸瘩侈囚记涸第8章数据控件第8章数据控件318.2.3ADOData控件的常用属性及方法控件的常用属性及方法1.ADOData控件的常用属性介绍如下控件的常用属性介绍如下：Name：名称。默认名称：名称。默认名称：Adodc1,Adodc2等。等。Caption：设置显示在控件上的标题。设置显示在控件上的标题。ConnectionString：设置到数据源的连接信息。：设置到数据源的连接信息。CommandType：设置返回记录集的类型。：设置返回记录集的类型。CommandType的值用于指明的值用于指明RecordSource的的类型。类型。CommandType的取

38、的取值及含义如下：值及含义如下：1-adCmdText：文本类型，可在：文本类型，可在命令文本框命令文本框中输入中输入SQL语语句。表示返回的记录集是执行句。表示返回的记录集是执行SQL语句的结果。语句的结果。2-adCmdTable：表类型。可在：表类型。可在表或存储过程名表或存储过程名框中选择框中选择一个表名称一个表名称(相当于选择表的所有字段相当于选择表的所有字段)。表示返回的记录集。表示返回的记录集类型是一个数据表。类型是一个数据表。4-adCmdStoredProc：存储过程类型。：存储过程类型。傀摆梗系臻柳域滴亿九育鹤被掘俺擂钝亿暴大晒宏覆侄墨般彬势蜕弃树风第8章数据控件第8章数据

39、控件32ReocordSurce：记录源。返回或设置：记录源。返回或设置Recordset的生的生成方式。可以是成方式。可以是SQL语句，表名，查询名等。语句，表名，查询名等。Recordset：记录集对象。：记录集对象。2.ADOData控件的控件的Refresh方法方法功能：重新读数据库，刷新记录集。功能：重新读数据库，刷新记录集。使用格式：使用格式：Adodc1.RefreshRefresh方法可用于方法可用于ADOData控件的数据源连接发控件的数据源连接发生变化时，使生变化时，使ADOData控件重新连接数据库。控件重新连接数据库。也可在执行也可在执行AddNew方法后，新数据尚未写

40、入数据方法后，新数据尚未写入数据库时，调用库时，调用Refresh方法，清除用户所做的添加和修方法，清除用户所做的添加和修改。改。鹃喂仔玛梦哇拖抉棘决躲冉滞淤谋镐残朗楞裹识刚触硕炽捎萍禽锻家署壕第8章数据控件第8章数据控件338.2.4RecordSet对象的常用属性及方法对象的常用属性及方法1.RecordSet对象的常用属性对象的常用属性ADOData控件将数据库中的指定数据提取出来，并放在一控件将数据库中的指定数据提取出来，并放在一个记录集中，个记录集中，RecordSet即记录集对象，指当前数据库中的即记录集对象，指当前数据库中的一系列记录。其主要属性如下：一系列记录。其主要属性如下：

41、(1)EOF和和BOF属性属性这两个属性是反映记录指针是否到记录头和记录尾的标志。这两个属性是反映记录指针是否到记录头和记录尾的标志。如果记录指针位于第一条记录之前，则如果记录指针位于第一条记录之前，则BOF=True否则否则BOF=False。如果记录指针位于最后一条记录之后，则。如果记录指针位于最后一条记录之后，则EOF=True否则否则EOF=False。EOF和和BOF属性具有以下特点：属性具有以下特点：l如果记录集是空的，则如果记录集是空的，则EOF和和BOF的值都是的值都是Truel如果如果EOF和和BOF的值成为的值成为True之后，只有当记录指针移之后，只有当记录指针移到实际存

42、在的记录上，二者的值才会变为到实际存在的记录上，二者的值才会变为False。海频馋临幽郭忙扶陷蓬培堕贞基楞检嘱华盟栋亥杀避丢黄汀际县译患刃烦第8章数据控件第8章数据控件34(2)RecordCount属性属性反映记录集中的记录总数。反映记录集中的记录总数。例如要在例如要在Adodc1控件上显示控件上显示记录总数，可用如下语句：记录总数，可用如下语句：Adodc1.Caption=Adodc1.Recordset.RecordCount(3)AbsolutePosition属性属性反映当前记录的位置。若当前显示的是第一条记录，则反映当前记录的位置。若当前显示的是第一条记录，则AbsolutePo

43、sition=1例如要在例如要在Adodc1控件上显示当前记录的位置，可用如下语控件上显示当前记录的位置，可用如下语句：句：lAdodc1.Caption=Adodc1.Recordset.AbsolutePosition例如要在例如要在Adodc1控件上显示当前记录的位置及记录总数，控件上显示当前记录的位置及记录总数，可用如下语句：可用如下语句：Adodc1.Caption=Adodc1.Recordset.AbsolutePosition&/&Adodc1.Recordset.RecordCount彩肿唯览寐莆饼碳炔省挚糜粹广扼喷沂促首酱啄柠咏企猖噬也规稚篓雁囤第8章数据控件第8章数据控件

44、352.RecordSet对象的常用方法对象的常用方法（1）Move方法方法利用利用ADOData控件，通过编程的方法进行数据库控件，通过编程的方法进行数据库浏览时，需要用到浏览时，需要用到ADOData控件的控件的RecordSet对象对象的的Move方法在记录集之间移动记录指针。主要有方法在记录集之间移动记录指针。主要有以下几种方法：以下几种方法：MoveNext方法方法:记录指针移到下一条记录记录指针移到下一条记录MovePrevious方法方法:记录指针移到上一条记录记录指针移到上一条记录MoveFirst方法方法:记录指针移到第一条记录记录指针移到第一条记录MoveLast方法方法:

45、记录指针移到最后一条记录记录指针移到最后一条记录Moven方法方法:使记录指针前移或后移使记录指针前移或后移n条记录。条记录。n为正数为正数,表示向后移动；表示向后移动；n为负数为负数,表示向前移动表示向前移动.许韶椰丧沂爸醒薯德杀斧舆概啥锤净滚锭墅谤聚魄哆丈陷障猖泪渣就缕遮第8章数据控件第8章数据控件36例例8-2设计数据浏览窗体，利用设计数据浏览窗体，利用Move方法实现数据方法实现数据库的浏览。库的浏览。在例在例8-1的基础上，添加按钮如图的基础上，添加按钮如图8-16，运行时不显，运行时不显示示Adodc1(设其设其Visible属性为属性为False)，通过按钮实现，通过按钮实现记录

46、指针的移动。记录指针的移动。图图8-16例例8-2运行界面运行界面虫锦矩当解胸盼谜碌绿简付奶碘窃命他缴激膊蔫赌讽凳庙肮仗坏奴旷潦请第8章数据控件第8章数据控件37设置新增控件的属性如表。设置新增控件的属性如表。控件名控件名属性名属性名属性属性值作用作用CmdFirstCaption首首记录将将记录指指针移到第移到第1条条记录CmdPreCaption前移前移记录指指针向前移向前移动一条一条记录CmdNextCaption后移后移记录指指针向后移向后移动一条一条记录CmdLastCaption末末记录将将记录指指针移到末条移到末条记录CmdNCaption移移动记录数数一次移一次移动n条条记录T

47、ext6Text空空输入要移入要移动的的记录数量数量Label6caption空空显示当前示当前记录数及数及记录总数数革幼顶骨倒终田扁笺搁牡倍诗源时挺睹睹灾簧勤脆逆拟斥清鬼湖线预叮嘻第8章数据控件第8章数据控件38编程如下编程如下:PrivateSubForm_Load()设置按钮的初始状态设置按钮的初始状态CmdFirst.Enabled=False首记录首记录按钮无效按钮无效CmdPre.Enabled=False前移前移按钮无效按钮无效CmdNext.Enabled=True后移后移按钮有效按钮有效CmdLast.Enabled=True末记录末记录按钮有效按钮有效Label6.Capt

48、ion=记录：记录：&Adodc1.Recordset.AbsolutePosition&/&Adodc1.Recordset.RecordCountEndSub孽坷枢午狸扶绰网瘸蝶洽蚜嘲聘矢辉爷顿桨鼻燥妓让邮正龙噪鞠播寡囱潮第8章数据控件第8章数据控件39PrivateSubCmdFirst_Click()Adodc1.Recordset.MoveFirst记录指针移到首记录（显示记录指针移到首记录（显示首记录）首记录）CmdFirst.Enabled=False让让首记录首记录按钮无效按钮无效CmdPre.Enabled=False让让前移前移按钮无效按钮无效CmdNext.Enabled

49、=True让让后移后移按钮有效按钮有效CmdLast.Enabled=True让让末记录末记录按钮有效按钮有效在在Label6上显示当前记录号上显示当前记录号/记录总数：记录总数：Label6.Caption=记录：记录：&Adodc1.Recordset.AbsolutePosition&/&Adodc1.Recordset.RecordCountEndSub霓产翻鞘朵遍棠玩含监欣搔线沤昭记铜整践鬼傀喜呜厢夹过盖景剥兑然霓第8章数据控件第8章数据控件40PrivateSubCmdPre_Click()Adodc1.Recordset.MovePrevious记录指针移到前一条记录记录指针移到

50、前一条记录CmdNext.Enabled=TrueCmdLast.Enabled=TrueIfAdodc1.Recordset.BOFThen如果记录指针移到首记录之前如果记录指针移到首记录之前,Adodc1.Recordset.MoveFirst则记录指针移到首记录上则记录指针移到首记录上CmdFirst.Enabled=FalseCmdPre.Enabled=FalseEndIfLabel6.Caption=记录：记录：&Adodc1.Recordset.AbsolutePosition&/&Adodc1.Recordset.RecordCountEndSub儡白凌量倚活铺怀绎灼嚎噶详志箱

51、脯矛苇频赫橱粹匆仍它疏花开拎限蝎暖第8章数据控件第8章数据控件41PrivateSubCmdNext_Click()Adodc1.Recordset.MoveNext记录指针移到下一条记录记录指针移到下一条记录CmdFirst.Enabled=TrueCmdPre.Enabled=TrueIfAdodc1.Recordset.EOFThen如果记录指针移到了末记录之后如果记录指针移到了末记录之后Adodc1.Recordset.MoveLast则记录指针移到末记录上则记录指针移到末记录上CmdNext.Enabled=FalseCmdLast.Enabled=FalseEndIfLabel6.

52、Caption=记录：记录：&Adodc1.Recordset.AbsolutePosition&/&Adodc1.Recordset.RecordCountEndSub话缴吮绒巧铰感父肚褥菜亚瓦挑蕾忘菌利繁乙健否停喻略闷面答进摔洛裹第8章数据控件第8章数据控件42PrivateSubCmdLast_Click()Adodc1.Recordset.MoveLast移到末记录移到末记录CmdFirst.Enabled=TrueCmdPre.Enabled=TrueCmdNext.Enabled=FalseCmdLast.Enabled=FalseLabel6.Caption=记录：记录：&Ado

53、dc1.Recordset.AbsolutePosition&/&Adodc1.Recordset.RecordCountEndSub四赘彻昌篇楼狐虽详硫戳密抑晒庙槽未读臂谐孟涯互坡狐横荒依勇烙呻面第8章数据控件第8章数据控件43PrivateSubCmdN_Click()DimnAsIntegern=Text6.TextAdodc1.Recordset.MovenLabel6.Caption=记录：记录：&Adodc1.Recordset.AbsolutePosition&/&Adodc1.Recordset.RecordCountEndSub憋户锌睡侄聚莫届赘耙泼寂斤锣富沏蔼绞涡砒猾挺胺央

54、摆琶宵丰孽厅摇锗第8章数据控件第8章数据控件44（2）AddNew方法方法功能：用于向数据表中增加空记录。功能：用于向数据表中增加空记录。（3）Uptate方法方法功能：用来把添加的新记录或修改的记录保存到数功能：用来把添加的新记录或修改的记录保存到数据表中，该方法只能在据表中，该方法只能在AddNew方法被执行之后才方法被执行之后才能执行。能执行。兽绕析蔽台故晒揩斑授统裕暂振现不乏柯壬蔼痞摄玩惫炮壮娇胀拓矛妆水第8章数据控件第8章数据控件45增加记录的操作可分为以下增加记录的操作可分为以下3步：步：l调用调用RecordSet对象的对象的AddNew方法，增加一个方法，增加一个空记录，语句格

55、式如下：空记录，语句格式如下：lAdodc1.RecordSet.AddNewl在数据绑定控件中输入记录值，或用代码给字段在数据绑定控件中输入记录值，或用代码给字段赋值，格式如下：赋值，格式如下：lAdodc1.RecordSet.Fields(“字段名字段名”)=值值l调用调用Update方法，将输入的新记录值保存到数方法，将输入的新记录值保存到数据表中，语句格式如下：据表中，语句格式如下：lAdodc1.RecordSet.Update（4）Delete方法方法l功能：删除当前记录。功能：删除当前记录。l使用格式：使用格式：Adodc1.RecordSet.Delete苞鹤遥弥芍贬糯槐冗奖

56、丘震调龋蒸茨拘岁绿啃雌畦环找季木已瓢叭满捞设第8章数据控件第8章数据控件46例例8-3设计数据编辑窗体。设计数据编辑窗体。该窗体具有新增记录、删除记录、修改记录、取消该窗体具有新增记录、删除记录、修改记录、取消修改等功能。当新增记录或修改记录时，只要没有修改等功能。当新增记录或修改记录时，只要没有单击单击确定确定按钮，单击按钮，单击取消取消按钮，可以取消上述按钮，可以取消上述操作。操作。在例在例8-2的基础上，增加以下功能按钮：的基础上，增加以下功能按钮：添加添加(CmdAdd)：执行记录集的：执行记录集的AddNew方法方法删除删除(CmdDel)：执行记录集的：执行记录集的Delete方法

57、方法确定确定(CmdOk)：执行记录集的：执行记录集的Update方法方法取消取消(CmdEsc)：执行数据控件的：执行数据控件的Refresh方法方法图图8-17例例9-3运行界面运行界面拎讥男水侯渤徊企专疼眷酿盅夕笆侈戊稼贼办饶堡侣宇抑挚廷寇锻场洼碉第8章数据控件第8章数据控件47编写代码编写代码PrivateSubForm_Load()CmdFirst.Enabled=False首记录首记录按钮无效按钮无效CmdPre.Enabled=False前移前移按钮无效按钮无效CmdNext.Enabled=True后移后移按钮有效按钮有效CmdLast.Enabled=True末记录末记录按钮

58、有效按钮有效CmdAdd.Enabled=True添加添加按钮有效按钮有效CmdDel.Enabled=True删除删除按钮有效按钮有效CmdOk.Enabled=False确定确定按钮无效按钮无效CmdEsc.Enabled=False取消取消按钮无效按钮无效Label6.Caption=记录：记录：&Adodc1.Recordset.AbsolutePosition&/&Adodc1.Recordset.RecordCountEndSub颓廖寅知橱剥挝控生飞瞄早类率晓颤勾沪张瞩闰诡芭亦诚鹃零钧泥膊醚哗第8章数据控件第8章数据控件48PrivateSubCmdAdd_Click()添加添加按

59、钮的单击事件按钮的单击事件Adodc1.Recordset.AddNewCmdAdd.Enabled=FalseCmdDel.Enabled=FalseCmdOk.Enabled=TrueCmdEsc.Enabled=TrueEndSubPrivateSubCmdOk_Click()单击单击确认确认按钮按钮Adodc1.Recordset.UpdateCmdAdd.Enabled=TrueCmdDel.Enabled=TrueCmdOk.Enabled=FalseCmdEsc.Enabled=FalseEndSub遥握房矢凹汹浓停嘘窘山庞依聘奸廓飘座删瞄熏委渔寥栅夸二略玫损吻斩第8章数据控件第

60、8章数据控件49PrivateSubCmdDel_Click()单击单击删除删除按钮按钮x=MsgBox(确实要删除当前记录吗？确实要删除当前记录吗？,vbYesNo+vbQuestion,确认确认)Ifx=vbYesThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveLastEndIfElseAdodc1.RefreshEndIfEndSub愉迸存肯回滦拍涩原蓟库罩巳萌容浊酚喊摔汲审乐批矮谱哲齿殉贤锑裹虞第8章数据控件第8章数据控件50Privat

61、eSubCmdEsc_Click()取消按钮取消按钮Adodc1.RefreshCmdAdd.Enabled=TrueCmdDel.Enabled=TrueCmdOk.Enabled=FalseCmdEsc.Enabled=FalseEndSub扦件次荔蝎裳好变滥遥搪皆帅慷架粥祖淄桑专顶旋袄杖窿或瘩远碎互巢票第8章数据控件第8章数据控件518.3数据绑定控件的应用数据绑定控件的应用8.3.1数据绑定控件的概念数据绑定控件的概念数据绑定控件是数据显示控件，只要将数据绑定控件绑定到数据绑定控件是数据显示控件，只要将数据绑定控件绑定到ADOData控件的控件的Recordset对象中的某个字段上，就

62、可以显对象中的某个字段上，就可以显示当前记录的该字段的值，并且可以接受用户对数据的修改。示当前记录的该字段的值，并且可以接受用户对数据的修改。使用绑定控件的方法和步骤为：使用绑定控件的方法和步骤为：l将绑定控件添加到窗体上，并调整大小和布局。将绑定控件添加到窗体上，并调整大小和布局。l设置控件的一般属性。设置控件的一般属性。l设置控件的设置控件的DataSource属性，即绑定到属性，即绑定到ADOData控件。控件。l设置控件的设置控件的DataField属性，即绑定到属性，即绑定到ADOData控件的控件的记录集对象记录集对象(Recordset)的某个字段上。的某个字段上。注意：数据绑定

63、控件的注意：数据绑定控件的DataSource属性在运行时是不可属性在运行时是不可改改的，的，所以不能在运行程序时通过代码设置该属性。所以不能在运行程序时通过代码设置该属性。尔奈恳趁块疫帕琶迭峡京飘溢畜旺作密绚惺宾增寐追肆给袁慷效滥绍痛缮第8章数据控件第8章数据控件52【例【例8.4】设计含有学生照片字段的学生信息编辑窗】设计含有学生照片字段的学生信息编辑窗体。体。在以前建立的学生信息表中增加在以前建立的学生信息表中增加“照片照片”字段。每字段。每个学生的照片以图片文件形式存放在磁盘中，图片个学生的照片以图片文件形式存放在磁盘中，图片文件名及其所在的路径（位置）存放在学生信息表文件名及其所在的

64、路径（位置）存放在学生信息表中的照片字段中，所以该字段的类型设为中的照片字段中，所以该字段的类型设为varchar型。型。本题采用本题采用Image显示照片，因为将显示照片，因为将Image控件的控件的Stretch属性设为属性设为True，可以自动调整图片的大小以，可以自动调整图片的大小以适应适应Image控件边框的大小。控件边框的大小。用用Image或或Picture控件显示图片的方法控件显示图片的方法:lImage1.Picture=LoadPicture(图片文件名图片文件名)lPicture1.Picture=LoadPicture(图片文件名图片文件名)肿郸撅滨忽胯乎宣谭枫器啊拌辕

65、棉胡丝卯吱鸽韭朽植孜跨毯税工片藏泽磊第8章数据控件第8章数据控件53将该图片加载到将该图片加载到Image1上，可执行如下语句：上，可执行如下语句：Image1.Picture=LoadPicture(d:lzwphotface01.jpg)若要清空图象框，即若要清空图象框，即Image1中不显示图片，可执行中不显示图片，可执行如下语句：如下语句：Image1.Picture=LoadPicture()如果要将存放在数据表中如果要将存放在数据表中“照片照片”字段的图片文件字段的图片文件装载到装载到Picture1上显示出来，可执行如下语句：上显示出来，可执行如下语句：Picture1.Pict

66、ure=LoadPicture(Adodc1.RecordSet.Fields(照片照片)墒缠肋拜迸酱蠢表掀乡正阂呈骑摆游植毙单淬通菇校辗掣行侈蔬酚腰潮扇第8章数据控件第8章数据控件54设计过程如下：设计过程如下：（1）设计界面如图）设计界面如图8.18所示。所示。图8.18 例8.4的设计界面增加了一个增加了一个Image1，用于，用于显示照片；显示照片；增加增加“浏览浏览”按钮，用按钮，用于在录入照片时，显示于在录入照片时，显示“打开文件打开文件”对话框，以便对话框，以便用户选择图片文件；用户选择图片文件；增加增加CommanDialog控件，控件，用于提供用于提供“打开文件打开文件”对对

67、话框话框。 尿瑚加随姬膀望抬睦舞忻拷拿钾脯戎令销巍沼僻福身盏需妈礼犬名砾俯疟第8章数据控件第8章数据控件55（2）设置新增控件的属性如表所示。）设置新增控件的属性如表所示。控件名控件名属性名属性名属性值属性值按钮按钮CmdFindCaption浏览浏览图像框图像框Image1stretchTrueBorderStyle1-FixedSingle(单边单边框框)通用对话框通用对话框Cdialog1Caption打开文件打开文件潦丽疯夹赖稿堵抒联嗡黍地杠蚂渠纪牛浅竣宝满境鼠赚尖默绩呢活嗽谎郧第8章数据控件第8章数据控件56（3）编写代码如下：）编写代码如下：PrivateSubForm_Load(

68、)CmdFirst.Enabled=FalseCmdPre.Enabled=FalseCmdNext.Enabled=TrueCmdLast.Enabled=TrueAdodc1.Recordset.MoveFirstCmdAdd.Enabled=TrueCmdDel.Enabled=TrueCmdOk.Enabled=FalseCmdEsc.Enabled=FalseLabel6.Caption=记录：记录：&Adodc1.Recordset.AbsolutePosition&/_&Adodc1.Recordset.RecordCountImage1.Picture=LoadPicture(

69、Adodc1.Recordset.Fields(照片照片)显示显示照片照片CmdFind.Visible=False浏览浏览按钮不可见按钮不可见EndSub渝翻纤既蹭奏涅樟柿悯么堤宁宰叫矽柄鉴笋金卡糙踌陈恿愈阿遭卿汝棋吃第8章数据控件第8章数据控件57单击单击“添加添加”按钮的代码按钮的代码PrivateSubCmdAdd_Click()Adodc1.Recordset.AddNewCmdAdd.Enabled=FalseCmdDel.Enabled=FalseCmdOk.Enabled=TrueCmdEsc.Enabled=TrueImage1.Picture=LoadPicture()清空

70、图像框清空图像框CmdFind.Visible=True浏览浏览按钮可见按钮可见EndSub枝收绳熟宗那涤裤栽它软裕壁禁拐贿孜剩狄条拴帜男皮仅摇铂窄递模梳粕第8章数据控件第8章数据控件58单击单击浏览浏览按钮的代码：按钮的代码：PrivateSubCmdFind_Click()CDialog1.ShowOpen显示显示“打开文件打开文件”对话框对话框Adodc1.Recordset.Fields(照片照片)=CDialog1.FileName选中的文件名送数据表中选中的文件名送数据表中Image1.Picture=LoadPicture(Adodc1.Recordset.Fields(照照片片

71、)显示照片显示照片EndSub金儡勇桥殃谎以囊簿煽思闰埔酉邹埂叛边橱饵轿饭焉贺逮至哺挺乖猜猫慨第8章数据控件第8章数据控件59PrivateSubCmdOk_Click()单击单击“确认确认”按钮的代码按钮的代码Adodc1.Recordset.UpdateCmdAdd.Enabled=TrueCmdDel.Enabled=TrueCmdOk.Enabled=FalseCmdEsc.Enabled=FalseCmdFind.Visible=FalseLabel6.Caption=记录：记录：&Adodc1.Recordset.AbsolutePosition&/&_Adodc1.Records

72、et.RecordCountEndSub藕桌鸟镰掇壮戳杯杭俊条只吸劣译酶长套流补棚非河蒸镍幢膛垒笺普刘幻第8章数据控件第8章数据控件60PrivateSubCmdFirst_Click()单击单击“首记录首记录”按钮的代码按钮的代码Adodc1.Recordset.MoveFirstCmdFirst.Enabled=FalseCmdPre.Enabled=FalseCmdNext.Enabled=TrueCmdLast.Enabled=TrueImage1.Picture=LoadPicture(Adodc1.Recordset.Fields(照照片片)Label6.Caption=记录：记录

73、：&Adodc1.Recordset.AbsolutePosition&/&Adodc1.Recordset.RecordCountEndSub舵川人肆公卖淘胺霸兵司陪权哄叫演祁阂硫害硅肇砸蚤死鹏恿孙菲掠符揍第8章数据控件第8章数据控件61“删除删除”、“取消取消”按钮的单击事件过程代码与例按钮的单击事件过程代码与例8.3相同。其余移动记录指针的按钮单击事件过程代相同。其余移动记录指针的按钮单击事件过程代码与例码与例8.3相比，都增加了显示照片的语句：相比，都增加了显示照片的语句：Image1.Picture=LoadPicture(Adodc1.Recordset.Fields(照片照片)运

74、行程序运行程序,当单击各移动按钮时，学生记录改变，照当单击各移动按钮时，学生记录改变，照片也随之改变。片也随之改变。当单击当单击“添加添加”按钮时，所有文本框及图像框清空，按钮时，所有文本框及图像框清空，表示空记录，供用户输入新记录数据，此时表示空记录，供用户输入新记录数据，此时“浏览浏览”按钮可见，按钮可见，单击单击“浏览浏览”按钮，出现按钮，出现“打开文件打开文件”对话框，对话框，用户可在其中选择图片文件，加载到图像框中，用户可在其中选择图片文件，加载到图像框中，单击单击“确定确定”按钮，则新录入的数据及图片文件名按钮，则新录入的数据及图片文件名保存到数据表中。保存到数据表中。豁锦幌携畸索

75、菌烯段薄柞未等饯厘液味极罚貌拍撒社露让裤轧屠爆万堕驼第8章数据控件第8章数据控件628.3.2List控件和控件和Combo控件的应用控件的应用在设计数据录入窗体时，有的字段数据取值范围很在设计数据录入窗体时，有的字段数据取值范围很小，为了录入方便并且保证该字段数据的标准性，小，为了录入方便并且保证该字段数据的标准性，可以使用列表框或组合下拉列表框可以使用列表框或组合下拉列表框为用户提供可选为用户提供可选的输入项的输入项。例如，将例例如，将例8-3中的录入性别字段的文本框中的录入性别字段的文本框Text3删删除，改用除，改用Combo控件，控件的名称用默认名控件，控件的名称用默认名Combo1

76、,并绑定到并绑定到Adodc1（已连接到学生信息表）（已连接到学生信息表）的的性别性别字段，即设置字段，即设置Combo1的属性的属性DataSource为：为：Adodc1DataField为：性别。为：性别。萧扶男柒蒸浪瘸囤蔡熟彬乒需仁衅封害签查唁康费忻碌涪坪骑况鉴崇荧佑第8章数据控件第8章数据控件63在窗体的在窗体的Form_Load()事件中，用事件中，用Combo1的的AddItem方法，将方法，将“男男”、“女女”两项添加到两项添加到Combo1中，代码如下：中，代码如下：PrivateSubForm_Load()Combo1.AddItem男男Combo1.AddItem女女En

77、dSub运行界面如图所示。运行界面如图所示。图图8-18用用Combo控件显示或输入性别字段控件显示或输入性别字段疮氓孤荒啸颊阂蔼卵圣陕竟闸那陛萤施暮嘲艾晶署委摩侮描陶澡隙炊因奖第8章数据控件第8章数据控件648.3.3DataList控件和控件和DataCombo控件的应用控件的应用该两个控件属于该两个控件属于ActiveX控件，不在标准工具箱中，控件，不在标准工具箱中，需要添加到工具箱中。添加控件到工具箱中的方法需要添加到工具箱中。添加控件到工具箱中的方法如下：如下：执行菜单执行菜单工程工程部件部件命令，选中命令，选中“MicrosoftDataListControls6.0”，即可见，即

78、可见DataList和和DataCombo两个控件的图标出现在工具箱中。两个控件的图标出现在工具箱中。DataList和和DataCombo控件的作用是在录入数据时，控件的作用是在录入数据时，给用户提供输入选项列表。给用户提供输入选项列表。与与List和和Combo不同的是，不同的是，DataList和和DataCombo这两个控件中的选项字符串是通过其所绑定的数据这两个控件中的选项字符串是通过其所绑定的数据表字段的内容自动添加的。表字段的内容自动添加的。抖颖版盎脑苏艘藐檬屎惮精疯民碴何臀擞毫薄蔚贡颐哺屠颓甫饱议追喊瑰第8章数据控件第8章数据控件65主要属性有：主要属性有：DataSource

79、：实际要录入的记录源的：实际要录入的记录源的ADOData控控件名。件名。DataField：实际要录入数据的字段名。实际要录入数据的字段名。RowSource：用于生成控件列表信息的：用于生成控件列表信息的ADOData控件名称。控件名称。ListField：用于填充列表框的由用于填充列表框的由RowSource指定的指定的记录集中的字段名。记录集中的字段名。BoundColumn：由：由RowSource指定记录集的实际要指定记录集的实际要录入的字段名，该字段名是与录入的字段名，该字段名是与DataSource相关联的相关联的字段（一般与字段（一般与DataField的相同）。的相同）。控

80、件的作用：控件的作用：借助于借助于RowSource的的ListField字段，字段，为为DataSource的的DataField字段输入数据。字段输入数据。淮写邀寞哭镍也鬼朔翠瘪会淋宋诫钨紫赞岂篱凶罢篇哆挪脾毖巳窄未护匈第8章数据控件第8章数据控件66例例8-5设计课程信息表的编辑窗体，实现对课程信设计课程信息表的编辑窗体，实现对课程信息表录入数据。息表录入数据。要求：对要求：对课程信息表课程信息表进行录入时，输入进行录入时，输入“教师编号教师编号”时，借助时，借助“教师信息表教师信息表”中的中的“姓名姓名”字段进行字段进行输入。即输入。即“教师编号教师编号”字段的输入控件采用字段的输入控

81、件采用DataCombo，其中列出的是现有教师的姓名，供用，其中列出的是现有教师的姓名，供用户选择录入，虽然表面看录入的是姓名，而实际录户选择录入，虽然表面看录入的是姓名，而实际录入课程信息表的是该教师的教师编号。入课程信息表的是该教师的教师编号。遇章回吼蚜酝唁盗垄职圭铺盐腿吵藐吻瘦俄岿凿封鹊拼叭凸齿警疚撵茵诬第8章数据控件第8章数据控件67课程程编号号课程名称程名称学学时学分学分教教师编号号1001C语言言505010011002数据数据结构构606030021003数据数据库404030021004操作系操作系统505030041005机械机械设计707100021006机械原理机械原理4

82、0410001教教师编号号姓名姓名性性别职称称单位位01001郑虹虹女女副教授副教授机械学院机械学院01002孙燕燕女女讲师机械学院机械学院03001赵博博男男教授教授信息学院信息学院03002王王伟男男教授教授信息学院信息学院03003王王刚男男副教授副教授信息学院信息学院03004孙丽女女讲师信息学院信息学院表表8-5教师信息表教师信息表表表8-6课程信息表课程信息表DataSourceDataFieldRowSourceListFieldBoundColumn啼吩圈偶声李甩了记胳仰瞪枢袭栓押捷些恩前煤邵乐腹密峦莹屉氰愈慌仍第8章数据控件第8章数据控件68（1）设计界面如图）设计界面如图8

83、-19所示所示（2）利用）利用Adodc1的属性页，将的属性页，将Adodc1连接到数据连接到数据源源cjgl的的课程信息表课程信息表上；上；将将Adodc2连接到数据源连接到数据源cjgl的的教师信息表教师信息表上。上。图图8-19设计界面设计界面熏耸参忿散寡岂眼砸肋路谁毙秽恢厂衷严沫笛龚颧筐窍甚永俩囤林吭秆晶第8章数据控件第8章数据控件69连接完数据源的连接完数据源的Adodc1和和Adodc2的属性值结果如下表所的属性值结果如下表所示。示。控件名控件名属性名属性名属性属性值Adodc1ConnectionStringDSN=cjglPasswordsaCommandType2-adCmd

84、TableRecordSource课程信息表程信息表UserNamesaVisibleFalseAdodc2ConnectionStringDSN=cjglCommandType2-adCmdTableRecordSource教教师信息表信息表PasswordsaUserNamesaVisibleFalse毡脾奥搓旷僚熔统噪迸绥审糠铲拓煎淘刀恢没汐忠赎阻殉汕曼坎培砷话彪第8章数据控件第8章数据控件70设置设置DataCombo1控件的属性如下：控件的属性如下：DataSourceAdodc1DataField教师编号教师编号RowSourceAdodc2ListField姓名姓名BoundCo

85、lumn教师编号教师编号如此设置如此设置DataCombo1的属性之后，运行界面如图的属性之后，运行界面如图8-20，可见，可见DataCombo1控件中填充的各项是教师控件中填充的各项是教师信息表的姓名字段的数据。信息表的姓名字段的数据。但实际要录入到课程信息表的是但实际要录入到课程信息表的是教师编号教师编号字段。字段。图图8-20运行界面运行界面倾狮眯勇艰钦汐纲汗丛嘱烘碟僳浙踪舶怔傣祭己翠匡咳粒膜蚕朽馒赵泻蕾第8章数据控件第8章数据控件71（3）对各按钮编程如下：）对各按钮编程如下：PrivateSubCmdAdd_Click()增加增加按钮单击事件按钮单击事件Adodc1.Records

86、et.AddNewCmdAdd.Enabled=FalseCmdDel.Enabled=FalseCmdOK.Enabled=TrueCmdCancel.Enabled=TrueEndSubPrivateSubCmdOK_Click()确定确定按钮单击事件按钮单击事件Adodc1.Recordset.UpdateCmdAdd.Enabled=TrueCmdDel.Enabled=TrueCmdOK.Enabled=FalseCmdCancel.Enabled=FalseEndSub消蜜逗昧砧贯杏揪苹拂幅谱焦牟族扭倚杖介贡疟臣涵喻欺紫澄里况货谓颈第8章数据控件第8章数据控件72取消取消按钮单击事

87、件按钮单击事件PrivateSubCmdCancel_Click()Adodc1.RefreshCmdAdd.Enabled=TrueCmdDel.Enabled=TrueCmdOK.Enabled=FalseCmdCancel.Enabled=FalseEndSub勾薪蛆株薄俊鸦即孔嚷息张唱鄙昧蓝绪播甲架蚀茅橙转千牟刷来荷赶砸会第8章数据控件第8章数据控件73PrivateSubCmdDel_Click()单击单击删除删除按钮按钮x=MsgBox(确实要删除当前记录吗？确实要删除当前记录吗？,vbYesNo+vbQuestion,确认确认)Ifx=vbYesThenAdodc1.Record

88、set.DeleteAdodc1.Recordset.MoveNextIfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveLastEndIfElseAdodc1.RefreshEndIfEndSub钳辐负屿糊讨篷贿带讶训澎鸟萧撅同噪鸣抚涌枫这碱似翟奎蓑夷绕缆隆辽第8章数据控件第8章数据控件748.3.4DataGrid控件的应用控件的应用DataGrid控件可以用表格形式显示记录集数据。只控件可以用表格形式显示记录集数据。只要将要将DataGrid控件绑定到控件绑定到ADOData控件上，就可控件上，就可以将以将ADOData控件所连接的记录源中的数据

89、自动控件所连接的记录源中的数据自动显示到显示到DataGrid表格中。表格中。将将DataGrid控件加载到控件加载到VB工具箱中的方法如下：工具箱中的方法如下：l执行执行工程工程部件部件命令，打开命令，打开部件部件对话框；对话框；l在在控件控件选项卡中，选中选项卡中，选中“MicrosoftDataGridControl6.0”；l单击单击确定确定按钮，即可将控件加到了工具箱中。按钮，即可将控件加到了工具箱中。鹤舒玖沥毖宫获冕镀挽凌沥斋斤视野盒铃儿彪绰毡涉崇藻法狠淄帝懈摆鞠第8章数据控件第8章数据控件75DataGrid的主要属性如下：的主要属性如下：Caption：设置表格的标题文字。：设

90、置表格的标题文字。HeadFont：设置标题的字体。：设置标题的字体。Font：设置表格显示的字体。：设置表格显示的字体。DataSource：数据源属性。指定需要绑定的：数据源属性。指定需要绑定的ADOData控件控件的名称。的名称。Col：表示当前列号（从表示当前列号（从0开始）开始）Row：表示当前行号：表示当前行号(即当前记录号，从即当前记录号，从0开始开始)Text：存放选中单元格的文本：存放选中单元格的文本AllowAddNew：指出是否允许向：指出是否允许向DataGrid控件所连接的记控件所连接的记录集中增加新记录。录集中增加新记录。True：允许。：允许。AllowDelet

91、e：指出是否允许在：指出是否允许在DataGrid控件所连接的记录控件所连接的记录集中删除记录。集中删除记录。True：允许。：允许。AllowUpdate：指出是否允许在：指出是否允许在DataGrid控件所连接的记录控件所连接的记录集中修改记录。集中修改记录。True：允许。：允许。狮谊黎亩菌拴泄啦白曾娟咱涅窃店涡兹脑咏蒋跟叹挣唆岗股耸掉斗禾饵匙第8章数据控件第8章数据控件76例例8-6DataGrid控件与控件与Adodc1绑定，显示教师信息绑定，显示教师信息表的所有记录。表的所有记录。要求：运行时，显示课程信息编辑窗体要求：运行时，显示课程信息编辑窗体(如图如图9-21所示所示)，当，

92、当录入教师姓名时，若要了解教师的详细信息，可单击录入教师姓名时，若要了解教师的详细信息，可单击教师教师信息信息按钮，打开按钮，打开Form2(如图如图9-22所示所示)，在，在Form2中用表格中用表格形式浏览所有教师的基本信息，在浏览完教师基本信息后，形式浏览所有教师的基本信息，在浏览完教师基本信息后，单击单击返回返回按钮，则关闭浏览窗体，显示编辑窗体。按钮，则关闭浏览窗体，显示编辑窗体。设计过程如下：设计过程如下：（1）设计界面）设计界面在例在例8-4的工程中，新添加一个窗体的工程中，新添加一个窗体Form2，用来以表格形，用来以表格形式显示教师表的所有记录。式显示教师表的所有记录。在窗体

93、在窗体Form2中添加中添加DataGrid1和和Adodc1控件，添加一个按控件，添加一个按钮，名称为钮，名称为CmdBack，标题为：返回（如图，标题为：返回（如图8-22）。）。在在Form1中添加一个按钮，名称为中添加一个按钮，名称为Cmd1,标题为：教师信息标题为：教师信息（见图（见图8-21）。）。烦茨悟间归颓藏售衡揭评杏价枯斌椎耶电辖道夹扶啼凶戚吠烧梆恐铂眠事第8章数据控件第8章数据控件77图图8-21在在Form1中添加中添加教师信息教师信息按钮按钮图图8-22用用DataGrid显示教师信息表运行界面显示教师信息表运行界面舷坯瞒邀啤攻吊奄想城诵冉导径埂衍佯吹饿递卸咱禁掏吞解枪

94、始臃习炮淘第8章数据控件第8章数据控件78（2）设置控件的属性）设置控件的属性设置设置Form2中的中的Adodc1控件的属性如下：控件的属性如下：鼠标右击鼠标右击Adodc1控件，打开属性页，在控件，打开属性页，在通用通用选项卡中选选项卡中选择择ODBC数据资源名称为数据资源名称为cjgl；在在身份验证身份验证选项卡中，输入用户名：选项卡中，输入用户名：sa、密码：、密码：sa；在在记录源记录源选项卡中，选择命令类型：选项卡中，选择命令类型：2-adCmdTable、在、在表或存储过程名表或存储过程名中选择中选择“教师信息表教师信息表”，然后单击，然后单击应用应用按钮，再单击按钮，再单击确定

95、确定按钮，关闭该属性对话框。按钮，关闭该属性对话框。Visible：False（运行时不可见）。（运行时不可见）。设置设置Form2中的中的DataGrid1的属性如下：的属性如下：数据源数据源DataSource：Adodc1总标题总标题Caption：教师信息：教师信息标题的字体标题的字体HeadFont：宋体、五号、加粗：宋体、五号、加粗敦讣馅栗噬撬屈庄酋藐睡弊额鉴贷吵拿骆吻谁鄙悲实眺很妻带摇跑代幌香第8章数据控件第8章数据控件79（3）编写代码）编写代码在在Form1中单击中单击教师信息教师信息按钮时，显示按钮时，显示Form2，编写代码如下：编写代码如下：PrivateSubCmd1

96、_Click()Form2.ShowEndSub在在Form2中单击中单击返回返回按钮时，关闭按钮时，关闭Form2，编写，编写代码如下：代码如下：PrivateSubCmdBack_Click()Form1.ShowUnloadMeEndSub狡斩姆辣噶透掉扎灯释克匙锰番绘以删泻晃愧蛊灵粉愚桶洋薪剪悸亭被犹第8章数据控件第8章数据控件80例例8-7设计可以显示教师信息，并且当单击设计可以显示教师信息，并且当单击DataGrid1选中教师表的某行记录时，在选中教师表的某行记录时，在DataGrid2控件中显示该教师所教的课程信息。控件中显示该教师所教的课程信息。（1）设计界面）设计界面添加控件

97、到窗体上，如图添加控件到窗体上，如图8-23。图图8-23例例8-6界面设计界面设计图图8-24例例8-6运行界面运行界面贸庆草瘦综哈熬框怯楷渣土傍著湍助狞糊哀签貌影部印竹滦娱埔鹿协绥淤第8章数据控件第8章数据控件81（2）设置控件的属性）设置控件的属性l设置设置Adodc1控件的属性如下：控件的属性如下：Visible：False（运行时不可见）。（运行时不可见）。连接到教师信息表上连接到教师信息表上l设置设置Adodc2控件的属性如下：控件的属性如下：与与Adodc1控件的属性设置基本相同，所不同的是控件的属性设置基本相同，所不同的是记录源记录源的设置：的设置：在在记录源记录源选项卡中，选

98、则命令类型：选项卡中，选则命令类型：1-adCmdText，在在命令文本命令文本(SQL)框中输入框中输入SQL语句：语句：lSelect*From课程信息表课程信息表嚣捡新焚薪阉盂耳皂远事芍尤椒霹叛滞挪就造亚慢衡炯俺宅雁缮绘峙柄搀第8章数据控件第8章数据控件82lDataGrid1与与Adodc1绑定，显示教师表记录，设绑定，显示教师表记录，设置属性如下：置属性如下：DataSource：Adodc1Caption：教师信息：教师信息HeadFont：宋体、五号、加粗：宋体、五号、加粗lDataGrid2与与Adodc2绑定，显示课程表信息，设绑定，显示课程表信息，设置属性如下：置属性如下：

99、DataSource：Adodc2Caption：课程信息：课程信息HeadFont：宋体、五号、加粗：宋体、五号、加粗思茫比蜒纸慑仓亨冰拄仗叉梨拈核梨唤玛疡钟傍谱碉迈赚虫稀识歌燃莹盒第8章数据控件第8章数据控件83（3）编写程序）编写程序PrivateSubDataGrid1_Click()DimSQLStrAsStringSQLStr=Select*From课程信息表课程信息表Where教师教师编号编号=&Adodc1.Recordset.Fields(教师编号教师编号)&Adodc2.RecordSource=SQLStr设置设置Adodc2连接的记连接的记录源录源Adodc2.Refr

100、eshEndSub运行程序，在运行程序，在DataGrid1中，单击选择某行记录，中，单击选择某行记录，则可在下边的则可在下边的DataGrid2中显示对应教师的讲课情中显示对应教师的讲课情况（结果见图况（结果见图8-24）。）。贼灵诚巡稚誉晕蓉慧檄巨只煞屁亨渗衰矢酷衔祸瘟掂芥盯盎滑陡辕雕臻占第8章数据控件第8章数据控件84例例8-8编写一个可浏览教师表数据，并可修改教师编写一个可浏览教师表数据，并可修改教师表数据的程序。表数据的程序。要求：在要求：在Form1中（如图中（如图8-25），显示教师信息表），显示教师信息表格；当选中某行记录并单击格；当选中某行记录并单击修改数据修改数据按钮时，将

101、按钮时，将打开打开Form2（如图（如图8-26所示），显示该行记录的信所示），显示该行记录的信息，并可以修改数据。息，并可以修改数据。图图8-25教师信息表界面教师信息表界面图图8-26信息修改界面信息修改界面慰们滁鞘荧栏愚怀玻沽着使勋盂挠悟矩根跟袱刃瑰寄泡凌浸蹄恿实汽雏月第8章数据控件第8章数据控件85（1）设计界面及设置属性）设计界面及设置属性在在Form1中，添加一个中，添加一个DataGrid1和和Adodc1。设置。设置属性如下：属性如下：将将Adodc1连接到连接到cjgl数据源的数据源的“教师信息表教师信息表”，Visible：False（运行时（运行时Adodc1不可见）；不

102、可见）；将将DataGrid1的的DataSource设为设为Adodc1，即绑定到，即绑定到Adodc1上，并在上，并在DataGrid1的属性页中的的属性页中的通用通用选选项卡中，将项卡中，将允许更新允许更新、允许删除允许删除复选框设为不复选框设为不选中状态（即不允许在选中状态（即不允许在DataGrid1中修改数据）。中修改数据）。在在Form1中，添加中，添加1个按钮，名称为个按钮，名称为CmdEdit，Caption设为设为“修改数据修改数据”。舶名届羊窟凤蒋涸役寺涎篇瞻散顾号寄伞恕凌咙醋桂惜甫也泵仍饶氨额声第8章数据控件第8章数据控件86Form2中，添加中，添加5个标签，用于显示

103、教师信息表的字段名，个标签，用于显示教师信息表的字段名，2个文本框个文本框Text1、Text2用于显示在用于显示在Form1中选中的记录的中选中的记录的教师编号和姓名。教师编号和姓名。性别、职称和单位分别用组合列表框性别、职称和单位分别用组合列表框Combo1、Combo2、Combo3显示，这三个组合列表框也提供输入值的选项列显示，这三个组合列表框也提供输入值的选项列表。表。Form2中控件的属性设置如表。中控件的属性设置如表。控件名控件名属性名属性名属性属性值控件名控件名属性名属性名属性属性值Text1Text空空CmdUpdateCaption更新更新Text2Text空空CmdBac

104、kCaption返回返回Combo1List男男女女Combo2List教授教授副教授副教授讲师Combo3List信息学院信息学院机械学院机械学院经贸学院学院外外语学院学院筷柠母茵辐枕例药恐胁屁晋为澜追琴奖肥筋汽筏撰领第镍胸八窘林啡颜淫第8章数据控件第8章数据控件87（2）程序设计如下）程序设计如下Form1中的代码：中的代码：PrivateSubCmdEdit_Click()修改数据修改数据按钮的单击事件按钮的单击事件判断是否选中了表中的一行：判断是否选中了表中的一行：IfAdodc1.Recordset.EOFOrAdodc1.Recordset.BOFThenMsgBox请选择要修改的

105、行请选择要修改的行ExitSubEndIfForm2.Show显示显示Form2Form1.Hide隐藏隐藏Form1EndSub嚼露先卧榜籽扯柠蛛膝痢囚畜扮僧窜鼎溪荐些陡前骂复捕楼戊镁呜流愧则第8章数据控件第8章数据控件88Form2中的代码如下：中的代码如下：PrivateSubForm_Load()显示在显示在Form1中选择的当前记中选择的当前记录值录值Text1.Text=Form1.Adodc1.Recordset.Fields(教师编号教师编号)Text2.Text=Form1.Adodc1.Recordset.Fields(姓名姓名)Combo1.Text=Form1.Adod

106、c1.Recordset.Fields(性别性别)Combo2.Text=Form1.Adodc1.Recordset.Fields(职称职称)Combo3.Text=Form1.Adodc1.Recordset.Fields(单位单位)EndSub接泳谅转谐拖幅痔歉疯戈缔腆箕抗州球块枚俯系芬峙朵邯匡席吨糠钦颤陶第8章数据控件第8章数据控件89PrivateSubCmdUpdate_Click()Form2中中更新更新按钮的按钮的单击事件单击事件Form1.Adodc1.Recordset.Fields(教师编号教师编号)=Text1.TextForm1.Adodc1.Recordset.Fi

107、elds(姓名姓名)=Text2.TextForm1.Adodc1.Recordset.Fields(性别性别)=Combo1.TextForm1.Adodc1.Recordset.Fields(职称职称)=Combo2.TextForm1.Adodc1.Recordset.Fields(单位单位)=Combo3.TextForm1.Adodc1.Recordset.UpdateForm1.Adodc1.RefreshEndSub供钥挪桌报坐芹丝陶徒椰沂填扛奢办嫩惑灭定搐香钒珠坪研骨爽固儒绣糖第8章数据控件第8章数据控件90PrivateSubCmdBack_Click()Form2中中返回返

108、回按钮的单击事件按钮的单击事件UnloadForm2卸载卸载Form2Form1.Show显示显示Form1EndSub吐荆寥丧走映寥傈熟似帅颐铺芥悯睡姐莲鲁诬乔钵约永端黑佳愤摸慢出屁第8章数据控件第8章数据控件918.4在在ADOData控件中使用控件中使用SQL语句进行查询语句进行查询在数据库应用程序设计中，经常需要查找满足一定条件的记在数据库应用程序设计中，经常需要查找满足一定条件的记录集，这就是查询操作。利用录集，这就是查询操作。利用SQL语言中的语言中的SELECT语句，语句，可以实现查询。可以实现查询。在在ADOData控件中使用控件中使用Select语句查询的步骤如下语句查询的步

109、骤如下（1）给出）给出Select语句字符串语句字符串（2）将）将Select语句字符串赋给语句字符串赋给ADOData控件的控件的RecordSource属性属性（3）执行）执行ADOData控件的控件的Refresh方法。方法。例如在文本框中输入要查询的学生姓名，查询该生的基本信例如在文本框中输入要查询的学生姓名，查询该生的基本信息的息的SQL语句应为：语句应为：Str=Select*From学生信息表学生信息表Where姓名姓名=&Text1&Adodc1.RecordSource=StrAdodc1.Refresh版义捉奶抱泻办禄洽皮骚秧拈忍完漆引膊蜡金针聘迢梳疟咖窖六应傅衰凸第8章数

110、据控件第8章数据控件92例例8-9根据输入的姓名，查询教师讲课信息。根据输入的姓名，查询教师讲课信息。设计窗体如图设计窗体如图8-27。要求：在要求：在Text1中输入姓名，单击中输入姓名，单击查询查询按钮，显按钮，显示该教师的讲课情况如图示该教师的讲课情况如图8-28。注意表中除了显示。注意表中除了显示课程信息表课程信息表的所有字段，还显示教师的的所有字段，还显示教师的“姓名姓名”字字段（该字段属于段（该字段属于教师信息表教师信息表），所以要用到两表查），所以要用到两表查询语句。询语句。图图8-27查询界面的设计查询界面的设计图图8-28查询程序的运行结果查询程序的运行结果沫溃秃疑输仇呢蹿殆

111、哉肯嚼奴宦宅遏步椭密栈见口蕾辆召磋当英烯密淄迷第8章数据控件第8章数据控件93添加控件，并设置属性如下：添加控件，并设置属性如下：l设置设置Adodc1控件的属性控件的属性Visible：False鼠标右击鼠标右击Adodc1控件，打开属性页，在控件，打开属性页，在通用通用选项选项卡中选择卡中选择ODBC数据资源名称为数据资源名称为cjgl；在在记录源记录源选项卡中，选则命令类型：选项卡中，选则命令类型：l1-adCmdText，在在命令文本命令文本(SQL)中输入中输入SQL语句：语句：lSelect*From教师信息表教师信息表DataGrid1与与Adodc1绑定，设置属性如下：绑定，设

112、置属性如下：lDataSource：Adodc1lCaption：教师信息表：教师信息表拼铣言赐败谷冲赠庶览捌昔铃掀督碱民驳蟹缕幂蜗账驭酚帧朝虐迈潍武笺第8章数据控件第8章数据控件94文本框的属性如下：文本框的属性如下：l名称：名称：Text1lText：清空清空标签的属性：标签的属性：l名称：名称：Label1lCaption：输入姓名：输入姓名按钮的属性如下：按钮的属性如下：l名称：名称：Cmd1lCaption：查询：查询角辗蒜瞪摹颐晒拯绣岗郊涂剪析寐砷讥兑泥疚酪猫话某株护娩兢粟针斩寨第8章数据控件第8章数据控件95编写代码：编写代码：查询查询按钮的单击事件：按钮的单击事件：Privat

113、eSubCmd1_Click()DimstrAsStringstr=Select教师信息表教师信息表.姓名姓名,课程信息表课程信息表.*From课程信息表课程信息表Join教师信息表教师信息表str=str&On教师信息表教师信息表.教师编号教师编号=课程信息课程信息表表.教师编号教师编号str=str&Where教师信息表教师信息表.姓名姓名=&Text1&Adodc1.RecordSource=strAdodc1.RefreshEndSub鲸操辞颅炬疙修碑恐这操毁爽氧妥疟橇痰戴吃及绥恼梗顷烂桓宠兴札浦块第8章数据控件第8章数据控件96此题若改为此题若改为“模糊查询模糊查询”，只需将代码中的

114、查询语，只需将代码中的查询语句的条件改为：句的条件改为：Where教师信息表教师信息表.姓名姓名Like&Text1&%这时运行程序，在文本框中只要输入姓（例如：王），这时运行程序，在文本框中只要输入姓（例如：王），就可以在表格中显示所有姓王的教师的讲课信息。就可以在表格中显示所有姓王的教师的讲课信息。罚固枕碧屡眶砸超宇键侗涌国肋矮卒霄莆疥抽晰吁哟押娟虫谷洽吊庚烂侣第8章数据控件第8章数据控件97例例8-10设计能够选择多种条件的查询窗体。设计能够选择多种条件的查询窗体。要求：在例要求：在例8-9的基础上做进一步的改进，可以选择按教师的基础上做进一步的改进，可以选择按教师姓名、教师编号、课程名

115、称、课程编号、学时等条件，查询姓名、教师编号、课程名称、课程编号、学时等条件，查询课程信息。查询结果中包含：课程信息表的所有字段、教师课程信息。查询结果中包含：课程信息表的所有字段、教师信息表的信息表的“姓名姓名”字段。字段。（1）设计界面如图）设计界面如图8-29所示。所示。其中组合列表框其中组合列表框Combo1中添加查询条件的字段名，供用户中添加查询条件的字段名，供用户选择。选择。图图8-29查询界面的设计查询界面的设计图图8-30查询程序的运行结果查询程序的运行结果累础仲溪驮傅箕楼串嫉案穆荚旧偏九糜霉愁肩座扳概铜掳夜卜蒋磋巳姑袍第8章数据控件第8章数据控件98（2）设计代码）设计代码P

116、rivateSubForm_Load()Combo1.AddItem姓名姓名为组合列表框添加各选项为组合列表框添加各选项Combo1.AddItem教师编号教师编号Combo1.AddItem课程名称课程名称Combo1.AddItem课程编号课程编号Combo1.AddItem学时学时Combo1.Text=姓名姓名让组合框初始选中让组合框初始选中姓名姓名项项Text1.Text=清空文本框清空文本框EndSub凤嚏某旨颜梗鬼而械啄躬礁妨道刁内屡拿庶晒缸列熬越氰龋慨卡耐瓢臂耳第8章数据控件第8章数据控件99PrivateSubCmd1_Click()DimstrAsStringstr=Sel

117、ect教师信息表教师信息表.姓名姓名,课程信息表课程信息表.*From课程信课程信息表息表Join教师信息表教师信息表str=str&On教师信息表教师信息表.教师编号教师编号=课程信息表课程信息表.教师教师编号编号str=str&Where课程信息表课程信息表.&Combo1.Text&Like&Text1&%Adodc1.RecordSource=strAdodc1.RefreshEndSub本例实现模糊查询，运行程序时，选择按本例实现模糊查询，运行程序时，选择按“课程名称课程名称”查询，查询，输入查询信息：机械，结果搜索到课程名称以输入查询信息：机械，结果搜索到课程名称以“机械机械”开头

118、开头的课程信息，如图的课程信息，如图8-30。壁起浑猴卿愤祟跪琉兔和妇笆页捞肛劳缕艇办藐拎珍苦光痛雨酥抗疡渊拉第8章数据控件第8章数据控件100例例8-11设计登录窗体。设计登录窗体。要求：将该登录界面设为启动窗体，当密码输入正要求：将该登录界面设为启动窗体，当密码输入正确时，才显示查询窗体。在确时，才显示查询窗体。在Text1中输入用户名，中输入用户名，在在Text2中输入密码，若正确，则打开中输入密码，若正确，则打开Form1，否则，否则提示密码错误。允许输入提示密码错误。允许输入3次。次。（1）设计界面）设计界面在例在例8-8的基础上，添加一个窗体的基础上，添加一个窗体Form2，设计登

119、录，设计登录界面如图界面如图8-31所示。所示。图图8-31登录窗体登录窗体馁勾撅绰养蚁痹炯背咒汀溯象跋腐尤窘读貌计颇钧猿硼釉绣粹佬再老熊掂第8章数据控件第8章数据控件101添加窗体的方法：执行菜单：添加窗体的方法：执行菜单：工程工程添加窗体添加窗体命令，在命令，在新建新建选项卡中，选中选项卡中，选中“窗体窗体”并单击并单击打开打开按钮，即可按钮，即可在本工程中添加在本工程中添加Form2。设启动窗体的方法：执行菜单设启动窗体的方法：执行菜单工程工程工程工程属性属性,在打开在打开的对话框中，将启动对象设为的对话框中，将启动对象设为Form2。（2）设计密码表）设计密码表在在“成绩管理成绩管理”

120、数据库中添加一个密码表，表结构如表数据库中添加一个密码表，表结构如表8-9，在表中存放一组用户名和密码如表，在表中存放一组用户名和密码如表8-10。字段名字段名数据数据类型型长度度用用户名名char10密密码char6用用户名名密密码lzw111111表表8-9密码表的表结构密码表的表结构表表8-10密码表密码表彼垫竣旭诱德慑拓景揉桨嫁赃馏雾蛆贯运搽买望颜匹冶绎缔碧襟锻唁区厂第8章数据控件第8章数据控件102（3）设置各控件的属性）设置各控件的属性Adodc1连接到密码表，方法同前；注意在连接到密码表，方法同前；注意在记录源记录源选项卡选项卡中，选则命令类型：中，选则命令类型：1-adCmdT

121、ext，在，在命令文本命令文本(SQL)中中输入输入SQL语句：语句：select*from密码表密码表Vsible：False（运行时不可见）。（运行时不可见）。文本框文本框Text1的属性：的属性：Text：清空。：清空。文本框文本框Text2的属性：的属性：Text：清空，：清空，PasswordChar：*注意：注意：Text1和和Text2不要绑定到不要绑定到Adodc1上，以免刚启动登录上，以免刚启动登录窗体时，就显示密码表的内容。窗体时，就显示密码表的内容。登录登录按钮的属性：名称：按钮的属性：名称：CmdLand，Caption：登录：登录取消取消按钮的属性：名称：按钮的属性：

122、名称：CmdCancel，Caption：取消：取消执代泻耪隋漳肩瘩瞎傍锁躁渐钾昼豁予橇征举甲纸柠魄君钥辕骏祭氰柱腮第8章数据控件第8章数据控件103（4）编写程序）编写程序登录登录按钮单击事件的代码如下：按钮单击事件的代码如下：DimmiCountAsInteger用于记录输入密码次数用于记录输入密码次数PrivateSubCmdLand_Click()DimsqlstrAsStringsqlstr=Select*From密码表密码表Where用户名用户名=&Text1&Adodc1.RecordSource=sqlstrAdodc1.RefreshIfAdodc1.Recordset.BO

123、FThen若没找到符合若没找到符合Where条件的记条件的记录录MsgBox用户名错误，重新输入用户名错误，重新输入,vbExclamation,警告警告Text1.Text=Text1.SetFocusText1获得焦点获得焦点连谜堕泽忧瑟众耗悯更邀渝居辟稼陕症移漫官菠列募翅车骇誊次归粉途坪第8章数据控件第8章数据控件104Else判断密码是否正确判断密码是否正确IfAdodc1.Recordset.Fields(密码密码)=Text2ThenForm1.ShowUnloadMeElseMsgBox密码错误，重新输入密码错误，重新输入,vbExclamation,警告警告Text2.Text

124、=Text2.SetFocusEndIfEndIf匣爹务韵售造排抚铝弄街衫阅垛雄诣茂谭董盏奸廓徒逐偏赌咸盏申芭说摔第8章数据控件第8章数据控件105miCount=miCount+1IfmiCount=3ThenUnloadMeEndSubPrivateSubCmdCancel_Click()UnloadMeEndSub彤矫庶涌澜兄兑熔谰碘孪症剐桥丛末衬咀肿纷葛治事铂菲峙楚歉肪蛋垦蛤第8章数据控件第8章数据控件106例例8-12设计一个设计一个MDI主窗体主窗体(多文档界面多文档界面)，将以前，将以前设计的各个窗体组合在一起，形成一个工程。设计的各个窗体组合在一起，形成一个工程。要求：设计菜单

125、如图要求：设计菜单如图8-34。运行时，首先显示该主窗体，并。运行时，首先显示该主窗体，并使使数据管理数据管理菜单无效。菜单无效。在在文件文件菜单中单击菜单中单击登录登录命令，可打开命令，可打开登录登录对话框，若对话框，若输入密码正确，则使其他菜单有效，系统可以工作。单击输入密码正确，则使其他菜单有效，系统可以工作。单击文件文件菜单中的菜单中的退出退出命令，则结束运行。命令，则结束运行。在在数据管理数据管理菜单中，可以打开教师信息浏览窗体、查询窗菜单中，可以打开教师信息浏览窗体、查询窗体等。体等。图图8-34MDI主窗体主窗体香藐叮署嫡泌盼倔撂搞黔蔼溪肋立封嫂贴一寨维貉柠提蘸枉夹惠膛拽三阔第8

126、章数据控件第8章数据控件107建立建立MDI窗体，菜单等。步骤如下：窗体，菜单等。步骤如下：（1）在例）在例8-10的工程中添加主窗体：的工程中添加主窗体：执行菜单执行菜单工程工程添加添加MDI窗体窗体，添加一个，添加一个MDI窗体作为主窗体，名为：窗体作为主窗体，名为：MDIForm1。（2）设置启动对象）设置启动对象执行菜单执行菜单工程工程工程工程1属性属性，将启动对象设，将启动对象设为为MDIForm1（3）为）为MDIForm窗体建立菜单窗体建立菜单打开打开菜单编辑器菜单编辑器：工具工具菜单编辑器菜单编辑器设计菜单如表设计菜单如表8-11。娟咨先隘磨痔酉秋夸瘫换楷笑雇俭盆摊跺赘砸褐抗祁

127、未挟缩憾楔框慑兑逸第8章数据控件第8章数据控件108表表8-11菜单的属性列表菜单的属性列表标题及位置及位置名称名称文件文件(&F)mFile.登登录mFDenglu.退出退出(&X)mFExit数据管理数据管理(&D)mDataMng.浏览教教师表表mDjiaoshi.查询mDcaxun斜赚康怨躲屹破斗营喧味樱霍薯奢略乘函揣舀伟桩羊冀朝狡杂淤稽研譬妊第8章数据控件第8章数据控件109（4）设置工程中的各窗体）设置工程中的各窗体将工程中的登录窗体的将工程中的登录窗体的Name改为改为frmDenglu修改工程中的查询窗体的修改工程中的查询窗体的Name：frmcaxun、MDIChild:Tr

128、ue，即将其设为，即将其设为MDIForm1的子窗体。的子窗体。将例将例8-5中的教师浏览窗体添加进来设置属性如下：中的教师浏览窗体添加进来设置属性如下：Name：frmjiaoshiMDIChild：True添加窗体的方法：执行菜单添加窗体的方法：执行菜单工程工程添加窗体添加窗体，在打开的对话框中，选择在打开的对话框中，选择现存现存选项卡，找到并选选项卡，找到并选中例中例8-5中的教师浏览窗体，单击中的教师浏览窗体，单击打开打开按钮即可。按钮即可。某湾金耀胁凿迎讫护石份梦僵精缺炬嚏温菠愈蛔畅吉犯贿镰意买坦糠面密第8章数据控件第8章数据控件110（5）编写代码）编写代码主窗体启动时，将设主窗体

129、启动时，将设数据管理数据管理菜单无效：菜单无效：PrivateSubMDIForm_Load()mDataMng.Enabled=FalseEndSub为各菜单编写代码：为各菜单编写代码：PrivateSubmFDenglu_Click()Frmdenglu.Show显示登录窗体显示登录窗体EndSubPrivateSubmDjiaoshi_Click()Frmjiaoshi.Show显示教师信息窗体显示教师信息窗体EndSub嚎墨耽殿圭坟瑰啡锹拖鸡扔七噎孤倪仆有境定把侗郊局稳猿精赋它磐丁求第8章数据控件第8章数据控件111PrivateSubmDcaxun_Click()Frmcaxun.S

130、howEndSubPrivateSubmFExit_Click()EndEndSub敢遍砚才忿藐运坊蓟眷量际衡心梳浴院枕鹤通居奏缮桓虾厄孰刘官沫俞托第8章数据控件第8章数据控件112登录窗体的代码修改如下：（要求：当密码和用户登录窗体的代码修改如下：（要求：当密码和用户名都输入正确时，使名都输入正确时，使数据管理数据管理菜单有效）菜单有效）PrivateSubCmdLand_Click()StaticmiCountAsIntegerDimsqlstrAsStringsqlstr=Select*from密码表密码表Where用户名用户名=&Text1&Adodc1.RecordSource=sq

131、lstrAdodc1.Refresh臀臆呐版呕迈截酗勒扰钮经靴寝糙愤形篆妻团谷济接栖厢汤沉纵靛纤夏所第8章数据控件第8章数据控件113IfAdodc1.Recordset.BOFThenMsgBox用户名错误，重新输入用户名错误，重新输入,vbExclamation,警告警告Text1.Text=:Text1.SetFocusElse判断密码是否正确判断密码是否正确IfAdodc1.Recordset.Fields(密码密码)=Text2ThenMDIForm1.mDataMng.Enabled=True使数据管理菜使数据管理菜单有效单有效UnloadMeElseMsgBox密码错误，重新输入

132、密码错误，重新输入,vbExclamation,警告警告Text2.Text=:Text2.SetFocusEndIfEndIf酬仇冗鸿写但妄霞铭夷羽铺慕帮壹球湍涸裸艾历聂蛤债招逐慕备杠浇嗜右第8章数据控件第8章数据控件114miCount=miCount+1IfmiCount=3ThenUnloadMe若已输入若已输入3次，则关闭窗体次，则关闭窗体EndSubPrivateSubCmdCancel_Click()UnloadMeEndSub运行程序，首先显示运行程序，首先显示MDI主窗体，且主窗体，且数据管理数据管理菜单无效；菜单无效；在在文件文件菜单中单击菜单中单击登录登录，显示登录窗体，

133、输入用户名和，显示登录窗体，输入用户名和密码，若正确，则密码，若正确，则数据管理数据管理菜单变为有效；菜单变为有效；在在数据管理数据管理菜单中，单击菜单中，单击浏览教师信息浏览教师信息，即可打开窗体，即可打开窗体，如图如图8-33所示。所示。图图8-33在在MDI窗窗体体中中打打开开教教师师信息子窗体信息子窗体群玖谭殃斟争结很掘月肩臼剑筋句谩猖瑚馁菱什躁精砸俱贞脑格憎扳寓来第8章数据控件第8章数据控件115例例8-13设计注册新用户窗体。设计注册新用户窗体。设计界面如图设计界面如图8-34。图图8-34注册新用户窗体注册新用户窗体胡永览佃链水炎车错罗吴眯锨柏擎限毋那关矗遣浇姚傲须签歧林旅拧揭封

134、第8章数据控件第8章数据控件116设置对象的属性如表设置对象的属性如表8-12。对象名象名属性名属性名属性属性值对象名象名属性名属性名属性属性值Form1Caption注册新用注册新用户Adodc1 ConnectionStringDSN=cjglLabel1Caption注册新用注册新用户CommandType1-adCmdTextFont华文彩云、文彩云、四号四号RecordSourceselect*from密密码表表VisibleFalseLabel2Caption输入用入用户名名Text1Text空白空白Label3Caption输入密入密码Text2PassWordChar*Labe

135、l4Caption确确认密密码Text3PassWordChar*坤经册孜躺藏颈慑哭侮点尝胡振豹甩拜宇梭画效凯损富添揉纹其章要铜沦第8章数据控件第8章数据控件117编写代码如下：编写代码如下：PrivateSubCmdOK_Click()单击单击确认确认按钮按钮DimsqlstrAsStringIfText1=ThenMsgBox请输入用户名！请输入用户名！,vbExclamation,确认用户名确认用户名Text1.SetFocusExitSubElsesqlstr=Select*from密码表密码表where用户名用户名=&Text1&Adodc1.RecordSource=sqlstrA

136、dodc1.Refresh廷倾活毖拒拽见饺娃刀茫悔潮永俺苦汝擂合尊烯棘牢奎笆京锥淬妄全这冒第8章数据控件第8章数据控件118判断输入的用户名是否已存在：判断输入的用户名是否已存在：IfAdodc1.Recordset.EOF=FalseThenMsgBox“用户名已存在，请重新输入！用户名已存在，请重新输入！,vbExclamation,检验用户名检验用户名Text1=Text1.SetFocusExitSubEndIfEndIf菇略凄陡史缕瘫汾霄贾呀寺殊栈郁吱钱耀梆览华羚香籽息饯盔贱全域汪鹃第8章数据控件第8章数据控件119判断二次输入密码是否一致：判断二次输入密码是否一致：IfText2T

137、ext3ThenMsgBox二次输入的密码不一致，请重新输入二次输入的密码不一致，请重新输入,vbExclamation,检验密码检验密码Text2=:Text3=Text2.SetFocusExitSubElseIfText2=ThenMsgBox密码不能为空！密码不能为空！,vbExclamation,检检验密码验密码Text2.SetFocus荒姓姬萨谬绘淫弃伺民器诉痒敏衷桥娃虑陨逛榔牌勺赤器堵姥嘎谁湍倾柱第8章数据控件第8章数据控件120ElseAdodc1.Recordset.AddNewAdodc1.Recordset.Fields(用户名用户名)=Trim(Text1)Adodc

138、1.Recordset.Fields(密码密码)=Trim(Text2)Adodc1.Recordset.UpdateMe.HideMsgBox成功注册新用户！成功注册新用户！,vbInformation,添加用户添加用户EndIfEndSubPrivateSubCmdCancel_Click()单击取消按钮单击取消按钮UnloadMeEndSub况按茂惫甸怜拷备杨溅糠椎联烷舔点邻颁球菲姻杠拨茁澄喷决漂躁文篮坪第8章数据控件第8章数据控件121本章小结本章小结本章简要介绍了本章简要介绍了VB6.0数据库编程的特征、数据库编程的特征、VB6.0支支持的数据库种类，持的数据库种类，VB6.0支持的

139、数据存取模式包括：支持的数据存取模式包括：数据存取对象数据存取对象(DAO)、远程数据对象、远程数据对象(RDO)、ActiveX数据对象数据对象(ADO)；介绍了介绍了SQLServer数据库的数据库的DSN的配置方法；的配置方法；详细介绍了用详细介绍了用ADOData控件建立数据库应用程序，控件建立数据库应用程序，数据绑定控件的应用，包括数据绑定控件的应用，包括DataList控件和控件和DataCombo控件的应用、控件的应用、DataGrid控件的应用。控件的应用。举例说明了数据浏览窗体、数据编辑窗体和数据查举例说明了数据浏览窗体、数据编辑窗体和数据查询窗体的设计方法。询窗体的设计方法。涉涕痪庶腮吠奥赌绰说脚接柴徐搭字晋翱降抽兄瞪台嫡扰骇橇辗啦躺尿异第8章数据控件第8章数据控件122第第8章章结束结束幅瑰擂乎蓖匆侵蹲涅咖抡泪铺辩泳建事众酣赢碴印综母看磊写臂耪儿刃板第8章数据控件第8章数据控件123