支持各种店铺的通用会员管理系统软件

sql ＝ “select * from s_number,log where s_number.卡号 ='” ＋ _启动窗口.超级列表框1.取标题 (_启动窗口.超级列表框1.现行选中项, 0) ＋ “'” ＋ “ and log.卡号='” ＋ _启动窗口.超级列表框1.取标题 (_启动窗口.超级列表框1.现行选中项, 0) ＋ “'”
总次数1 ＝ 0
总金额1 ＝ 0
查询句柄 ＝ 数.查询 (sql)
.判断循环首 (数.首记录前 (查询句柄) ＝ 假 且 数.尾记录后 (查询句柄) ＝ 假)
表项句柄 ＝ 超级列表框1.插入表项 (, 数.读 (查询句柄, “卡号”), , , , )
超级列表框1.置标题 (表项句柄, 1, 数.读 (查询句柄, “姓名”))
超级列表框1.置标题 (表项句柄, 2, 数.读 (查询句柄, “消费物品”))
超级列表框1.置标题 (表项句柄, 3, 数.读 (查询句柄, “数量”))
编辑框2.内容 ＝ “” ＋ 数.读 (查询句柄, “消费额度”)
标签3.内容 ＝ “” ＋ 数.读 (查询句柄, “消费额度”)
超级列表框1.置标题 (表项句柄, 4, 数.读 (查询句柄, “金额”))
总金额1 ＝ 总金额1 ＋ 到整数 (数.读 (查询句柄, “金额”))
总次数1 ＝ 总次数1 ＋ 1
数.到后一记录 (查询句柄)
.判断循环尾 ()
总金额.标题 ＝ “消费总金额:” ＋ 到文本 (总金额1)
编辑框1.内容 ＝ “” ＋ 到文本 (总金额1)
总次数.标题 ＝ “消费总次数:” ＋ 到文本 (总次数1)
卡号.标题 ＝ “卡号:” ＋ _启动窗口.超级列表框1.取标题 (_启动窗口.超级列表框1.现行选中项, 0)