基于易语言数据库开发的一个网络验证

.计次循环首 (到整数 (编辑框1.内容), i)
卡密 ＝ 到文本 (取随机数 (10000000, 99999999))
卡密 ＝ “NK” ＋ 到文本 (卡密)
.如果 (加空记录 () ＝ 真)
写 (1, 到文本 (卡密)) ' 卡号
写 (2, 时间到文本 (取现行时间 (), )) ' 卡密生成时间
写 (3, “年卡”) ' 机器码默认为空
写 (4, “未使用”) ' 卡密生成情况
.否则
信息框 (“数据添加失败错误：数据库未能添加空记录”, 0, , )
.如果结束

.计次循环尾 ()

.如果真 (信息框 (“你确定要删除该数据！”, 1 ＋ #询问图标, “注意：”, ) ＝ 0)
打开 (取运行目录 () ＋ “\用户数据库.edb”, , , , , , )
跳到 (超级列表框1.现行选中项 ＋ 1)
删除 ()
.如果 (彻底删除 () ＝ 真)
信息框 (“信息删除成功！”, 64, “提示：”, )
关闭 (取运行目录 () ＋ “\用户数据库.edb”)
_按钮2_被单击 ()
.否则
信息框 (“数据删除失败！”, #错误图标, “提示：”, )
关闭 (取运行目录 () ＋ “\用户数据库.edb”)