//--------------------------------------------------------------------------- #ifndef HermH #define HermH //--------------------------------------------------------------------------- #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include //--------------------------------------------------------------------------- class TGestionHnos : public TForm { __published: // IDE-managed Components TPanel *Panel1; TImage *Image1; TBevel *Bevel1; TSpeedButton *SpeedButton1; TSpeedButton *SpeedButton2; TPageControl *PageControl1; TTabSheet *TabSheet1; TTabSheet *TabSheet2; TDBGrid *DBGrid1; TDataSource *DsHerm; TTable *TbInsignias; TDataSource *DsInsignias; TLabel *Label1; TLabel *Label2; TLabel *Label5; TLabel *Label6; TLabel *Label7; TLabel *Label8; TLabel *Label9; TLabel *Label10; TDBEdit *DBEdit2; TDBEdit *DBEdit3; TDBEdit *DBEdit4; TDBEdit *DBEdit5; TDBEdit *DBEdit6; TDBEdit *DBEdit7; TDBEdit *DBEdit8; TDBEdit *DBEdit9; TDBEdit *DBEdit10; TStatusBar *StatusBar1; TLabel *Label15; TPanel *Panel2; TLabel *Label3; TComboBox *SelIndex; TLabel *Label17; TEdit *Buscador; TLabel *Label14; TDBEdit *DBEdit14; TBevel *Bevel3; TPageControl *PageControl2; TTabSheet *TabSheet5; TTabSheet *TabSheet6; TTabSheet *TabSheet7; TDBMemo *DBMemo1; TBevel *Bevel4; TLabel *Label12; TLabel *Label4; TLabel *Label11; TLabel *Label16; TDBEdit *DBEdit12; TDBEdit *DBEdit11; TDBEdit *DBEdit15; TDBText *DBText1; TDBText *DBText2; TRadioGroup *CtoVirgen; TDBNavigator *DBNavigator1; TBitBtn *Lock; TBitBtn *Unlock; TTable *TbHerm; TStringField *TbHermApellidos; TAutoIncField *TbHermidHerm; TBooleanField *TbHermBorrado; TDateField *TbHermFechaBorrado; TBooleanField *TbHermHnoHna; TIntegerField *TbHermNumHno; TStringField *TbHermNombre; TStringField *TbHermApellido1; TStringField *TbHermApellido2; TStringField *TbHermDNI; TStringField *TbHermDireccion; TStringField *TbHermNum; TStringField *TbHermPiso; TIntegerField *TbHermCodPostal; TStringField *TbHermPoblacion; TStringField *TbHermProvincia; TStringField *TbHermTelefono1; TStringField *TbHermTelefono2; TStringField *TbHermemail; TDateField *TbHermFechaNacimiento; TDateField *TbHermAntiguedad; TIntegerField *TbHermidInsignia; TIntegerField *TbHermNumTunica; TMemoField *TbHermComentario; TIntegerField *TbHermidHermCF; TBooleanField *TbHermCuotaFamiliar; TBooleanField *TbHermRecibeNotificaciones; TBooleanField *TbHermPuedeVotar; TBooleanField *TbHermTunicaHermandad; TBooleanField *TbHermRealizoPenitencia; TBooleanField *TbHermCristoVirgen; TBooleanField *TbHermReserva; TBooleanField *TbHermFA2; TStringField *TbHermDireccion_Compl; TDBLookupComboBox *DBLookupComboBox1; TDBCheckBox *DBCheckBox3; TDBCheckBox *DBCheckBox2; TDBCheckBox *DBCheckBox1; TDBCheckBox *DBCheckBox4; TDBCheckBox *DBCheckBox5; TDBEdit *NTunica; TDBCheckBox *DBCheckBox6; TGroupBox *BeneficiariosCF; TDBGrid *DBGrid3; TSpeedButton *SpeedButton3; TDBText *DatosTitularCF; TDataSource *DsCuotasFam; TTable *TbCuotaFam; TBitBtn *AsignandoTitular; TStringField *TbHermDatosTitularCuotaFam; TDataSource *DsBusqHnos; TTable *TbBusqHnos; TAutoIncField *TbBusqHnosidHerm; TBooleanField *TbBusqHnosBorrado; TDateField *TbBusqHnosFechaBorrado; TBooleanField *TbBusqHnosHnoHna; TIntegerField *TbBusqHnosNumHno; TStringField *TbBusqHnosNombre; TStringField *TbBusqHnosApellido1; TStringField *TbBusqHnosApellido2; TStringField *TbBusqHnosDNI; TStringField *TbBusqHnosDireccion; TStringField *TbBusqHnosNum; TStringField *TbBusqHnosPiso; TIntegerField *TbBusqHnosCodPostal; TStringField *TbBusqHnosPoblacion; TStringField *TbBusqHnosProvincia; TStringField *TbBusqHnosTelefono1; TStringField *TbBusqHnosTelefono2; TStringField *TbBusqHnosemail; TDateField *TbBusqHnosFechaNacimiento; TDateField *TbBusqHnosAntiguedad; TIntegerField *TbBusqHnosidInsignia; TIntegerField *TbBusqHnosNumTunica; TMemoField *TbBusqHnosComentario; TIntegerField *TbBusqHnosidHermCF; TBooleanField *TbBusqHnosCuotaFamiliar; TBooleanField *TbBusqHnosRecibeNotificaciones; TBooleanField *TbBusqHnosPuedeVotar; TBooleanField *TbBusqHnosTunicaHermandad; TBooleanField *TbBusqHnosRealizoPenitencia; TBooleanField *TbBusqHnosCristoVirgen; TBooleanField *TbBusqHnosReserva; TBooleanField *TbBusqHnosFA2; TStringField *TbBusqHnosApellidos; TStringField *TbBusqHnosDireccion_Compl; void __fastcall TbHermBeforeOpen(TDataSet *DataSet); void __fastcall TbInsigniasCtoBeforeOpen(TDataSet *DataSet); void __fastcall SpeedButton1Click(TObject *Sender); void __fastcall TbHermCalcFields(TDataSet *DataSet); void __fastcall SelIndexChange(TObject *Sender); void __fastcall BuscadorKeyUp(TObject *Sender, WORD &Key, TShiftState Shift); void __fastcall DsHermDataChange(TObject *Sender, TField *Field); void __fastcall CtoVirgenClick(TObject *Sender); void __fastcall LockClick(TObject *Sender); void __fastcall UnLockClick(TObject *Sender); void __fastcall DBGrid1DblClick(TObject *Sender); void __fastcall SpeedButton3Click(TObject *Sender); void __fastcall AsignandoTitularClick(TObject *Sender); void __fastcall TbHermNewRecord(TDataSet *DataSet); void __fastcall PageControl1Change(TObject *Sender); void __fastcall TbBusqHnosCalcFields(TDataSet *DataSet); void __fastcall TbHermBeforeDelete(TDataSet *DataSet); void __fastcall TbHermBeforeInsert(TDataSet *DataSet); void __fastcall DBNavigator1Click(TObject *Sender, TNavigateBtn Button); private: // User declarations int UltimoHno; public: // User declarations bool TbHermUPDATING; __fastcall TGestionHnos(TComponent* Owner); }; //--------------------------------------------------------------------------- extern PACKAGE TGestionHnos *GestionHnos; //--------------------------------------------------------------------------- #endif