mysql数据库卡号卡密批量生成写入验证附易辅助模块

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, “写入失败”)