进销存软件开源代码

易语言 2020-08-04 20:28:55

进销存软件开源代码

.计次循环首 (取记录数 (), 局部_计次)
跳到 (局部_计次)
.如果真 (读 (#系统编码) = 程序集_修改进货管理_系统编码)
写 (#物品数量, 编辑框_修改进货管理.内容)
局部_总的数额 = 到文本 (到数值 (编辑框_修改进货管理.内容) × 到数值 (读 (#物品单价)))
写 (#物品总额, 局部_总的数额)
.如果真 (程序集_双击修改的超级列表框行_进货详细 ≠ -1)
超级列表框_进货管理.置标题 (程序集_双击修改的超级列表框行_进货详细, 4, 编辑框_修改进货管理.内容)
超级列表框_进货管理.置标题 (程序集_双击修改的超级列表框行_进货详细, 5, 局部_总的数额)
.如果真结束
编辑框_修改进货管理.内容 = “”
跳出循环 ()
.如果真结束

.计次循环尾 ()