|
发表于 2023-4-26 12:40:54
|
显示全部楼层
广东省佛山市
这里是代码 如果真 (打开 (取运行目录 () + “\测试123.edb”, , , , , , ) = 假) 信息框 (“链接数据库失败,请检查数据库是否存在!”, 0, , ) 返回 ()重载表格 ()变量名 | 类 型 | 静态 | 数组 | 备 注 | 剩余 | 整数型 | | | m | 整数型 | | | 原库存 | 通用型 | | |
剩余 = 原 + 新 - 出 如果 (加空记录 ()) 写 ( #原库存, 原 ) 写 ( #新入库, 新 ) 写 ( #出库, 出 ) 写 ( #剩余库存, 剩余 ) 返回 (真) 返回 (假)![](source/plugin/code_color/image/code10/02.png) 超级列表框1. 全部删除 ()超级列表框1. 禁止重画 () 计次循环首 (取记录数 (), n ) 跳到 (n )![](source/plugin/code_color/image/code10/03.png) 超级列表框1. 插入表项 (n - 1, 到文本 (n ), , , , )![](source/plugin/code_color/image/code10/03.png) 超级列表框1. 置标题 (n - 1, 1, 到文本 (读 ( #原库存 )) )![](source/plugin/code_color/image/code10/03.png) 超级列表框1. 置标题 (n - 1, 2, 到文本 (读 ( #新入库 )) )![](source/plugin/code_color/image/code10/03.png) 超级列表框1. 置标题 (n - 1, 3, 到文本 (读 ( #出库 )) )![](source/plugin/code_color/image/code10/03.png) 超级列表框1. 置标题 (n - 1, 4, 到文本 (读 ( #剩余库存 )) ) 计次循环尾 ()超级列表框1. 允许重画 () 如果真 (增加新条目 (到整数 (编辑框1.内容 ), 到整数 (编辑框2.内容 ), 到整数 (编辑框3.内容 )) ) 重载表格 () 返回 ()信息框 (“新增失败!”, 0, , )返回 () 如果真 (修改条目 (超级列表框1.现行选中项 ) = 假) 信息框 (“修改失败!”, 0, , ) 返回 ()重载表格 ()变量名 | 类 型 | 静态 | 数组 | 备 注 | 剩余 | 整数型 | | | 原 | 整数型 | | | 新 | 整数型 | | | 出 | 整数型 | | | 序号 | 整数型 | | |
序号 = 索引 + 1 原 = 到整数 (编辑框1.内容 )新 = 到整数 (编辑框2.内容 )出 = 到整数 (编辑框3.内容 )剩余 = 原 + 新 - 出 如果 (跳到 (序号 )) 写 ( #原库存, 原 ) 写 ( #新入库, 新 ) 写 ( #出库, 出 ) 写 ( #剩余库存, 剩余 ) 返回 (真) 返回 (假)![](source/plugin/code_color/image/code10/02.png) l = 超级列表框1.现行选中项 如果真 (l ≥ 0 )![](source/plugin/code_color/image/code10/03.png) 编辑框1.内容 = 超级列表框1. 取标题 (l, 1 )![](source/plugin/code_color/image/code10/03.png) 编辑框2.内容 = 超级列表框1. 取标题 (l, 2 )![](source/plugin/code_color/image/code10/03.png) 编辑框3.内容 = 超级列表框1. 取标题 (l, 3 ) 返回 ()![](source/plugin/code_color/image/code10/01.png)
测试.zip
(3.07 KB, 下载次数: 3)
|
评分
-
查看全部评分
|