账单财务管理系统3.0含Idoit内存皮肤模块

行号 ＝ 库存管理系统.高级表格1.取光标行号 ()
.如果真 (到数值 (库存管理系统.高级表格1.取数据 (行号, 2)) ≤ 0)
库存管理系统.透明标签1.标题 ＝ “数量不足，无法操作！”
返回 ()
.如果真结束
库存管理系统.高级表格1.置数据 (行号, 2, 1, 到数值 (库存管理系统.高级表格1.取数据 (行号, 2)) － 到数值 (编辑框2.内容))
.如果真 (到数值 (库存管理系统.高级表格1.取数据 (行号, 2)) ＝ 0)
库存管理系统.高级表格1.删除行 (行号)
.计次循环首 (库存管理系统.高级表格1.行数 － 1, )
a ＝ a ＋ 1
库存管理系统.高级表格1.置数据 (a, 0, 1, a)
.计次循环尾 ()
.如果真结束
行号 ＝ _启动窗口.高级表格1.行数
_启动窗口.高级表格1.行数 ＝ 行号 ＋ 1
_启动窗口.高级表格1.置数据 (行号, 0, 1, 行号)
_启动窗口.高级表格1.置数据 (行号, 1, 1, 编辑框7.内容)
_启动窗口.高级表格1.置数据 (行号, 2, 1, 编辑框1.内容)
_启动窗口.高级表格1.置数据 (行号, 3, 1, 到数值 (编辑框2.内容) × 到数值 (编辑框4.内容))
_启动窗口.高级表格1.置数据 (行号, 5, 1, 编辑框3.内容)
_启动窗口.高级表格1.置数据 (行号, 6, 1, 到文本 (取现行时间 ()))
_启动窗口.高级表格1.置数据 (行号, 7, 1, 编辑框6.内容)
_启动窗口.高级表格1.置数据 (行号, 8, 1, 编辑框5.内容)
_启动窗口.高级表格1.发送信息 (277, 7, 0) ' 移动高级表格到最底部
行号 ＝ 库存管理系统.高级表格1.取光标行号 () ' 刷新数据
编辑框1.内容 ＝ 库存管理系统.高级表格1.取数据 (行号, 1)
编辑框4.内容 ＝ 库存管理系统.高级表格1.取数据 (行号, 3)
编辑框5.内容 ＝ “单价” ＋ 编辑框1.内容 ＋ “ × 数量” ＋ 编辑框2.内容