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
 

相关阅读 >>

Delphi中提取网页源代码

Delphi tnotification android通知

Delphi指针和字符串

Delphi 判断文件名是否合法，判断文件名路径是否合法

Delphi中使用自定义字体

Delphi中使用ado连接带密码的access

Delphi xe 安卓 memo设置字体颜色

Delphi分别连接ms sqlserver、oracle和access数据库的连接字符串

Delphi idhttp post

Delphi xe10.x 快捷失灵解决办法

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi登陆验证方法