edb数据库开发的通用进销存管理系统

.如果真 (信息框 (“你确定要清空列表中的商品！”, #警告图标 ＋ 1, “警告：”) ＝ 0)
打开 (取运行目录 () ＋ “\data\sp.edb”, , , , , “19871015”, )
.计次循环首 (超级列表框1.取表项数 (), 计次)
跳到 (到数值 (超级列表框1.取标题 (计次 － 1, 0)))
删除 ()
.计次循环尾 ()
.如果 (彻底删除 () ＝ 真)
信息框 (“列表中的商品已经被清空！”, 64, “提示：”)
刷新商品 (查询方式, 关键字, 字段位)
状态条1.置文本 (4, “商品数量：” ＋ 到文本 (超级列表框1.取表项数 ()))
.否则
信息框 (“列表中的商品清空失败！”, #错误图标, “提示：”)
.如果结束
关闭 (取运行目录 () ＋ “\data\sp.edb”)

.如果 (替换打开 (取运行目录 () ＋ “\data\jhdd.edb”, , , , , “19871015”, ) ＝ 假)
.判断开始 (文件是否存在 (取运行目录 () ＋ “\data\jhdd.edb”) ＝ 真)
信息框 (“打开进货订单数据库失败！”, #错误图标, “错误：”)
销毁 ()
.默认
丢失的数据库 ＝ 丢失的数据库 ＋ “进货订单数据库丢失” ＋ #换行符