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

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

.版本 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)
相关文件下载地址
©下载资源版权归作者所有;本站所有资源均来源于网络,仅供学习使用,请支持正版!

多线程同时查询同一数据库对比》有0个想法

发表回复

您的电子邮箱地址不会被公开。 必填项已用*标注