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;