Delphi登陆验证方法

下面是Delphi的登陆按钮中的代码:

  1. procedure TForm1.Button1Click(Sender: TObject);  
  2. var  
  3. num,user,pass,temp:string;  
  4. begin  
  5.   user:=Edit1.Text;  
  6.   pass:=Edit2.Text;  
  7.   
  8.   ADOQuery1.Close;  
  9.   ADOQuery1.SQL.Clear;  
  10.   ADOQuery1.SQL.Text:=’select ID from admin where Fuser=‘+user+and Fpass=‘+pass+;  
  11.   Adoquery1.Open;  
  12.   temp:=adoquery1.FieldByName(‘ID’).AsString;  
  13.   if temp<> then  
  14.   //如果输入了正确的用户名和密码,那么必然能查到用户编号,否则结果为空  
  15.   begin  
  16.   //showmessage(temp);  
  17.   Form2.Show;//这里调用的Form2必须use中添加对应的哦  
  18.   end  
  19.   //———登录失败,提示用户重新输入———————————-  
  20.   else  
  21.   begin  
  22.   ShowMessage(‘用户名或密码错误,请检查后重新登录’);  
  23.   end  
  24. end;  

表结构:

表名:admin

项:ID    Fuser    Fpass

发表回复

登录... 后才能评论