面向对象程序设计实用第6章.ppt

本章学习目标 应知： 数据库基本概念 报表的作用 数据库访问过程 应会： 使用可视化数据管理器 使用数据环境设计器 使用Data控件连接数据库 使用ADO访问数据库 创建报表的方法 数据库的基础知识 什么是数据库 数据库就是按一定方式组织存储的大量数据的集合。 打个比方来讲，数据库就好像一个图书馆，我们可以将大量的书籍按照一定的规律储存在图书馆里面，也可以很方便地从里面找到我们需要的书籍。 数据库访问过程 数据库的程序设计包括三部分内容：数据库主体、数据库引擎和程序用户界面 项目１ 做一个简单的班级通讯录 任务1 使用Visdata创建通讯录数据库 单击集成开发环境菜单的“外接程序”“可视化数据管理器”，就会出现Visdata的主窗口 字段名 字段内容 字段类型 字段大小 studentid 学号 long ? name 姓名 text 10 gender 性别 text 2 cellphone 手机号码 text 20 tel 家庭电话 text 20 speciality 专业 text 20 设计数据库 任务2 修改数据表结构 任务3 为数据库添加索引 任务４ 使用Visdata录入数据 项目2 在班级通讯录数据表中执行查询 任务１ 使用SQL语句执行查询 使用SQL语句查询专业为“计算机”的记录 select * from addresstable where speciality=’计算机’ 任务2 使用SQL语句执行模糊查询 select * from addresstable where name like ’王*’ 任务3 使用查询生成器查询 任务4 创建能显示数据的窗体 项目3 使用Data控件访问数据库 使用Data控件来访问班级通讯录数据库，使该程序可以浏览通讯录里面的所有记录，还可以添加或删除记录 任务1 添加Data控件 单击工具箱里面的Data控件按钮 设置DatabaseName属性 设置RecordSource 属性 添加数据绑定控件 六个标签控件、六个文本框控件 设置相关的属性 任务2 用代码实现浏览数据的功能 Private Sub Command1_Click() 移动到第一条记录 Data1.Recordset.MoveFirst End Sub Private Sub Command2_Click() 移动到上一条记录 先往上移动一条记录 Data1.Recordset.MovePrevious 如果已经到达数据表的始端，则移动到第一条记录 If Data1.Recordset.BOF = True Then Data1.Recordset.MoveFirst End Sub Private Sub Command3_Click() 移动到下一条记录 先往下移动一条记录 Data1.Recordset.MoveNext 如果已经到达数据表的末尾，则移动到最后的一条记录 If Data1.Recordset.EOF = True Then Data1.Recordset.MoveLast End Sub ? Private Sub Command4_Click() 移动到最后一条记录 Data1.Recordset.MoveLast End Sub Recordset对象有下面几个常用的方法和属性 MoveFirst方法：将当前的记录移动到数据表的第一条记录。 MovePrevious方法：将当前的记录向上移动一条。 MoveNext方法：将当前的记录向下移动一条。 MoveLast方法：将当前的记录移动到数据表的最后一条记录。 BOF属性：平时这个属性的值为False，当游标移动到第一条记录的上面时，该属性的值就会变为True。 EOF属性：平时这个属性的值为False，当游标移动到最后一条记录的下面时，该属性的值就会变为True。 任务3 用代码实现添加和删除记录的功能 双击窗体Form1上的“添加记录”按钮，在代码窗口里输入如下的代码 Private Sub Command5_Click() 添加新记录 Dim iRet As Long iRet = MsgBox(请输入新记录各字段的值，然后单击数据控件上的左键头, _ vbOKCancel, 添加记录) If iRet = vbOK Then 使用Recordset的AddNew方法可以添加一条空的记录到数据表 Data1.Recordse