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