怎样写登陆时验证的代码啊！(18分)

怎样写登陆时验证的代码啊！用Adodataset写。

这是我写的，不过是BDE的，你可以参考一下：）我也是新手：）
procedure TForm1.Button1Click(Sender: TObject);
var
i:string;
begin
with DataModule do
begin
form1_query1.Close;
form1_query1.SQL.Clear;
form1_query1.SQL.Add('SELECT 密码 as pass FROM "xueji_user.db" Xueji_user where 用户名=:n');
form1_query1.ParamByName('n').AsString:=edit1.Text;
form1_query1.Open;
i:=form1_query1.fieldbyname('pass').asstring;
Hide;
if i=edit2.Text then
form2.Show
else
begin
showmessage('账号或密码错误');
form1.show;
edit1.Text:='';
edit2.Text:='';
exit;
end;
end;
end;

首先在数据库中设计一张表如：login，结构如：userid,username,password

if 输入的username存在 then
if 输入的password正确 then
进入系统
else
密码错误，重新输入
else
用户名错误，重新输入

当然，用户名可以让用户选择。
兄弟，分少了点吧[]

最简单的密码加密程序:
procedure TForm1.Button1Click(Sender: TObject);
var
IniStr,TarStr : String;
I : Integer;
begin
IniStr := 'sSF34%esSDF23234@#$DSFsdf234fdWER@#$dtyiuOIUDCB';
TarStr := IniStr;
for I := 1 to Length(IniStr) do
TarStr := Chr(Ord(IniStr)+33 );
//加密后的字符串：攖gTUF啍tegSTSTUaDEetg攨嘢TU噮xfsaDE厱殜杙jvedc

end;

up

多人接受答案了。