【文件属性】：
文件名称：e语言-中国市县区信息大全易语言
文件大小：150KB
文件格式：RAR
更新时间：2022-09-12 04:47:03
易语言
中国市县区信息大全易语言源码.版本 2
.支持库 iext
.程序集 窗口程序集1
.程序集变量 a, 整数型
.程序集变量 z, 整数型
.子程序 __启动窗口_创建完毕
打开 (取运行目录 () ＋ “\edb.edb”, “e”, , , , “”, )
置当前库 (“e”)
初始化 ()
.子程序 初始化
.局部变量 i, 整数型
a ＝ 0
z ＝ 取记录数 () '
跳到 (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条搜索结果”)