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;