.版本 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)