CPP_Builder/CAP
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

first commit (2002-04-24)

Browse Source
This commit is contained in:
José David Guillén
2021-09-01 18:53:06 +02:00
commit 4d943d773d
252 changed files with 17433 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

128
cap_gestion/capg_menu.cpp Normal file
View File

@ -0,0 +1,128 @@
//---------------------------------------------------------------------------
#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;
}
}
//---------------------------------------------------------------------------