企业工资表/流水线产量管理软件

.如果真 (超级列表框.现行选中项 ＜ 0)
信息框 (“请选择要删除的项目！”, 0, “错误”)
返回 ()
.如果真结束
打开 (取运行目录 () ＋ “\工资表.edb”, , , , , , )
跳到 (到数值 (超级列表框.取标题 (超级列表框.现行选中项, )))
删除 ()
彻底删除 ()
_列表框1_列表项被选择 ()
超级列表框.现行选中项 ＝ 超级列表框.取表项数 () － 1

写 (1, 列表框1.取项目文本 (列表框1.现行选中项))
写 (2, 到文本 (组合框1.取项目文本 (组合框1.现行选中项)) ＋ 到文本 (组合框2.取项目文本 (组合框2.现行选中项)) ＋ 到文本 (组合框3.取项目文本 (组合框3.现行选中项)))
写 (3, 组合框4.取项目文本 (组合框4.现行选中项))
调试输出 (组合框4.取项目文本 (组合框4.现行选中项))