Delphi登陆验证方法

procedure TForm1.Button1Click(Sender: TObject);  
var  
num,user,pass,temp:string;  
begin  
  user:=Edit1.Text;  
  pass:=Edit2.Text;  
  
  ADOQuery1.Close;  
  ADOQuery1.SQL.Clear;  
  ADOQuery1.SQL.Text:=’select ID from admin where Fuser=”‘+user+”‘and Fpass=”‘+pass+””;  
  Adoquery1.Open;  
  temp:=adoquery1.FieldByName(‘ID’).AsString;  
  if temp<>” then  
  //如果输入了正确的用户名和密码,那么必然能查到用户编号,否则结果为空  
  begin  
  //showmessage(temp);  
  Form2.Show;//这里调用的Form2必须use中添加对应的哦  
  end  
  //———登录失败,提示用户重新输入———————————-  
  else  
  begin  
  ShowMessage(‘用户名或密码错误,请检查后重新登录’);  
  end  
end;  
表结构:
表名:admin
项:ID    Fuser    Fpass
THE END
文章版权归作者所有,未经允许请勿转载。
点赞12赞赏
评论 抢沙发
头像
欢迎您留下宝贵的见解!
提交
头像

昵称

取消
昵称表情代码图片