First commit ~0,10
This commit is contained in:
commit
c2fa8177d0
9
README.md
Normal file
9
README.md
Normal file
@ -0,0 +1,9 @@
|
||||
#DebeHaber
|
||||
|
||||
|
||||
*~0,10*
|
||||
|
||||
ToDo: wwtcf?
|
||||
|
||||
|
||||
|
||||
BIN
bin/datos/Personas.DB
Normal file
BIN
bin/datos/Personas.DB
Normal file
Binary file not shown.
BIN
bin/datos/Personas.MB
Normal file
BIN
bin/datos/Personas.MB
Normal file
Binary file not shown.
BIN
bin/datos/Personas.PX
Normal file
BIN
bin/datos/Personas.PX
Normal file
Binary file not shown.
BIN
bin/datos/dhs.PX
Normal file
BIN
bin/datos/dhs.PX
Normal file
Binary file not shown.
BIN
bin/datos/dhs.XG0
Normal file
BIN
bin/datos/dhs.XG0
Normal file
Binary file not shown.
BIN
bin/datos/dhs.YG0
Normal file
BIN
bin/datos/dhs.YG0
Normal file
Binary file not shown.
BIN
bin/datos/dhs.db
Normal file
BIN
bin/datos/dhs.db
Normal file
Binary file not shown.
BIN
bin/dhs-ins.exe
Normal file
BIN
bin/dhs-ins.exe
Normal file
Binary file not shown.
BIN
bin/dhs.exe
Normal file
BIN
bin/dhs.exe
Normal file
Binary file not shown.
BIN
bin/systm/1.AVI
Normal file
BIN
bin/systm/1.AVI
Normal file
Binary file not shown.
12
debehaber.log.txt
Normal file
12
debehaber.log.txt
Normal file
@ -0,0 +1,12 @@
|
||||
02-feb-2003
|
||||
16:46 OK!
|
||||
16:32 Voy a implementar un formulario para imprimir el DHS activo
|
||||
|
||||
15:24 Creo que ya esta todo terminado...
|
||||
14:49 Adaptación finalizada. [Implementando tabla DebeHaber]
|
||||
14:13 Acabada la readaptación del Cut_&_Paste, comienzo la prueba
|
||||
(Cambiado de mySQL a Tablas Paradox)
|
||||
13:25 Comienzo diseño de la mini-aplicacion
|
||||
(Empiezo copiando módulos de otras aplicaciones:
|
||||
:: About >_de_> mysql_TPV
|
||||
:: FichaPersonas >_de_> mysql_TPV
|
||||
300
src/FichaPersonas.cpp
Normal file
300
src/FichaPersonas.cpp
Normal file
@ -0,0 +1,300 @@
|
||||
//---------------------------------------------------------------------------
|
||||
#include <vcl.h>
|
||||
#pragma hdrstop
|
||||
|
||||
#include "FichaPersonas.h"
|
||||
#include "splash.h"
|
||||
#include "QR_dhs.h"
|
||||
//---------------------------------------------------------------------------
|
||||
#pragma package(smart_init)
|
||||
#pragma resource "*.dfm"
|
||||
TFichaPersonal *FichaPersonal;
|
||||
//---------------------------------------------------------------------------
|
||||
__fastcall TFichaPersonal::TFichaPersonal(TComponent* Owner)
|
||||
: TForm(Owner)
|
||||
{
|
||||
desde->Date=Now();
|
||||
hasta->Date=Now();
|
||||
Tb_dhs->Active=true;
|
||||
setDHS_Filter(0);
|
||||
|
||||
Tb_FPersonas->Active=true;
|
||||
PageControl1->ActivePage = TabSheet1; // Solapa Ficha>>General
|
||||
PageControl2->ActivePage = Tab_FPersonas; // Solapa Fichas
|
||||
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
void __fastcall TFichaPersonal::tipoDocumentoChange(TObject *Sender)
|
||||
{
|
||||
if ( updatingDB ) return;
|
||||
|
||||
if ( Tb_FPersonas->State!=dsEdit || Tb_FPersonas->State!=dsInsert )
|
||||
Tb_FPersonas->Edit();
|
||||
|
||||
Tb_FPersonas->FieldByName("Dni_Nif_Pasaporte")->AsInteger = tipoDocumento->ItemIndex;
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
void __fastcall TFichaPersonal::Tb_FPersonasNewRecord(TDataSet *DataSet)
|
||||
{
|
||||
Tb_FPersonas->FieldByName("Dni_Nif_Pasaporte")->AsInteger = 0;
|
||||
Tb_FPersonas->FieldByName("FAlta")->AsDateTime = Date();
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
void __fastcall TFichaPersonal::Tb_FPersonasBeforePost(TDataSet *DataSet)
|
||||
{
|
||||
Tb_FPersonas->FieldByName("FModif")->AsDateTime = Date();
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
void __fastcall TFichaPersonal::Ds_FPersonasStateChange(TObject *Sender)
|
||||
{
|
||||
btPost->Visible = ( Tb_FPersonas->State==dsEdit ||Tb_FPersonas->State==dsInsert );
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
void __fastcall TFichaPersonal::newPersonClick(TObject *Sender)
|
||||
{
|
||||
if ( !Tb_FPersonas->Active )
|
||||
Tb_FPersonas->Active = true;
|
||||
|
||||
PageControl2->ActivePage=Tab_FPersonas;
|
||||
PageControl1->ActivePage=TabSheet1;
|
||||
Tb_FPersonas->Insert();
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
void __fastcall TFichaPersonal::btPostClick(TObject *Sender)
|
||||
{
|
||||
if ( Tb_FPersonas->State == dsEdit || Tb_FPersonas->State == dsInsert )
|
||||
Tb_FPersonas->Post();
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
void __fastcall TFichaPersonal::Ds_FPersonasDataChange(TObject *Sender,
|
||||
TField *Field)
|
||||
{
|
||||
if ( !needReloadGroup && ! carpeta.IsEmpty() )
|
||||
{
|
||||
tipoDocumento->ItemIndex=Tb_FPersonas->FieldByName("Dni_Nif_Pasaporte")->AsInteger;
|
||||
|
||||
if ( CorrectaCC( Tb_FPersonas->FieldByName("Banco_Entidad")->AsInteger,
|
||||
Tb_FPersonas->FieldByName("Banco_Sucursal")->AsInteger,
|
||||
Tb_FPersonas->FieldByName("Banco_DC")->AsInteger,
|
||||
Tb_FPersonas->FieldByName("Banco_NumCuenta")->AsString )
|
||||
)
|
||||
{
|
||||
DBEdit24->Color = clWindow;
|
||||
DBEdit25->Color = clWindow;
|
||||
DBEdit26->Color = clWindow;
|
||||
DBEdit27->Color = clWindow;
|
||||
}else{
|
||||
DBEdit24->Color = clRed;
|
||||
DBEdit25->Color = clRed;
|
||||
DBEdit26->Color = clRed;
|
||||
DBEdit27->Color = clRed;
|
||||
}
|
||||
}
|
||||
// Sumamos el total de debe/haber/saldo...
|
||||
RefrescarTotales(0);
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
void __fastcall TFichaPersonal::NextField_Tab1(TObject *Sender, char &Key)
|
||||
{
|
||||
// Saltamos al siguiente campo de la lista...
|
||||
if ( Key == VK_RETURN )
|
||||
{
|
||||
TDBEdit *Siguiente[] = { DBEdit4, DBEdit1, DBEdit5, DBEdit2, DBEdit3,
|
||||
DBEdit6, DBEdit7, DBEdit8, DBEdit9, DBEdit10,
|
||||
DBEdit11, DBEdit12, DBEdit13, DBEdit14, DBEdit15,
|
||||
DBEdit1, NULL };
|
||||
|
||||
for ( int i=0; Siguiente[i]!=NULL; i++ )
|
||||
{
|
||||
if ( Sender == Siguiente[i] )
|
||||
{
|
||||
/*
|
||||
if ( TbListado->State == dsEdit || TbListado->State == dsInsert )
|
||||
TbListado->Post();
|
||||
*/
|
||||
Siguiente[i+1]->SetFocus();
|
||||
break;
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
|
||||
#define Digito(Num, Dig) ( (Num-( (Num/(int)Power(Dig,10)) * (int)Power(Dig,10) )) / ( Dig==1 ? 1 : (int)Power(Dig-1,10) ) )
|
||||
|
||||
// Comprobamos que la CC sea correcta
|
||||
bool __fastcall TFichaPersonal::CorrectaCC( int Banco, int Oficina, int DC, AnsiString NumCuenta )
|
||||
{
|
||||
int Suma1, Suma2, R1, R2;
|
||||
bool dev;
|
||||
char *NumCC;
|
||||
|
||||
dev = false;
|
||||
if ( NumCuenta.Length() == 10 )
|
||||
{
|
||||
NumCC = NumCuenta.c_str();
|
||||
Suma1 = Digito(Oficina, 1)* 6 +
|
||||
Digito(Oficina, 2)* 3 +
|
||||
Digito(Oficina, 3)* 7 +
|
||||
Digito(Oficina, 4)* 9 +
|
||||
Digito(Banco, 1)*10 +
|
||||
Digito(Banco, 2)* 5 +
|
||||
Digito(Banco, 3)* 8 +
|
||||
Digito(Banco, 4)* 4 ;
|
||||
Suma2 = (NumCC[9]-'0')*6 +
|
||||
(NumCC[8]-'0')*3 +
|
||||
(NumCC[7]-'0')*7 +
|
||||
(NumCC[6]-'0')*9 +
|
||||
(NumCC[5]-'0')*10 +
|
||||
(NumCC[4]-'0')*5 +
|
||||
(NumCC[3]-'0')*8 +
|
||||
(NumCC[2]-'0')*4 +
|
||||
(NumCC[1]-'0')*2 +
|
||||
(NumCC[0]-'0')*1 ;
|
||||
|
||||
R1 = 11-(Suma1%11); if ( R1==11 ) R1 = 0; if ( R1==10 ) R1 = 1;
|
||||
R2 = 11-(Suma2%11); if ( R2==11 ) R2 = 0; if ( R2==10 ) R2 = 1;
|
||||
|
||||
if ( Digito(DC,2)== R1 && Digito(DC,1)== R2 )
|
||||
dev = true;
|
||||
}
|
||||
return dev;
|
||||
};
|
||||
//---------------------------------------------------------------------------
|
||||
void __fastcall TFichaPersonal::NextField_Tab2(TObject *Sender, char &Key)
|
||||
{
|
||||
// Saltamos al siguiente campo de la lista...
|
||||
if ( Key == VK_RETURN )
|
||||
{
|
||||
TDBEdit *Siguiente[] = { DBEdit21, DBEdit22,
|
||||
DBEdit24, DBEdit26, DBEdit25, DBEdit27,
|
||||
DBEdit23, DBEdit17, DBEdit18, DBEdit19, DBEdit20,
|
||||
DBEdit21, NULL };
|
||||
|
||||
for ( int i=0; Siguiente[i]!=NULL; i++ )
|
||||
{
|
||||
if ( Sender == Siguiente[i] )
|
||||
{
|
||||
/*
|
||||
if ( TbListado->State == dsEdit || TbListado->State == dsInsert )
|
||||
TbListado->Post();
|
||||
*/
|
||||
Siguiente[i+1]->SetFocus();
|
||||
break;
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
void __fastcall TFichaPersonal::SpeedButton2Click(TObject *Sender)
|
||||
{
|
||||
PageControl2->ActivePage=Tab_FPersonas;
|
||||
Tb_FPersonas->First();
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
|
||||
void __fastcall TFichaPersonal::SpeedButton6Click(TObject *Sender)
|
||||
{
|
||||
PageControl2->ActivePage=Tab_FPersonas;
|
||||
Tb_FPersonas->Last();
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
void __fastcall TFichaPersonal::SpeedButton3Click(TObject *Sender)
|
||||
{
|
||||
PageControl2->ActivePage=Tab_FPersonas;
|
||||
Tb_FPersonas->Prior();
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
void __fastcall TFichaPersonal::SpeedButton7Click(TObject *Sender)
|
||||
{
|
||||
PageControl2->ActivePage=Tab_FPersonas;
|
||||
Tb_FPersonas->Next();
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
|
||||
void __fastcall TFichaPersonal::FormClose(TObject *Sender,
|
||||
TCloseAction &Action)
|
||||
{
|
||||
splash->Close();
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
|
||||
void __fastcall TFichaPersonal::SpeedButton5Click(TObject *Sender)
|
||||
{
|
||||
Tb_FPersonas->Locate("ID", Edit1->Text, TLocateOptions() );
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
|
||||
void __fastcall TFichaPersonal::Edit1KeyPress(TObject *Sender, char &Key)
|
||||
{
|
||||
if ( Key == VK_RETURN )SpeedButton5Click(0);
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
|
||||
void __fastcall TFichaPersonal::Tb_dhsCalcFields(TDataSet *DataSet)
|
||||
{
|
||||
Tb_dhs->FieldByName("saldo")->AsCurrency = Tb_dhs->FieldByName("haber")->AsCurrency -
|
||||
Tb_dhs->FieldByName("debe")->AsCurrency;
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
|
||||
void __fastcall TFichaPersonal::setDHS_Filter(TObject *Sender)
|
||||
{
|
||||
CheckBox1->Checked=true;
|
||||
Tb_dhs->Filter = "[Fecha]>='"+desde->Date.DateString()+"' AND [Fecha]<='"+hasta->Date.DateString()+"'";
|
||||
Tb_dhs->Filtered=true;
|
||||
RefrescarTotales(0);
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
|
||||
void __fastcall TFichaPersonal::Tb_dhsNewRecord(TDataSet *DataSet)
|
||||
{
|
||||
Tb_dhs->FieldByName("Fecha")->AsDateTime = Now();
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
|
||||
void __fastcall TFichaPersonal::CheckBox1Click(TObject *Sender)
|
||||
{
|
||||
Tb_dhs->Filtered=CheckBox1->Checked;
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
|
||||
void __fastcall TFichaPersonal::RefrescarTotales(TObject *Sender)
|
||||
{
|
||||
Currency debe, haber;
|
||||
|
||||
debe=0.0;
|
||||
haber=0.0;
|
||||
|
||||
Tb_dhs->DisableControls();
|
||||
Tb_dhs->First();
|
||||
while(!Tb_dhs->Eof)
|
||||
{
|
||||
debe+=Tb_dhs->FieldByName("Debe")->AsCurrency;
|
||||
haber+=Tb_dhs->FieldByName("Haber")->AsCurrency;
|
||||
Tb_dhs->Next();
|
||||
}
|
||||
Tb_dhs->EnableControls();
|
||||
|
||||
StatusBar1->Panels->Items[0]->Text = "Debe: "+FormatCurr("###,###,###.#0",debe)+
|
||||
" Haber: "+FormatCurr("###,###,###.#0",haber)+
|
||||
" Saldo: "+FormatCurr("###,###,###.#0",haber-debe);
|
||||
|
||||
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
|
||||
void __fastcall TFichaPersonal::SpeedButton4Click(TObject *Sender)
|
||||
{
|
||||
TQRdhs *R;
|
||||
R=new TQRdhs(this);
|
||||
R->QuickRep1->DataSet = Tb_dhs;
|
||||
R->QRPeriodo->Caption= "Periodo del " + desde->Date.DateString() + " al " + hasta->Date.DateString();
|
||||
R->QRCon->Caption= "ID: " + Tb_FPersonas->FieldByName("Id")->AsString +
|
||||
" Contacto: " + Tb_FPersonas->FieldByName("Nombre")->AsString + " " + Tb_FPersonas->FieldByName("Apellidos")->AsString;
|
||||
R->QREmp->Caption= "Empresa: " + Tb_FPersonas->FieldByName("Empresa")->AsString;
|
||||
R->QuickRep1->Preview();
|
||||
delete R;
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
|
||||
1353
src/FichaPersonas.dfm
Normal file
1353
src/FichaPersonas.dfm
Normal file
File diff suppressed because it is too large
Load Diff
175
src/FichaPersonas.h
Normal file
175
src/FichaPersonas.h
Normal file
@ -0,0 +1,175 @@
|
||||
//---------------------------------------------------------------------------
|
||||
|
||||
#ifndef FichaPersonasH
|
||||
#define FichaPersonasH
|
||||
//---------------------------------------------------------------------------
|
||||
#include <Math.hpp>
|
||||
#include <Classes.hpp>
|
||||
#include <Controls.hpp>
|
||||
#include <StdCtrls.hpp>
|
||||
#include <Forms.hpp>
|
||||
#include <Buttons.hpp>
|
||||
#include <ComCtrls.hpp>
|
||||
#include <ExtCtrls.hpp>
|
||||
#include <DBGrids.hpp>
|
||||
#include <Grids.hpp>
|
||||
#include <Db.hpp>
|
||||
#include <DBCtrls.hpp>
|
||||
#include <Mask.hpp>
|
||||
#include <DBTables.hpp>
|
||||
#include <ImgList.hpp>
|
||||
//---------------------------------------------------------------------------
|
||||
class TFichaPersonal : public TForm
|
||||
{
|
||||
__published: // IDE-managed Components
|
||||
TStatusBar *StatusBar1;
|
||||
TPanel *Panel1;
|
||||
TSpeedButton *btPost;
|
||||
TSpeedButton *SpeedButton3;
|
||||
TSpeedButton *SpeedButton4;
|
||||
TSpeedButton *newPerson;
|
||||
TSpeedButton *SpeedButton6;
|
||||
TSpeedButton *SpeedButton7;
|
||||
TBevel *Bevel4;
|
||||
TBevel *Bevel5;
|
||||
TPageControl *PageControl2;
|
||||
TTabSheet *Tab_LPersonas;
|
||||
TTabSheet *Tab_FPersonas;
|
||||
TPageControl *PageControl1;
|
||||
TTabSheet *TabSheet1;
|
||||
TBevel *Bevel1;
|
||||
TTabSheet *TabSheet2;
|
||||
TBevel *Bevel2;
|
||||
TTabSheet *TabSheet3;
|
||||
TBevel *Bevel3;
|
||||
TDataSource *Ds_FPersonas;
|
||||
TDBMemo *DBMemo1;
|
||||
TLabel *Label2;
|
||||
TImage *Image1;
|
||||
TDBEdit *DBEdit1;
|
||||
TLabel *Label3;
|
||||
TLabel *Label4;
|
||||
TLabel *Label6;
|
||||
TDBEdit *DBEdit2;
|
||||
TDBEdit *DBEdit3;
|
||||
TDBEdit *DBEdit4;
|
||||
TDBEdit *DBEdit5;
|
||||
TLabel *Label7;
|
||||
TLabel *Label8;
|
||||
TDBEdit *DBEdit6;
|
||||
TLabel *Label9;
|
||||
TDBEdit *DBEdit7;
|
||||
TLabel *Label10;
|
||||
TDBEdit *DBEdit8;
|
||||
TLabel *Label11;
|
||||
TDBEdit *DBEdit9;
|
||||
TSpeedButton *busqPersonas;
|
||||
TLabel *Label12;
|
||||
TDBEdit *DBEdit10;
|
||||
TDBEdit *DBEdit11;
|
||||
TDBEdit *DBEdit12;
|
||||
TDBEdit *DBEdit13;
|
||||
TLabel *Label13;
|
||||
TDBEdit *DBEdit14;
|
||||
TLabel *Label14;
|
||||
TDBEdit *DBEdit15;
|
||||
TSpeedButton *SpeedButton1;
|
||||
TSpeedButton *SpeedButton8;
|
||||
TLabel *Label15;
|
||||
TComboBox *tipoDocumento;
|
||||
TLabel *Label16;
|
||||
TLabel *Label17;
|
||||
TDBText *DBText1;
|
||||
TLabel *Label18;
|
||||
TLabel *Label19;
|
||||
TLabel *Label21;
|
||||
TLabel *Label22;
|
||||
TLabel *Label23;
|
||||
TLabel *Label24;
|
||||
TSpeedButton *SpeedButton9;
|
||||
TDBEdit *DBEdit17;
|
||||
TDBEdit *DBEdit18;
|
||||
TDBEdit *DBEdit19;
|
||||
TDBEdit *DBEdit20;
|
||||
TDBEdit *DBEdit21;
|
||||
TDBEdit *DBEdit22;
|
||||
TDBEdit *DBEdit23;
|
||||
TDBEdit *DBEdit24;
|
||||
TDBEdit *DBEdit25;
|
||||
TDBEdit *DBEdit26;
|
||||
TDBEdit *DBEdit27;
|
||||
TLabel *Label20;
|
||||
TLabel *Label25;
|
||||
TLabel *Label26;
|
||||
TLabel *Label27;
|
||||
TBevel *Bevel6;
|
||||
TSpeedButton *SpeedButton10;
|
||||
TDBText *DBText2;
|
||||
TTable *Tb_FPersonas;
|
||||
TDBText *DBText3;
|
||||
TDBText *DBText4;
|
||||
TDBEdit *DBEdit16;
|
||||
TDBEdit *DBEdit28;
|
||||
TDBEdit *DBEdit29;
|
||||
TLabel *Label1;
|
||||
TLabel *Label5;
|
||||
TLabel *Label28;
|
||||
TLabel *Label31;
|
||||
TDBGrid *DBGrid1;
|
||||
TEdit *Edit1;
|
||||
TSpeedButton *SpeedButton5;
|
||||
TDataSource *DS_dhs;
|
||||
TTable *Tb_dhs;
|
||||
TAutoIncField *Tb_dhsID;
|
||||
TIntegerField *Tb_dhsIDC;
|
||||
TDateField *Tb_dhsFecha;
|
||||
TStringField *Tb_dhsConcepto;
|
||||
TCurrencyField *Tb_dhsDebe;
|
||||
TCurrencyField *Tb_dhsHaber;
|
||||
TCurrencyField *Tb_dhssaldo;
|
||||
TDateTimePicker *desde;
|
||||
TDateTimePicker *hasta;
|
||||
TSpeedButton *SpeedButton2;
|
||||
TSpeedButton *SpeedButton11;
|
||||
TBevel *Bevel7;
|
||||
TCheckBox *CheckBox1;
|
||||
TButton *Button1;
|
||||
TImageList *ImageList1;
|
||||
void __fastcall tipoDocumentoChange(TObject *Sender);
|
||||
void __fastcall Tb_FPersonasNewRecord(TDataSet *DataSet);
|
||||
void __fastcall Tb_FPersonasBeforePost(TDataSet *DataSet);
|
||||
void __fastcall Ds_FPersonasStateChange(TObject *Sender);
|
||||
void __fastcall newPersonClick(TObject *Sender);
|
||||
void __fastcall btPostClick(TObject *Sender);
|
||||
void __fastcall Ds_FPersonasDataChange(TObject *Sender,
|
||||
TField *Field);
|
||||
void __fastcall NextField_Tab1(TObject *Sender, char &Key);
|
||||
void __fastcall NextField_Tab2(TObject *Sender, char &Key);
|
||||
void __fastcall SpeedButton2Click(TObject *Sender);
|
||||
void __fastcall SpeedButton6Click(TObject *Sender);
|
||||
void __fastcall SpeedButton3Click(TObject *Sender);
|
||||
void __fastcall SpeedButton7Click(TObject *Sender);
|
||||
void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
|
||||
void __fastcall SpeedButton5Click(TObject *Sender);
|
||||
void __fastcall Edit1KeyPress(TObject *Sender, char &Key);
|
||||
void __fastcall Tb_dhsCalcFields(TDataSet *DataSet);
|
||||
void __fastcall setDHS_Filter(TObject *Sender);
|
||||
void __fastcall Tb_dhsNewRecord(TDataSet *DataSet);
|
||||
void __fastcall CheckBox1Click(TObject *Sender);
|
||||
void __fastcall RefrescarTotales(TObject *Sender);
|
||||
void __fastcall SpeedButton4Click(TObject *Sender);
|
||||
private: // User declarations
|
||||
AnsiString carpeta;
|
||||
bool updatingDB;
|
||||
AnsiString condicion, busqueda;
|
||||
bool __fastcall sincronizarFicha( int idPersona );
|
||||
bool __fastcall CorrectaCC( int Banco, int Oficina, int DC, AnsiString NumCuenta );
|
||||
public: // User declarations
|
||||
bool needReloadGroup;
|
||||
__fastcall TFichaPersonal(TComponent* Owner);
|
||||
void __fastcall setCarpeta(AnsiString carpeta);
|
||||
};
|
||||
//---------------------------------------------------------------------------
|
||||
extern PACKAGE TFichaPersonal *FichaPersonal;
|
||||
//---------------------------------------------------------------------------
|
||||
#endif
|
||||
BIN
src/Futurist_Yellow Text Document.ico
Normal file
BIN
src/Futurist_Yellow Text Document.ico
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 4.1 KiB |
15
src/QR_dhs.cpp
Normal file
15
src/QR_dhs.cpp
Normal file
@ -0,0 +1,15 @@
|
||||
//---------------------------------------------------------------------------
|
||||
#include <vcl.h>
|
||||
#pragma hdrstop
|
||||
|
||||
#include "QR_dhs.h"
|
||||
//---------------------------------------------------------------------------
|
||||
#pragma package(smart_init)
|
||||
#pragma resource "*.dfm"
|
||||
TQRdhs *QRdhs;
|
||||
//---------------------------------------------------------------------------
|
||||
__fastcall TQRdhs::TQRdhs(TComponent* Owner)
|
||||
: TForm(Owner)
|
||||
{
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
BIN
src/QR_dhs.dfm
Normal file
BIN
src/QR_dhs.dfm
Normal file
Binary file not shown.
53
src/QR_dhs.h
Normal file
53
src/QR_dhs.h
Normal file
@ -0,0 +1,53 @@
|
||||
//---------------------------------------------------------------------------
|
||||
#ifndef QR_dhsH
|
||||
#define QR_dhsH
|
||||
//---------------------------------------------------------------------------
|
||||
#include <Classes.hpp>
|
||||
#include <Graphics.hpp>
|
||||
#include <Controls.hpp>
|
||||
#include <StdCtrls.hpp>
|
||||
#include <Forms.hpp>
|
||||
#include <QuickRpt.hpp>
|
||||
#include <QRCtrls.hpp>
|
||||
#include <Db.hpp>
|
||||
#include <DBTables.hpp>
|
||||
#include <ExtCtrls.hpp>
|
||||
#include <Qrctrls.hpp>
|
||||
//---------------------------------------------------------------------------
|
||||
class TQRdhs : public TForm
|
||||
{
|
||||
__published: // IDE-managed Components
|
||||
TQuickRep *QuickRep1;
|
||||
TQRBand *PageFooterBand1;
|
||||
TQRExpr *QRExpr1;
|
||||
TQRBand *ColumnHeaderBand1;
|
||||
TQRBand *DetailBand1;
|
||||
TQRLabel *QRLabel1;
|
||||
TQRExpr *QRExpr2;
|
||||
TQRLabel *QRLabel2;
|
||||
TQRExpr *QRExpr3;
|
||||
TQRLabel *QRLabel3;
|
||||
TQRExpr *QRExpr4;
|
||||
TQRLabel *QRLabel4;
|
||||
TQRExpr *QRExpr5;
|
||||
TQRBand *TitleBand1;
|
||||
TQRLabel *QRLabel5;
|
||||
TQRLabel *QRPeriodo;
|
||||
TQRLabel *QRCon;
|
||||
TQRLabel *QREmp;
|
||||
TQRLabel *QRLabel6;
|
||||
TQRExpr *QRExpr6;
|
||||
TQRLabel *QRLabel7;
|
||||
TQRLabel *QRLabel8;
|
||||
TQRExpr *QRExpr7;
|
||||
TQRExpr *QRExpr8;
|
||||
TQRExpr *QRExpr9;
|
||||
TQRShape *QRShape1;
|
||||
private: // User declarations
|
||||
public: // User declarations
|
||||
__fastcall TQRdhs(TComponent* Owner);
|
||||
};
|
||||
//---------------------------------------------------------------------------
|
||||
extern PACKAGE TQRdhs *QRdhs;
|
||||
//---------------------------------------------------------------------------
|
||||
#endif
|
||||
BIN
src/datos/Personas.MB
Normal file
BIN
src/datos/Personas.MB
Normal file
Binary file not shown.
BIN
src/datos/Personas.PX
Normal file
BIN
src/datos/Personas.PX
Normal file
Binary file not shown.
BIN
src/datos/Personas.db
Normal file
BIN
src/datos/Personas.db
Normal file
Binary file not shown.
BIN
src/datos/dhs.PX
Normal file
BIN
src/datos/dhs.PX
Normal file
Binary file not shown.
BIN
src/datos/dhs.XG0
Normal file
BIN
src/datos/dhs.XG0
Normal file
Binary file not shown.
BIN
src/datos/dhs.YG0
Normal file
BIN
src/datos/dhs.YG0
Normal file
Binary file not shown.
BIN
src/datos/dhs.db
Normal file
BIN
src/datos/dhs.db
Normal file
Binary file not shown.
172
src/dhs.bpr
Normal file
172
src/dhs.bpr
Normal file
@ -0,0 +1,172 @@
|
||||
<?xml version='1.0' encoding='utf-8' ?>
|
||||
<!-- C++Builder XML Project -->
|
||||
<PROJECT>
|
||||
<MACROS>
|
||||
<VERSION value="BCB.05.03"/>
|
||||
<PROJECT value="..\bin\dhs.exe"/>
|
||||
<OBJFILES value="..\obj\dhs.obj ..\obj\splash.obj ..\obj\FichaPersonas.obj ..\obj\QR_dhs.obj"/>
|
||||
<RESFILES value="dhs.res"/>
|
||||
<IDLFILES value=""/>
|
||||
<IDLGENFILES value=""/>
|
||||
<DEFFILE value=""/>
|
||||
<RESDEPEN value="$(RESFILES) splash.dfm FichaPersonas.dfm QR_dhs.dfm"/>
|
||||
<LIBFILES value=""/>
|
||||
<LIBRARIES value="VCLX50.lib QRPT50.lib JDsoft.lib ZMySqlCB5.lib ZCOMMONCB5.lib
|
||||
ZDbwareCB5.lib VCLBDE50.lib VCLDB50.lib VCL50.lib"/>
|
||||
<SPARELIBS value="VCL50.lib VCLDB50.lib VCLBDE50.lib ZDbwareCB5.lib ZCOMMONCB5.lib
|
||||
ZMySqlCB5.lib JDsoft.lib QRPT50.lib VCLX50.lib"/>
|
||||
<PACKAGES value="VCL50.bpi VCLX50.bpi VCLDB50.bpi QRPT50.bpi VCLBDE50.bpi VCLIE50.bpi
|
||||
INETDB50.bpi INET50.bpi NMFAST50.bpi dclocx50.bpi CabForCB.bpi
|
||||
CoolPack.bpi JDsoft.bpi PhantomPack.bpi VCLIB50.bpi VCLMID50.bpi
|
||||
WEBMID50.bpi VCLDBX50.bpi TEEQR50.bpi asgc5.bpi RAS_Tools.bpi
|
||||
ZCommonCB5.bpi ZDbwareCB5.bpi ZMySqlCB5.bpi ZDb2SqlCB5.bpi ZIbSqlCB5.bpi
|
||||
ZMsSqlCB5.bpi ZOraSqlCB5.bpi ZPgSqlCB5.bpi TEEUI50.bpi TEEDB50.bpi
|
||||
TEE50.bpi DSS50.bpi bcbsmp50.bpi VCLADO50.bpi ibsmp50.bpi bcbie50.bpi
|
||||
bcb2kaxserver50.bpi"/>
|
||||
<PATHCPP value=".;"/>
|
||||
<PATHPAS value=".;"/>
|
||||
<PATHRC value=".;"/>
|
||||
<PATHASM value=".;"/>
|
||||
<DEBUGLIBPATH value="$(BCB)\lib\debug"/>
|
||||
<RELEASELIBPATH value="$(BCB)\lib\release"/>
|
||||
<LINKER value="tlink32"/>
|
||||
<USERDEFINES value="_DEBUG"/>
|
||||
<SYSDEFINES value="NO_STRICT"/>
|
||||
<MAINSOURCE value="dhs.cpp"/>
|
||||
<INCLUDEPATH value="..\..\VCLs\include;$(BCB)\include;$(BCB)\include\vcl"/>
|
||||
<LIBPATH value="..\..\VCLs\include;$(BCB)\Projects\Lib;..\..\VCLs\lib;$(BCB)\lib\obj;$(BCB)\lib;..\obj"/>
|
||||
<WARNINGS value="-w-par"/>
|
||||
</MACROS>
|
||||
<OPTIONS>
|
||||
<IDLCFLAGS value="-I..\..\VCLs\include -I$(BCB)\include -I$(BCB)\include\vcl -src_suffix cpp
|
||||
-D_DEBUG Builder\VCLs\include win9x Builder\VCLs\zeos_mySQL\dbase
|
||||
Builder\VCLs\zeos_mySQL\common -boa"/>
|
||||
<CFLAG1 value="-Od -H=$(BCB)\lib\vcl50.csm -Hc -Vx -Ve -X- -r- -a8 -b- -k -y -v -vi- -c
|
||||
-tW -tWM"/>
|
||||
<PFLAGS value="-N2..\obj -N0..\obj -$Y+ -$W -$O- -v -JPHNE -M"/>
|
||||
<RFLAGS value=""/>
|
||||
<AFLAGS value="/mx /w2 /zi"/>
|
||||
<LFLAGS value="-I..\obj -D"" -aa -Tpe -x -Gn -v"/>
|
||||
</OPTIONS>
|
||||
<LINKER>
|
||||
<ALLOBJ value="c0w32.obj sysinit.obj $(OBJFILES)"/>
|
||||
<ALLRES value="$(RESFILES)"/>
|
||||
<ALLLIB value="$(LIBFILES) $(LIBRARIES) import32.lib cp32mt.lib"/>
|
||||
</LINKER>
|
||||
<IDEOPTIONS>
|
||||
[Version Info]
|
||||
IncludeVerInfo=1
|
||||
AutoIncBuild=1
|
||||
MajorVer=1
|
||||
MinorVer=0
|
||||
Release=0
|
||||
Build=2
|
||||
Debug=0
|
||||
PreRelease=1
|
||||
Special=0
|
||||
Private=0
|
||||
DLL=0
|
||||
Locale=3082
|
||||
CodePage=1252
|
||||
|
||||
[Version Info Keys]
|
||||
CompanyName=www.infdj.com
|
||||
FileDescription=
|
||||
FileVersion=1.0.0.2
|
||||
InternalName=
|
||||
LegalCopyright=
|
||||
LegalTrademarks=
|
||||
OriginalFilename=
|
||||
ProductName=
|
||||
ProductVersion=1.0.0.0
|
||||
Comments=
|
||||
|
||||
[Excluded Packages]
|
||||
C:\Mis documentos\Fuentes de Programacion\C++ Builder\CAP\LM2000_vcl\LM2000_vcl.bpl=Funciones para el Manejo del LM2000
|
||||
|
||||
[HistoryLists\hlIncludePath]
|
||||
Count=15
|
||||
Item0=..\..\VCLs\include;$(BCB)\include;$(BCB)\include\vcl
|
||||
Item1=..\..\..\C++ Builder\VCLs\include;$(BCB)\include;$(BCB)\include\vcl
|
||||
Item2=..\..\..\TPV win9x;..\QR_Facturas;..\..\..\..\C++ Builder\VCLs\include;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\dbase;$(BCB)\include;$(BCB)\include\vcl;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\common
|
||||
Item3=..\..;..\QR_Facturas;..\..\..\..\C++ Builder\VCLs\include;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\dbase;$(BCB)\include;$(BCB)\include\vcl;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\common
|
||||
Item4=..\..;..\QR_Facturas;..\..\..\..\C++ Builder\VCLs\include;..\..\..\TPV win9x;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\dbase;$(BCB)\include;$(BCB)\include\vcl;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\common
|
||||
Item5=..\QR_Facturas;..\..\..\..\C++ Builder\VCLs\include;..\..;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\dbase;$(BCB)\include;$(BCB)\include\vcl;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\common
|
||||
Item6=..\QR_Facturas;..\..\..\..\C++ Builder\VCLs\include;..\..\..\TPV win9x;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\dbase;$(BCB)\include;$(BCB)\include\vcl;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\common
|
||||
Item7=..\..\..\..\C++ Builder\VCLs\include;..\..\..\TPV win9x;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\dbase;$(BCB)\include;$(BCB)\include\vcl;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\common
|
||||
Item8=..\..\..\..\C++ Builder\VCLs\include;..\..;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\dbase;$(BCB)\include;$(BCB)\include\vcl;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\common
|
||||
Item9=..\..;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\dbase;$(BCB)\include;$(BCB)\include\vcl;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\common
|
||||
Item10=..\..\..\TPV win9x;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\dbase;$(BCB)\include;$(BCB)\include\vcl;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\common
|
||||
Item11=..\..\..\..\C++ Builder\VCLs\zeos_mySQL\dbase;$(BCB)\include;$(BCB)\include\vcl;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\common
|
||||
Item12=..\..\..\..\C++ Builder\VCLs\zeos_mySQL\dbase;$(BCB)\include;$(BCB)\include\vcl;C:\Mis documentos\Fuentes de Programacion\C++ Builder\VCLs\zeos_mySQL\common
|
||||
Item13=..\..\..\..\C++ Builder\VCLs\zeos_mySQL\dbase;$(BCB)\include;$(BCB)\include\vcl
|
||||
Item14=$(BCB)\include;$(BCB)\include\vcl
|
||||
|
||||
[HistoryLists\hlLibraryPath]
|
||||
Count=17
|
||||
Item0=..\..\VCLs\include;$(BCB)\Projects\Lib;..\..\VCLs\lib;$(BCB)\lib\obj;$(BCB)\lib;..\obj
|
||||
Item1=..\..\..\C++ Builder\VCLs\include;$(BCB)\Projects\Lib;..\..\..\C++ Builder\VCLs\lib;$(BCB)\lib\obj;$(BCB)\lib;..\obj
|
||||
Item2=..\..\..\TPV win9x;..\QR_Facturas;..\..\..\..\C++ Builder\VCLs\include;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\dbase;$(BCB)\Projects\Lib;..\..\..\..\C++ Builder\VCLs\lib;$(BCB)\lib\obj;$(BCB)\lib;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\common;..\..\obj
|
||||
Item3=..\..;..\QR_Facturas;..\..\..\..\C++ Builder\VCLs\include;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\dbase;$(BCB)\Projects\Lib;..\..\..\..\C++ Builder\VCLs\lib;$(BCB)\lib\obj;$(BCB)\lib;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\common;..\..\obj
|
||||
Item4=..\..;..\QR_Facturas;..\..\..\..\C++ Builder\VCLs\include;..\..\..\TPV win9x;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\dbase;$(BCB)\Projects\Lib;..\..\..\..\C++ Builder\VCLs\lib;$(BCB)\lib\obj;$(BCB)\lib;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\common;..\..\obj
|
||||
Item5=..\QR_Facturas;..\..\..\..\C++ Builder\VCLs\include;..\..;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\dbase;$(BCB)\Projects\Lib;..\..\..\..\C++ Builder\VCLs\lib;$(BCB)\lib\obj;$(BCB)\lib;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\common;..\..\obj
|
||||
Item6=..\QR_Facturas;..\..\..\..\C++ Builder\VCLs\include;..\..\..\TPV win9x;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\dbase;$(BCB)\Projects\Lib;..\..\..\..\C++ Builder\VCLs\lib;$(BCB)\lib\obj;$(BCB)\lib;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\common;..\..\obj
|
||||
Item7=..\QR_Facturas;..\..\..\..\C++ Builder\VCLs\include;..\..\..\TPV win9x;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\dbase;$(BCB)\Projects\Lib;..\..\..\..\C++ Builder\VCLs\lib;$(BCB)\lib\obj;$(BCB)\lib;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\common
|
||||
Item8=..\QR_Facturas;..\..\..\..\C++ Builder\VCLs\include;..\..;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\dbase;$(BCB)\Projects\Lib;..\..\..\..\C++ Builder\VCLs\lib;$(BCB)\lib\obj;$(BCB)\lib;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\common
|
||||
Item9=..\..\..\..\C++ Builder\VCLs\include;..\..\..\TPV win9x;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\dbase;$(BCB)\Projects\Lib;..\..\..\..\C++ Builder\VCLs\lib;$(BCB)\lib\obj;$(BCB)\lib;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\common
|
||||
Item10=..\..\..\..\C++ Builder\VCLs\include;..\..;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\dbase;$(BCB)\Projects\Lib;..\..\..\..\C++ Builder\VCLs\lib;$(BCB)\lib\obj;$(BCB)\lib;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\common
|
||||
Item11=..\..;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\dbase;$(BCB)\Projects\Lib;..\..\..\..\C++ Builder\VCLs\lib;$(BCB)\lib\obj;$(BCB)\lib;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\common
|
||||
Item12=..\..\..\TPV win9x;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\dbase;$(BCB)\Projects\Lib;..\..\..\..\C++ Builder\VCLs\lib;$(BCB)\lib\obj;$(BCB)\lib;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\common
|
||||
Item13=..\..;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\dbase;$(BCB)\Projects\Lib;..\..\..\..\C++ Builder\VCLs\lib;$(BCB)\lib\obj;$(BCB)\lib
|
||||
Item14=..\..\..\TPV win9x;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\dbase;$(BCB)\Projects\Lib;..\..\..\..\C++ Builder\VCLs\lib;$(BCB)\lib\obj;$(BCB)\lib
|
||||
Item15=..\..\..\..\C++ Builder\VCLs\zeos_mySQL\dbase;$(BCB)\Projects\Lib;..\..\..\..\C++ Builder\VCLs\lib;$(BCB)\lib\obj;$(BCB)\lib
|
||||
Item16=$(BCB)\Projects\Lib;..\..\..\..\C++ Builder\VCLs\lib;$(BCB)\lib\obj;$(BCB)\lib
|
||||
|
||||
[HistoryLists\hlDebugSourcePath]
|
||||
Count=2
|
||||
Item0=$(BCB)\source\vcl
|
||||
Item1=$(BCB)\source\vcl;..\..\bin\
|
||||
|
||||
[HistoryLists\hlConditionals]
|
||||
Count=1
|
||||
Item0=_DEBUG
|
||||
|
||||
[HistoryLists\hlIntOutputDir]
|
||||
Count=4
|
||||
Item0=..\obj
|
||||
Item1=..\..\obj
|
||||
Item2=C:\Mis documentos\Fuentes de Programacion\TPVweb!\TPV win9x\obj
|
||||
Item3=..\..\obj\
|
||||
|
||||
[HistoryLists\hlFinalOutputDir]
|
||||
Count=3
|
||||
Item0=..\bin\
|
||||
Item1=..\..\bin\
|
||||
Item2=..\..\bin
|
||||
|
||||
[Debugging]
|
||||
DebugSourceDirs=$(BCB)\source\vcl
|
||||
|
||||
[Parameters]
|
||||
RunParams=
|
||||
HostApplication=
|
||||
RemoteHost=
|
||||
RemotePath=
|
||||
RemoteDebug=0
|
||||
|
||||
[Compiler]
|
||||
ShowInfoMsgs=0
|
||||
LinkDebugVcl=1
|
||||
LinkCGLIB=0
|
||||
|
||||
[CORBA]
|
||||
AddServerUnit=1
|
||||
AddClientUnit=1
|
||||
PrecompiledHeaders=1
|
||||
|
||||
[Language]
|
||||
ActiveLang=
|
||||
ProjectLang=
|
||||
RootDir=
|
||||
</IDEOPTIONS>
|
||||
</PROJECT>
|
||||
45
src/dhs.cpp
Normal file
45
src/dhs.cpp
Normal file
@ -0,0 +1,45 @@
|
||||
//---------------------------------------------------------------------------
|
||||
#include <vcl.h>
|
||||
|
||||
#pragma hdrstop
|
||||
#include "splash.h"
|
||||
#include "FichaPersonas.h"
|
||||
USERES("dhs.res");
|
||||
USEFORM("splash.cpp", splash);
|
||||
USEFORM("FichaPersonas.cpp", FichaPersonal);
|
||||
USEFORM("QR_dhs.cpp", QRdhs);
|
||||
//---------------------------------------------------------------------------
|
||||
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
|
||||
{
|
||||
try
|
||||
{
|
||||
Application->Initialize();
|
||||
Application->CreateForm(__classid(Tsplash), &splash);
|
||||
Application->CreateForm(__classid(TFichaPersonal), &FichaPersonal);
|
||||
splash->Hide();
|
||||
FichaPersonal->Show();
|
||||
Application->ShowMainForm = false;
|
||||
Application->Run();
|
||||
}
|
||||
catch (Exception &exception)
|
||||
{
|
||||
Application->ShowException(&exception);
|
||||
}
|
||||
return 0;
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
/*
|
||||
Application->Initialize();
|
||||
Application->CreateForm(__classid(Tsplash), &splash);
|
||||
Application->Title = "";
|
||||
msgSQL->msg("Inicializando...", "Conectando a la base de datos");
|
||||
Application->CreateForm(__classid(TFichaPersonal), &FichaPersonal);
|
||||
msgSQL->Hide();
|
||||
main->Show();
|
||||
Application->ShowMainForm = false;
|
||||
Application->Run();
|
||||
*/
|
||||
|
||||
|
||||
|
||||
|
||||
BIN
src/dhs.res
Normal file
BIN
src/dhs.res
Normal file
Binary file not shown.
34
src/splash.cpp
Normal file
34
src/splash.cpp
Normal file
@ -0,0 +1,34 @@
|
||||
//---------------------------------------------------------------------------
|
||||
|
||||
#include <vcl.h>
|
||||
#pragma hdrstop
|
||||
|
||||
#include "splash.h"
|
||||
//---------------------------------------------------------------------------
|
||||
#pragma package(smart_init)
|
||||
#pragma resource "*.dfm"
|
||||
Tsplash *splash;
|
||||
//---------------------------------------------------------------------------
|
||||
__fastcall Tsplash::Tsplash(TComponent* Owner)
|
||||
: TForm(Owner)
|
||||
{
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
void __fastcall Tsplash::FormShow(TObject *Sender)
|
||||
{
|
||||
Animate1->Active = true;
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
void __fastcall Tsplash::FormHide(TObject *Sender)
|
||||
{
|
||||
Animate1->Active = false;
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
void __fastcall Tsplash::msg( AnsiString caption, AnsiString msg )
|
||||
{
|
||||
this->caption->Caption = caption;
|
||||
message->Caption = msg;
|
||||
Show();
|
||||
Update();
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
65
src/splash.dfm
Normal file
65
src/splash.dfm
Normal file
@ -0,0 +1,65 @@
|
||||
object splash: Tsplash
|
||||
Left = 586
|
||||
Top = 117
|
||||
BorderIcons = []
|
||||
BorderStyle = bsNone
|
||||
Caption = 'splash'
|
||||
ClientHeight = 121
|
||||
ClientWidth = 337
|
||||
Color = clBtnFace
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
FormStyle = fsStayOnTop
|
||||
OldCreateOrder = False
|
||||
Position = poScreenCenter
|
||||
OnHide = FormHide
|
||||
OnShow = FormShow
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object Bevel1: TBevel
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 337
|
||||
Height = 121
|
||||
Align = alClient
|
||||
Style = bsRaised
|
||||
end
|
||||
object caption: TLabel
|
||||
Left = 8
|
||||
Top = 16
|
||||
Width = 246
|
||||
Height = 20
|
||||
Caption = 'Enviando Petición al servidor...'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -16
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object message: TLabel
|
||||
Left = 8
|
||||
Top = 40
|
||||
Width = 183
|
||||
Height = 16
|
||||
Caption = 'Enviando Petición al servidor...'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -13
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
end
|
||||
object Animate1: TAnimate
|
||||
Left = 224
|
||||
Top = 80
|
||||
Width = 104
|
||||
Height = 34
|
||||
Active = False
|
||||
FileName = 'systm\1.avi'
|
||||
StopFrame = 45
|
||||
end
|
||||
end
|
||||
31
src/splash.h
Normal file
31
src/splash.h
Normal file
@ -0,0 +1,31 @@
|
||||
//---------------------------------------------------------------------------
|
||||
|
||||
#ifndef splashH
|
||||
#define splashH
|
||||
//---------------------------------------------------------------------------
|
||||
#include <Classes.hpp>
|
||||
#include <Controls.hpp>
|
||||
#include <StdCtrls.hpp>
|
||||
#include <Forms.hpp>
|
||||
#include <ComCtrls.hpp>
|
||||
#include <ExtCtrls.hpp>
|
||||
//---------------------------------------------------------------------------
|
||||
class Tsplash : public TForm
|
||||
{
|
||||
__published: // IDE-managed Components
|
||||
TAnimate *Animate1;
|
||||
TBevel *Bevel1;
|
||||
TLabel *caption;
|
||||
TLabel *message;
|
||||
void __fastcall FormShow(TObject *Sender);
|
||||
void __fastcall FormHide(TObject *Sender);
|
||||
private: // User declarations
|
||||
public: // User declarations
|
||||
__fastcall Tsplash(TComponent* Owner);
|
||||
void __fastcall msg( AnsiString caption, AnsiString msg );
|
||||
|
||||
};
|
||||
//---------------------------------------------------------------------------
|
||||
extern PACKAGE Tsplash *splash;
|
||||
//---------------------------------------------------------------------------
|
||||
#endif
|
||||
BIN
src/systm/1.AVI
Normal file
BIN
src/systm/1.AVI
Normal file
Binary file not shown.
Loading…
x
Reference in New Issue
Block a user