except
on e: exception do
application.messagebox(
pchar(err_timeupdatetimerfail + #13 + e.message),
'error',
mb_iconerror
);
end;
因为某些表的数据量比较大，所以在刷新网格的时候会有停顿，经过优化数据库结构，增加冗余字段，刷新速度已经获得提高，但还是存在停顿一到两秒的情况。因为一开始主要集中点在数据库上，所以没考虑到代码在执行效率上存在的问题。当在一次测试中发现，当没有任何数据网格需要刷新的情况下也要停顿一到两秒。我立刻想到这肯定是代码的执行效率有问题。经过分析，发现无论是否有数据更新，程序都要执行一次while循环，而这个while要遍历所有记录，当发现数据更新时，还要一个一个的修改标志值并保存回数据库。于是立刻让程序员做一下修改：
1、 只读标志值为1的记录，减少循环次数；当没有标志值为1的记录时，不执行循环和更新操作。
2、 在最后通过update语句更新所有标志值为1的记录
经过修改，程序的停顿现象消失了，刷新效率大大提高。
