赞
踩
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, “写入失败”)
Copyright © 2003-2013 www.wpsshop.cn 版权所有,并保留所有权利。