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 fastreport快速安装教程

Delphi 网络时间校对

Delphi memo1文本搜索并高亮

Delphixe firemonkey 如何画图

Delphi中message消息的使用方法

Delphi 获取外部程序句柄与发送消息

Delphi copy 字符串函数

Delphi guid单元

Delphi 从indy9升级到indy10时idtcpserver的变化

Delphi拷贝整个目录(包括子目录)

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

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