delphi的数据库技术中的disablecontrols和enablecontrols的功能

修改数据库记录

14.6.1 Edit方法Post方法　

    为了能让用户通过程序修改数据库表中的记录，TTable部件必须要处在编辑状态下。在大多数情况下，数据库表都是以浏览（只读方式）方式打开的，也就是说它的每一个字段可以被读取介不能被编辑修改。调用Edit 方法能够将 TTable 部件置成编辑状态， 当TTable部件处于编辑状态后，我们才可以通过程序修改当前记录指针所指向的记录，但这样修改后的记录不会立即被写入到磁盘上的实际数据库表中。要想保存对记录的修改，必须要调用Post方法，Post方法才真正将我们对记录的修改写入实际的数据库表中。

一般来说，用来扫描整个数据库表并修改每个记录的某一个字段的程序如下所示：

with Table Do

begin

DisableControls;{在修改记录的过程中，使其它部件无效}

First; {将记录指针指向第一条记录}

while not EOF do

begin

<读取记录的一个字段值到一个变量中>

<做适当的修改>

Edit; {将TTable部件置成编辑状态}

<将修改后的字段值写回到其对应的字段>

post; {将修改后的记录写回数据库}

next; {修改下一条记录}

end;

enablecontrols; {恢复其它部件的功能}

end;

    程序都是对TTable部件进行操作，因此使用With语句来防止错误的扩散是很有意义的。在这里要注意Disablecontrols方法和EnableControls方法的使用。DisableControls方法是在程序修改TTable部件中的记录时，切断TTable部件与数据访问部件TDatasource 部件的联系。否则，在对TTable中的每一修改之后，TDataSource 部件都会更新窗体中所有数据浏览部件的显示内容，这样会急剧减慢处理过程而且浪费时间。EnableControls方法是与DisableControle方法执行相反的操作，它是用来恢复TTable部件与TDatasource部件的联系并促使所有的数据浏览部件更新显示。

    调用First方法是将记录指针移到数据库表中的第一条记录，确保程序从表中的第一条记录开始进行修改。调用Next方法是将记录指针从当前的记录移到下一条记录，这样保证了从表中的第一条记录开始逐条记录进行修改，直到修改完最后一条记录。如果不调用Next方法，程序将会陷入无穷的死循环。