Class TfrmPrincipal (unit Principal)

Inherits from

TForm

Constructors



Functions

procedure BTN_CancelClick(Sender: TObject);


procedure BTN_EditClick(Sender: TObject);


procedure BTN_InsertClick(Sender: TObject);


procedure BTN_PostClick(Sender: TObject);


procedure CHB_DisabledCClick(Sender: TObject);


procedure CHB_DisabledClick(Sender: TObject);


procedure CHB_DisabledPClick(Sender: TObject);


procedure CHB_EnabledCClick(Sender: TObject);


procedure CHB_EnabledClick(Sender: TObject);


procedure CHB_EnabledPClick(Sender: TObject);


procedure DBCA_CalendarioDatePanelClick(Sender: TObject);


procedure DBCA_CalendarioDaysClick(Sender: TObject; var DayClicked: Integer; var Change: Boolean);


procedure DBCA_CalendarioMarquedChange(Sender: TObject; Marqued: Integer);


procedure DBCA_CalendarioPeriodRequest(Sender: TObject; var ActiveFrom, ActiveUntil: Integer; var NoneActive: Boolean);


procedure EDT_DateExit(Sender: TObject);


procedure FormShow(Sender: TObject);


Properties

Events

Variables

BTN_Cancel : TButton;


BTN_Edit : TButton;


BTN_Insert : TButton;


BTN_Post : TButton;


CHB_Disabled : TRadioButton;


CHB_DisabledC : TRadioButton;


CHB_DisabledP : TRadioButton;


CHB_Enabled : TRadioButton;


CHB_EnabledC : TRadioButton;


CHB_EnabledP : TRadioButton;


Date : TLabel;


DBCA_Calendario : TARDBCalendar;


DBE_DateInsert : TEdit;


DBNavigator1 : TDBNavigator;


DTS_CALENDARIO : TDataSource;


EDT_Date : TEdit;


GPB_Calendar : TGroupBox;


GPB_DataSource : TGroupBox;


GroupBox1 : TGroupBox;


Label1 : TLabel;


Label2 : TLabel;


LAB_Marcados : TLabel;


TBL_CALENDARIO : TTable;


TBL_CALENDARIOFEC_DIA01 : TStringField;


TBL_CALENDARIOFEC_DIA02 : TStringField;


TBL_CALENDARIOFEC_DIA03 : TStringField;


TBL_CALENDARIOFEC_DIA04 : TStringField;


TBL_CALENDARIOFEC_DIA05 : TStringField;


TBL_CALENDARIOFEC_DIA06 : TStringField;


TBL_CALENDARIOFEC_DIA07 : TStringField;


TBL_CALENDARIOFEC_DIA08 : TStringField;


TBL_CALENDARIOFEC_DIA09 : TStringField;


TBL_CALENDARIOFEC_DIA10 : TStringField;


TBL_CALENDARIOFEC_DIA11 : TStringField;


TBL_CALENDARIOFEC_DIA12 : TStringField;


TBL_CALENDARIOFEC_DIA13 : TStringField;


TBL_CALENDARIOFEC_DIA14 : TStringField;


TBL_CALENDARIOFEC_DIA15 : TStringField;


TBL_CALENDARIOFEC_DIA16 : TStringField;


TBL_CALENDARIOFEC_DIA17 : TStringField;


TBL_CALENDARIOFEC_DIA18 : TStringField;


TBL_CALENDARIOFEC_DIA19 : TStringField;


TBL_CALENDARIOFEC_DIA20 : TStringField;


TBL_CALENDARIOFEC_DIA21 : TStringField;


TBL_CALENDARIOFEC_DIA22 : TStringField;


TBL_CALENDARIOFEC_DIA23 : TStringField;


TBL_CALENDARIOFEC_DIA24 : TStringField;


TBL_CALENDARIOFEC_DIA25 : TStringField;


TBL_CALENDARIOFEC_DIA26 : TStringField;


TBL_CALENDARIOFEC_DIA27 : TStringField;


TBL_CALENDARIOFEC_DIA28 : TStringField;


TBL_CALENDARIOFEC_DIA29 : TStringField;


TBL_CALENDARIOFEC_DIA30 : TStringField;


TBL_CALENDARIOFEC_DIA31 : TStringField;


