CPP_Builder/Herm-Win
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

First commit 10/01/2001

Browse Source
This commit is contained in:
José David Guillén
2021-09-12 22:25:13 +02:00
commit ef9e12b1db
53 changed files with 2444 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

200
Herm.h Normal file
View File

@ -0,0 +1,200 @@
//---------------------------------------------------------------------------
#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