First commit 27/10/2000
This commit is contained in:
325
Agenda.h
Normal file
325
Agenda.h
Normal file
@ -0,0 +1,325 @@
|
||||
//---------------------------------------------------------------------------
|
||||
#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
|
||||
|
||||
Reference in New Issue
Block a user