点卡销售管理系统，支持添加、查询、管理等

.如果真 (记录集.查找 (“点卡名称='” ＋ 到文本 (编辑框1.内容) ＋ “'”, #正向搜索) ＝ 假) ' 直接查找,如果找到证明此卡号是存在.
输出调试文本 (“查找成功”)
记录集.过滤记录 (“”)
记录集.添加 ()
记录集.到首记录 ()
记录集.写文本 (“点卡名称”, 编辑框1.内容)
.如果 (记录集.更新 ())
信息框 (“添加点卡分类成功”, 64, #提示信息)
.否则
信息框 (“添加点卡分类失败!”, 16, #提示信息)
.如果结束
记录集.关闭 ()
添冲列表 ()

.如果 (打开点卡类别 () ＝ 真)
记录数 ＝ 记录集.记录数量
记录集.到首记录 ()
超级列表框1.全部删除 ()
.计次循环首 (记录数, 变量1)
超级列表框1.插入表项 (0, 记录集读取 (, “点卡名称”), , , , )
记录集.到下一条 ()
.计次循环尾 ()
.否则
信息框 (“打开数据库错误，原因为：” ＋ 取错误信息 (), 0, “错误”)