.版本 2 .支持库 iext .程序集 窗口程序集1 .程序集变量 a, 整数型 .程序集变量 z, 整数型 .子程序 __启动窗口_创建完毕 打开 (取运行目录 () ＋ “\edb.edb”, “e”, , , , “”, ) 置当前库 (“e”) 初始化 () .子程序 初始化 .局部变量 i, 整数型 a ＝ 0 z ＝ 取记录数 () ' 本源码来自三叶资源网(www.sanye.cx) 跳到 (1) 超级列表框1.全部删除 () .计次循环首 (z, a) i ＝ 超级列表框1.插入表项 (, 到文本 (a), , , , ) 超级列表框1.置标题 (i, 1, 读 (“省份”)) 超级列表框1.置标题 (i, 2, 读 (“市”)) 超级列表框1.置标题 (i, 3, 读 (“县区”)) 跳到 (a ＋ 1) .计次循环尾 () 超级列表框自动调整列宽 (超级列表框1) 状态条1.置文本 (0, “共有” ＋ 到文本 (z) ＋ “条信息”) .子程序 _查找_被单击 .局部变量 lei, 整数型 .局部变量 i, 整数型 分组框1.禁止 ＝ 真 跳到 (1) 超级列表框1.全部删除 () .计次循环首 (z, a) lei ＝ 组合框.现行选中项 ＋ 1 .如果 (模糊查找.选中) .如果真 (寻找文本 (读 (lei), 查找框.内容, , 假) ≠ -1) i ＝ 超级列表框1.插入表项 (, 到文本 (a), , , , ) 超级列表框1.置标题 (i, 1, 读 (“省份”)) 超级列表框1.置标题 (i, 2, 读 (“市”)) 超级列表框1.置标题 (i, 3, 读 (“县区”)) .如果真结束 .否则 .如果真 (读 (lei) ＝ 查找框.内容) i ＝ 超级列表框1.插入表项 (, 到文本 (a), , , , ) 超级列表框1.置标题 (i, 1, 读 (“省份”)) 超级列表框1.置标题 (i, 2, 读 (“市”)) 超级列表框1.置标题 (i, 3, 读 (“县区”)) .如果真结束 .如果结束 跳到 (a ＋ 1) .计次循环尾 () 分组框1.禁止 ＝ 假 状态条1.置文本 (1, “共有” ＋ 到文本 (超级列表框1.取表项数 ()) ＋ “条搜索结果”) .子程序 _全部_被单击 初始化 () 状态条1.置文本 (1, “共有0条搜索结果”)