2011计算机等考Delphi：数据访问部件应用及编程

　　下面是应用GotoNearest方法的一段代码：

　　Table1.SetKey;

　　Table1.Fields[0].AsString:= 'Sm';

　　Table1.GotoNearest;

　　执行上述代码后，若表中存在第一个字段值等于Sm的记录时，记录指针将移到该记录处，若表中不存在第一个字段值等于Sm的记录，而存在第一个字段值等于Smith的记录，那么记录指针会移到该记录处。

　　如果我们不是以数据库表中的关键字段作为查找字段，我们也可以为TTable部件的IndexFieldName属性中的字段或IndexName属性中的字段指定查找值进行数据查找。例如，假设Customer表中有一个名叫CityIndex的辅助索引，我们为CityIndex中的字段指定查找值进行查找时，首先设置TTable部件的IndexName属性为CityIndex，然后再进行查找，下面是具体的程序代码：

　　Table1.IndexName := 'CityIndex';

　　Table1.Open;

　　Table1.SetKey;

　　Table1.FieldByName{'City').AsString := Edit1.Text;

　　Table1.GotoKey;

　　使用Find方式：使用Find方式在数据库中进行数据查找的方法有：FindNearest方法和FindKey方法。

　　FindKey方法和FindNearest方法为数据查找提供了一个简单的方法，它们将SetKey、指定查找值、执行查找三个步骤融合在一步里完成，它们在指定查找值时，是把各字段的查找值组成一个数组传给FindKey或FindNearest。下面是使FindKey方法的一个例子。

　　假设Tabel1对应的表中的第一个字段是关键字段。

　　Table.FindKey([Edit1.Text]);

　　如果用GotoKey方法完成这一功能则需要编写下面代码：

　　Table1.SetKey;

　　Table1.Fields[0].AsStrine := Edit.Text;

　　Table1.GotoKey;

　　FindKey方法和FindNearest方法的区别与GotoKey和GotoNearest方法的区别是一样的。

　　15.4.2.3 创建主要──明细数据库应用

　　TTable部件中MasterSource属性和MasterFields属性是用于定义两个数据库表的一对多的关系。MasterSource属性指定主表对应的TDataSource部件，MasterFields属性指定主表和明细表之间建立联系的字段，主表和明细表之间建立一对多关系时，可能不只是基于一个字段，可能有多个字段。如果有多个字段，那么在说明MasterFields属性时，多个字段之间要用分号隔开。如Table1.MasterFields := 'OrderNo;CustNo'。在设计阶段可以使用字段连接设计器(Field Link Designer)为两上表创建一对多的关系，在Object Inspector 中双击TTable部件的MasterFields便可以打开Field Link Designer，进行一对多关系的创建。 如创建Customer.DB表和Order.DB表之间的一对多关系时，使用Field Link Designer 如图15.5所示。

　　图15.5 使用Field Link Designer创建一对多关系

　　Field Link Designer提供了一种可视化的方法来创建主要──明细表之间的一对多关系。图中Available Indexes组合框中存放着明细表中的关键字段和索引字段，可以选择索引字段进行连接。在主表中选择一个用于连接的关键字段，然后将其与明细表中相应的关键字段连接，单击Add按钮，主要──明细表的连接字段将显示在Joined Fields列表框中，如：

　　CustNo->CustNo