在下经常用delphi编些操作数据库的小程序,插入,删除,更新表的内容等,
想体现操作的过程,以便用户很直观的知道程序的执行过程比如:
有个表单Form1,有一个DBGrid显示表的数据,有个按钮 "导入"来实现从文本文件导入到数据库,
当点击"导入"按钮时,我发现整个表单外观基本没什么变化,用户不知道现在是什么状态,反正这时候就是表单上任何按钮都
不能操作直到导入完成,我想让这个过程表单及其上所有的按钮都稍微变浅点的颜色以示区别,然后导入完成后有个提示?
怎么实现这种过程?? (还有删除,修改等操作也一样)
想体现操作的过程,以便用户很直观的知道程序的执行过程比如:
有个表单Form1,有一个DBGrid显示表的数据,有个按钮 "导入"来实现从文本文件导入到数据库,
当点击"导入"按钮时,我发现整个表单外观基本没什么变化,用户不知道现在是什么状态,反正这时候就是表单上任何按钮都
不能操作直到导入完成,我想让这个过程表单及其上所有的按钮都稍微变浅点的颜色以示区别,然后导入完成后有个提示?
怎么实现这种过程?? (还有删除,修改等操作也一样)
button1.enabled:=false;
.
.
.
buttonX.enabled:=false;
....//这里开始执行你的导入操作
showmessage('数据导入完成!');
end;这样就行了,程序运行后,先更改按钮的属性为不可用,然后执行你的导入操作,等操作结束,弹出窗口告诉你完成