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

48
cap_gestion/capg_tabonados.cpp Normal file
View File

@ -0,0 +1,48 @@
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "capg_tabonados.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
: TForm(Owner)
{
TbTAbonados->Active = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::TbTAbonadosBeforeOpen(TDataSet *DataSet)
{
if ( !FileExists( TbTAbonados -> TableName ) )
{
// Usamos la propiedad FielDefs para definir
// las columnas que contendr<64> la tabla
TbTAbonados -> FieldDefs -> Clear();
/********************\
|* Datos B<>sicos *|
\********************/
TbTAbonados -> FieldDefs -> Add("idta", ftAutoInc, 0, false );
TbTAbonados -> FieldDefs -> Add("desc", ftString, 15, false );
TbTAbonados -> FieldDefs -> Add("cuota", ftCurrency, 0, false );
TbTAbonados -> FieldDefs -> Add("acceso", ftBoolean, 0, false );
TbTAbonados -> FieldDefs -> Add("faccesoAM", ftInteger, 0, false );
TbTAbonados -> FieldDefs -> Add("faccesoPM", ftInteger, 0, false );
TbTAbonados -> FieldDefs -> Add("msg", ftString, 32, false );
TbTAbonados -> IndexDefs-> Clear();
TbTAbonados->IndexDefs->Add("Primary", "idta", TIndexOptions() << ixPrimary << ixUnique);
// Creamos la base...
TbTAbonados -> CreateTable();
}
}
//---------------------------------------------------------------------------