请问给位大侠帮个忙!!!(多分!想要多少分!就多少分呀)

Question

我在做一个系统,不知道密码校验有什么问题!老是
出错!!!请问那位朋友,有着一类的资料或者源代码!!
帮个忙!!!!!多谢!!!!

Answer 1

AdoQuery1.Sql.Text:='select password from table1 where username=:un';
AdoQuery1.ParamByName('un').AsString:=username1;
AdoQuery1.Open;
if AdoQuery1.RecordCount<>0 then
begin
  MyPassword:=AdoQuery1.FieldByName('password').AsString;
  if MyPassword=MaskEdit1.Text then
    .....
  else
    .....
end;
AdoQuery1.Close;