TBL_CALENDARIOFEC_FEC : TStringField;



Constructors


Functions


procedure BTN_CancelClick(Sender: TObject);


procedure BTN_EditClick(Sender: TObject);


procedure BTN_InsertClick(Sender: TObject);


procedure BTN_PostClick(Sender: TObject);


procedure CHB_DisabledCClick(Sender: TObject);


procedure CHB_DisabledClick(Sender: TObject);


procedure CHB_DisabledPClick(Sender: TObject);


procedure CHB_EnabledCClick(Sender: TObject);


procedure CHB_EnabledClick(Sender: TObject);


procedure CHB_EnabledPClick(Sender: TObject);


procedure DBCA_CalendarioDatePanelClick(Sender: TObject);


procedure DBCA_CalendarioDaysClick(Sender: TObject; var DayClicked: Integer; var Change: Boolean);


procedure DBCA_CalendarioMarquedChange(Sender: TObject; Marqued: Integer);


procedure DBCA_CalendarioPeriodRequest(Sender: TObject; var ActiveFrom, ActiveUntil: Integer; var NoneActive: Boolean);


procedure EDT_DateExit(Sender: TObject);


procedure FormShow(Sender: TObject);


Properties


Events


Variables


BTN_Cancel : TButton;


BTN_Edit : TButton;


BTN_Insert : TButton;


BTN_Post : TButton;


CHB_Disabled : TRadioButton;


CHB_DisabledC : TRadioButton;


CHB_DisabledP : TRadioButton;


CHB_Enabled : TRadioButton;


CHB_EnabledC : TRadioButton;


CHB_EnabledP : TRadioButton;


Date : TLabel;


DBCA_Calendario : TARDBCalendar;


DBE_DateInsert : TEdit;


DBNavigator1 : TDBNavigator;


DTS_CALENDARIO : TDataSource;


EDT_Date : TEdit;


GPB_Calendar : TGroupBox;


GPB_DataSource : TGroupBox;


GroupBox1 : TGroupBox;


Label1 : TLabel;


Label2 : TLabel;


LAB_Marcados : TLabel;


TBL_CALENDARIO : TTable;


TBL_CALENDARIOFEC_DIA01 : TStringField;


TBL_CALENDARIOFEC_DIA02 : TStringField;


TBL_CALENDARIOFEC_DIA03 : TStringField;


TBL_CALENDARIOFEC_DIA04 : TStringField;


TBL_CALENDARIOFEC_DIA05 : TStringField;


TBL_CALENDARIOFEC_DIA06 : TStringField;


TBL_CALENDARIOFEC_DIA07 : TStringField;


TBL_CALENDARIOFEC_DIA08 : TStringField;


TBL_CALENDARIOFEC_DIA09 : TStringField;


TBL_CALENDARIOFEC_DIA10 : TStringField;


TBL_CALENDARIOFEC_DIA11 : TStringField;


TBL_CALENDARIOFEC_DIA12 : TStringField;


TBL_CALENDARIOFEC_DIA13 : TStringField;


TBL_CALENDARIOFEC_DIA14 : TStringField;


TBL_CALENDARIOFEC_DIA15 : TStringField;


TBL_CALENDARIOFEC_DIA16 : TStringField;


TBL_CALENDARIOFEC_DIA17 : TStringField;


TBL_CALENDARIOFEC_DIA18 : TStringField;


TBL_CALENDARIOFEC_DIA19 : TStringField;


TBL_CALENDARIOFEC_DIA20 : TStringField;


TBL_CALENDARIOFEC_DIA21 : TStringField;


TBL_CALENDARIOFEC_DIA22 : TStringField;


TBL_CALENDARIOFEC_DIA23 : TStringField;


TBL_CALENDARIOFEC_DIA24 : TStringField;


TBL_CALENDARIOFEC_DIA25 : TStringField;


TBL_CALENDARIOFEC_DIA26 : TStringField;


TBL_CALENDARIOFEC_DIA27 : TStringField;


TBL_CALENDARIOFEC_DIA28 : TStringField;


TBL_CALENDARIOFEC_DIA29 : TStringField;


TBL_CALENDARIOFEC_DIA30 : TStringField;


TBL_CALENDARIOFEC_DIA31 : TStringField;


TBL_CALENDARIOFEC_FEC : TStringField;