Delphi数据库技术中Disablecontrols和Enablecontrols的功能(转)
2014-10-16 10:20
295 查看
一般来说,用来扫描整个数据库表并修改每个记录的某一个字段的程序如下所示:
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部件的联系并促使所有的数据浏览部件更新显示。
转载于:http://yishimengying.blog.163.com/blog/static/1010875702010116104843155/
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部件的联系并促使所有的数据浏览部件更新显示。
转载于:http://yishimengying.blog.163.com/blog/static/1010875702010116104843155/
相关文章推荐
- Delphi数据库技术中Disablecontrols和Enablecontrols的功能
- Delphi数据库技术中Disablecontrols和Enablecontrols的功能
- delphi的数据库技术中的disablecontrols和enablecontrols的功能
- Delphi数据库技术中Disablecontrols和Enablecontrols的功能
- delphi数据库技术简介
- 多层数据库应用基于Delphi DataSnap方法调用的实现-----------------对象池技术
- EnableGroupboxControls - a non-MFC function to enable or disable all the controls within a groupbox
- Delphi实现数据库查询编辑功能
- 技术杂记-改造具有监控功能的数据库连接池阿里Druid,支持simple-jndi,kettle
- Delphi数据库技术
- 多层数据库应用基于Delphi DataSnap方法调用的实现对象池技术
- 电子书下载:DELPHI 5 数据库开发技术
- delphi 数据库技术沉浮录--谨给成为历史的BDE
- Delphi DisableConstrol and EnableControl
- Adoquery.disablecontrols和enablecontrols
- delphi 数据库 ado技术
- 阿里云数据库全新功能Redis读写分离,全维度技术解析
- 使用package(包功能)实现DLL与主程序的数据库连接共享(Delphi版)
- 阿里云数据库全新功能Redis读写分离,全维度技术解析
- Delphi学习之函数 ⑩数据库功能函数及过程