325 lines
10 KiB
C++
325 lines
10 KiB
C++
//---------------------------------------------------------------------------
|
|
#ifndef AgendaH
|
|
#define AgendaH
|
|
//---------------------------------------------------------------------------
|
|
#include <Classes.hpp>
|
|
#include <Controls.hpp>
|
|
#include <StdCtrls.hpp>
|
|
#include <Forms.hpp>
|
|
#include <Buttons.hpp>
|
|
#include <ComCtrls.hpp>
|
|
#include <Db.hpp>
|
|
#include <DBGrids.hpp>
|
|
#include <DBTables.hpp>
|
|
#include <ExtCtrls.hpp>
|
|
#include <Grids.hpp>
|
|
#include <DBCGrids.hpp>
|
|
#include <DBCtrls.hpp>
|
|
#include <Mask.hpp>
|
|
#include <Dialogs.hpp>
|
|
#include <ExtDlgs.hpp>
|
|
#include <Graphics.hpp>
|
|
#include "elastfrm.hpp"
|
|
#include "ElastFrm.hpp"
|
|
#include <ImgList.hpp>
|
|
#include <jpeg.hpp>
|
|
//---------------------------------------------------------------------------
|
|
class TListadoClientes : public TForm
|
|
{
|
|
__published: // IDE-managed Components
|
|
TPanel *Panel1;
|
|
TPageControl *PageControl1;
|
|
TStatusBar *InfoBar;
|
|
TTable *TbCarpetas;
|
|
TDataSource *DsCarpetas;
|
|
TTabSheet *TabSheet1;
|
|
TTabSheet *TabSheet2;
|
|
TPageControl *PageControl2;
|
|
TTabSheet *TabSheet3;
|
|
TTabSheet *TabSheet4;
|
|
TTabSheet *TabSheet5;
|
|
TTabControl *Alfabeto;
|
|
TTabSheet *TabSheet6;
|
|
TCheckBox *FiltrarCarpetas;
|
|
TRadioGroup *FiltrarCategorias;
|
|
TGroupBox *GroupBox1;
|
|
TTable *TbListado;
|
|
TDataSource *DsListado;
|
|
TDBMemo *DBMemo1;
|
|
TDBGrid *DBGrid2;
|
|
TTable *TbLlamadas;
|
|
TDataSource *DsLlamadas;
|
|
TLabel *Label1;
|
|
TDBEdit *DBEdit1;
|
|
TDBEdit *DBEdit2;
|
|
TLabel *Label5;
|
|
TDBEdit *DBEdit3;
|
|
TLabel *Label6;
|
|
TDBEdit *DBEdit4;
|
|
TDBEdit *DBEdit5;
|
|
TLabel *Label7;
|
|
TLabel *Label8;
|
|
TDBEdit *DBEdit6;
|
|
TDBEdit *DBEdit7;
|
|
TSpeedButton *SpeedButton1;
|
|
TSpeedButton *SpeedButton2;
|
|
TSpeedButton *SpeedButton3;
|
|
TLabel *Label9;
|
|
TDBEdit *DBEdit8;
|
|
TLabel *Label10;
|
|
TDBEdit *DBEdit9;
|
|
TSpeedButton *SpeedButton4;
|
|
TLabel *Label11;
|
|
TLabel *Label12;
|
|
TBevel *Bevel9;
|
|
TDBEdit *DBEdit10;
|
|
TDBEdit *DBEdit11;
|
|
TDBEdit *DBEdit12;
|
|
TDBEdit *DBEdit13;
|
|
TLabel *Label13;
|
|
TLabel *Label14;
|
|
TLabel *Label15;
|
|
TDBEdit *DBEdit14;
|
|
TLabel *Label16;
|
|
TDBEdit *DBEdit15;
|
|
TLabel *Label17;
|
|
TDBEdit *DBEdit16;
|
|
TSpeedButton *SpeedButton5;
|
|
TImage *Foto;
|
|
TOpenPictureDialog *OpenPictureDialog1;
|
|
TLabel *Label31;
|
|
TBevel *Bevel11;
|
|
TLabel *Label18;
|
|
TLabel *Label24;
|
|
TLabel *Label25;
|
|
TLabel *Label26;
|
|
TLabel *Label27;
|
|
TLabel *Label28;
|
|
TLabel *Label29;
|
|
TLabel *Label30;
|
|
TLabel *Label32;
|
|
TLabel *Label33;
|
|
TLabel *Label34;
|
|
TLabel *Label35;
|
|
TDBEdit *DBEdit20;
|
|
TDBEdit *DBEdit21;
|
|
TDBEdit *DBEdit22;
|
|
TDBEdit *DBEdit23;
|
|
TDBEdit *DBEdit24;
|
|
TDBEdit *DBEdit25;
|
|
TDBEdit *DBEdit26;
|
|
TDBEdit *DBEdit27;
|
|
TDBEdit *DBEdit28;
|
|
TDBEdit *DBEdit29;
|
|
TDBEdit *DBEdit30;
|
|
TDBEdit *DBEdit31;
|
|
TBevel *Bevel12;
|
|
TBevel *Bevel13;
|
|
TBevel *Bevel14;
|
|
TSpeedButton *SpeedButton6;
|
|
TBevel *Bevel15;
|
|
TBevel *Bevel16;
|
|
TBevel *Bevel17;
|
|
TBevel *Bevel18;
|
|
TBevel *Bevel19;
|
|
TBevel *Bevel20;
|
|
TPanel *Panel2;
|
|
TSpeedButton *SpeedButton7;
|
|
TSpeedButton *SpeedButton8;
|
|
TSpeedButton *SpeedButton9;
|
|
TSpeedButton *BuscarFicha;
|
|
TSpeedButton *SpeedButton11;
|
|
TDBNavigator *DBNavigator1;
|
|
TPanel *Panel3;
|
|
TLabel *Label19;
|
|
TComboBox *SelIndex;
|
|
TEdit *Buscador;
|
|
TDBMemo *DBMemo2;
|
|
TDBCtrlGrid *DBCtrlGrid1;
|
|
TLabel *Label2;
|
|
TLabel *Label4;
|
|
TLabel *Label3;
|
|
TDBText *DBText1;
|
|
TDBText *DBText9;
|
|
TDBText *DBText8;
|
|
TDBText *DBText6;
|
|
TDBText *DBText7;
|
|
TDBText *DBText5;
|
|
TDBText *DBText4;
|
|
TDBText *DBText3;
|
|
TDBText *DBText2;
|
|
TPanel *Panel4;
|
|
TDateTimePicker *MinFecha;
|
|
TLabel *Label21;
|
|
TDateTimePicker *MaxFecha;
|
|
TCheckBox *FiltroLlamadas;
|
|
TTable *TbCorreos;
|
|
TImage *Image1;
|
|
TBevel *Bevel1;
|
|
TDBText *DBText10;
|
|
TSpeedButton *SpeedButton10;
|
|
TAutoIncField *TbListadoCodCliente1;
|
|
TStringField *TbListadoCodCliente2;
|
|
TStringField *TbListadoEmpresa;
|
|
TStringField *TbListadoActividad;
|
|
TStringField *TbListadoNombre;
|
|
TStringField *TbListadoApellidos;
|
|
TSmallintField *TbListadoDniNifPasaporte;
|
|
TStringField *TbListadoDocumentoDNP;
|
|
TStringField *TbListadoTelefono1;
|
|
TStringField *TbListadoTelefono2;
|
|
TStringField *TbListadoeMail;
|
|
TStringField *TbListadourl;
|
|
TStringField *TbListadoCalle;
|
|
TStringField *TbListadoNum;
|
|
TStringField *TbListadoPiso;
|
|
TStringField *TbListadoLetra;
|
|
TStringField *TbListadoPoblacin;
|
|
TStringField *TbListadoProvincia;
|
|
TIntegerField *TbListadoCP;
|
|
TCurrencyField *TbListadoDeposito;
|
|
TCurrencyField *TbListadoCredito;
|
|
TStringField *TbListadoTitulardelacuenta;
|
|
TStringField *TbListadoNifdelTitular;
|
|
TStringField *TbListadoEntidadBancaria;
|
|
TStringField *TbListadoBanco_Calle;
|
|
TStringField *TbListadoBanco_Num;
|
|
TStringField *TbListadoBanco_Poblacin;
|
|
TStringField *TbListadoBanco_Provincia;
|
|
TIntegerField *TbListadoBanco_CP;
|
|
TSmallintField *TbListadoBanco_Entidad;
|
|
TSmallintField *TbListadoBanco_Sucursal;
|
|
TSmallintField *TbListadoBanco_DC;
|
|
TStringField *TbListadoBanco_NumCuenta;
|
|
TSmallintField *TbListadoEstadoCivil;
|
|
TDateField *TbListadoFechadeNacimiento;
|
|
TStringField *TbListadoProfesin;
|
|
TSmallintField *TbListadoAosenlaempresa;
|
|
TSmallintField *TbListadoPersonasenlafamilia;
|
|
TSmallintField *TbListadoEstudios;
|
|
TSmallintField *TbListadoTipovivienda;
|
|
TSmallintField *TbListadoAosvivienda;
|
|
TStringField *TbListadoExtras1;
|
|
TStringField *TbListadoExtras2;
|
|
TStringField *TbListadoExtras3;
|
|
TStringField *TbListadoExtras4;
|
|
TMemoField *TbListadoNotas;
|
|
TStringField *TbListadoImagen;
|
|
TIntegerField *TbListadoIDcarpeta;
|
|
TStringField *TbListadoCarpeta;
|
|
TDBEdit *DBEdit17;
|
|
TDBEdit *DBEdit18;
|
|
TSpeedButton *SpeedButton12;
|
|
TSpeedButton *SpeedButton13;
|
|
TStringField *TbListadoTelefono3;
|
|
TStringField *TbListadoTelefono4;
|
|
TDBGrid *DBGrid3;
|
|
TIntegerField *TbListadoProveedor;
|
|
TIntegerField *TbListadoEmpleado;
|
|
TIntegerField *TbListadoCliente;
|
|
TIntegerField *TbListadoAmigo;
|
|
TCheckBox *CheckBox1;
|
|
TCheckBox *CheckBox2;
|
|
TCheckBox *CheckBox3;
|
|
TCheckBox *CheckBox4;
|
|
TDBEdit *DBEdit19;
|
|
TStringField *TbListadoCalle2;
|
|
TTabSheet *TabSheet7;
|
|
TPageControl *PageControl3;
|
|
TTabSheet *TabSheet8;
|
|
TTable *TbNotas;
|
|
TDataSource *DsNotas;
|
|
TDBCtrlGrid *DBCtrlGrid2;
|
|
TDBMemo *DBMemo3;
|
|
TDBText *DBText11;
|
|
TDBText *DBText12;
|
|
TDBText *DBText13;
|
|
TLabel *Label20;
|
|
TLabel *Label22;
|
|
TLabel *Label23;
|
|
TTabSheet *TabSheet9;
|
|
TLabel *Label36;
|
|
TDBText *DBText14;
|
|
TLabel *Label37;
|
|
TDBMemo *DBMemo4;
|
|
TLabel *Label38;
|
|
TDBText *DBText16;
|
|
TDBEdit *DBEdit32;
|
|
TElasticForm *ElasticForm1;
|
|
TLabel *Label39;
|
|
TLabel *Label40;
|
|
TDBText *DBText15;
|
|
TLabel *Label41;
|
|
TDBText *DBText17;
|
|
TDBEdit *DBEdit33;
|
|
TSplitter *Splitter1;
|
|
TDateTimeField *TbListadoFAlta;
|
|
TDateTimeField *TbListadoFModif;
|
|
TSession *Session1;
|
|
TImageList *FichaGeneral;
|
|
TImageList *Completa;
|
|
void __fastcall TbCarpetasBeforeOpen(TDataSet *DataSet);
|
|
void __fastcall TbListadoBeforeOpen(TDataSet *DataSet);
|
|
void __fastcall TbLlamadasBeforeOpen(TDataSet *DataSet);
|
|
void __fastcall FiltrarCategoriasClick(TObject *Sender);
|
|
void __fastcall FiltrarCarpetasClick(TObject *Sender);
|
|
void __fastcall BitBtn1Click(TObject *Sender);
|
|
void __fastcall AlfabetoChange(TObject *Sender);
|
|
void __fastcall DsCarpetasDataChange(TObject *Sender, TField *Field);
|
|
void __fastcall DsListadoDataChange(TObject *Sender, TField *Field);
|
|
void __fastcall FotoDblClick(TObject *Sender);
|
|
void __fastcall SpeedButton6Click(TObject *Sender);
|
|
void __fastcall SpeedButton5Click(TObject *Sender);
|
|
void __fastcall SpeedButton1Click(TObject *Sender);
|
|
void __fastcall SpeedButton2Click(TObject *Sender);
|
|
void __fastcall SpeedButton4Click(TObject *Sender);
|
|
void __fastcall SpeedButton3Click(TObject *Sender);
|
|
void __fastcall SpeedButton8Click(TObject *Sender);
|
|
void __fastcall SpeedButton7Click(TObject *Sender);
|
|
void __fastcall SpeedButton11Click(TObject *Sender);
|
|
void __fastcall BuscarFichaClick(TObject *Sender);
|
|
void __fastcall SpeedButton9Click(TObject *Sender);
|
|
void __fastcall TbListadoBeforeDelete(TDataSet *DataSet);
|
|
void __fastcall SelIndexChange(TObject *Sender);
|
|
void __fastcall BuscadorKeyUp(TObject *Sender, WORD &Key,
|
|
TShiftState Shift);
|
|
void __fastcall TbLlamadasNewRecord(TDataSet *DataSet);
|
|
void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
|
|
void __fastcall MinFechaChange(TObject *Sender);
|
|
void __fastcall FiltroLlamadasClick(TObject *Sender);
|
|
|
|
|
|
void __fastcall DBText1DblClick(TObject *Sender);
|
|
void __fastcall TbListadoNewRecord(TDataSet *DataSet);
|
|
void __fastcall SpeedButton10Click(TObject *Sender);
|
|
void __fastcall CheckBox1Click(TObject *Sender);
|
|
void __fastcall CheckBox3Click(TObject *Sender);
|
|
void __fastcall CheckBox2Click(TObject *Sender);
|
|
void __fastcall CheckBox4Click(TObject *Sender);
|
|
void __fastcall TbNotasBeforeOpen(TDataSet *DataSet);
|
|
void __fastcall TbNotasNewRecord(TDataSet *DataSet);
|
|
void __fastcall DBMemo3DblClick(TObject *Sender);
|
|
void __fastcall PageControl1Change(TObject *Sender);
|
|
void __fastcall DBEdit32KeyUp(TObject *Sender, WORD &Key,
|
|
TShiftState Shift);
|
|
void __fastcall TbNotasBeforeDelete(TDataSet *DataSet);
|
|
void __fastcall NextField(TObject *Sender, char &Key);
|
|
void __fastcall NextField2(TObject *Sender, char &Key);
|
|
void __fastcall TbListadoBeforePost(TDataSet *DataSet);
|
|
void __fastcall DBMemo1Exit(TObject *Sender);
|
|
void __fastcall TbLlamadasBeforeDelete(TDataSet *DataSet);
|
|
|
|
private: // User declarations
|
|
bool DBcorreos;
|
|
void __fastcall FiltraLlamadas( void );
|
|
public: // User declarations
|
|
void __fastcall FiltraCriterios(void);
|
|
__fastcall TListadoClientes(TComponent* Owner);
|
|
bool OnDataChanged;
|
|
AnsiString DB_Path;
|
|
};
|
|
//---------------------------------------------------------------------------
|
|
extern PACKAGE TListadoClientes *ListadoClientes;
|
|
//---------------------------------------------------------------------------
|
|
#endif
|
|
|