Delphi程序设计基础 李文池 第7章 用TADOTable组件操纵数据新.ppt

第7章 用TADOTable组件操纵数据 7.1 TADOTable组件概述 7.1 TADOTable组件概述 7.1 TADOTable组件概述 7.1 TADOTable组件概述 7.1 TADOTable组件概述 7.1 TADOTable组件概述 7.1 TADOTable组件概述 7.1 TADOTable组件概述 7.1 TADOTable组件概述 7.1 TADOTable组件概述 7.1 TADOTable组件概述 7.1 TADOTable组件概述 7.1 TADOTable组件概述 7.1 TADOTable组件概述 7.1 TADOTable组件概述 7.1 TADOTable组件概述 7.1 TADOTable组件概述 7.1 TADOTable组件概述 7.1 TADOTable组件概述 7.1 TADOTable组件概述 7.2 记录的读取与修改 7.2 记录的读取与修改 7.3 记录的添加与删除 7.4 数据查询 7.5 记录指针 7.5 记录指针 7.6 数据过滤 7.6 数据过滤 7.6 数据过滤 7.6 数据过滤 7.７ 应用实例 7.７ 应用实例 7.７ 应用实例 7.７ 应用实例 7.７ 应用实例 7.７ 应用实例 7.７ 应用实例 本章实训指导 7.6.2 用OnFilterRecord事件筛选 　　当Filtered属性由False变为True时触发该事件。在OnFilterRecord事件处理程序中可以设置筛选条件。例如： procedure TForm1.ADOTable1FilterRecord(DataSet: TDataSet; var Accept: Boolean); begin Accept:=DataSet[State]=CA; end; 【例7-1】 　　编写一应用程序，对dbdemos.mdb数据库中的表Customer进行以下操作：根据输入的CustNo修改Phone和Contact字段的内容。 要完成以上功能，可以分两步操作： 　　（1）用一个文本编辑框输入CustNo，根据输入的CustNo查询表customer中对应的记录。将Phone和Contact字段的值显示在另外两个文本编辑框中。 　　（2）在文本编辑框中修改Phone和Contact的值后，再将修改后的内容写入到数据库中。为便于观察结果，在窗体中可放置一个DBGrid组件。 【实现步骤】 　　（1） 启动Delphi 7 　　（2）新建应用程序 图7-2 窗体界面 　　（3）定制窗体　　　窗体界面如图7-2所示。 修改 Caption Button2 查询 Caption Button1 Text Edit3 Text Edit2 Text Edit1 Contact Caption Label3 Phone Caption Label2 请输入CustNo Caption Label1 DataSource1 DataSource DBGrid1 指定使用的数据集为ADOTable1。 ADOTable1 DataSet DataSource1 True Active 指定打开的表名：customer customer TableName 使用连接串生成器建立数据库连接。 ConnectionString ADOTable1 说 明 属 性 值 属 性 组件名 表7-8 各组件属性设置 【例7-2】 　　在浏览数据表Customer时，根据输入的Country值过滤记录。 　　要完成以上功能，可以用一个文本编辑框输入Country值，根据输入的Country来设置过滤条件。 【实现步骤】 　　（1） 启动Delphi 7 　　（2）新建应用程序 　　（3）定制窗体 　　窗体界面如图7-3所示。 图7-3 窗体界面 执行 Caption Button1 Text Edit1 请输入Country Caption Label1 设置过滤 Caption GroupBox1 DataSource1 DataSource DBGrid1 指定使用的数据集为ADOTable1。 ADOTable1 DataSet DataSource1 True Active 指定打开的表名：customer customer TableName 使用连接串生成器建立数据库连接。 ConnectionString ADOTable1 说 明 属 性 值 属 性 组件名 表7-9 各组件属性设置 * 本章主要内容： 　TADOTable组件概述 　记录的读取与修改 　记录的添加与删