| 窗口程序集名 | 保 留 | 保 留 | 备 注 |
| 窗口程序集_启动窗口 | |||
| 变量名 | 类 型 | 数组 | 备 注 |
| 被选择文件名 | 文本型 | 不含后缀 | |
| 文件路径 | 文本型 | 用于存放打印模板和配置文件 | |
| 当前查找位置 | 表示列表框的id, |
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| __启动窗口_创建完毕 | |||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| 文件名 | 文本型 | 0 | ||||
| 单号方式 | 文本型 | |||||
当前查找位置 ＝ 1
文件路径 ＝ 取运行目录 () ＋ “\打印模板\”
如果真 (文件是否存在 (取运行目录 () ＋ “\tishi.mp3”) ＝ 假)
写到文件 (取运行目录 () ＋ “\tishi.mp3”, #tishi )写到文件 (取运行目录 () ＋ “\说明.png”, #shuoming )执行 (, 取运行目录 () ＋ “\说明.png”, , , )单号方式 ＝ 读配置项 (文件路径 ＋ “set.ini”, “设置”, “单号方式”, )
判断 (单号方式 ＝ “自增”)单选框_自增.选中 ＝ 真单选框_自减.选中 ＝ 假
编辑框_单号.内容 ＝ 到文本 (到数值 (读配置项 (文件路径 ＋ “set.ini”, “寄件信息”, “单号”, )) ＋ 1)
判断 (单号方式 ＝ “自减”)
单选框_自增.选中 ＝ 假单选框_自减.选中 ＝ 真
编辑框_单号.内容 ＝ 到文本 (到数值 (读配置项 (文件路径 ＋ “set.ini”, “寄件信息”, “单号”, )) － 1)
文件_枚举 (文件路径, “*.grf”, 文件名, 假)
加载模板文件 (列表框1, 文件名)
加载配置项到组合框 (组合框1, 文件路径 ＋ “set.ini”, “产品信息”)
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||||
| 加载配置项到组合框 | |||||||
| 参数名 | 类 型 | 参考 | 可空 | 数组 | 备 注 | ||
| 组合框 | 组合框 | 配置文件 | 文本型 | 配置节 | 文本型 | ||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| 配置项 | 文本型 | 0 | ||||
| i | 整数型 | |||||
文件_取配置项名数组 (配置文件, 配置节, 配置项)
计次循环首 (取数组成员数 (配置项), i)组合框.加入项目 (配置项 [i], )
计次循环尾 ()| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| _按钮_立即打印_被单击 | |||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| 锐浪报表 | 报表 | |||||
如果真 (被选择文件名 ＝ “”)信息框 (“你还没有选择运营商”, 0, , )返回 ()
如果真 (编辑框_收件人.内容 ＝ “”)信息框 (“收件人不能为空”, 0, , )返回 ()如果真 (编辑框_收件电话.内容 ＝ “”)信息框 (“收件人电话不能为空”, 0, , )返回 ()如果真 (编辑框_收件地址.内容 ＝ “”)信息框 (“收件地址不能为空”, 0, , )返回 ()如果真 (组合框1.内容 ＝ “”)信息框 (“寄件品名不能为空”, 0, , )返回 ()如果真 (编辑框_寄件数量.内容 ＝ “”)信息框 (“寄件数量不能为空”, 0, , )返回 ()
播放MP3 (1, 取运行目录 () ＋ “\tishi.mp3”)
保存寄件信息 ()
锐浪报表.初始化 ()
锐浪报表.清空 ()
锐浪报表.从文件加载报表 (文件路径 ＋ 被选择文件名 ＋ “.grf”)
锐浪报表.获取参数集合 ().获取项目_按名称 (“寄件人”).置字符串值 (编辑框_寄件人.内容)
锐浪报表.获取参数集合 ().获取项目_按名称 (“寄件地址”).置字符串值 (编辑框_寄件地址.内容)
锐浪报表.获取参数集合 ().获取项目_按名称 (“寄件电话”).置字符串值 (编辑框_寄件电话.内容)
锐浪报表.获取参数集合 ().获取项目_按名称 (“寄件品名”).置字符串值 (组合框1.内容)
锐浪报表.获取参数集合 ().获取项目_按名称 (“寄件数量”).置字符串值 (编辑框_寄件数量.内容)
锐浪报表.获取参数集合 ().获取项目_按名称 (“寄件重量”).置字符串值 (编辑框_寄件重量.内容)
锐浪报表.获取参数集合 ().获取项目_按名称 (“备注”).置字符串值 (编辑框_备注信息.内容)
锐浪报表.获取参数集合 ().获取项目_按名称 (“收件人”).置字符串值 (编辑框_收件人.内容)
锐浪报表.获取参数集合 ().获取项目_按名称 (“收件地址”).置字符串值 (编辑框_收件地址.内容)
锐浪报表.获取参数集合 ().获取项目_按名称 (“收件电话”).置字符串值 (编辑框_收件电话.内容)
如果真 (选择框_打印邮费.选中 ＝ 真)锐浪报表.获取参数集合 ().获取项目_按名称 (“邮费”).置字符串值 (编辑框_实际邮费.内容)' 锐浪报表.打印预览 (真)
锐浪报表.打印 (假)
写配置项 (文件路径 ＋ “客户信息.txt”, “客户信息”, 编辑框_收件电话.内容, 编辑框_收件人.内容 ＋ 字符 (9) ＋ 编辑框_收件地址.内容 ＋ 字符 (9) ＋ 组合框1.内容 ＋ 字符 (9) ＋ 编辑框_寄件数量.内容 ＋ 字符 (9) ＋ 编辑框_备注信息.内容)
' 鸣叫 ()
' 调试输出 (“0...................”)
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| 保存寄件信息 | |||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| 收件人地址 | 文本型 | |||||
| 关键词位置 | ||||||
写配置项 (文件路径 ＋ “set.ini”, “寄件信息”, “寄件地址”, 编辑框_寄件地址.内容)
写配置项 (文件路径 ＋ “set.ini”, “寄件信息”, “寄件电话”, 编辑框_寄件电话.内容)
写配置项 (文件路径 ＋ “set.ini”, “寄件信息”, “单号”, 编辑框_单号.内容)
判断 (单选框_自增.选中 ＝ 真)编辑框_单号.内容 ＝ 到文本 (到数值 (编辑框_单号.内容) ＋ 1)编辑框_单号.内容 ＝ 到文本 (到数值 (编辑框_单号.内容) － 1)
如果真 (到数值 (编辑框_寄件数量.内容) ＝ 0)编辑框_寄件数量.内容 ＝ “1”写配置项 (文件路径 ＋ “set.ini”, “产品信息”, 组合框1.内容, 到文本 (到数值 (编辑框_寄件重量.内容) ÷ 到数值 (编辑框_寄件数量.内容)))
' 调试输出 (编辑框_收件地址.内容)
收件人地址 ＝ 编辑框_收件地址.内容
关键词位置 ＝ 寻找文本 (收件人地址, “省”, , 真)
判断 (关键词位置 ≠ -1)收件人地址 ＝ 取文本左边 (收件人地址, 关键词位置 ＋ 1)调试输出 (编辑框_收件地址.内容, 关键词位置)如果真 (到数值 (编辑框_实际邮费.内容) ＞ 0 且 到数值 (编辑框_寄件重量.内容) ＞ 0)写配置项 (文件路径 ＋ “set.ini”, 收件人地址 ＋ “_邮费资费”, 编辑框_寄件重量.内容, 编辑框_实际邮费.内容)关键词位置 ＝ 寻找文本 (收件人地址, “市”, , 真)判断 (关键词位置 ≠ -1)收件人地址 ＝ 取文本左边 (收件人地址, 关键词位置 ＋ 1)如果真 (到数值 (编辑框_实际邮费.内容) ＞ 0 且 到数值 (编辑框_寄件重量.内容) ＞ 0 且 取数组成员数 (关键词位置) ＞ 0)写配置项 (文件路径 ＋ “set.ini”, 收件人地址 ＋ “_邮费资费”, 编辑框_寄件重量.内容, 编辑框_实际邮费.内容)
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||||
| 加载模板文件 | |||||||
| 参数名 | 类 型 | 参考 | 可空 | 数组 | 备 注 | ||
| 列表框 | 列表框 | 加载数组 | 文本型 | ||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| 数量 | ||||||
| i | 整数型 | |||||
计次循环首 (数量, i)列表框.加入项目 (加载数组 [i], )计次循环尾 ()列表框.现行选中项 ＝ 0
_列表框1_列表项被选择 ()
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| _列表框1_列表项被选择 | |||||
图片框1.图片 ＝ 读入文件 (文件路径 ＋ 被选择文件名 ＋ “.png”)
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| _按钮_自动获取_被单击 | |||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| 预处理文本 | 文本型 | |||||
| 中间文本数组 | 文本型 | 0 | ||||
| i | 整数型 | |||||
| 数量 | ||||||
| 地址信息 | 文本型 | 0 | 地址，邮编，联系人，电话 | |||
编辑框2.内容 ＝ 预处理文本
预处理文本 ＝ 子文本替换 (预处理文本, “ 修改收货信息”, #换行符, , , 真)
文本_取中间_批量 (预处理文本, “订单编号”, #换行符, 中间文本数组, 假, , “订单编号”, , , , )
如果真 (取数组成员数 (中间文本数组) ＞ 0)编辑框_备注信息.内容 ＝ 删首尾空 (中间文本数组 [1])文本_取中间_批量 (预处理文本, “口味：”, #换行符, 中间文本数组, 假, , “口味:”)
如果真 (取数组成员数 (中间文本数组) ＞ 0)编辑框_备注信息.内容 ＝ 删首尾空 (中间文本数组 [1])文本_取中间_批量 (预处理文本, “ × ”, #换行符, 中间文本数组, 假)
计次循环首 (取数组成员数 (中间文本数组), i)数量 ＝ 数量 ＋ 到数值 (中间文本数组 [i])计次循环尾 ()编辑框_寄件数量.内容 ＝ 到文本 (数量)
文本_取中间_批量 (预处理文本, “买家收货信息：”, #换行符, 中间文本数组, 假, , , , , , )
调试输出 (中间文本数组)
如果真 (取数组成员数 (中间文本数组) ＞ 0)判断循环首 (寻找文本 (中间文本数组 [1], “省”, , 假) ＝ -1 且 寻找文本 (中间文本数组 [1], “市”, , 假) ＝ -1 且 取数组成员数 (中间文本数组) ＞ 1)删除成员 (中间文本数组, 1, )判断循环尾 ()地址信息 ＝ 分割文本 (中间文本数组 [1], “，”, )调试输出 (地址信息)如果真 (取数组成员数 (地址信息) ≥ 4)编辑框_收件地址.内容 ＝ 删首尾空 (地址信息 [1])编辑框_收件人.内容 ＝ 删首尾空 (地址信息 [3])编辑框_收件电话.内容 ＝ 删首尾空 (地址信息 [4])判断 (选择框_只获取寄件信息.选中 ＝ 真)编辑框_寄件人.内容 ＝ 读配置项 (文件路径 ＋ “set.ini”, “寄件信息”, “寄件人”, )编辑框_寄件地址.内容 ＝ 读配置项 (文件路径 ＋ “set.ini”, “寄件信息”, “寄件地址”, )编辑框_寄件电话.内容 ＝ 读配置项 (文件路径 ＋ “set.ini”, “寄件信息”, “寄件电话”, )文本_取中间_批量 (预处理文本, “我的发货信息：” ＋ #换行符, #换行符, 中间文本数组, 假)如果真 (取数组成员数 (中间文本数组) ＞ 0)判断循环首 (寻找文本 (中间文本数组 [1], “省”, , 假) ＝ -1 且 寻找文本 (中间文本数组 [1], “市”, , 假) ＝ -1 且 取数组成员数 (中间文本数组) ＞ 1)删除成员 (中间文本数组, 1, )判断循环尾 ()地址信息 ＝ 分割文本 (中间文本数组 [1], “，”, )调试输出 (地址信息)如果真 (取数组成员数 (地址信息) ≥ 4)编辑框_寄件地址.内容 ＝ 删首尾空 (地址信息 [1])编辑框_寄件人.内容 ＝ 删首尾空 (地址信息 [3])编辑框_寄件电话.内容 ＝ 删首尾空 (地址信息 [4])| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| _组合框1_列表项被选择 | |||||
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| _编辑框_寄件数量_内容被改变 | |||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| 地址信息 | 文本型 | 0 | ||||
| 地址 | 文本型 | |||||
| 关键词位置 | ||||||
' 调试输出 (编辑框_收件地址.内容)
地址 ＝ 编辑框_收件地址.内容
关键词位置 ＝ 寻找文本 (地址, “省”, , 真)
判断 (关键词位置 ≠ -1)地址 ＝ 取文本左边 (地址, 关键词位置 ＋ 1) ' 调试输出 (地址)编辑框_实际邮费.内容 ＝ 读配置项 (文件路径 ＋ “set.ini”, 地址 ＋ “_邮费资费”, 编辑框_寄件重量.内容, )关键词位置 ＝ 寻找文本 (地址, “市”, , 真)判断 (关键词位置 ≠ -1)地址 ＝ 取文本左边 (地址, 关键词位置 ＋ 1)编辑框_实际邮费.内容 ＝ 读配置项 (文件路径 ＋ “set.ini”, 地址 ＋ “_邮费资费”, 编辑框_寄件重量.内容, )| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| _按钮_搜索_被单击 | |||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| i | 整数型 | |||||
| a | ||||||
| 是否找到 | 逻辑型 | |||||
计次循环首 (列表框1.取项目数 () － 当前查找位置 ＋ 1, i)调试输出 (当前查找位置, 列表框1.取项目文本 (当前查找位置 ＋ i － 2))a ＝ 寻找文本 (列表框1.取项目文本 (当前查找位置 ＋ i － 2), 编辑框_搜索框.内容, 1, 假)判断 (a ≠ -1)当前查找位置 ＝ i ＋ 当前查找位置列表框1.现行选中项 ＝ 当前查找位置 － 2列表框1.刷新显示 ()是否找到 ＝ 真跳出循环 () ' 暂停 ()计次循环尾 ()如果真 (是否找到 ＝ 假)当前查找位置 ＝ 1信息框 (“找不到被搜索项。”, 0, , )| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| _选择框_打印邮费_被单击 | |||||
如果真 (选择框_打印邮费.选中 ＝ 真)信息框 (“本功能会记录下对应重量和省份,以此作为资费依据.”, 0, , )| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| _编辑框_寄件重量_内容被改变 | |||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| 地址信息 | 文本型 | 0 | ||||
| 地址 | 文本型 | |||||
| 关键词位置 | ||||||
' 调试输出 (编辑框_收件地址.内容)
如果真 (到数值 (编辑框_寄件重量.内容) ＝ 0)返回 ()地址 ＝ 编辑框_收件地址.内容
关键词位置 ＝ 寻找文本 (地址, “省”, , 真)
判断 (关键词位置 ≠ -1)地址 ＝ 取文本左边 (地址, 关键词位置 ＋ 1) ' 调试输出 (地址)编辑框_实际邮费.内容 ＝ 读配置项 (文件路径 ＋ “set.ini”, 地址 ＋ “_邮费资费”, 编辑框_寄件重量.内容, )关键词位置 ＝ 寻找文本 (地址, “市”, , 真)判断 (关键词位置 ≠ -1)地址 ＝ 取文本左边 (地址, 关键词位置 ＋ 1)编辑框_实际邮费.内容 ＝ 读配置项 (文件路径 ＋ “set.ini”, 地址 ＋ “_邮费资费”, 编辑框_寄件重量.内容, )| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| _单选框_自增_被单击 | |||||
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| _单选框_自减_被单击 | |||||
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| _按钮2_被单击 | |||||
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| _按钮3_被单击 | |||||
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| _按钮1_被单击 | |||||
| i支持库列表 | 支持库注释 |
| shell | 操作系统界面功能支持库 |
| spec | 特殊功能支持库 |
