中国市县区信息大全易语言源码

中国市县区信息大全易语言源码

.版本 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条搜索结果”)

@易语言教程网