
据库连接1.连接Access (取运行目录 () + “数据库名称”, “没数据库密码时为空”)。
记录集1.置连接 (数据库连接1)。
记录集1.打开 (“SELECT * FROM 数据库表名”, #SQL语句, )。
记录集1.添加 ()。
记录集1.写文本 (“姓名”, 编辑框_姓名.内容)。
记录集1.写文本 (“身份z号”, 编辑框_身份z号.内容)。
记录集1.更新 ()。
记录集1.关闭 ()。
数据库连接1.关闭 ()。
注意 数据库名、表名、字段名、字段类型 是否填写错误。
.版本 2.子程序 _按钮1_被单击
.局部变量 昵称, 文本型
.局部变量 账号, 文本型
.局部变量 密码, 文本型
.局部变量 查找结果1, 逻辑型
.局部变量 查找结果2, 逻辑型
打开 (“客户资料.edb”, , , , , , )
置当前库 (“客户资料.edb”)
昵称 = 编辑框_昵称.内容
账号 = 编辑框_账号.内容
密码 = 编辑框_密码.内容
查找结果1 = 查找 (读 (#昵称) = 昵称) ' #昵称为数据库中的名称,保存在常量表中;昵称为上面定义的编辑框_昵称.内容
查找结果2 = 查找 (读 (#账号) = 账号) ' #账号为数据库中的名称,保存在常量表中;账号为上面定义的编辑框_账号.内容
.如果真 (查找结果1 = 真)
信息框 (昵称 + “已经存在!”, #警告图标, )
返回 ()
.如果真结束
.如果真 (查找结果2 = 真)
信息框 (账号 + “已经存在!”, #警告图标, )
返回 ()
.如果真结束
.如果 (加记录 (昵称, 账号, 密码))
信息框 (“注册成功”, 0, )
.否则
信息框 (“注册失败”, 0, )
.如果结束
关闭 ()
你尝试一下这段代码吧,还有根本不用计次循环这么麻烦,只要用数据库中的查找命令就可以了! 代码是随手写的,没测试过哦,自己测试下有什么问题!
保存在常量表中的常量:
.版本 2
.常量 昵称, ""昵称""
.常量 账号, ""账号""
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)