代码优化

Mr_leaf

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
剩余的金额	双精度小数型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

XP风格 (1)

子程序名	返回值类型	公开	备 注
_按钮2_被单击

如果 (选择框1.选中 ＝ 真)
如果 (信息框 (“您选择了累计开票，只清除项目所有内容，已经列出的开票信息不会被清楚，确定‘清楚’，取消‘返回’”, 1, , ) ＝ #确认钮 )
项目1.内容 ＝ “”
项目2.内容 ＝ “”
项目3.内容 ＝ “”
项目4.内容 ＝ “”
项目5.内容 ＝ “”
项目6.内容 ＝ “”
项目7.内容 ＝ “”
项目8.内容 ＝ “”
项目9.内容 ＝ “”
项目10.内容 ＝ “”
单价1.内容 ＝ “”
单价2.内容 ＝ “”
单价3.内容 ＝ “”
单价4.内容 ＝ “”
单价5.内容 ＝ “”
单价6.内容 ＝ “”
单价7.内容 ＝ “”
单价8.内容 ＝ “”
单价9.内容 ＝ “”
单价10.内容 ＝ “”
数量1.内容 ＝ “”
数量2.内容 ＝ “”
数量3.内容 ＝ “”
数量4.内容 ＝ “”
数量5.内容 ＝ “”
数量6.内容 ＝ “”
数量7.内容 ＝ “”
数量8.内容 ＝ “”
数量9.内容 ＝ “”
数量10.内容 ＝ “”
返回 ()

如果 (信息框 (“您未选择累计开票，会清除软件内所有内容，确定‘清楚’，取消‘返回’”, 1, , ) ＝ #确认钮 )
项目1.内容 ＝ “”
项目2.内容 ＝ “”
项目3.内容 ＝ “”
项目4.内容 ＝ “”
项目5.内容 ＝ “”
项目6.内容 ＝ “”
项目7.内容 ＝ “”
项目8.内容 ＝ “”
项目9.内容 ＝ “”
项目10.内容 ＝ “”
单价1.内容 ＝ “”
单价2.内容 ＝ “”
单价3.内容 ＝ “”
单价4.内容 ＝ “”
单价5.内容 ＝ “”
单价6.内容 ＝ “”
单价7.内容 ＝ “”
单价8.内容 ＝ “”
单价9.内容 ＝ “”
单价10.内容 ＝ “”
数量1.内容 ＝ “”
数量2.内容 ＝ “”
数量3.内容 ＝ “”
数量4.内容 ＝ “”
数量5.内容 ＝ “”
数量6.内容 ＝ “”
数量7.内容 ＝ “”
数量8.内容 ＝ “”
数量9.内容 ＝ “”
数量10.内容 ＝ “”
列表框1.清空 ()
返回 ()

子程序名	返回值类型	公开	备 注
_按钮1_被单击

如果 (选择框1.选中 ＝ 假)
列表框1.清空 ()
如果 (项目1.内容 ＝ “” 且 单价1.内容 ＝ “” 且 数量1.内容 ＝ “”)
返回 ()
判断 (项目1.内容 ＝ “”)
信息框 (“项目1的内容未填写，请填写后再计算”, 0, , )
项目1.获取焦点 ()
返回 ()
判断 (单价1.内容 ＝ “”)
信息框 (“单价1的金额未填写，请填写后再计算”, 0, , )
单价1.获取焦点 ()
返回 ()
判断 (数量1.内容 ＝ “”)
信息框 (“数量1的数值未填写，请填写后再计算”, 0, , )
数量1.获取焦点 ()
返回 ()
判断 (组合框1.现行选中项 ＝ 0)
剩余的金额 ＝ 到数值 (单价1.内容) × 到数值 (数量1.内容) － 11600 �� (需开发票张数 (到数值 (单价1.内容), 到数值 (数量1.内容), 0) － 1)
列表框1.加入项目 (“项目” ＋ 项目1.内容 ＋ “需要开发票” ＋ 到文本 (需开发票张数 (到数值 (单价1.内容), 到数值 (数量1.内容), 0)) ＋ “张” ＋ #换行符, )
如果 (11600 ÷ (到数值 (单价1.内容) × 到数值 (数量1.内容)) ＞ 1)
列表框1.加入项目 (“该项目单位数量为” ＋ 数量1.内容, )
判断 (是否有余数 (到数值 (单价1.内容), 到数值 (数量1.内容), 0) ＝ -1)
列表框1.加入项目 (“该项目单位数量为” ＋ 到文本 (四舍五入 (11600 ÷ 到数值 (单价1.内容), 3)), )
判断 (是否有余数 (到数值 (单价1.内容), 到数值 (数量1.内容), 0) ≠ -1)
列表框1.加入项目 (“该项目的前” ＋ 到文本 (需开发票张数 (到数值 (单价1.内容), 到数值 (数量1.内容), 0) － 1) ＋ “张发票的单位数量为” ＋ 到文本 (四舍五入 (11600 ÷ 到数值 (单价1.内容), 3)) ＋ #换行符, )
列表框1.加入项目 (“剩余的金额为” ＋ 到文本 (剩余的金额) ＋ #换行符, )



列表框1.加入项目 ( #换行符, )
列表框1.加入项目 (“------------------------------------------------------------------------------”, )
判断 (组合框1.现行选中项 ＝ 1)
剩余的金额 ＝ 到数值 (单价1.内容) × 到数值 (数量1.内容) － 116000 �� (需开发票张数 (到数值 (单价1.内容), 到数值 (数量1.内容), 1) － 1)
列表框1.加入项目 (“项目” ＋ 项目1.内容 ＋ “需要开发票” ＋ 到文本 (需开发票张数 (到数值 (单价1.内容), 到数值 (数量1.内容), 1)) ＋ “张” ＋ #换行符, )
如果 (116000 ÷ (到数值 (单价1.内容) × 到数值 (数量1.内容)) ＞ 1)
列表框1.加入项目 (“该项目单位数量为” ＋ 数量1.内容, )
判断 (是否有余数 (到数值 (单价1.内容), 到数值 (数量1.内容), 1) ＝ -1)
列表框1.加入项目 (“该项目单位数量为” ＋ 到文本 (四舍五入 (116000 ÷ 到数值 (单价1.内容), 3)), )
判断 (是否有余数 (到数值 (单价1.内容), 到数值 (数量1.内容), 1) ≠ -1)
列表框1.加入项目 (“该项目的前” ＋ 到文本 (需开发票张数 (到数值 (单价1.内容), 到数值 (数量1.内容), 1) － 1) ＋ “张发票的单位数量为” ＋ 到文本 (四舍五入 (116000 ÷ 到数值 (单价1.内容), 3)) ＋ #换行符, )
列表框1.加入项目 (“剩余的金额为” ＋ 到文本 (剩余的金额) ＋ #换行符, )



列表框1.加入项目 ( #换行符, )
列表框1.加入项目 (“------------------------------------------------------------------------------”, )



如果 (项目2.内容 ＝ “” 且 单价2.内容 ＝ “” 且 数量2.内容 ＝ “”)
返回 ()
判断 (项目2.内容 ＝ “”)
信息框 (“项目2的内容未填写，请填写后再计算”, 0, , )
项目2.获取焦点 ()
返回 ()
判断 (单价2.内容 ＝ “”)
信息框 (“单价2的金额未填写，请填写后再计算”, 0, , )
单价2.获取焦点 ()
返回 ()
判断 (数量2.内容 ＝ “”)
信息框 (“数量2的数值未填写，请填写后再计算”, 0, , )
数量2.获取焦点 ()
返回 ()
判断 (组合框1.现行选中项 ＝ 0)
剩余的金额 ＝ 到数值 (单价2.内容) × 到数值 (数量2.内容) － 11600 �� (需开发票张数 (到数值 (单价2.内容), 到数值 (数量2.内容), 0) － 1)
列表框1.加入项目 (“项目” ＋ 项目2.内容 ＋ “需要开发票” ＋ 到文本 (需开发票张数 (到数值 (单价2.内容), 到数值 (数量2.内容), 0)) ＋ “张” ＋ #换行符, )
如果 (11600 ÷ (到数值 (单价2.内容) × 到数值 (数量2.内容)) ＞ 1)
列表框1.加入项目 (“该项目单位数量为” ＋ 数量2.内容, )
判断 (是否有余数 (到数值 (单价2.内容), 到数值 (数量2.内容), 0) ＝ -1)
列表框1.加入项目 (“该项目单位数量为” ＋ 到文本 (四舍五入 (11600 ÷ 到数值 (单价2.内容), 3)), )
判断 (是否有余数 (到数值 (单价2.内容), 到数值 (数量2.内容), 0) ≠ -1)
列表框1.加入项目 (“该项目的前” ＋ 到文本 (需开发票张数 (到数值 (单价2.内容), 到数值 (数量2.内容), 0) － 1) ＋ “张发票的单位数量为” ＋ 到文本 (四舍五入 (11600 ÷ 到数值 (单价2.内容), 3)) ＋ #换行符, )
列表框1.加入项目 (“剩余的金额为” ＋ 到文本 (剩余的金额) ＋ #换行符, )



列表框1.加入项目 ( #换行符, )列表框1.加入项目 (“------------------------------------------------------------------------------”, )
判断 (组合框1.现行选中项 ＝ 1)
剩余的金额 ＝ 到数值 (单价2.内容) × 到数值 (数量2.内容) － 116000 �� (需开发票张数 (到数值 (单价2.内容), 到数值 (数量2.内容), 1) － 1)
列表框1.加入项目 (“项目” ＋ 项目2.内容 ＋ “需要开发票” ＋ 到文本 (需开发票张数 (到数值 (单价2.内容), 到数值 (数量2.内容), 1)) ＋ “张” ＋ #换行符, )
如果 (116000 ÷ (到数值 (单价2.内容) × 到数值 (数量2.内容)) ＞ 1)
列表框1.加入项目 (“该项目单位数量为” ＋ 数量2.内容, )
判断 (是否有余数 (到数值 (单价2.内容), 到数值 (数量2.内容), 1) ＝ -1)
列表框1.加入项目 (“该项目单位数量为” ＋ 到文本 (四舍五入 (116000 ÷ 到数值 (单价2.内容), 3)), )
判断 (是否有余数 (到数值 (单价2.内容), 到数值 (数量2.内容), 1) ≠ -1)
列表框1.加入项目 (“该项目的前” ＋ 到文本 (需开发票张数 (到数值 (单价2.内容), 到数值 (数量2.内容), 1) － 1) ＋ “张发票的单位数量为” ＋ 到文本 (四舍五入 (116000 ÷ 到数值 (单价2.内容), 3)) ＋ #换行符, )
列表框1.加入项目 (“剩余的金额为” ＋ 到文本 (剩余的金额) ＋ #换行符, )



列表框1.加入项目 ( #换行符, )
列表框1.加入项目 (“------------------------------------------------------------------------------”, )



如果 (项目3.内容 ＝ “” 且 单价3.内容 ＝ “” 且 数量3.内容 ＝ “”)
返回 ()
判断 (项目3.内容 ＝ “”)
信息框 (“项目3的内容未填写，请填写后再计算”, 0, , )
项目3.获取焦点 ()
返回 ()
判断 (单价3.内容 ＝ “”)
信息框 (“单价3的金额未填写，请填写后再计算”, 0, , )
单价3.获取焦点 ()
返回 ()
判断 (数量3.内容 ＝ “”)
信息框 (“数量3的数值未填写，请填写后再计算”, 0, , )
数量3.获取焦点 ()
返回 ()
判断 (组合框1.现行选中项 ＝ 0)
剩余的金额 ＝ 到数值 (单价3.内容) × 到数值 (数量3.内容) － 11600 �� (需开发票张数 (到数值 (单价3.内容), 到数值 (数量3.内容), 0) － 1)
列表框1.加入项目 (“项目” ＋ 项目3.内容 ＋ “需要开发票” ＋ 到文本 (需开发票张数 (到数值 (单价3.内容), 到数值 (数量3.内容), 0)) ＋ “张” ＋ #换行符, )
如果 (11600 ÷ (到数值 (单价3.内容) × 到数值 (数量3.内容)) ＞ 1)
列表框1.加入项目 (“该项目单位数量为” ＋ 数量3.内容, )
判断 (是否有余数 (到数值 (单价3.内容), 到数值 (数量3.内容), 0) ＝ -1)
列表框1.加入项目 (“该项目单位数量为” ＋ 到文本 (四舍五入 (11600 ÷ 到数值 (单价3.内容), 3)), )
判断 (是否有余数 (到数值 (单价3.内容), 到数值 (数量3.内容), 0) ≠ -1)
列表框1.加入项目 (“该项目的前” ＋ 到文本 (需开发票张数 (到数值 (单价3.内容), 到数值 (数量3.内容), 0) － 1) ＋ “张发票的单位数量为” ＋ 到文本 (四舍五入 (11600 ÷ 到数值 (单价3.内容), 3)) ＋ #换行符, )
列表框1.加入项目 (“剩余的金额为” ＋ 到文本 (剩余的金额) ＋ #换行符, )



列表框1.加入项目 ( #换行符, )列表框1.加入项目 (“------------------------------------------------------------------------------”, )
判断 (组合框1.现行选中项 ＝ 1)
剩余的金额 ＝ 到数值 (单价3.内容) × 到数值 (数量3.内容) － 116000 �� (需开发票张数 (到数值 (单价3.内容), 到数值 (数量3.内容), 1) － 1)
列表框1.加入项目 (“项目” ＋ 项目3.内容 ＋ “需要开发票” ＋ 到文本 (需开发票张数 (到数值 (单价3.内容), 到数值 (数量3.内容), 1)) ＋ “张” ＋ #换行符, )
如果 (116000 ÷ (到数值 (单价3.内容) × 到数值 (数量3.内容)) ＞ 1)
列表框1.加入项目 (“该项目单位数量为” ＋ 数量3.内容, )
判断 (是否有余数 (到数值 (单价3.内容), 到数值 (数量3.内容), 1) ＝ -1)
列表框1.加入项目 (“该项目单位数量为” ＋ 到文本 (四舍五入 (116000 ÷ 到数值 (单价3.内容), 3)), )
判断 (是否有余数 (到数值 (单价3.内容), 到数值 (数量3.内容), 1) ≠ -1)
列表框1.加入项目 (“该项目的前” ＋ 到文本 (需开发票张数 (到数值 (单价3.内容), 到数值 (数量3.内容), 1) － 1) ＋

i支持库列表	支持库注释
xplib	XP风格界面库

.版本 2<br /> .支持库 xplib<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 剩余的金额, 双精度小数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> XP风格 (1)<br /> <br /> .子程序 _按钮2_被单击<br /> <br /> .如果 (选择框1.选中 ＝ 真)<br /> .如果 (信息框 (“您选择了累计开票，只清除项目所有内容，已经列出的开票信息不会被清楚，确定‘清楚’，取消‘返回’”, 1, , ) ＝ #确认钮)<br /> 项目1.内容 ＝ “”<br /> 项目2.内容 ＝ “”<br /> 项目3.内容 ＝ “”<br /> 项目4.内容 ＝ “”<br /> 项目5.内容 ＝ “”<br /> 项目6.内容 ＝ “”<br /> 项目7.内容 ＝ “”<br /> 项目8.内容 ＝ “”<br /> 项目9.内容 ＝ “”<br /> 项目10.内容 ＝ “”<br /> 单价1.内容 ＝ “”<br /> 单价2.内容 ＝ “”<br /> 单价3.内容 ＝ “”<br /> 单价4.内容 ＝ “”<br /> 单价5.内容 ＝ “”<br /> 单价6.内容 ＝ “”<br /> 单价7.内容 ＝ “”<br /> 单价8.内容 ＝ “”<br /> 单价9.内容 ＝ “”<br /> 单价10.内容 ＝ “”<br /> 数量1.内容 ＝ “”<br /> 数量2.内容 ＝ “”<br /> 数量3.内容 ＝ “”<br /> 数量4.内容 ＝ “”<br /> 数量5.内容 ＝ “”<br /> 数量6.内容 ＝ “”<br /> 数量7.内容 ＝ “”<br /> 数量8.内容 ＝ “”<br /> 数量9.内容 ＝ “”<br /> 数量10.内容 ＝ “”<br /> .否则<br /> 返回 ()<br /> .如果结束<br /> <br /> .否则<br /> .如果 (信息框 (“您未选择累计开票，会清除软件内所有内容，确定‘清楚’，取消‘返回’”, 1, , ) ＝ #确认钮)<br /> 项目1.内容 ＝ “”<br /> 项目2.内容 ＝ “”<br /> 项目3.内容 ＝ “”<br /> 项目4.内容 ＝ “”<br /> 项目5.内容 ＝ “”<br /> 项目6.内容 ＝ “”<br /> 项目7.内容 ＝ “”<br /> 项目8.内容 ＝ “”<br /> 项目9.内容 ＝ “”<br /> 项目10.内容 ＝ “”<br /> 单价1.内容 ＝ “”<br /> 单价2.内容 ＝ “”<br /> 单价3.内容 ＝ “”<br /> 单价4.内容 ＝ “”<br /> 单价5.内容 ＝ “”<br /> 单价6.内容 ＝ “”<br /> 单价7.内容 ＝ “”<br /> 单价8.内容 ＝ “”<br /> 单价9.内容 ＝ “”<br /> 单价10.内容 ＝ “”<br /> 数量1.内容 ＝ “”<br /> 数量2.内容 ＝ “”<br /> 数量3.内容 ＝ “”<br /> 数量4.内容 ＝ “”<br /> 数量5.内容 ＝ “”<br /> 数量6.内容 ＝ “”<br /> 数量7.内容 ＝ “”<br /> 数量8.内容 ＝ “”<br /> 数量9.内容 ＝ “”<br /> 数量10.内容 ＝ “”<br /> 列表框1.清空 ()<br /> .否则<br /> 返回 ()<br /> .如果结束<br /> <br /> .如果结束<br /> <br /> <br /> .子程序 _按钮1_被单击<br /> <br /> .如果 (选择框1.选中 ＝ 假)<br /> 列表框1.清空 ()<br /> .如果 (项目1.内容 ＝ “” 且 单价1.内容 ＝ “” 且 数量1.内容 ＝ “”)<br /> 返回 ()<br /> .否则<br /> .判断开始 (项目1.内容 ＝ “”)<br /> 信息框 (“项目1的内容未填写，请填写后再计算”, 0, , )<br /> 项目1.获取焦点 ()<br /> 返回 ()<br /> .判断 (单价1.内容 ＝ “”)<br /> 信息框 (“单价1的金额未填写，请填写后再计算”, 0, , )<br /> 单价1.获取焦点 ()<br /> 返回 ()<br /> .判断 (数量1.内容 ＝ “”)<br /> 信息框 (“数量1的数值未填写，请填写后再计算”, 0, , )<br /> 数量1.获取焦点 ()<br /> 返回 ()<br /> .判断 (组合框1.现行选中项 ＝ 0)<br /> 剩余的金额 ＝ 到数值 (单价1.内容) × 到数值 (数量1.内容) － 11600 × (需开发票张数 (到数值 (单价1.内容), 到数值 (数量1.内容), 0) － 1)<br /> 列表框1.加入项目 (“项目” ＋ 项目1.内容 ＋ “需要开发票” ＋ 到文本 (需开发票张数 (到数值 (单价1.内容), 到数值 (数量1.内容), 0)) ＋ “张” ＋ #换行符, )<br /> .如果 (11600 ÷ (到数值 (单价1.内容) × 到数值 (数量1.内容)) ＞ 1)<br /> 列表框1.加入项目 (“该项目单位数量为” ＋ 数量1.内容, )<br /> .否则<br /> .判断开始 (是否有余数 (到数值 (单价1.内容), 到数值 (数量1.内容), 0) ＝ -1)<br /> 列表框1.加入项目 (“该项目单位数量为” ＋ 到文本 (四舍五入 (11600 ÷ 到数值 (单价1.内容), 3)), )<br /> .判断 (是否有余数 (到数值 (单价1.内容), 到数值 (数量1.内容), 0) ≠ -1)<br /> 列表框1.加入项目 (“该项目的前” ＋ 到文本 (需开发票张数 (到数值 (单价1.内容), 到数值 (数量1.内容), 0) － 1) ＋ “张发票的单位数量为” ＋ 到文本 (四舍五入 (11600 ÷ 到数值 (单价1.内容), 3)) ＋ #换行符, )<br /> 列表框1.加入项目 (“剩余的金额为” ＋ 到文本 (剩余的金额) ＋ #换行符, )<br /> .默认<br /> <br /> .判断结束<br /> <br /> .如果结束<br /> 列表框1.加入项目 (#换行符, )<br /> 列表框1.加入项目 (“------------------------------------------------------------------------------”, )<br /> .判断 (组合框1.现行选中项 ＝ 1)<br /> 剩余的金额 ＝ 到数值 (单价1.内容) × 到数值 (数量1.内容) － 116000 × (需开发票张数 (到数值 (单价1.内容), 到数值 (数量1.内容), 1) － 1)<br /> 列表框1.加入项目 (“项目” ＋ 项目1.内容 ＋ “需要开发票” ＋ 到文本 (需开发票张数 (到数值 (单价1.内容), 到数值 (数量1.内容), 1)) ＋ “张” ＋ #换行符, )<br /> .如果 (116000 ÷ (到数值 (单价1.内容) × 到数值 (数量1.内容)) ＞ 1)<br /> 列表框1.加入项目 (“该项目单位数量为” ＋ 数量1.内容, )<br /> .否则<br /> .判断开始 (是否有余数 (到数值 (单价1.内容), 到数值 (数量1.内容), 1) ＝ -1)<br /> 列表框1.加入项目 (“该项目单位数量为” ＋ 到文本 (四舍五入 (116000 ÷ 到数值 (单价1.内容), 3)), )<br /> .判断 (是否有余数 (到数值 (单价1.内容), 到数值 (数量1.内容), 1) ≠ -1)<br /> 列表框1.加入项目 (“该项目的前” ＋ 到文本 (需开发票张数 (到数值 (单价1.内容), 到数值 (数量1.内容), 1) － 1) ＋ “张发票的单位数量为” ＋ 到文本 (四舍五入 (116000 ÷ 到数值 (单价1.内容), 3)) ＋ #换行符, )<br /> 列表框1.加入项目 (“剩余的金额为” ＋ 到文本 (剩余的金额) ＋ #换行符, )<br /> .默认<br /> <br /> .判断结束<br /> <br /> .如果结束<br /> 列表框1.加入项目 (#换行符, )<br /> 列表框1.加入项目 (“------------------------------------------------------------------------------”, )<br /> .默认<br /> <br /> .判断结束<br /> <br /> .如果结束<br /> .如果 (项目2.内容 ＝ “” 且 单价2.内容 ＝ “” 且 数量2.内容 ＝ “”)<br /> 返回 ()<br /> .否则<br /> .判断开始 (项目2.内容 ＝ “”)<br /> 信息框 (“项目2的内容未填写，请填写后再计算”, 0, , )<br /> 项目2.获取焦点 ()<br /> 返回 ()<br /> .判断 (单价2.内容 ＝ “”)<br /> 信息框 (“单价2的金额未填写，请填写后再计算”, 0, , )<br /> 单价2.获取焦点 ()<br /> 返回 ()<br /> .判断 (数量2.内容 ＝ “”)<br /> 信息框 (“数量2的数值未填写，请填写后再计算”, 0, , )<br /> 数量2.获取焦点 ()<br /> 返回 ()<br /> .判断 (组合框1.现行选中项 ＝ 0)<br /> 剩余的金额 ＝ 到数值 (单价2.内容) × 到数值 (数量2.内容) － 11600 × (需开发票张数 (到数值 (单价2.内容), 到数值 (数量2.内容), 0) － 1)<br /> 列表框1.加入项目 (“项目” ＋ 项目2.内容 ＋ “需要开发票” ＋ 到文本 (需开发票张数 (到数值 (单价2.内容), 到数值 (数量2.内容), 0)) ＋ “张” ＋ #换行符, )<br /> .如果 (11600 ÷ (到数值 (单价2.内容) × 到数值 (数量2.内容)) ＞ 1)<br /> 列表框1.加入项目 (“该项目单位数量为” ＋ 数量2.内容, )<br /> .否则<br /> .判断开始 (是否有余数 (到数值 (单价2.内容), 到数值 (数量2.内容), 0) ＝ -1)<br /> 列表框1.加入项目 (“该项目单位数量为” ＋ 到文本 (四舍五入 (11600 ÷ 到数值 (单价2.内容), 3)), )<br /> .判断 (是否有余数 (到数值 (单价2.内容), 到数值 (数量2.内容), 0) ≠ -1)<br /> 列表框1.加入项目 (“该项目的前” ＋ 到文本 (需开发票张数 (到数值 (单价2.内容), 到数值 (数量2.内容), 0) － 1) ＋ “张发票的单位数量为” ＋ 到文本 (四舍五入 (11600 ÷ 到数值 (单价2.内容), 3)) ＋ #换行符, )<br /> 列表框1.加入项目 (“剩余的金额为” ＋ 到文本 (剩余的金额) ＋ #换行符, )<br /> .默认<br /> <br /> .判断结束<br /> <br /> .如果结束<br /> 列表框1.加入项目 (#换行符, )<br /> 列表框1.加入项目 (“------------------------------------------------------------------------------”, )<br /> .判断 (组合框1.现行选中项 ＝ 1)<br /> 剩余的金额 ＝ 到数值 (单价2.内容) × 到数值 (数量2.内容) － 116000 × (需开发票张数 (到数值 (单价2.内容), 到数值 (数量2.内容), 1) － 1)<br /> 列表框1.加入项目 (“项目” ＋ 项目2.内容 ＋ “需要开发票” ＋ 到文本 (需开发票张数 (到数值 (单价2.内容), 到数值 (数量2.内容), 1)) ＋ “张” ＋ #换行符, )<br /> .如果 (116000 ÷ (到数值 (单价2.内容) × 到数值 (数量2.内容)) ＞ 1)<br /> 列表框1.加入项目 (“该项目单位数量为” ＋ 数量2.内容, )<br /> .否则<br /> .判断开始 (是否有余数 (到数值 (单价2.内容), 到数值 (数量2.内容), 1) ＝ -1)<br /> 列表框1.加入项目 (“该项目单位数量为” ＋ 到文本 (四舍五入 (116000 ÷ 到数值 (单价2.内容), 3)), )<br /> .判断 (是否有余数 (到数值 (单价2.内容), 到数值 (数量2.内容), 1) ≠ -1)<br /> 列表框1.加入项目 (“该项目的前” ＋ 到文本 (需开发票张数 (到数值 (单价2.内容), 到数值 (数量2.内容), 1) － 1) ＋ “张发票的单位数量为” ＋ 到文本 (四舍五入 (116000 ÷ 到数值 (单价2.内容), 3)) ＋ #换行符, )<br /> 列表框1.加入项目 (“剩余的金额为” ＋ 到文本 (剩余的金额) ＋ #换行符, )<br /> .默认<br /> <br /> .判断结束<br /> <br /> .如果结束<br /> 列表框1.加入项目 (#换行符, )<br /> 列表框1.加入项目 (“------------------------------------------------------------------------------”, )<br /> .默认<br /> <br /> .判断结束<br /> <br /> .如果结束<br /> .如果 (项目3.内容 ＝ “” 且 单价3.内容 ＝ “” 且 数量3.内容 ＝ “”)<br /> 返回 ()<br /> .否则<br /> .判断开始 (项目3.内容 ＝ “”)<br /> 信息框 (“项目3的内容未填写，请填写后再计算”, 0, , )<br /> 项目3.获取焦点 ()<br /> 返回 ()<br /> .判断 (单价3.内容 ＝ “”)<br /> 信息框 (“单价3的金额未填写，请填写后再计算”, 0, , )<br /> 单价3.获取焦点 ()<br /> 返回 ()<br /> .判断 (数量3.内容 ＝ “”)<br /> 信息框 (“数量3的数值未填写，请填写后再计算”, 0, , )<br /> 数量3.获取焦点 ()<br /> 返回 ()<br /> .判断 (组合框1.现行选中项 ＝ 0)<br /> 剩余的金额 ＝ 到数值 (单价3.内容) × 到数值 (数量3.内容) － 11600 × (需开发票张数 (到数值 (单价3.内容), 到数值 (数量3.内容), 0) － 1)<br /> 列表框1.加入项目 (“项目” ＋ 项目3.内容 ＋ “需要开发票” ＋ 到文本 (需开发票张数 (到数值 (单价3.内容), 到数值 (数量3.内容), 0)) ＋ “张” ＋ #换行符, )<br /> .如果 (11600 ÷ (到数值 (单价3.内容) × 到数值 (数量3.内容)) ＞ 1)<br /> 列表框1.加入项目 (“该项目单位数量为” ＋ 数量3.内容, )<br /> .否则<br /> .判断开始 (是否有余数 (到数值 (单价3.内容), 到数值 (数量3.内容), 0) ＝ -1)<br /> 列表框1.加入项目 (“该项目单位数量为” ＋ 到文本 (四舍五入 (11600 ÷ 到数值 (单价3.内容), 3)), )<br /> .判断 (是否有余数 (到数值 (单价3.内容), 到数值 (数量3.内容), 0) ≠ -1)<br /> 列表框1.加入项目 (“该项目的前” ＋ 到文本 (需开发票张数 (到数值 (单价3.内容), 到数值 (数量3.内容), 0) － 1) ＋ “张发票的单位数量为” ＋ 到文本 (四舍五入 (11600 ÷ 到数值 (单价3.内容), 3)) ＋ #换行符, )<br /> 列表框1.加入项目 (“剩余的金额为” ＋ 到文本 (剩余的金额) ＋ #换行符, )<br /> .默认<br /> <br /> .判断结束<br /> <br /> .如果结束<br /> 列表框1.加入项目 (#换行符, )<br /> 列表框1.加入项目 (“------------------------------------------------------------------------------”, )<br /> .判断 (组合框1.现行选中项 ＝ 1)<br /> 剩余的金额 ＝ 到数值 (单价3.内容) × 到数值 (数量3.内容) － 116000 × (需开发票张数 (到数值 (单价3.内容), 到数值 (数量3.内容), 1) － 1)<br /> 列表框1.加入项目 (“项目” ＋ 项目3.内容 ＋ “需要开发票” ＋ 到文本 (需开发票张数 (到数值 (单价3.内容), 到数值 (数量3.内容), 1)) ＋ “张” ＋ #换行符, )<br /> .如果 (116000 ÷ (到数值 (单价3.内容) × 到数值 (数量3.内容)) ＞ 1)<br /> 列表框1.加入项目 (“该项目单位数量为” ＋ 数量3.内容, )<br /> .否则<br /> .判断开始 (是否有余数 (到数值 (单价3.内容), 到数值 (数量3.内容), 1) ＝ -1)<br /> 列表框1.加入项目 (“该项目单位数量为” ＋ 到文本 (四舍五入 (116000 ÷ 到数值 (单价3.内容), 3)), )<br /> .判断 (是否有余数 (到数值 (单价3.内容), 到数值 (数量3.内容), 1) ≠ -1)<br /> 列表框1.加入项目 (“该项目的前” ＋ 到文本 (需开发票张数 (到数值 (单价3.内容), 到数值 (数量3.内容), 1) － 1) ＋

一个计算发票的软件，哪些部分是可以进行优化的


补充内容 (2016-2-29 22:56):
链接：http://pan.baidu.com/s/1qXvpomg 密码：81kc
源码

包子陈

优化好了，你看一下，适当的运用组件和变量，能使你的代码精简好多