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

中国市县区信息大全易语言源码.版本 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条搜索结果”)