2011计算机等考Delphi：数据库创建及MASTAPP介绍

　　14.5 查询数据库中的记录

　　数据库中储存着大量的数据信息，如何充分有效地查询其中的数据，对用户而言是至关重要的。如果想查询数据库，首先要确定要查询的字段要么是数据库表中的关键字段，要么是辅助索引。如果我们查询的是Paradox或dBASE数据库系统中的表，这是唯一的选择。

　　一般而言，查询数据库中的记录的方法有两种：Gotokey方法和Findkey方法。两种方法十分相似，主要区别在于我们如何指定查找值。这两种方法的思想是在指定列(字段)中寻找指定的查找值，如果在数据库表中找到了这个值，表中的记录指针便指向该记录，这样我们便查询到了我们需要的记录，进而可以访问找到的记录中的各项数据。

　　14.5.1 使用GotoKey方法查找数据记录

　　使用Gotokey方法查询数据库中的记录的具体步骤如下：

　　1、确保要查找的字段是关键字或已经为它定义了辅助索引，并保证TTable部件的属性列表中有关键字段名或辅助索引名。

　　2、通过调用GotoKey方法，把要查找的TTable部件置成查找模式。

　　3、把查找值送进被查找的Field的查找缓冲区。

　　4、调用TTable部件的GotoKey方法，并测试它的返回值判断查找是否成功。

　　如果查找成功，GotoKey返回一个True值，并且表中的记录指针指向找到的记录。如果查找失败，GotoKey返回False，表中的记录指针不发生变化。

　　在这里要注意的是如何给Field的查找缓冲区赋值，我们知道字段对象是不可见的对象，它们没有自己的名字，在大多数情况下，要使用TTable部件的FieldByName 方法到字段列表中查找字段对象以便为它赋值。但字段缓冲区也是没有名字的，当TTable部件处于查找模式时，我们只要把查找值赋给字段对象的AsString属性就可以了。AsString的作用不只是它的表面意思。它是一个转换属性，任何赋给字段对象的AsString属性的字符串都将转换成该字段对象应于数据库表中的字段的数据类型。当然AsString不能将查找值转换成BLOB、Bytes、Memo和Graphic类型的数据，用户一般也不会查找这种数据类型的字段。

　　下面便是说明使用Gotokey方法查找数据记录的例子。

　　例14.3 当用户在Edit1部件中输入客户号码并单击查找按钮，程序便开始在Table1中查找这个客户号。如果查找成功，查找信息“查找成功”便会显示在标签Label1上，被查询到的客户的电话号码显示在标签Label2上。表中的记录指针将转移到该客户记录处。并且在网格DBGrid1中以高亮度显示这一条记录。

　　查询数据库中的记录

　　下面的程序清单是查询按钮上的OnClick事件的处理程序，它是使用Gotokey方法查找数据库中的记录的。

　　procedure TForm1.Button1OnClick(Sender:TObject);

　　begin

　　with Table1 do

　　begin

　　Label1.Caption:=' ';

　　Label1.Caption:=' ';

　　IndexFieldName:='CustNo';

　　setkey;

　　FieldByName('CustNo').AsString:=Edit1.Text;

　　If GotoKey then

　　begin

　　Label1.Caption:='查找成功';

　　Label1.Caption:=FieldByName('Phone').AsString;

　　end;

　　else

　　Label1.Caption:='查找失败';

　　end;

　　查询数据库中的记录