delphi检验用户名是否可用

来源：百度知道编辑：UC知道时间：2024/05/31 08:59:37

我遇到一个问题，本想实现一个功能，就是注册用户名的时候，如果这个用户名已经在我的数据库存在就不能用这个，要换个别的，可是我编了如下代码，如果执行了，那么我注册一个已经存在的用户名的时候会提示“已经存在”，但是我接着再注册一个没有在数据库存在的用户名，还是会提示“已经存在”…………如果我先注册一个数据库没有的用户名他也会提示“用户名可用”，但是我接着再注册一个已经有的用户名，会也提示“用户名可用”，并且数据库中还真的增加了一条记录~帮帮我啊！谢谢
procedure TFormzhuce.BitBtn1Click(Sender: TObject);
var
sqlyuju:string;
begin
formkongjian.adoquery1.SQL.Add('Select * from yonghu where administrator='+#39+Edit1.Text+#39);
formkongjian.adoquery1.open;
if formkongjian.adoquery1.RecordCount>0 then
begin
showmessage('已存在该用户，请重新输入！');
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
end
else
begin
sqlyuju:='insert into yonghu(administrator,password,sname) values(''%s'',''%s'',''%s'')';
sqlyuju:=format(sqlyuju,[edit1.Text,edit2.Text,edit3.Text]);
formkongjian.adoquery1.close;
formkongjian.adoquery1.sql.Clear;
formkongjian.a

procedure TFormzhuce.BitBtn1Click(Sender: TObject);
var
sqlyuju:string;
begin
formkongjian.adoquery1.Close;
//使用前先清空上次的SQL语句
formkongjian.adoquery1.SQL.Clear;
formkongjian.adoquery1.SQL.Add('Select * from yonghu where administrator='+#39+Edit1.Text+#39);
formkongjian.adoquery1.open;
if formkongjian.adoquery1.RecordCount>0 then

后面再加上你的代码..不行了再找我

用户注册时“检验用户名是否可用”的理由检验某物质中是否有铵根离子可用? 为什么可用NaOH来检验是否有CO2? 求检验用户名是否已经存在的代码求ASP检验用户名是否已经存在的代码化工厂可用浓氨水检验氯气是否泄漏，有关化学反应为………… 如何判断用户名是否可用？多谢各位！我用的是ASP ASP.NET中如何实现检查用户名是否可用的功能？学习delphi是否有前途？检验LCD是否有坏点！