201 lines
7.0 KiB
C++
201 lines
7.0 KiB
C++
//---------------------------------------------------------------------------
|
|
#ifndef HermH
|
|
#define HermH
|
|
//---------------------------------------------------------------------------
|
|
#include <Classes.hpp>
|
|
#include <Controls.hpp>
|
|
#include <StdCtrls.hpp>
|
|
#include <Forms.hpp>
|
|
#include <ComCtrls.hpp>
|
|
#include <ToolWin.hpp>
|
|
#include <ExtCtrls.hpp>
|
|
#include <Menus.hpp>
|
|
#include <Buttons.hpp>
|
|
#include <DBGrids.hpp>
|
|
#include <Grids.hpp>
|
|
#include <Db.hpp>
|
|
#include <DBTables.hpp>
|
|
#include <DBCtrls.hpp>
|
|
#include <Mask.hpp>
|
|
#include <Graphics.hpp>
|
|
//---------------------------------------------------------------------------
|
|
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
|