TTfvsDBClientFrameGridCustom

Descripción

El frame TTfvsDBClientFrameGridCustom (Implementa una grilla genérica) implementa una grilla genérica con algunos controles (y comportamiento) básicos.

Su aspecto en diseño es:

Aspecto en diseño.

El frame implementa:

• Un panel para mostrar los criterios de filtrado.
• Un panel de títulos (normalmente pone el nombre de la tabla o consulta), el botón a la izquierda del texto (Usuarios) es el botón que abre el panel de criterios de búsqueda.
• Un navegador de registros.
• Una grilla para mostrar los registros.

Identidad

• Ancestro: TTfvsDBClientFrame
• Carpeta: C:\DevelopPrx\frames
• Archivo: fvsDBClientFrameGridCustom.pas

Declaración

type
  TTfvsDBClientFrameGridCustom = class(TTfvsDBClientFrame)
    PanelBASE: TPanel;
    PanelCRITERIOS: TPanel;
    PanelPIE: TPanel;
    SplitterCRITERIOS: TSplitter;
    PopupMenu1: TPopupMenu;
    Panel1: TPanel;
    PanelCENTRAL: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    fvsDBGridResultado: TfvsDBGrid;
    Paneldebajo_de_panel_navigator: TPanel;
    Panel5: TPanel;
    SpeedButton_Filtros: TSpeedButton;
    PanelWithNavigator: TPanel;
    SpeedButton_OPCIONES_Panel: TPanel;
    SpeedButton_OPCIONES: TfvsBotonOpciones;
    DBNavigatorCONTENIDO: TfvsDBNavigator;
    BevelCRITERIOS: TBevel;
    ButtonCERRAR_FORM: TButton;
    prxSpeedButton_CONFIGURACION: TprxSpeedButton;
    PanelTOTALES: TPanel;
    procedure DBNavigatorCONTENIDONavigatorClick(Sender: TDBNavigator; aButton: TNavigateBtn; aX, aY: Integer; var aHandled: Boolean);

    procedure SpeedButton_FiltrosClick(Sender: TObject);
    procedure PanelCRITERIOSClick(Sender: TObject);
    procedure fvsDBGridResultadoGetPopupOptions(Sender: TComponent; aPopupMenu: TprxPopupMenu);
    procedure ButtonCERRAR_FORMClick(Sender: TObject);
  private
    FUsaCRITERIOS: Boolean;
    FBandFilter: TprxADOBandFilter;
  protected
    procedure   SetDataSet(aValue: TprxADODataSetEdit); override;
    procedure   FieldMessage(var Message: TprxADODataSetMessage); message MSG_PRXADODATASETMESSAGE;

    procedure   UsaCRITERIOSSet(aValue: Boolean);
    function    UsaCRITERIOSGet: Boolean;

    function    UsaCRITERIOSFlag: Boolean; virtual;

    property    UsaCRITERIOS: Boolean read UsaCRITERIOSGet write UsaCRITERIOSSet;
    property    BandFilter: TprxADOBandFilter read FBandFilter write FBandFilter;
  public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;
    procedure   OnFrameShow(Sender: TObject); override;
    procedure   OnTabSelected(Sender: TObject); override;

    procedure   ClassShow_BuildFrame(Sender: TObject); override;
    function    ClassShow_AgregarTablaMaster(aTabla: String): Boolean; override;
    function    ClassShow_AgregarControles: Boolean; override;
  end;

Implementación

procedure DBNavigatorCONTENIDONavigatorClick(Sender: TDBNavigator; aButton: TNavigateBtn; aX, aY: Integer; var aHandled: Boolean)

Ancestro para manejar el click de cualquier botón del navegador de registros.

procedure SpeedButton_FiltrosClick(Sender: TObject)

Maneja el click sobre el botón del panel de criterios de búsqueda.

Usa los procedimientos PanelCRITERIOSClick y UsaCRITERIOSSet para mostrar u ocultar el panel de criterios.

Procedimientos ClassShow

Ninguno implementa nada especial, llaman a sus ancestros.

• ClassShow_BuildFrame.
• ClassShow_AgregarTablaMaster.
• ButtonCERRAR_FORMClick.
• ClassShow_AgregarControles.

Uso

Este frame es ancestro de:

• TTfvsDBClientFrameGridConsultas.
• TTfvsDBClientFrameGridClases.