一段小程序请各位大虾帮小弟看看

procedure Tfm_mlogin.sbtn_enterClick(Sender: TObject);
begin
flag:=false;
right:=fm_mlogin.cmb_right.Text;
logname:=cmb_name.Text;
password:=edt_password.Text;
adotable1.Open;
adotable1.First;
while not adotable1.Eof do
begin
if (logname=adotable1.FieldValues['ÕʺÅ]) and (right=adotable1.FieldValues['ȨÏÞ']) and (password=adotable1.FieldValues['ÃÜÂë']) then
   flag:=true;
  adotable1.Next;
end;
if flag=true then
begin
cmb_name.Text:='';
edt_password.Text:='';
cmb_name.SetFocus;
adotable1.Close;
fm_kehu.ShowModal;
close;
end
else
begin
showmessage('´ËÕʺŲ»´æÔÚ»òÃÜÂë´íÎó,Çë´ÓÐÂÊäÈë!');
cmb_name.Text:='';
edt_password.Text:='';
cmb_name.SetFocus;
end;end;