进度条与标签

108937101

.版本 2
.支持库 eDB
.支持库 eGrid
.子程序 读取
.局部变量 n1, 整数型
.局部变量 n2, 整数型
.局部变量 temlp, 文本型
连续赋值 (真, 标签1.可视, 进度条1.可视)
记录集1.打开 (“SELECT * FROM 表”, #SQL语句)
高级表格1.行数 ＝ 记录集1.记录数量 ＋ 1
进度条1.最大位置 ＝ 高级表格1.行数 － 1
.计次循环首 (记录集1.记录数量, n1)
    .计次循环首 (6, n2)
        记录集1.读文本 (n2 － 1, temlp)
        高级表格1.置数据 (n1, n2 － 1, #表格常量.文本型, temlp)
    .计次循环尾 ()
    记录集1.到下一条 ()
    进度条1.位置 ＝ n1
.计次循环尾 ()
.判断开始 (进度条1.最大位置 ＝ 100)
    返回 ()
.默认
    信息框 (“读取完毕”, 0, )
    连续赋值 (假, 标签1.可视, 进度条1.可视)

龍孞

我这也没你的数据库，也试不了效果！QQ235439004发我看看

怪伱过分羙丽

把进度条1.最大位置改成 进度条1.位置

龍孞

标签1可视都为假了还要把标签内容为读取完成干嘛？

108937101

╰ぷ☆龙?芯 发表于 2011-12-19 19:29
标签1可视都为假了还要把标签内容为读取完成干嘛？

1.0.zip (688.45 KB, 下载次数: 34)

2011-12-19 19:56 上传

点击文件名下载附件

龍孞

[e].版本 2
.支持库 eDB
.支持库 eGrid

.子程序 读取
.局部变量 n1, 整数型
.局部变量 n2, 整数型
.局部变量 temlp, 文本型

连续赋值 (真, 标签1.可视, 进度条1.可视)
记录集1.打开 (“SELECT * FROM 表”, #SQL语句)
高级表格1.行数 ＝ 记录集1.记录数量 ＋ 1
进度条1.最大位置 ＝ 高级表格1.行数 － 1
.计次循环首 (记录集1.记录数量, n1)
    .计次循环首 (6, n2)
        记录集1.读文本 (n2 － 1, temlp)
        高级表格1.置数据 (n1, n2 － 1, #表格常量.文本型, temlp)
    .计次循环尾 ()
    记录集1.到下一条 ()
    进度条1.位置 ＝ n1
    标签1.标题 ＝ “读取中”
.计次循环尾 ()
.判断开始 (进度条1.最大位置 ＝ 进度条1.位置)
    标签1.标题 ＝ “读取完毕”
    返回 ()
.默认
    信息框 (“读取完毕”, 0, )
    连续赋值 (假, 标签1.可视, 进度条1.可视)
[/e]

龍孞

108937101 发表于 2011-12-19 19:56

这个是读取完成后不隐藏标签和进度条！

龍孞

判断 (进度条1.最大位置 ＝ 进度条1.位置)  
标签1.标题 ＝ “读取完毕”  
延迟 (2000)
连续赋值 (假, 标签1.可视, 进度条1.可视)
返回 ()  
信息框 (“读取完毕”, 0, )  
连续赋值 (假, 标签1.可视, 进度条1.可视)

这样可以隐藏

108937101

╰ぷ☆龙?芯 发表于 2011-12-19 20:07

有点小问题，一、在进度条运行时，标签1标题未显示“读取中”字样，二、进度条运行完，虽然标签1标题显示“读取完毕”但未跳出信息框。

龍孞

你是判断为假的时候才跳出信息框