多线程同时查询同一数据库对比

多线程演示和单线程分别演示查询同一数据库对比

.版本 2
.支持库 EThread

.程序集 窗口程序集1
.程序集变量 许可证号, 整数型
.程序集变量 许可证号1, 整数型
.程序集变量 许可证号2, 整数型
.程序集变量 许可证号3, 整数型
.程序集变量 许可证号4, 整数型
.程序集变量 变量, 整数型
.程序集变量 计时变量, 整数型

.子程序 __启动窗口_创建完毕
.局部变量 计次循环变量, 整数型

全部关闭 ()
打开 (取运行目录 () ＋ “查询数据库.edb”, “查询数据库”, , , , , )
到首记录 ()

.子程序 _按钮1_被单击

编辑框1.内容 ＝ “”
编辑框2.内容 ＝ “”
编辑框3.内容 ＝ “”
编辑框4.内容 ＝ “”
标签3.标题 ＝ “”
许可证号 ＝ 创建进入许可证 ()
许可证号1 ＝ 创建进入许可证 ()
许可证号2 ＝ 创建进入许可证 ()
许可证号3 ＝ 创建进入许可证 ()
变量 ＝ 0
启动线程 (&查询子程序, 1)
启动线程 (&查询子程序1, 2)
启动线程 (&查询子程序2, 3)
启动线程 (&查询子程序3, 4)
时钟1.时钟周期 ＝ 10

.子程序 查询子程序
.局部变量 计次循环变量, 整数型

置当前库 (“查询数据库”)
到首记录 ()
进入许可区 (许可证号)
.计次循环首 (取记录数 (), 计次循环变量)
    编辑框1.加入文本 (到文本 (读 (#编号)) ＋ #换行符)
    .如果 (尾记录后 () ＝ 真)
        跳出循环 ()
    .否则

    .如果结束
    ' 本源码来自三叶资源网(www.sanye.cx)
    跳过 ()
.计次循环尾 ()
退出许可区 (许可证号)
删除进入许可证 (许可证号)
计时变量 ＝ 计时变量 ＋ 1

.子程序 查询子程序1
.局部变量 计次循环变量, 整数型

置当前库 (“查询数据库”)
到首记录 ()
进入许可区 (许可证号1)
.计次循环首 (取记录数 (), 计次循环变量)
    编辑框2.加入文本 (到文本 (读 (#编号)) ＋ #换行符)
    .如果 (尾记录后 () ＝ 真)
        跳出循环 ()
    .否则
        ' 本源码来自三叶资源网(www.sanye.cx)
    .如果结束
    跳过 ()
.计次循环尾 ()
退出许可区 (许可证号1)
删除进入许可证 (许可证号1)
计时变量 ＝ 计时变量 ＋ 1

.子程序 查询子程序2
.局部变量 计次循环变量, 整数型

置当前库 (“查询数据库”)
到首记录 ()
进入许可区 (许可证号2)
.计次循环首 (取记录数 (), 计次循环变量)
    编辑框3.加入文本 (到文本 (读 (#编号)) ＋ #换行符)
    .如果 (尾记录后 () ＝ 真)
        跳出循环 ()
    .否则

    .如果结束
    ' 本源码来自三叶资源网(www.sanye.cx)
    跳过 ()
.计次循环尾 ()
退出许可区 (许可证号2)
删除进入许可证 (许可证号2)
计时变量 ＝ 计时变量 ＋ 1

.子程序 查询子程序3
.局部变量 计次循环变量, 整数型

置当前库 (“查询数据库”)
到首记录 ()
进入许可区 (许可证号3)
.计次循环首 (取记录数 (), 计次循环变量)
    编辑框4.加入文本 (到文本 (读 (#编号)) ＋ #换行符)
    .如果 (尾记录后 () ＝ 真)
        跳出循环 ()
    .否则
        ' 本源码来自三叶资源网(www.sanye.cx)
    .如果结束

    跳过 ()
.计次循环尾 ()
退出许可区 (许可证号3)
删除进入许可证 (许可证号3)
计时变量 ＝ 计时变量 ＋ 1

.子程序 单线查询子程序1
.局部变量 计次循环变量, 整数型

编辑框7.内容 ＝ “”
标签4.标题 ＝ “”
置当前库 (“查询数据库”)
到首记录 ()
进入许可区 (许可证号4)
.计次循环首 (取记录数 (), 计次循环变量)
    编辑框7.加入文本 (到文本 (读 (#编号)) ＋ #换行符)
    .如果 (尾记录后 () ＝ 真)
        跳出循环 ()
    .否则
        ' 本源码来自三叶资源网(www.sanye.cx)
    .如果结束
    跳过 ()
.计次循环尾 ()
退出许可区 (许可证号4)
删除进入许可证 (许可证号4)
时钟2.时钟周期 ＝ 0

.子程序 _时钟1_周期事件

变量 ＝ 变量 ＋ 10
.判断开始 (计时变量 ≠ 4)
    标签3.标题 ＝ 到文本 (变量)
.默认
    时钟1.时钟周期 ＝ 0
.判断结束


.子程序 _按钮2_被单击

许可证号4 ＝ 创建进入许可证 ()
启动线程 (&单线查询子程序1, 1)
变量 ＝ 0
时钟2.时钟周期 ＝ 10

.子程序 _时钟2_周期事件

变量 ＝ 变量 ＋ 10
标签4.标题 ＝ 到文本 (变量)

.子程序 __启动窗口_可否被关闭, 逻辑型

退出许可区 (许可证号)
删除进入许可证 (许可证号)
退出许可区 (许可证号1)
删除进入许可证 (许可证号1)
退出许可区 (许可证号2)
删除进入许可证 (许可证号2)
退出许可区 (许可证号3)
删除进入许可证 (许可证号3)

@易语言在线学习