求教：系统登陆问题

[JohnsonHome]

在SQL SERVER里有一张表 字段有:user_name,password,如何判断字段的记录与DELPHI内的文本框相对应，一旦对应，就登陆系统。小弟以前是搞ASP的，现在对DELPHI不了解，可以告诉我吗？

[bambuz]

if pass_word:=Dpassword.Text then --> if pass_word=Dpassword.Text then

[forestry98]

使用TADOQuery组件，
编辑它的ConnectionString属性链接数据库，
然后查询代码如下：
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text := 'SELECT * FROM [表名] WHERE ......' ; //这SQL相信楼主也会写了
ADOQuery1.Open;
if ADOQuery1.RecordCount = 1 then
ShowMessage('该用户存在一个！');
ADOQuery1.Close;

[bambuz]

要使用QUERY 或ADOQUERY , 如下：
WITH QUERY1 DO
BEGIN
Active:=False;
SQL.CLEAR;
SQL.ADD('SELECT password FROM 表 WHERE user_name=:NAME'); //參加NAME 爲變量
Parameters[0].Value:=EDIT1.TEXT; // 傳入的參數:用戶名
Active:=True;
PW:=fieldbyname('password').AsString; //從表中取得字段password 的內容
If PW=Edit2.text then
... // 如果輸入的密碼與表中的密碼相同，則 ...
Else
...
end;

[JohnsonHome]

为什么我这里if pass_word:=Dpassword.Text then 这句语句出错，提示错误是“[Error]loginunit.pas(61) Type of expression must be BOOLEAN”为什么要是BOOLEAN型的呢？
代码如下：
with ADOlogin do
begin
Active:=false;
sql.Clear;
sql.Add('select password from login where user_name=:user_name');
Parameters[0].Value:=Trim(Dusername.Text);
Active:=True;
pass_word:=Fields[1].AsString;
if pass_word:=Dpassword.Text then
begin
pricecenter.Show;
pricecenter.Free;
end
else
Dusername.Text:='';
Dusername.SetFocus;
Dpassword.Text:='';
showmessage('用户名或者密码不正确,请重新输入');
end
end;