自定义的函数
C:/Program Files/Borland/Delphi5/Demos/Db/Cachedup
下的单元里面有这个
procedure TCacheDemoForm.SetControlStates(Enabled: Boolean);
begin
ApplyUpdatesBtn.Enabled := Enabled;
CancelUpdatesBtn.Enabled := Enabled;
RevertRecordBtn.Enabled := Enabled;
UnmodifiedCB.Enabled := Enabled;
ModifiedCB.Enabled := Enabled;
InsertedCB.Enabled := Enabled;
DeletedCB.Enabled := Enabled;
UseUpdateSQL.Enabled := Enabled;
end;