Delphi數據庫技術中Disablecontrols和Enablecontrols的功能
阿新 • • 發佈：2019-01-10
編輯狀態 mysql itl htm first http -m pid stat
一般來說，用來掃描整個數據庫表並修改每個記錄的某一個字段的程序如下所示：
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部件的聯系並促使所有的數據瀏覽部件更新顯示。
Delphi數據庫技術中Disablecontrols和Enablecontrols的功能