SQL ＝ “select * from dianka where kahao="” ＋ 编辑框2.内容 ＋ “" and mima="” ＋ 编辑框3.内容 ＋ “"”

.如果 (执行SQL语句 (mysql句柄, SQL) ＝ 真)

(资料图片仅供参考)

记录集句柄 ＝ 取记录集 (mysql句柄)

读字段值 (记录集句柄, “id”, id_)

读字段值 (记录集句柄, “zt”, zt_)

.如果 (id_ ≥ “0” 且 zt_ ＝ “0”)

信息框 (“验证成功，此卡未使用”, #信息图标, “一点滴提示：”)

.否则

.如果 (id_ ≥ “0” 且 zt_ ＝ “1”)

信息框 (“验证成功，此卡已使用”, #信息图标, “一点滴提示：”)

.否则

信息框 (“验证失败，未找到此卡号”, #错误图标, “一点滴提示：”)

返回 ()

.如果 (超级列表框1.取标题 (超级列表框1.取表项数 () － 1, 1) ≠ “” 且 超级列表框1.取标题 (超级列表框1.取表项数 () － 1, 2) ≠ “”)

超级按钮1.标题 ＝ “写入中...”

.如果 (增加记录 (mysql句柄, “dianka”, “kahao="” ＋ 超级列表框1.取标题 (超级列表框1.取表项数 () － 1, 1) ＋ “"” ＋ “,mima="” ＋ 超级列表框1.取标题 (超级列表框1.取表项数 () － 1, 2) ＋ “"” ＋ “,zt="0"”) ＝ 真)

超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 3, “写入成功”)

.否则

超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 3, “写入失败”)