展示带进度条的select语句，delphi7写的，本来是一个网友在论坛的提问，说了半天也没明白，只好给他写了个源代码，数据库没有上场，太大了，如果使用可以重新设置一下udl连接文件到你自己的库测试。-Progress bar shows the　statement, delphi7 written originally in question is a User Forum, he said a long time did not understand that he had to write a source code,　did not play, too, if you can reset click udl connection file to your test library.