面向对象程序设计实用第6章课件

1、本章学习目标应知：数据库基本概念报表的作用数据库访问过程应会：使用可视化数据管理器使用数据环境设计器使用Data控件连接数据库使用ADO访问数据库创建报表的方法本章学习目标应知：数据库的基础知识 什么是数据库 数据库就是按一定方式组织存储的大量数据的集合。 打个比方来讲，数据库就好像一个图书馆，我们可以将大量的书籍按照一定的规律储存在图书馆里面，也可以很方便地从里面找到我们需要的书籍。 数据库的基础知识 什么是数据库 数据库访问过程 数据库的程序设计包括三部分内容：数据库主体、数据库引擎和程序用户界面 数据库访问过程 数据库的程序设计包括三部分内容：数据库主体、项目 做一个简单的班级通讯录 任

2、务1 使用Visdata创建通讯录数据库 单击集成开发环境菜单的“外接程序”“可视化数据管理器”，就会出现Visdata的主窗口 字段名字段内容字段类型字段大小studentid学号longname姓名text10gender性别text2cellphone手机号码text20tel家庭电话text20speciality专业text20项目 做一个简单的班级通讯录 任务1 使用Visdata创设计数据库任务2 修改数据表结构 任务3 为数据库添加索引 任务 使用Visdata录入数据 设计数据库任务2 修改数据表结构 项目2 在班级通讯录数据表中执行查询 任务 使用SQL语句执行查询 使用S

3、QL语句查询专业为“计算机”的记录 select * from addresstable where speciality=计算机 任务2 使用SQL语句执行模糊查询 select * from addresstable where name like 王* 任务3 使用查询生成器查询 项目2 在班级通讯录数据表中执行查询 任务 使用SQL语句任务4 创建能显示数据的窗体 任务4 创建能显示数据的窗体 项目3 使用Data控件访问数据库 使用Data控件来访问班级通讯录数据库，使该程序可以浏览通讯录里面的所有记录，还可以添加或删除记录 项目3 使用Data控件访问数据库 使用Data控件来访问

4、班任务1 添加Data控件 单击工具箱里面的Data控件按钮 设置DatabaseName属性设置RecordSource 属性任务1 添加Data控件 单击工具箱里面的Data控件按钮 添加数据绑定控件六个标签控件、六个文本框控件设置相关的属性添加数据绑定控件六个标签控件、六个文本框控件设置相关的属性任务2 用代码实现浏览数据的功能 Private Sub Command1_Click()移动到第一条记录 Data1.Recordset.MoveFirstEnd SubPrivate Sub Command2_Click()移动到上一条记录 先往上移动一条记录 Data1.Recordset

5、.MovePrevious 如果已经到达数据表的始端，则移动到第一条记录 If Data1.Recordset.BOF = True Then Data1.Recordset.MoveFirstEnd Sub 任务2 用代码实现浏览数据的功能 Private Sub CPrivate Sub Command3_Click()移动到下一条记录 先往下移动一条记录 Data1.Recordset.MoveNext 如果已经到达数据表的末尾，则移动到最后的一条记录 If Data1.Recordset.EOF = True Then Data1.Recordset.MoveLastEnd SubPr

6、ivate Sub Command4_Click()移动到最后一条记录 Data1.Recordset.MoveLastEnd Sub Private Sub Command3_Click()Recordset对象有下面几个常用的方法和属性MoveFirst方法：将当前的记录移动到数据表的第一条记录。MovePrevious方法：将当前的记录向上移动一条。MoveNext方法：将当前的记录向下移动一条。MoveLast方法：将当前的记录移动到数据表的最后一条记录。BOF属性：平时这个属性的值为False，当游标移动到第一条记录的上面时，该属性的值就会变为True。EOF属性：平时这个属性的值为

7、False，当游标移动到最后一条记录的下面时，该属性的值就会变为True。Recordset对象有下面几个常用的方法和属性MoveFi任务3 用代码实现添加和删除记录的功能 双击窗体Form1上的“添加记录”按钮，在代码窗口里输入如下的代码 Private Sub Command5_Click()添加新记录 Dim iRet As Long iRet = MsgBox(请输入新记录各字段的值，然后单击数据控件上的左键头, _ vbOKCancel, 添加记录) If iRet = vbOK Then 使用Recordset的AddNew方法可以添加一条空的记录到数据表 Data1.Record

8、set.AddNew Text1.SetFocus End IfEnd Sub 任务3 用代码实现添加和删除记录的功能 双击窗体Form1上项目4 使用ADO相关控件访问数据库 ADO是一种功能强大的访问数据库的技术，在VisualBasic 6.0提供了许多跟ADO相关的控件，其中的Adodc控件和DataGrid控件是最为常用的一对控件。使用他们可以一次显示多条记录，这使得浏览大量记录时变得非常方便。另外也可以使用Adodc控件配合文本框控件来实现浏览数据表所有记录的功能，这跟上一个项目的程序的操作步骤是很相似的，不同的地方是Adodc控件设置连接数据库的这一步，而其他步骤都是相同的。本项

9、目是要做一个能一次浏览多条记录的程序，程序使用到了Adodc和DataGrid这两个控件。项目4 使用ADO相关控件访问数据库 ADO是一种功能强大的任务1 使用Adodc控件连接数据库 单击集成开发环境菜单的“工程”“部件”。在部件对话框中选上“Microsoft ADO Data Control 6.0”和“Microsoft DataGrid Control 6.0”这两项 在工具箱中单击Adodc控件图标 ，然后在窗体下方按下鼠标左键以拖画出一个Adodc控件Adodc1 设置ConnectionString属性 任务1 使用Adodc控件连接数据库 单击集成开发环境菜单的任务2使用D

10、ataGrid控件浏览数据 在工具箱中单击DataGrid控件图标 ，然后在窗体Form1中间按下鼠标左键以拖画出一个DataGrid控件DataGrid1 选中DataGrid1控件，在属性窗口里找到DataSource属性，单击下拉按钮，在列表中选择Adodc1 任务2使用DataGrid控件浏览数据 在工具箱中单击Dat项目5 使用DataEnvironment访问数据库 DataEnvironment（数据环境设计器）用于在设计和创建ADO对象，为数据访问提供了一个可视化的编程环境。它可以统一管理工程中所有用到的数据库对象，这样我们就不用再担心程序中有多处地方用到了某个数据库的引用，只

11、需作一处改动，应用程序中的其他有关地方也会作出相应变动。项目5 使用DataEnvironment访问数据库 Dat任务1 添加DataEnvironment设计器 单击集成开发环境菜单的“工程”“添加DataEnvironment” 设置Connection对象 任务1 添加DataEnvironment设计器 单击集成开任务2 添加Command对象 在数据环境设计器中选中myconnect，然后单击工具栏的“添加命令”按钮 ，添加一个名为telecommand的对象 设置telecommand对象的属性任务2 添加Command对象 在数据环境设计器中选中myc任务3 在窗体上浏览和编辑数据 在窗体Form1中添加标签控件和文本框控件设置DataSource（数据源）属性 设置DataMember 属性 设置DataField属性 任务3 在窗体上浏览和编辑数据 在窗体Form1中添加标签控任务4 用DataReport制作通讯录报表 在集成开发环境中单击菜单“工程”“添加 Data Report” 设置DataSource属性 和DataMember属性 任务4 用DataReport制作通讯录报表 在集成开发环境在DataReport中添加控件在DataReport中添加控件小结 这一章我们学习了如何制作一个“班级通信录”数据库应用程序，包括了如何在VisData