TTprxCriteriosConsultasForm

Descripción

El objeto TTprxCriteriosConsultasForm (Form para seleccionar criterios del auxiliar SELECCION CRITERIOS) permite elegir criterios según lo definido en DEV AUXILIARES/SELECCION CRITERIOS (el uso del form se explica en ese vínculo).

Identidad

• Ancestro: TprxForm
• Carpeta: C:\DevelopPrx\explorer
• Archivo: prxCriteriosConsultasForm.pas

Declaración

type
  TTprxCriteriosConsultasForm = class(TTprxForm)
    Panel1: TPanel;
    Panel2: TPanel;
    CheckListBox1: TCheckListBox;
    Button_SELECCIONAR_TODOS: TButton;
    Button_APLICAR: TButton;
    Button_CANCELAR: TButton;
    Button_LIMPIAR_SELECCION: TButton;
    procedure FormShow(Sender: TObject);
    procedure Button_SELECCIONAR_TODOSClick(Sender: TObject);
    procedure Button_APLICARClick(Sender: TObject);
    procedure Button_LIMPIAR_SELECCIONClick(Sender: TObject);
    procedure Button_CANCELARClick(Sender: TObject);
  private

  protected
    FGUID: String;
    FSQL: String;
  public
    property   GUID: String read FGUID write FGUID;
    property   SQL: String read FSQL write FSQL;
  end;

Identificación

protected
  FGUID: String;
  FSQL: String;

• FGUID contiene el código de la consulta a la que se asocia este form.
• FSQL es el SQL que carga los registros.

Implementación

procedure FormShow(Sender: TObject)

Carga los registros del SQL y marca aquellos elegidos previamente

Todo el procedimiento está explicado en Ingreso de criterios adicionales.

procedure Button_SELECCIONAR_TODOSClick(Sender: TObject)

Al picar el botón de Seleccionar todos marca todos los registros.

procedure Button_LIMPIAR_SELECCIONClick(Sender: TObject)

Limpia todas las selecciones.

procedure Button_APLICARClick(Sender: TObject)

Guarda las selecciones en pCONSULTA_CRITERIOS.