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

推荐分享