这个是登录窗口的一个验证机制，写法很多种，这是其中一种。 procedure TFrmOrderBy.BtnOrderClick(Sender: TObject); begin if Length(EdtPassWord.Text) = 0 then Exit; with AQuery do begin Close; SQL.Clear; SQL.Add('select pwdcompare(:Pass,loginpassword) from login where loginname