TTfvsDBClientFrameGridClases

Descripción

El frame TTfvsDBClientFrameGridClases (Implementa grilla para clases) implementa una grilla usada para mostrar las clases que hemos definido en Clases.

No confundir con TTfvsDBClientFrameGridConsultas que sirve exclusivamente para las consultas (ver Consultas).

Criterios de filtrado

Esta grilla implementa los criterios de filtrado documentados en TTprxADOBandFilter.

Archivos adjuntos

Esta grilla implementa el uso de archivos adjuntos documentados en TpSCANDOCS_unit.

Identidad

• Ancestro: TTfvsDBClientFrameGridCustom
• Carpeta: C:\DevelopPrx\frames
• Archivo: fvsDBClientFrameGridClases.pas

Declaración

type
  TTfvsDBClientFrameGridClases = class(TTfvsDBClientFrameGridCustom)
    PanelCRITERIOSFILTRADO: TPanel;
    SpeedButtonCRITERIOSFILTRADO: TprxSpeedButton;
    BevelCRITERIOS_TITULO: TBevel;
    Action_INSERT_Master: TAction;
    Action_EDIT_Master: TAction;
    Action_DELETE_Master: TAction;
    procedure fvsDBGridResultadoGetPopupOptions(Sender: TComponent; aPopupMenu: TprxPopupMenu);
    procedure DBNavigatorCONTENIDONavigatorClick(Sender: TDBNavigator; aButton: TNavigateBtn; aX, aY: Integer; var aHandled: Boolean);
    procedure SpeedButtonCRITERIOSFILTRADOClick(Sender: TObject);
    procedure ActualizarRegistrosEnTitulo(Sender: TObject);

    procedure OnExecute_INSERT_Click(Sender: TObject);
    procedure OnExecute_EDIT_Click(Sender: TObject);
    procedure OnExecute_DELETE_Click(Sender: TObject);
  private
  protected
    procedure   SetDataSet(aValue: TprxADODataSetEdit); override;
    function    UsaCRITERIOSFlag: Boolean;
    procedure   FieldMessage(var Message: TprxADODataSetMessage); message MSG_PRXADODATASETMESSAGE;
    procedure   SpeedButtonCRITERIOSFILTRADO_GetOptions(Sender: TprxPopupMenu);
  public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;
    procedure   OnFrameShow(Sender: TObject); override;

    procedure   ClassShow_BuildFrame(Sender: TObject); override;
    function    ClassShow_AgregarTablaMaster(aTabla: String): Boolean; override;
    function    ClassShow_AgregarControles: Boolean; override;
    function    ClassShow_Activate(aActivateDataSet: Boolean): Boolean; override;
    procedure   ClassShow_Activate_GetFilterCommands(aDataSet: TprxADODataSetEdit); override;

    procedure   OnExecute_INSERT(var aHandled: Boolean); override;
    procedure   OnExecute_EDIT(var aHandled: Boolean); override;
    procedure   OnExecute_POST(var aHandled: Boolean); override;
    procedure   OnExecute_CANCEL(var aHandled: Boolean); override;
    procedure   OnExecute_DELETE(var aHandled: Boolean); override;
    procedure   OnExecute_REFRESH(var aHandled: Boolean); override;

    procedure   Relaciones_GetIds(aField: String; aList: TStringList);
  end;