SQL 执行进度条求助

六安小朱

进度条问题.e (2.44 KB, 下载次数: 5)

4 天前 上传

点击文件名下载附件

aipca

记录集处理的循环里加进度。

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
i	整数型

记录集1.打开 (“SELECT *  FROM  TABLE”, #SQL语句, )
计次循环首 (记录集1.记录数量, i)
延时 (1)
调试输出 (“已完成进度” ＋ 到文本 (i ÷ 记录集1.记录数量))
计次循环尾 ()

i支持库列表	支持库注释
eDB	数据库操作支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 eDB<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 i, 整数型<br /> <br /> 记录集1.打开 (“SELECT *  FROM  TABLE”, #SQL语句, )<br /> <br /> .计次循环首 (记录集1.记录数量, i)<br />     延时 (1)<br />     调试输出 (“已完成进度” ＋ 到文本 (i ÷ 记录集1.记录数量))<br /> .计次循环尾 ()

chenboss

没这个功能吧，防止卡死用线程打开

六安小朱

chenboss 发表于 2025-1-15 13:39
没这个功能吧，防止卡死用线程打开

那怎么把进度显示在进度条上

chenboss

六安小朱 发表于 2025-1-15 13:42
那怎么把进度显示在进度条上

可以弄个伪进度条

  

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

启动线程 (&打开, , )

子程序名	返回值类型	公开	备 注
打开

启动线程 (&进度条, , )
记录集1.打开 (, , )
进度条1.位置 ＝ 100
信息框 (“打开完成”, 0, , )

子程序名	返回值类型	公开	备 注
进度条

判断循环首 (进度条1.位置 ＜ 100)
如果真 (进度条1.位置 ＜ 99)
进度条1.位置 ＝ 进度条1.位置 ＋ 1
延时 (100)
判断循环尾 ()

i支持库列表	支持库注释
EThread	多线程支持库
eDB	数据库操作支持库

.版本 2<br /> .支持库 EThread<br /> .支持库 eDB<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 启动线程 (&打开, , )<br /> <br /> <br /> .子程序 打开<br /> <br /> 启动线程 (&进度条, , )<br /> 记录集1.打开 (, , )<br /> 进度条1.位置 ＝ 100<br /> 信息框 (“打开完成”, 0, , )<br /> <br /> .子程序 进度条<br /> <br /> .判断循环首 (进度条1.位置 ＜ 100)<br />     .如果真 (进度条1.位置 ＜ 99)<br />         进度条1.位置 ＝ 进度条1.位置 ＋ 1<br />     .如果真结束<br />     延时 (100)<br /> .判断循环尾 ()