怎样与数据库的数据比较(50分)

在查询数据库中，我把一个数据与数据库中的一条记录中的一个字段相比较。例如，建一
个密码数据库，里有用户名，密码，权限。用户输入用户名，密码。系统自动查询用户记录
，核对密码，并读出权限。这怎样实现？最好能举一个例子（源代码或用什么属性）。谢谢！

select 权限 from 用户ZD表 where user_name = 用户名
and password = 密码

function TMain.LoginIn(UserID, PassWD: string): TDoReport;
var
k: integer;
Mark: Boolean;
begin
Mark:= False;
CDSComm.Close;
with CDSComm do
try
Result:= drError;
if (UpperCase(UserID) = '1') and (PassWD = '1')
then begin Result:= drAll;exit;end;
CommandText:= sLoginSQL;
Open;
for k:= 0 to RecordCount - 1 do
begin
if (Fields[0].AsString = UserID) and (Fields[2].AsString = PassWD)
then
begin
OperatorInfperator_Number:= Fields[0].AsInteger;
OperatorInfperator_Name:= Fields[1].AsString;
OperatorInfo.PassWd:= Fields[2].AsString;
OperatorInfperator_Right:= (ReportLimit(Fields[3].AsInteger));
Result:= OperatorInfperator_Right;
Mark:= True;
Break;
end
else
CDSComm.Next;
end;
if not Mark then Result:= drInvalid;
CDSComm.Close;
except
Result:= drError;
CDSComm.Close;
end;
end;