begin adotable1.First; while (ed_user.Text <> adotable1.FieldByName('user').AsString) or (ed_password.Text <> adotable1.FieldByName('password').AsString ) do begin adotable1.Next; if adotable1.Eof then begin show_waring('用户名或密码不对,请从新输入!') ; ed_user.SetFocus; Exit; end; Frm_Management.ShowModal; end; end;