超级列表框计算问题

xf702

各位高手，请问一下，我想实现以下几个内容：1、计算后的剩余库存能保存到EDB中，下次启动是还能看到目前剩余；2、每次新增或出库后，剩余数量能自动计算

黑蟑螂

这里是代码

  

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

如果真 (打开 (取运行目录 () ＋ “\测试123.edb”, , , , , , ) ＝ 假)
信息框 (“链接数据库失败，请检查数据库是否存在！”, 0, , )
返回 ()
重载表格 ()

子程序名	返回值类型	公开	备 注
增加新条目	逻辑型		加入一个新的库存，成功返回真，失败返回假
参数名	类 型	参考	可空	数组	备 注
原	整数型				原来的库存
新	整数型				新入的库存
出	整数型				出库

变量名	类 型	静态	数组	备 注
剩余	整数型
m	整数型
原库存	通用型

剩余 ＝ 原 ＋ 新 － 出  ' 计算新的剩余
如果 (加空记录 ())  ' 加入一条记录，并写入值
写 ( #原库存, 原)
写 ( #新入库, 新)
写 ( #出库, 出)
写 ( #剩余库存, 剩余)
返回 (真)
返回 (假)

子程序名	返回值类型	公开	备 注
重载表格			重新读取数据库，并载入表格

变量名	类 型	静态	数组	备 注
n	整数型

超级列表框1.全部删除 ()
超级列表框1.禁止重画 ()
计次循环首 (取记录数 (), n)
跳到 (n)
超级列表框1.插入表项 (n － 1, 到文本 (n), , , , )
超级列表框1.置标题 (n － 1, 1, 到文本 (读 ( #原库存 )))
超级列表框1.置标题 (n － 1, 2, 到文本 (读 ( #新入库 )))
超级列表框1.置标题 (n － 1, 3, 到文本 (读 ( #出库 )))
超级列表框1.置标题 (n － 1, 4, 到文本 (读 ( #剩余库存 )))
计次循环尾 ()
超级列表框1.允许重画 ()

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

如果真 (增加新条目 (到整数 (编辑框1.内容), 到整数 (编辑框2.内容), 到整数 (编辑框3.内容)))
重载表格 ()
返回 ()
信息框 (“新增失败！”, 0, , )
返回 ()

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

如果真 (修改条目 (超级列表框1.现行选中项) ＝ 假)
信息框 (“修改失败！”, 0, , )
返回 ()
重载表格 ()

子程序名	返回值类型	公开	备 注
修改条目	逻辑型
参数名	类 型	参考	可空	数组	备 注
索引	整数型

变量名	类 型	静态	数组	备 注
剩余	整数型
原	整数型
新	整数型
出	整数型
序号	整数型

序号 ＝ 索引 ＋ 1
原 ＝ 到整数 (编辑框1.内容)
新 ＝ 到整数 (编辑框2.内容)
出 ＝ 到整数 (编辑框3.内容)
剩余 ＝ 原 ＋ 新 － 出
如果 (跳到 (序号))
写 ( #原库存, 原)
写 ( #新入库, 新)
写 ( #出库, 出)
写 ( #剩余库存, 剩余)
返回 (真)
返回 (假)

子程序名	返回值类型	公开	备 注
_超级列表框1_左键单击表项

变量名	类 型	静态	数组	备 注
l	整数型

l ＝ 超级列表框1.现行选中项
如果真 (l ≥ 0)
编辑框1.内容 ＝ 超级列表框1.取标题 (l, 1)
编辑框2.内容 ＝ 超级列表框1.取标题 (l, 2)
编辑框3.内容 ＝ 超级列表框1.取标题 (l, 3)
返回 ()

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> .如果真 (打开 (取运行目录 () ＋ “\测试123.edb”, , , , , , ) ＝ 假)<br />     信息框 (“链接数据库失败，请检查数据库是否存在！”, 0, , )<br />     返回 ()<br /> .如果真结束<br /> 重载表格 ()<br /> <br /> .子程序 增加新条目, 逻辑型, 公开, 加入一个新的库存，成功返回真，失败返回假<br /> .参数 原, 整数型, , 原来的库存<br /> .参数 新, 整数型, , 新入的库存<br /> .参数 出, 整数型, , 出库<br /> .局部变量 剩余, 整数型<br /> .局部变量 m, 整数型<br /> .局部变量 原库存, 通用型<br /> <br /> 剩余 ＝ 原 ＋ 新 － 出  ' 计算新的剩余<br /> .如果 (加空记录 ())  ' 加入一条记录，并写入值<br />     写 (#原库存, 原)<br />     写 (#新入库, 新)<br />     写 (#出库, 出)<br />     写 (#剩余库存, 剩余)<br />     返回 (真)<br /> .否则<br />     返回 (假)<br /> .如果结束<br /> <br /> <br /> .子程序 重载表格, , 公开, 重新读取数据库，并载入表格<br /> .局部变量 n, 整数型<br /> <br /> 超级列表框1.全部删除 ()<br /> 超级列表框1.禁止重画 ()<br /> .计次循环首 (取记录数 (), n)<br />     跳到 (n)<br />     超级列表框1.插入表项 (n － 1, 到文本 (n), , , , )<br />     超级列表框1.置标题 (n － 1, 1, 到文本 (读 (#原库存)))<br />     超级列表框1.置标题 (n － 1, 2, 到文本 (读 (#新入库)))<br />     超级列表框1.置标题 (n － 1, 3, 到文本 (读 (#出库)))<br />     超级列表框1.置标题 (n － 1, 4, 到文本 (读 (#剩余库存)))<br /> .计次循环尾 ()<br /> 超级列表框1.允许重画 ()<br /> <br /> <br /> .子程序 _按钮2_被单击<br /> <br /> .如果真 (增加新条目 (到整数 (编辑框1.内容), 到整数 (编辑框2.内容), 到整数 (编辑框3.内容)))<br />     重载表格 ()<br />     返回 ()<br /> .如果真结束<br /> 信息框 (“新增失败！”, 0, , )<br /> 返回 ()<br /> <br /> .子程序 _按钮3_被单击<br /> <br /> .如果真 (修改条目 (超级列表框1.现行选中项) ＝ 假)<br />     信息框 (“修改失败！”, 0, , )<br />     返回 ()<br /> .如果真结束<br /> 重载表格 ()<br /> <br /> .子程序 修改条目, 逻辑型<br /> .参数 索引, 整数型<br /> .局部变量 剩余, 整数型<br /> .局部变量 原, 整数型<br /> .局部变量 新, 整数型<br /> .局部变量 出, 整数型<br /> .局部变量 序号, 整数型<br /> <br /> 序号 ＝ 索引 ＋ 1<br /> 原 ＝ 到整数 (编辑框1.内容)<br /> 新 ＝ 到整数 (编辑框2.内容)<br /> 出 ＝ 到整数 (编辑框3.内容)<br /> 剩余 ＝ 原 ＋ 新 － 出<br /> .如果 (跳到 (序号))<br />     写 (#原库存, 原)<br />     写 (#新入库, 新)<br />     写 (#出库, 出)<br />     写 (#剩余库存, 剩余)<br />     返回 (真)<br /> .否则<br />     返回 (假)<br /> .如果结束<br /> <br /> <br /> .子程序 _超级列表框1_左键单击表项<br /> .局部变量 l, 整数型<br /> <br /> l ＝ 超级列表框1.现行选中项<br /> .如果真 (l ≥ 0)<br />     编辑框1.内容 ＝ 超级列表框1.取标题 (l, 1)<br />     编辑框2.内容 ＝ 超级列表框1.取标题 (l, 2)<br />     编辑框3.内容 ＝ 超级列表框1.取标题 (l, 3)<br />     返回 ()<br /> .如果真结束

测试.zip (3.07 KB, 下载次数: 3)

2023-4-26 13:58 上传

点击文件名下载附件   自动计算，不需要你那个计算按钮！


补充内容 (2023-4-26 14:02):
要学会把多处调用的东西，写成子程序，方便调用。这样避免代码多处重复，程序体积增大，运行缓慢！

钥匙key

EDB都没有回答了。。兄弟呀。转sqlite吧。。

云少i

兄弟，换数据库吧，edb太少人用了，

黑蟑螂

你把源代码 和edb发出来，我帮你写不就完了嘛

xf702

黑蟑螂 发表于 2023-4-26 13:18
你把源代码 和edb发出来，我帮你写不就完了嘛

好咧。。。谢谢了。。

xf702

EDB么有办法发啊。。。

黑蟑螂

xf702 发表于 2023-4-26 13:27
EDB么有办法发啊。。。

等会儿吧

d9905l

建议MYSQL，，EDB说实话，我都没看过。。。。。  我MYSQL熟啊

我很低调

学习下