CPP_Builder/Herm-Win
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

First commit 10/01/2001

Browse Source
This commit is contained in:
José David Guillén
2021-09-12 22:25:13 +02:00
commit ef9e12b1db
53 changed files with 2444 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

50
herm_insignias.cpp Normal file
View File

@ -0,0 +1,50 @@
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "herm_insignias.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TInsignias *Insignias;
//---------------------------------------------------------------------------
__fastcall TInsignias::TInsignias(TComponent* Owner)
: TForm(Owner)
{
OrdenarPor->ItemIndex = 0;
TbInsignias->Active = true;
}
//---------------------------------------------------------------------------
void __fastcall TInsignias::SpeedButton1Click(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TInsignias::TabControl1Change(TObject *Sender)
{
TbInsignias->Filter = "CtoVirgen = " + (TabControl1->TabIndex ? AnsiString("True") : AnsiString("False") );
TbInsignias->Filtered = true;
DBGrid2CellClick(0);
}
//---------------------------------------------------------------------------
void __fastcall TInsignias::TbInsigniasNewRecord(TDataSet *DataSet)
{
TbInsignias->FieldByName( "CtoVirgen" )->AsBoolean = TabControl1->TabIndex ? true : false;
}
//---------------------------------------------------------------------------
void __fastcall TInsignias::DBGrid2CellClick(TColumn *Column)
{
TbBusqHnos->Close();
TbBusqHnos->SQL->Clear();
TbBusqHnos->SQL->Add("SELECT NumHno, ( ( ( (Apellido1 + ' ') + Apellido2) + ', ') + Nombre) Nombre, DNI, FechaNacimiento, Antiguedad");
TbBusqHnos->SQL->Add(" FROM \"datos\\tbHERM.db\" Tbherm " );
TbBusqHnos->SQL->Add(" WHERE (Borrado = FALSE) AND (idInsignia = "+TbInsignias->FieldByName("idInsignia")->AsString + ")");
// TbBusqHnos->SQL->Add("ORDER BY " + OrdenarPor->Items->Strings[OrdenarPor->ItemIndex] );
TbBusqHnos->ExecSQL();
TbBusqHnos->Active = true;
}
//---------------------------------------------------------------------------