TprxADOQuerySelect

Descripción

El objeto TprxADOQuerySelect (Query con funcionalidad básica.) implementa funcionalidad básica para simplificar el código relacionado con las operaciones de base de datos.

Identidad

• Ancestro: TADOQuery
• Carpeta: C:\DevelopPrx\library
• Archivo: prxADOQuerySelect.pas

Declaración

type
  TprxADOQuerySelect = class(TADOQuery)
  private
    FAutoFindConnection: Boolean;
    FSQLX: TStringList;
    FMensajeError: String;
    Ffvs: Boolean;
    FSilentError: Boolean;
    FMasterDataSet: TDataSet;
    Ffbn_parser_object: Tfva_parser_fbn;

    FGUID: String;
  protected
    function    FindConnection: Boolean;

    procedure   Traducir;
  public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;
    procedure   Loaded; override;

    procedure   FirstRecord(Sender: TObject);
    procedure   PriorRecord(Sender: TObject);
    procedure   NextRecord(Sender: TObject);
    procedure   LastRecord(Sender: TObject);

    function    DatabaseExists(aBaseDatos: String): Boolean;
    function    TableExists(aTabla: String): Boolean;

    function    Select(aSQLCommand: String; aSilent: Boolean = False): Boolean; overload;
    function    Select(aStrings: TStrings; aSilent: Boolean = False): Boolean; overload;

    function    SelectRecordCount(aSQLCommand: String; aSilent: Boolean = False): Integer; overload;
    function    SelectRecordCount(aStrings: TStrings; aSilent: Boolean = False): Integer; overload;

    function    SelectFieldValue(aSQLCommand: String; aFieldName: String): Variant; overload;
    function    SelectFieldValue(aStrings: TStrings; aFieldName: String): Variant; overload;

    procedure   SelectToList(aComando: String; aCampo: String; aLista: TStrings);

    function    Refresh(aSilent: Boolean = False): Boolean;

    procedure   VerSentenciaClickAdd(Sender: TprxPopupMenu);
    procedure   VerSentenciaClick(Sender: TObject);

    property    SilentError: Boolean read FSilentError write FSilentError;
    property    SQLX: TStringList read FSQLX write FSQLX;
    property    MensajeError: String read FMensajeError write FMensajeError;
    property    fvs: Boolean read Ffvs write Ffvs;

    property    MasterDataSet: TDataSet read FMasterDataSet write FMasterDataSet;

    property    fbn_parser_object: Tfva_parser_fbn read Ffbn_parser_object;

    property    GUID: String read FGUID;
  published
    property    ppAutoFindConnection: Boolean read FAutoFindConnection write FAutoFindConnection;
  end;

Propiedades

Se describen las funciones de visibilidad public o published. Las funciones con visibilidad más baja solo sirven como propiedades físicas para las descriptas abajo.

Nombre	Descripción	Visibilidad	Tipo	Inicialización
SilentError	Indica al sistema si debe silenciar los errores retornados por el servidor.	public	Boolean	No tiene.
SQLX	Es una lista que permite armar las sentencias SQL antes de aplicarlas.	public	TStringList	No tiene.
MensajeError	Cuando SilentError es True las funciones retornan cualquier error del servidor de BD en esta propiedad.	public	String	No tiene.
fvs	Propiedad que indica que el objeto pertenece a Pragma, usado en el inspector de objetos. Deprecada.	public	Boolean	No tiene.
MasterDataSet	A veces el objeto es detalle de otro, en ese caso esta propiedad esuna referencia a este Dataset maestro.	public	TDataSet	No tiene.
fbn_parser_object	Todos los datasets tienen una referencia a un objeto de este tipo para realizar traducciones de nombres de columnas, o reemplazo del comando FBN.	public	Tfva_parser_fbn	El objeto se instancia en el Create.
GUID	Cada vez que se instancia un objeto derivado de esta clase se genera un código GUID que identifica de una manera única al dataset, y a cualquier consulta que lo esté utilizando.	public	String	El valor se genera en el Create llamando a GUIDToString.
ppAutoFindConnection	Cuando su valor es True el objeto busca entre los componentes de la aplicación a uno de tipo TprxADOConnection, clase que extiende la funcionalidad de TADOConnection.	public	Boolean	Normalmente se inicializa a True.

Funcionalidad relevante

Los procedimientos Create, Loaded y Destroy no se describen, su funcionalidad está clara en el código.

Nombre	Descripción	Visibilidad	Valor de retorno.
prxADOQuerySelectCreate	Se define por fuera de la clase y sirve para simplificar la instanciación de un objeto.	public	TprxADOQuerySelect.
FindConnection	Busca en la aplicación hasta encontrar un DataModule que contenga un TADOConnection cuya propiedad 'ppMainConnection' sea True.	protected	Boolean: True cuando encontró la conexión, sino False.
FirstRecord	Usa Sender: TObject como argumento para que pueda ser asignada directamente a eventos, llama al First.	public	NA.
PriorRecord	Usa Sender: TObject como argumento para que pueda ser asignada directamente a eventos, llama al Prior.	public	NA.
NextRecord	Usa Sender: TObject como argumento para que pueda ser asignada directamente a eventos, llama al Next.	public	NA.
LastRecord	Usa Sender: TObject como argumento para que pueda ser asignada directamente a eventos, llama al Last.	public	NA.
DatabaseExists	Recibe un texto como argumento.	Boolean	Retorna True si existe una BD cuyo nombre coincida cono ese texto, False sino.
TableExists	Recibe un texto como argumento.	Boolean	Retorna True si existe una tabla cuyo nombre sea ese código, False sino.
Select	Recibe un texto que representa un comando SQL de SELECT y lo aplica a la BD.	public	Retorna True si pudo aplicar el comando, False sino.
Select	Similar anterior pero recibe un array de textos como argumento.	public	Retorna True si pudo aplicar el comando, False sino.
SelectRecordCount	Recibe un texto que representa un comando SQL de SELECT, lo ejecuta y retorna la cantidad de registros.	public	Integer que representa la cantidad de registros.
SelectRecordCount	Similar anterior pero recibe un array de textos como argumento.	public	Integer que representa la cantidad de registros.
SelectFieldValue	Recibe un comando SELECT y el nombre de un campo, aplica el comando y retorna el valor del campo solicitado.	public	Variant que representa el valor del campo solicitado.
SelectFieldValue	Similar anterior pero el comando SELECT es un array de strings.	public	Variant que representa el valor del campo solicitado.
SelectToList	Hace un SELECT y vuelca los valores del campo solicitad a un stringlist.	public	NA.
Refresh	Vuelve a hacer SELECT con la última sentencia conocida (guardada en la propiedadSQL)	public	Boolean, retorna True si tuvo éxito, sino retorna False.
VerSentenciaClick	Muestra en TTfvsShowOnMemoForm la última sentencia cargada, existente en la propiedad SQL.	public	NA
VerSentenciaClickAdd	Agrega la opción Ver sentencia a cualquier menú para llamar al procedimientoVerSentenciaClick.	public	NA.
Traducir	Traduce los DisplayLabel de cada campo del dataset sando el lenguaje asociado al usuario.	public	NA.

Relaciones

Esta clase es ancestro para TprxADOQuery.

La clase también se usa instanciándola directamente.