delphi中执行一个存储过程需要花几分钟，怎样出现一个进度条报告进度？

Question

给个等待的窗口就行了:
正在处理数据，请等待……pub_wait.CreateWait('正在处理数据，请等待……');
//call procedure
pub_wait.HideWait;

Answer 1

呵呵，如果需要锦上添花，那么就再增加一个循环播放的动画在你的等待窗口上。这招用户很满意，特别是在等待窗口中提示“可能需要等待数秒甚至几分钟”即可，没有必要搞什么进度条，既浪费开发时间又不会提高运行效率。不过，可能需要用多线程实现，否则动画可能不动。

Answer 2

同意这句话：没有必要搞什么进度条，既浪费开发时间又不会提高运行效率。不过如果你一定要进度条，可以在数据库里建一个包，包头里定义一个全局变量，再修改这个存储过程，在必要的地方更新这个变量。
然后应用里可以通过读取这个变量值，知道现在进行到了什么地方。如果不是十分必要，弄个等待窗口就够了，呵呵。