数据库重复添加判断

zj19760117

请大师帮我看一下这段代码错在哪里，用户名重复判断可以，比如张三提示重复， 张三1也提示重复

  

子程序名	返回值类型	公开	备 注
_按钮_添加_被单击

变量名	类 型	静态	数组	备 注
sql语句	文本型

如果真 (记录集1.记录数量 ＝ -1)
信息框 (“请检查数据库是否连接”, #错误图标, “错误提示”, )
返回 ()

如果真 (删全部空 (编辑框_用户名.内容) ＝ “” 或 删全部空 (编辑框_密码.内容) ＝ “”)
信息框 (“提交数据信息不全，请输入完整信息”, #错误图标, “错误提示”, )
记录集1.关闭 ()
返回 ()
sql语句 ＝ “select * from [myself] where [user]='” ＋ 删全部空 (编辑框_用户名.内容) ＋ “'”
如果真 (数据库连接1.执行SQL (sql语句, ))
信息框 (“用户名已存在”, #错误图标, “错误提示”, )
返回 ()
sql语句 ＝ “insert into [myself] ([user],[pass]) values ('” ＋ 删全部空 (编辑框_用户名.内容) ＋ “','” ＋ 删全部空 (编辑框_密码.内容) ＋ “')”
如果真 (数据库连接1.执行SQL (sql语句, ) ＝ 真)
记录集1.更新 ()
记录集1.打开 (“myself”, #数据表名, )
读取数据 ()

i支持库列表	支持库注释
eDB	数据库操作支持库

.版本 2<br /> .支持库 eDB<br /> <br /> .子程序 _按钮_添加_被单击<br /> .局部变量 sql语句, 文本型<br /> <br /> .如果真 (记录集1.记录数量 ＝ -1)<br />     信息框 (“请检查数据库是否连接”, #错误图标, “错误提示”, )<br />     返回 ()<br /> .如果真结束<br /> <br /> .如果真 (删全部空 (编辑框_用户名.内容) ＝ “” 或 删全部空 (编辑框_密码.内容) ＝ “”)<br />     信息框 (“提交数据信息不全，请输入完整信息”, #错误图标, “错误提示”, )<br />     记录集1.关闭 ()<br />     返回 ()<br /> .如果真结束<br /> sql语句 ＝ “select * from [myself] where [user]='” ＋ 删全部空 (编辑框_用户名.内容) ＋ “'”<br /> .如果真 (数据库连接1.执行SQL (sql语句, ))<br />     信息框 (“用户名已存在”, #错误图标, “错误提示”, )<br />     返回 ()<br /> .如果真结束<br /> sql语句 ＝ “insert into [myself] ([user],[pass]) values ('” ＋ 删全部空 (编辑框_用户名.内容) ＋ “','” ＋ 删全部空 (编辑框_密码.内容) ＋ “')”<br /> .如果真 (数据库连接1.执行SQL (sql语句, ) ＝ 真)<br />     记录集1.更新 ()<br />     记录集1.打开 (“myself”, #数据表名, )<br />     读取数据 ()

Marvin

.版本 2

sql连接.置sql命令 (sql)
.如果真 (sql记录集.取记录数 () ＞ 0)
    返回 (“用户名重复，请重新填写！”)


补充内容 (2025-3-24 21:36):
少了：sql记录集.取记录数 () ＞ 0

不二猫猫

本地用sqlite数据库，世界第一数据库
https://www.bilibili.com/video/BV1yc411J7qt/