129 lines
3.6 KiB
C++
129 lines
3.6 KiB
C++
//---------------------------------------------------------------------------
|
||
|
||
#include <vcl.h>
|
||
#pragma hdrstop
|
||
|
||
#include "capg_menu.h"
|
||
#include "capg_abonados.h"
|
||
#include "capg_tabonados.h"
|
||
#include "capg_tarifas.h"
|
||
#include "tickets.h"
|
||
#include "crd_ctrl.h"
|
||
#include "capg_gfact.h"
|
||
#include "capg_ifact.h"
|
||
//---------------------------------------------------------------------------
|
||
#pragma package(smart_init)
|
||
#pragma resource "*.dfm"
|
||
TMainForm *MainForm;
|
||
//---------------------------------------------------------------------------
|
||
__fastcall TMainForm::TMainForm(TComponent* Owner)
|
||
: TForm(Owner)
|
||
{
|
||
Height = 290;
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TMainForm::BitBtn2Click(TObject *Sender)
|
||
{
|
||
TForm1 *GAb;
|
||
GAb = new TForm1(this);
|
||
this->Visible = false;
|
||
GAb->ShowModal();
|
||
this->Visible = true;
|
||
delete GAb;
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TMainForm::BitBtn1Click(TObject *Sender)
|
||
{
|
||
TForm2 *GTAb;
|
||
GTAb = new TForm2(this);
|
||
this->Visible = false;
|
||
GTAb->ShowModal();
|
||
this->Visible = true;
|
||
delete GTAb;
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TMainForm::BitBtn5Click(TObject *Sender)
|
||
{
|
||
if ( Height == 290 )
|
||
Height = 390;
|
||
else
|
||
Height = 290;
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
|
||
void __fastcall TMainForm::BitBtn6Click(TObject *Sender)
|
||
{
|
||
TfTarifas *F;
|
||
F = new TfTarifas(this);
|
||
this->Visible = false;
|
||
F->ShowModal();
|
||
this->Visible = true;
|
||
delete F;
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TMainForm::BitBtn8Click(TObject *Sender)
|
||
{
|
||
/*
|
||
TfEstados *F;
|
||
F = new TfEstados(this);
|
||
this->Visible = false;
|
||
F->ShowModal();
|
||
this->Visible = true;
|
||
delete F;
|
||
*/
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
void __fastcall TMainForm::BitBtn7Click(TObject *Sender)
|
||
{
|
||
TfTickets *F;
|
||
F = new TfTickets(this);
|
||
this->Visible = false;
|
||
F->ShowModal();
|
||
this->Visible = true;
|
||
delete F;
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
|
||
void __fastcall TMainForm::BitBtn3Click(TObject *Sender)
|
||
{
|
||
TiFact *F;
|
||
F = new TiFact(this);
|
||
this->Visible = false;
|
||
F->ShowModal();
|
||
this->Visible = true;
|
||
delete F;
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
|
||
void __fastcall TMainForm::BitBtn9Click(TObject *Sender)
|
||
{
|
||
TgFact *F;
|
||
F = new TgFact(this);
|
||
this->Visible = false;
|
||
F->ShowModal();
|
||
this->Visible = true;
|
||
delete F;
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
|
||
void __fastcall TMainForm::BitBtn4Click(TObject *Sender)
|
||
{
|
||
ShowMessage( "M<EFBFBD>dulo no incluido en esta versi<73>n" );
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
|
||
void __fastcall TMainForm::BitBtn10Click(TObject *Sender)
|
||
{
|
||
if ( MessageDlg("Reiniciar a cero el contador.\nEsto incrementar<61> la serie del ticket y pondra a cero el contador.\n\n<EFBFBD>Continuar con el proceso?",mtInformation, TMsgDlgButtons() << mbYes << mbNo, 0)==mrYes )
|
||
{
|
||
TQuery *sql;
|
||
sql = new TQuery(this);
|
||
sql->SQL->Clear();
|
||
sql->SQL->Add("UPDATE 'datos\\contadores.db' SET Prefijo=Prefijo+1,Contador=0 WHERE Id=1");
|
||
sql->ExecSQL();
|
||
delete sql;
|
||
}
|
||
}
|
||
//---------------------------------------------------------------------------
|
||
|