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

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

.版本 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条搜索结果”)
相关文件下载地址
©下载资源版权归作者所有;本站所有资源均来源于网络,仅供学习使用,请支持正版!

发表回复

您的电子邮箱地址不会被公开。 必填项已用*标注