洗车房专用的会员管理系统

.如果 (编辑框31.内容 ≠ “” 且 编辑框32.内容 ≠ “” 且 编辑框33.内容 ≠ “” 且 编辑框34.内容 ≠ “” 且 编辑框35.内容 ≠ “” 且 编辑框36.内容 ≠ “” 且 编辑框37.内容 ≠ “” 且 编辑框38.内容 ≠ “”)
打开 (取运行目录 () ＋ “\data\taocan.edb”, , , , , , )
.如果 (查找 (读 (“套餐名称”) ＝ 编辑框33.内容) ＝ 真 且 取记录号 () ≠ 组合框4.现行选中项 ＋ 1)
信息框 (“套餐名称重复，请重新填写套餐名称！”, 0, “友情提醒”, )
关闭 (取运行目录 () ＋ “\data\taocan.edb”)
.否则
输出调试文本 (组合框4.现行选中项)
a ＝ 加记录 (编辑框33.内容, 编辑框32.内容, 编辑框31.内容, 到文本 (组合框5.现行选中项), 编辑框34.内容, 到文本 (组合框6.现行选中项), 编辑框35.内容, 到文本 (组合框7.现行选中项), 编辑框36.内容, 到文本 (组合框8.现行选中项), 编辑框37.内容, 到文本 (组合框9.现行选中项), 编辑框38.内容, 到文本 (组合框10.现行选中项))
输出调试文本 (a)
关闭 (取运行目录 () ＋ “\data\taocan.edb”)
_高级选择夹2_子夹被改变 ()
信息框 (“套餐添加成功！”, 0, “提示”, )
.如果结束

.否则
信息框 (“套餐内容不能为空，如果没有请填写0！”, 0, “友情提醒”, )