第13章 数据库编程(18)

delphi数据库编程

10. 搜索特定记录（补充）

调用数据集的Locate和Lookup方法可以搜索数据集中的特定记录（记录定位）。

（1）Locate方法◆

调用语法：

数据集.Locate（‘待查字段列表’，字段值，选项集合）

参数说明：

‘待查字段列表’：由一对单引号括起来的字段名。若有多个字段，用分号分隔。

字段值：与字段名对应。若有多个字段，字段值应当是一个变体型数组。

选项集合：搜索记录的附加条件。可取loCaseInsensitive（不区分大小写）和loPartialKey（部分匹配，仅适用于字符串型字段）。

注意：使用选项集合时，必须在本单元中添加对DB单元的引用。 返回值：Boolean。若找到匹配记录，则将第一条匹配记录作为当前记录，并返回True；否则返回False，记录指针位置不变。

示例： If ADOTable1.Locate('姓名', '李', [loPartialKey]) = False then ShowMessage('未找到姓 李 的学生。');

var sName: string;

...

sName := Trim(edtName.Text);

If ADOTable1.Locate('姓名', sName, [loPartialKey]) = False then

ShowMessage('未找到姓名为 ' + sName + ' 的学生。');

ADOTable1.Locate('姓名;出生日期', VarArrayOf(['张三', StrToDate('1981-6-9')]), [loPartialKey]);

ADOTable2.Locate('课程; 分数', VarArrayOf(['英语', 79]),

[loPartialKey]);

关于Locate方法的几点说明：◆

① 若有多条记录符合条件，则只能定位于第一条匹配记录。