谁能帮我？谁帮我！！！！！！

[yjbdgood]

有个问题，我做一个登陆界面，从sql server中读用户名和密码。如何利用输入的id作为过滤（filter）的选择，然后只要比较密码就可以？代码如何写？
有没有更好的方法？那又应该如何写？？

[yjbdgood]

为什么没有人帮我？
告诉我啊？？

[bee2518]

with dmmain.qry_temp do
begin
close;
sql.Clear;
sql.Add('SELECT 字段 AS KL FROM GSTYHGL0 WHERE RYDM00='''+usercode +''' AND GSDW00='''+compcode+'''');
prepared;
open;
end;
if edt_rykl.Text <>dmmain.qry_temp.FieldByName('KL').AsString then
begin
application.MessageBox('ÄãÊäÈëÈËÔ±¿ÚÁî´íÎó£¬ÇëÔÙÊäÈ룡', 'Ìáʾ', mb_ok +
mb_iconwarning);
edt_rykl.SetFocus;
exit;
end;

[火龙岛主]

with adoquery do
begin
close;
sql.clear;
sql.add('select id,name from powertable');
open;
filtered:=false;
filter:='id='+edit1.text;
if recordcount=0 then
messagebox(handle,'this user not exist!','information',mb_ok)
else
if fields[1].asstring=edtname.text then
frmmain.show
else
messagebox(handle,'the password not correct!','error',mb_ok);


end;

[火龙岛主]

with adoquery do
begin
close;
sql.clear;
sql.add('select id,name from powertable');
open;
filtered:=false;
filter:='id='+edit1.text;
filtered:=true;//这里少了一句话
if recordcount=0 then
messagebox(handle,'this user not exist!','information',mb_ok)
else
if fields[1].asstring=edtname.text then
frmmain.show
else
messagebox(handle,'the password not correct!','error',mb_ok);


end;

[pdcdiy163]

ADOTable1.Filter:='ID='''+Edit1.Text+'''';
ADOTable1.Filtered:=true;
if ADOTable1.FeildByName('密码').AsString=Edit2.Text then
begin
ShowMessage('密码正确可以进入下级子界面')
end
else
begin
ShowMessage('密码错误请重新输入！');
Edit2.SetFocus;
end;

[bee2518]

乱码部分是：
‘你输入的口令错误，请再输入！’，‘提示’

[yjbdgood]

谢谢，可以用了，太感谢了，给分！