快递单打印工具源码仿ERP电商软件

.如果真 (目录_是否存在 (取运行目录 () ＋ “\验货称重”) ＝ 假)
创建目录 (取运行目录 () ＋ “\验货称重”)
.如果真结束
.如果真 (目录_是否存在 (取运行目录 () ＋ 到文本 (取日期 (取现行时间 ()))) ＝ 假)
创建目录 (取运行目录 () ＋ “\验货称重\” ＋ 到文本 (取日期 (取现行时间 ())))
.如果真结束
创建目录 (取运行目录 () ＋ “\验货称重\” ＋ 到文本 (取日期 (取现行时间 ())) ＋ “\” ＋ 编辑框_电子单号.内容)
验货数据库 ＝ 取运行目录 () ＋ “\验货称重\” ＋ 到文本 (取日期 (取现行时间 ())) ＋ “\” ＋ 编辑框_电子单号.内容
文件内容 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\验货称重\” ＋ 到文本 (取日期 (取现行时间 ())) ＋ “\” ＋ “打单.txt”))
文件内容 ＝ 文件内容 ＋ 编辑框_电子单号.内容 ＋ “,”
写到文件 (取运行目录 () ＋ “\验货称重\” ＋ 到文本 (取日期 (取现行时间 ())) ＋ “\” ＋ “打单.txt”, 到字节集 (文件内容))
文本 ＝ 分割文本 (到文本 (读入文件 (取运行目录 () ＋ “\验货称重\” ＋ 到文本 (取日期 (取现行时间 ())) ＋ “\” ＋ “打单.txt”)), “,”, )
编辑框_打单数.内容 ＝ 到文本 (取数组成员数 (文本))
.如果真 (超级列表框_电子验货列表.取表项数 () ≠ 0)
创建数据 ()
.计次循环首 (超级列表框_电子验货列表.取表项数 (), i)
.如果真 (打开 (验货数据库 ＋ “\验货清单.edb”, , , , , , ) ＝ 真)
加空记录 ()
写 (1, 超级列表框_电子验货列表.取标题 (i － 1, 1))
写 (2, 超级列表框_电子验货列表.取标题 (i － 1, 2))
写 (3, “无”)
写 (4, 超级列表框_电子验货列表.取标题 (i － 1, 3))
写 (5, 超级列表框_电子验货列表.取标题 (i － 1, 4))
.如果真结束
关闭 (验货数据库 ＋ “\验货清单.edb”)
.计次循环尾 ()
播放音乐 (#录入, )
' _按钮_清空_被单击 ()