者者软件区号邮编助手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&region=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_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型