Código Delphi [-] ... qy.SQL.Add('SELECT * FROM SIS_USUARIOS'); qy.SQL.Add('WHERE DES_USUARIO = :NOMBRE'); qy.ParamByName('NOMBRE').AsString := nam; qy.Open; Result := not qy.IsEmpty and (qy.FieldByName('PWD_USUARIO').AsString = pwd); ...
... qy.SQL.Add('SELECT * FROM SIS_USUARIOS'); qy.SQL.Add('WHERE DES_USUARIO = :NOMBRE'); qy.ParamByName('NOMBRE').AsString := nam; qy.Open; Result := not qy.IsEmpty and (qy.FieldByName('PWD_USUARIO').AsString = pwd); ...