第13章 数据库编程(12)

delphi数据库编程

end;

提示：本例还演示了遍历数据集时调用DisableControls方法禁止数据感知控件刷新，以便加快处理速度，并防止闪烁。遍历完成后调用EnableControls方法恢复控件刷新。注意EnableControls方法的调用应放在try...finally语句的finally子句中，以保证即使遍历出现异常，仍能确保控件刷新恢复正常。

②Bof

Bof为True时表示指针指向数据集的首记录。下列操作将导致Bof为True：

打开一个数据集。

调用数据集的First方法。

调用数据集的Prior方法失败（因当前记录是首记录）。

除上述情况外，Bof均为False。

Bof属性亦可用于遍历数据集。下面的代码段遍历数据集ADOTable1中的所有记录： ADOTable1.DisableControls; { 提高处理速度，防止屏幕闪烁 }

try

st; { 指向末记录, Bof为False }

while not ADOTable1.Bof do { 循环至Bof为True }

begin

{ 处理各记录 }

...

{ 调用Prior成功时Bof为False;

指针指向首记录时调用Prior失败，Bof为True }

ADOTable1.Prior;

end;

finally

ADOTable1.EnableControls; { 显示当前记录 }

end;

（3）使用数据库导航组件

数据库导航组件TDBNavigator可用于浏览和处理记录。