者者软件区号邮编助手1.4源代码(二)
下载 .版本 2 .支持库 iext .支持库 HtmlView .程序集 窗口程序集1 .子程序 _国内区号邮编_被选择 .子程序 _查询市_被单击 .局部变量 记录数, 整数型 .局部变量 变量1, 整数型 .局部变量 变量2, 整数型 .局部变量 测试1, 整数型 .局部变量 变量3, 文本型 .如果真 (编辑市.内容 = “”) ' 或 编辑框2.内容 = “”) 信息框 (“城市不能为空”, 0, “提示”) 返回 () .如果真结束 打开 (#国内邮编区号表, , , , , , ) 变量3 = 删全部空 (编辑市.内容) 记录数 = 取记录数 () 到首记录 () 超级列表框1.全部删除 () ' 判断循环首 (尾记录后 () = 假) 超级链接框6.标题 = 编辑市.内容 + “区号邮编” 超级链接框7.标题 = 编辑市.内容 + “区号邮编” 超级链接框8.标题 = 编辑市.内容 + “区号邮编” 超级链接框9.标题 = 编辑市.内容 + “区号邮编” 超级链接框10.标题 = 编辑市.内容 + “区号邮编” 超级链接框11.标题 = 编辑市.内容 + “区号邮编” 编辑市.内容 = “” 编辑区县.内容 = “” .计次循环首 (记录数, 变量2) .如果真 (查找 (寻找文本 (删全部空 (读 (“市”)), 变量3, , 假) ≠ -1)) 变量1 = 超级列表框1.插入表项 (, 到文本 (变量2), , , , ) 超级列表框1.置标题 (变量1, 0, 读 (“省”)) 超级列表框1.置标题 (变量1, 1, 读 (“市”)) 超级列表框1.置标题 (变量1, 2, 读 (“区县”)) 超级列表框1.置标题 (变量1, 3, 读 (“邮编”)) 超级列表框1.置标题 (变量1, 4, 读 (“区号”)) 超级列表框1.置标题 (变量1, 5, 读 (“简称”)) 超级列表框1.置标题 (变量1, 6, 读 (“简拼”)) 跳过 () .如果真结束 .如果 (读 (“市”) ≠ 变量3) 返回 () .否则 .如果结束 .计次循环尾 () 全部关闭 () .子程序 _国内区号邮编查询_创建完毕 .子程序 _超级列表框1_当前表项被改变 .子程序 _查询区县_被单击 .局部变量 记录数, 整数型 .局部变量 变量1, 整数型 .局部变量 变量2, 整数型 .局部变量 测试1, 整数型 .局部变量 变量3, 文本型 .如果真 (编辑区县.内容 = “”) ' 或 编辑框2.内容 = “”) 信息框 (“区县不能为空”, 0, “提示”) 返回 () .如果真结束 打开 (#国内邮编区号表, , , , , , ) 变量3 = 删全部空 (编辑区县.内容) 记录数 = 取记录数 () 到首记录 () 超级列表框1.全部删除 () ' 判断循环首 (尾记录后 () = 假) 超级链接框6.标题 = 编辑区县.内容 + “区号邮编” 超级链接框7.标题 = 编辑区县.内容 + “区号邮编” 超级链接框8.标题 = 编辑区县.内容 + “区号邮编” 超级链接框9.标题 = 编辑区县.内容 + “区号邮编” 超级链接框10.标题 = 编辑区县.内容 + “区号邮编” 超级链接框11.标题 = 编辑区县.内容 + “区号邮编” 编辑市.内容 = “” 编辑区县.内容 = “” .计次循环首 (记录数, 变量2) .如果真 (查找 (寻找文本 (删全部空 (读 (“区县”)), 变量3, , 假) ≠ -1)) 变量1 = 超级列表框1.插入表项 (, 到文本 (变量2), , , , ) 超级列表框1.置标题 (变量1, 0, 读 (“省”)) 超级列表框1.置标题 (变量1, 1, 读 (“市”)) 超级列表框1.置标题 (变量1, 2, 读 (“区县”)) 超级列表框1.置标题 (变量1, 3, 读 (“邮编”)) 超级列表框1.置标题 (变量1, 4, 读 (“区号”)) 超级列表框1.置标题 (变量1, 5, 读 (“简称”)) 超级列表框1.置标题 (变量1, 6, 读 (“简拼”)) 跳过 () .如果真结束 .如果 (读 (“区县”) ≠ 变量3) 返回 () .否则 .如果结束 .计次循环尾 () 全部关闭 () .子程序 _超级列表框1_表项被激活 .子程序 _主窗口_创建完毕 超级链接框6.标题 = “者者软件区号邮编助手” 超级链接框7.标题 = “者者软件区号邮编助手” 超级链接框8.标题 = “者者软件区号邮编助手” 超级链接框9.标题 = “者者软件区号邮编助手” 超级链接框10.标题 = “者者软件区号邮编助手” 超级链接框11.标题 = “者者软件区号邮编助手” 超文本浏览框1.地址 = “http://i.zhongsou.com/zhezhezhijia/channel/2255044” .子程序 _选择夹1_被单击 .子程序 _查询国家_被单击 .局部变量 记录数1, 整数型 .局部变量 变量1, 整数型 .局部变量 变量2, 整数型 .局部变量 变量3, 文本型 .如果真 (编辑国家.内容 = “”) ' 或 编辑框2.内容 = “”) 信息框 (“国家不能为空”, 0, “提示”) 返回 () .如果真结束 打开 (#国际区号时差表, , , , , , ) 变量3 = 删全部空 (编辑国家.内容) 记录数1 = 取记录数 () 到首记录 () 超级列表框2.全部删除 () ' 判断循环首 (尾记录后 () = 假) 超级链接框6.标题 = 编辑国家.内容 + “区号” 超级链接框7.标题 = 编辑国家.内容 + “区号” 超级链接框8.标题 = 编辑国家.内容 + “区号” 超级链接框9.标题 = 编辑国家.内容 + “区号” 超级链接框10.标题 = 编辑国家.内容 + “区号” 超级链接框11.标题 = 编辑国家.内容 + “区号” 编辑国家.内容 = “” .计次循环首 (记录数1, 变量2) .如果真 (查找 (寻找文本 (删全部空 (读 (“国家名称”)), 变量3, , 假) ≠ -1)) 变量1 = 超级列表框2.插入表项 (, 到文本 (变量2), , , , ) 超级列表框2.置标题 (变量1, 0, 读 (“州”)) 超级列表框2.置标题 (变量1, 1, 读 (“国家名称”)) 超级列表框2.置标题 (变量1, 2, 读 (“区号”)) 超级列表框2.置标题 (变量1, 3, 读 (“时差”)) 跳过 () .如果真结束 .如果 (读 (“国家名称”) ≠ 变量3) 返回 () .否则 .如果结束 .计次循环尾 () 全部关闭 () .子程序 _保存1_被单击 打开 (#国内邮编区号表, , , , , , ) 加空记录 () 写 (#省, 省.内容) 写 (#市, 市.内容) 写 (#区县, 区县.内容) 写 (#区号, 区号1.内容) 写 (#邮编, 邮编.内容) 写 (#简拼, 简拼.内容) 写 (#简称, 简称.内容) 全部关闭 () 信息框 (“添加成功”, 0, “提示”) 清除 () .子程序 _取消_被单击 清除 () .子程序 清除 市.内容 = “” 省.内容 = “” 区县.内容 = “” 区号1.内容 = “” 区号2.内容 = “” 邮编.内容 = “” 简称.内容 = “” 简拼.内容 = “” 洲.内容 = “” 国家.内容 = “” 时差.内容 = “” .子程序 _保存2_被单击 打开 (#国际区号时差表, , , , , , ) 加空记录 () 写 (#州, 洲.内容) 写 (#国家名称, 国家.内容) 写 (#时差, 时差.内容) 写 (#区号, 区号2.内容) 全部关闭 () 信息框 (“添加成功”, 0, “提示”) 清除 () .子程序 _按钮1_被单击 .局部变量 记录数, 整数型 .局部变量 变量1, 整数型 .局部变量 变量2, 整数型 打开 (#国内邮编区号表, , , , , , ) 记录数 = 取记录数 () 到首记录 () 超级列表框1.全部删除 () .计次循环首 (记录数, 变量2) 变量1 = 超级列表框1.插入表项 (, 到文本 (变量2), , , , ) 超级列表框1.置标题 (变量1, 0, 读 (“省”)) 超级列表框1.置标题 (变量1, 1, 读 (“市”)) 超级列表框1.置标题 (变量1, 2, 读 (“区县”)) 超级列表框1.置标题 (变量1, 3, 读 (“邮编”)) 超级列表框1.置标题 (变量1, 4, 读 (“区号”)) 超级列表框1.置标题 (变量1, 5, 读 (“简称”)) 超级列表框1.置标题 (变量1, 6, 读 (“简拼”)) 跳过 () .计次循环尾 () 全部关闭 () 编辑市.内容 = “” 编辑区县.内容 = “” .子程序 _按钮2_被单击 .局部变量 变量3, 整数型 .局部变量 变量4, 整数型 .局部变量 记录数1, 整数型 ' 启动时显示国际区号时差 打开 (#国际区号时差表, , , , , , ) 记录数1 = 取记录数 () 到首记录 () 超级列表框2.全部删除 () .计次循环首 (记录数1, 变量4) 变量3 = 超级列表框2.插入表项 (, 到文本 (变量4), , , , ) 超级列表框2.置标题 (变量3, 0, 读 (“州”)) 超级列表框2.置标题 (变量3, 1, 读 (“国家名称”)) 超级列表框2.置标题 (变量3, 2, 读 (“区号”)) 超级列表框2.置标题 (变量3, 3, 读 (“时差”)) 跳过 () .计次循环尾 () 全部关闭 () 编辑国家.内容 = “” .子程序 _测试_被选择 .子程序 _关于_被选择 系统关于对话框 (0, “者者区号邮编助手”, “由 者者之家 制作”, 0) .子程序 _退出_被选择 销毁 () .子程序 _选择夹1_将改变子夹, 逻辑型 .子程序 _区号邮编查询器_被选择 运行 (“者者软件区号邮编查询器.exe”, 假, ) .子程序 _超级链接框6_鼠标左键被按下, 逻辑型 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型 超级链接框6.Internet地址 = “http://hi.baidu.com/sys/search?p ... mp;sort=1&word=” + 超级链接框6.标题 + “&entry=2®ion=1&hi=zhezhezhijia1&date=” .子程序 _超级链接框7_鼠标左键被按下, 逻辑型 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型 超级链接框7.Internet地址 = “http://www.google.cn/search?hl=zh-CN&q=” + 超级链接框7.标题 + “&meta=&aq=f&oq=” .子程序 _超级链接框8_鼠标左键被按下, 逻辑型 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型 超级链接框8.Internet地址 = “http://p.zhongsou.com/p?word=” + 超级链接框8.标题 + “&pt=1&k=&jc=&aid=&rt=o” .子程序 _超级链接框9_鼠标左键被按下, 逻辑型 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型 超级链接框9.Internet地址 = “http://www.youdao.com/search?q=” + 超级链接框9.标题 + “&btnIndex=%E6%90%9C+%E7%B4%A2&ue=utf8&keyfrom=web.index” .子程序 _超级链接框10_鼠标左键被按下, 逻辑型 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型 超级链接框10.Internet地址 = “http://www.soso.com/q?gid=&c ... 10&site=&w=” + 超级链接框10.标题 .子程序 _超级链接框11_鼠标左键被按下, 逻辑型 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型 超级链接框11.Internet地址 = “http://www.sogou.com/web?query=” + 超级链接框11.标题 + “&_asf=www.sogou.com&_ast=1241058829&w=01019900&p=40040100” .子程序 _简易密码管理器_被选择 运行 (“者者软件简易密码管理器.exe”, 假, ) .子程序 _超级链接框5_鼠标左键被按下, 逻辑型 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型 |