求登录代码

Question

我想做个登录程序，要求要与数据库SQL2000表中的密码验证是否一致，不知如何实现

Answer 1

select * from table where user=:username and pass =:password
//这个代码有漏洞，不过你可以分两次查找。select * from table where user=:usernameif FieldByName('pass').AsString = password then //登陆成功。

Answer 2

 首先建用户表：包含如下字段：姓名，密码，权限  
然后新建一个Form，命名为fmLogn，放两个Edit，Edit1用来输入用户名，Edit2输入密码。  
 
procedure  TfmLogn.Btn1Click(Sender:  TObject);  
begin  
   ADOTable1.Locate('Name',Edit1.text,[loCaseInsensitive,loPartialKey]);  
   if  Edit2.Text  <  >ADOTable1['PassWord']  
   then  
       begin  
           Application.MessageBox('密码错误！','错误',MB_ICONERROR  +  MB_OK);  
           Exit;  
       end  
       else  
       begin  
           ...//进入程序主界面  
       end;    
end;