first commit (2002-04-24)
This commit is contained in:
407
cap_control_CB5/TPropiedades.cpp
Normal file
407
cap_control_CB5/TPropiedades.cpp
Normal file
@ -0,0 +1,407 @@
|
||||
//---------------------------------------------------------------------------
|
||||
#include <registry.hpp>
|
||||
#include <vcl.h>
|
||||
#include <inifiles.hpp>
|
||||
#include <stdio.h>
|
||||
#pragma hdrstop
|
||||
|
||||
#include "TPropiedades.h"
|
||||
#include "LEGO_COMM.h"
|
||||
//---------------------------------------------------------------------------
|
||||
#pragma package(smart_init)
|
||||
#pragma link "DigitNum"
|
||||
#pragma link "LM2000"
|
||||
#pragma resource "*.dfm"
|
||||
TPropiedades *Propiedades;
|
||||
//---------------------------------------------------------------------------
|
||||
__fastcall TPropiedades::TPropiedades(TComponent* Owner)
|
||||
: TForm(Owner)
|
||||
{
|
||||
// Recuperar configuracion
|
||||
// Recuperamos la configuraci<63>n
|
||||
TIniFile *ini;
|
||||
ini = new TIniFile( ExtractFileDir( Application->ExeName ) + "\\CAP.INI" );
|
||||
// General
|
||||
ComboBox1->ItemIndex = ini->ReadInteger( "CAP_c", "PuertoLego", 0 );
|
||||
DireccionesE->Text = ini->ReadString( "CAP_c", "IDsLegoE", "1;" );
|
||||
DireccionesS->Text = ini->ReadString( "CAP_c", "IDsLegoS", "2;" );
|
||||
Historial->Checked = ini->ReadBool( "CAP_c", "historial", true );
|
||||
|
||||
|
||||
Capacidad->Text = ini->ReadInteger( "parking", "Capacidad", 1000 );
|
||||
MsgCapacidad->Text = ini->ReadString( "parking", "MsgParking_lleno", "El parking esta lleno" );
|
||||
// ComboBox2->ItemIndex = ini->ReadInteger( "parking", "DiasDeCortesia", 0 );
|
||||
|
||||
DB_host->Text = ini->ReadString( "db", "host", "." );
|
||||
DB_login->Text = ini->ReadString( "db", "login", "NO_ES_SQL" );
|
||||
DB_pwd->Text = ini->ReadString( "db", "pwd", "NO_ES_SQL" );
|
||||
|
||||
/* Sobrecarga de franjas horarias */
|
||||
/*
|
||||
CheckBox1->Checked = ini->ReadBool( "horas", "sobrecargar", false );
|
||||
|
||||
verL->Checked = ini->ReadBool( "horas", "verL", false );
|
||||
desdeL->Text = ini->ReadString( "horas", "desdeL", "00:00" );
|
||||
hastaL->Text = ini->ReadString( "horas", "hastaL", "00:00" );
|
||||
|
||||
verM->Checked = ini->ReadBool( "horas", "verM", false );
|
||||
desdeM->Text = ini->ReadString( "horas", "desdeM", "00:00" );
|
||||
hastaM->Text = ini->ReadString( "horas", "hastaM", "00:00" );
|
||||
|
||||
verX->Checked = ini->ReadBool( "horas", "verX", false );
|
||||
desdeX->Text = ini->ReadString( "horas", "desdeX", "00:00" );
|
||||
hastaX->Text = ini->ReadString( "horas", "hastaX", "00:00" );
|
||||
|
||||
verJ->Checked = ini->ReadBool( "horas", "verJ", false );
|
||||
desdeJ->Text = ini->ReadString( "horas", "desdeJ", "00:00" );
|
||||
hastaJ->Text = ini->ReadString( "horas", "hastaJ", "00:00" );
|
||||
|
||||
verV->Checked = ini->ReadBool( "horas", "verV", false );
|
||||
desdeV->Text = ini->ReadString( "horas", "desdeV", "00:00" );
|
||||
hastaV->Text = ini->ReadString( "horas", "hastaV", "00:00" );
|
||||
|
||||
verS->Checked = ini->ReadBool( "horas", "verS", false );
|
||||
desdeS->Text = ini->ReadString( "horas", "desdeS", "00:00" );
|
||||
hastaS->Text = ini->ReadString( "horas", "hastaS", "00:00" );
|
||||
|
||||
verD->Checked = ini->ReadBool( "horas", "verD", false );
|
||||
desdeD->Text = ini->ReadString( "horas", "desdeD", "00:00" );
|
||||
hastaD->Text = ini->ReadString( "horas", "hastaD", "00:00" );
|
||||
*/
|
||||
delete ini;
|
||||
|
||||
StartEventRecorder("Historial.log");
|
||||
|
||||
// Hacer efectivos los cambios
|
||||
bAplicarClick(0);
|
||||
LEGO_COMM = new CheckLEGOs(true);
|
||||
LEGO_COMM -> SetPuerto( ComboBox1->Items->Strings[ComboBox1->ItemIndex] );
|
||||
LEGO_COMM -> SetDB( DB_host->Text, DB_login->Text, DB_pwd->Text );
|
||||
// LEGO_COMM -> SetDiasCortesia( ComboBox2->ItemIndex );
|
||||
LEGO_COMM -> SetLegoID( nLEGOSe, IDe, nLEGOSs, IDs );
|
||||
try {
|
||||
LEGO_COMM -> maxDENTRO = Capacidad->Text.ToInt();
|
||||
}catch(...){
|
||||
LEGO_COMM -> maxDENTRO = 2000;
|
||||
}
|
||||
LEGO_COMM -> Resume();
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
void __fastcall TPropiedades::StartEventRecorder(AnsiString opLOG)
|
||||
{
|
||||
try {
|
||||
// Cargamos todos los eventos anteriores
|
||||
mHistorial->Lines->LoadFromFile( opLOG );
|
||||
// Si hay demasiados registros
|
||||
if ( mHistorial->Lines->Count > 700 )
|
||||
{
|
||||
for ( int i=0; i<100; i++ ) // Eliminamos las 100 <20>ltimas entradas
|
||||
mHistorial->Lines->Delete( 3 );
|
||||
}
|
||||
} catch(...) {
|
||||
mHistorial->Lines->Clear(); // En caso de error, las eliminamos todas
|
||||
}
|
||||
//Fecha y hora del inicio de sesi<73>n
|
||||
mHistorial->Lines->Insert( 0, (Now()).DateTimeString() + " :: Inicio de la sesi<73>n" );
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
void __fastcall TPropiedades::BorrarHistorialClick(TObject *Sender)
|
||||
{
|
||||
mHistorial -> Lines -> Clear();
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
|
||||
void __fastcall TPropiedades::FormDestroy(TObject *Sender)
|
||||
{
|
||||
if ( Historial -> Checked )
|
||||
{
|
||||
mHistorial -> Lines -> Insert( 0, TDateTime::CurrentDateTime().DateTimeString() + " :: Fin de sesi<73>n ");
|
||||
mHistorial -> Lines -> SaveToFile( "Historial.log" );
|
||||
}
|
||||
/*
|
||||
// Desactivamos el HILO de ejecuci<63>n y esperamos hasta que acabe
|
||||
LEGO_COMM->Terminate();
|
||||
LEGO_COMM->WaitFor();
|
||||
*/
|
||||
delete IDe;
|
||||
delete IDs;
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
|
||||
void __fastcall TPropiedades::mHistorialChange(TObject *Sender)
|
||||
{
|
||||
/*
|
||||
try {
|
||||
if ( Historial -> Checked )
|
||||
mHistorial -> Lines -> SaveToFile("Historial.log");
|
||||
} catch(...) {
|
||||
// do nothing
|
||||
}
|
||||
*/
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
void __fastcall TPropiedades::ActivarAplicar(TObject *Sender)
|
||||
{
|
||||
if ( ! bDesBlock->Visible )
|
||||
{
|
||||
bAplicar->Enabled = true;
|
||||
}
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
|
||||
|
||||
|
||||
void __fastcall TPropiedades::bDesBlockClick(TObject *Sender)
|
||||
{
|
||||
// ComboBox2->Enabled = true;
|
||||
ComboBox1->Enabled = true;
|
||||
DireccionesE->Enabled = true;
|
||||
DireccionesS->Enabled = true;
|
||||
Capacidad->Enabled = true;
|
||||
MsgCapacidad->Enabled = true;
|
||||
DB_host->Enabled = true;
|
||||
DB_login->Enabled = true;
|
||||
DB_pwd->Enabled = true;
|
||||
|
||||
bDesBlock->Visible = false;
|
||||
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
|
||||
void __fastcall TPropiedades::bAplicarClick(TObject *Sender)
|
||||
{
|
||||
if ( Sender )
|
||||
{
|
||||
// Guardamos los cambios...
|
||||
TIniFile *ini;
|
||||
ini = new TIniFile( ExtractFileDir( Application->ExeName ) + "\\CAP.INI" );
|
||||
// General
|
||||
ini->WriteInteger( "CAP_c", "PuertoLego", ComboBox1->ItemIndex );
|
||||
ini->WriteString( "CAP_c", "IDsLegoE", DireccionesE->Text );
|
||||
ini->WriteString( "CAP_c", "IDsLegoS", DireccionesS->Text );
|
||||
ini->WriteBool( "CAP_c", "historial", Historial->Checked );
|
||||
|
||||
|
||||
try {
|
||||
ini->WriteInteger( "parking", "Capacidad", Capacidad->Text.ToInt() );
|
||||
} catch(...) {
|
||||
ini->WriteInteger( "parking", "Capacidad", 1000 );
|
||||
}
|
||||
ini->WriteString( "parking", "MsgParking_lleno", MsgCapacidad->Text );
|
||||
// ini->ReadInteger( "parking", "DiasDeCortesia", ComboBox2->ItemIndex );
|
||||
|
||||
ini->WriteString( "db", "host", DB_host->Text );
|
||||
ini->WriteString( "db", "login", DB_login->Text );
|
||||
ini->WriteString( "db", "pwd", DB_pwd->Text );
|
||||
|
||||
/* Sobrecarga de franjas horarias */
|
||||
/*
|
||||
ini->WriteBool( "horas", "sobrecargar", CheckBox1->Checked );
|
||||
|
||||
ini->WriteBool( "horas", "verL", verL->Checked );
|
||||
ini->WriteString( "horas", "desdeL", desdeL->Text );
|
||||
ini->WriteString( "horas", "hastaL", hastaL->Text );
|
||||
|
||||
ini->WriteBool( "horas", "verM", verM->Checked );
|
||||
ini->WriteString( "horas", "desdeM", desdeX->Text );
|
||||
ini->WriteString( "horas", "hastaM", hastaX->Text );
|
||||
|
||||
ini->WriteBool( "horas", "verX", verX->Checked );
|
||||
ini->WriteString( "horas", "desdeX", desdeX->Text );
|
||||
ini->WriteString( "horas", "hastaX", hastaX->Text );
|
||||
|
||||
ini->WriteBool( "horas", "verJ", verJ->Checked );
|
||||
ini->WriteString( "horas", "desdeJ", desdeJ->Text );
|
||||
ini->WriteString( "horas", "hastaJ", hastaJ->Text );
|
||||
|
||||
ini->WriteBool( "horas", "verV", verV->Checked );
|
||||
ini->WriteString( "horas", "desdeV", desdeV->Text );
|
||||
ini->WriteString( "horas", "hastaV", hastaV->Text );
|
||||
|
||||
ini->WriteBool( "horas", "verS", verS->Checked );
|
||||
ini->WriteString( "horas", "desdeS", desdeS->Text );
|
||||
ini->WriteString( "horas", "hastaS", hastaS->Text );
|
||||
|
||||
ini->WriteBool( "horas", "verD", verD->Checked );
|
||||
ini->WriteString( "horas", "desdeD", desdeD->Text );
|
||||
ini->WriteString( "horas", "hastaD", hastaD->Text );
|
||||
|
||||
*/
|
||||
|
||||
|
||||
|
||||
|
||||
if ( LEGO_COMM )
|
||||
{
|
||||
LEGO_COMM -> SetPuerto( ComboBox1->Items->Strings[ComboBox1->ItemIndex] );
|
||||
LEGO_COMM -> SetDB( DB_host->Text, DB_login->Text, DB_pwd->Text );
|
||||
LEGO_COMM -> SetDiasCortesia( 5);//ComboBox2->ItemIndex );
|
||||
try {
|
||||
LEGO_COMM -> maxDENTRO = Capacidad->Text.ToInt();
|
||||
}catch(...){
|
||||
LEGO_COMM -> maxDENTRO = 2000;
|
||||
}
|
||||
}
|
||||
|
||||
ini->UpdateFile();
|
||||
delete ini;
|
||||
}
|
||||
|
||||
// Hacemos efectivos los cambios...
|
||||
ObtenDirLEGOS( DireccionesE->Text, nLEGOSe, &IDe );
|
||||
ObtenDirLEGOS( DireccionesS->Text, nLEGOSs, &IDs );
|
||||
if ( LEGO_COMM )
|
||||
{
|
||||
LEGO_COMM -> SetLegoID( nLEGOSe, IDe, nLEGOSs, IDs );
|
||||
}
|
||||
|
||||
////////// HAY QUE FINALIZAR EL HILO Y COMENZAR CON OTRO NUEVO
|
||||
bDesBlock->Visible = true;
|
||||
// ComboBox2->Enabled = false;
|
||||
ComboBox1->Enabled = false;
|
||||
DireccionesE->Enabled = false;
|
||||
DireccionesS->Enabled = false;
|
||||
Capacidad->Enabled = false;
|
||||
MsgCapacidad->Enabled = false;
|
||||
DB_host->Enabled = false;
|
||||
DB_login->Enabled = false;
|
||||
DB_pwd->Enabled = false;
|
||||
bAplicar->Enabled = false;
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
void __fastcall TPropiedades::ObtenDirLEGOS(AnsiString cadena, int &nLEGOS, int **ID)
|
||||
{
|
||||
char *pDir, buff[80], *pbuff;
|
||||
nLEGOS = 0; int i = 1, j=0;
|
||||
|
||||
while ( i <= cadena.Length() )
|
||||
{
|
||||
if ( cadena[i] == ';' ) nLEGOS++;
|
||||
i++;
|
||||
}
|
||||
|
||||
(*ID) = new int[nLEGOS];
|
||||
i = 1; pbuff = buff;
|
||||
while ( i <= cadena.Length() )
|
||||
{
|
||||
if ( cadena[i] == ';' )
|
||||
{
|
||||
*pbuff = '\0';
|
||||
try {
|
||||
(*ID)[j++] = AnsiString( buff ).ToInt();
|
||||
} catch(...) {
|
||||
nLEGOS--;
|
||||
ShowMessage( "La configuraci<63>n de direcciones LEGO'S es incorrecta" );
|
||||
}
|
||||
pbuff = buff; i++;
|
||||
}else{
|
||||
*(pbuff++) = cadena[i];
|
||||
i++;
|
||||
}
|
||||
}
|
||||
}
|
||||
/*
|
||||
|
||||
//---------------------------------------------------------------------------
|
||||
bool __fastcall TPropiedades::entreHora(AnsiString hLo, AnsiString hHi)
|
||||
{
|
||||
bool dev = false;
|
||||
try {
|
||||
TDateTime hora;
|
||||
hora = EncodeTime( (hLo.SubString(1,2)).ToInt(), (hLo.SubString(4,2)).ToInt(), 0, 0 );
|
||||
if ( TDateTime::CurrentTime() >= hora )
|
||||
{
|
||||
hora = EncodeTime( (hHi.SubString(1,2)).ToInt(), (hHi.SubString(4,2)).ToInt(), 0, 0 );
|
||||
dev = ( TDateTime::CurrentTime() <= hora );
|
||||
}
|
||||
} catch (...) {
|
||||
return false;
|
||||
}
|
||||
return dev;
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
bool __fastcall TPropiedades::CheckHorario(void)
|
||||
{
|
||||
bool dev = false;
|
||||
if ( CheckBox1->Checked )
|
||||
{
|
||||
switch ( TDateTime::CurrentDate().DayOfWeek() )
|
||||
{
|
||||
// Domingo
|
||||
case 1:
|
||||
if ( verD->Checked )
|
||||
dev = entreHora( desdeD->Text, hastaD->Text );
|
||||
break;
|
||||
// Lunes
|
||||
case 2:
|
||||
if ( verL->Checked )
|
||||
dev = entreHora( desdeL->Text, hastaL->Text );
|
||||
break;
|
||||
// Martes
|
||||
case 3:
|
||||
if ( verM->Checked )
|
||||
dev = entreHora( desdeM->Text, hastaM->Text );
|
||||
break;
|
||||
// Miercoles
|
||||
case 4:
|
||||
if ( verX->Checked )
|
||||
dev = entreHora( desdeX->Text, hastaX->Text );
|
||||
break;
|
||||
// Jueves
|
||||
case 5:
|
||||
if ( verJ->Checked )
|
||||
dev = entreHora( desdeJ->Text, hastaJ->Text );
|
||||
break;
|
||||
// Viernes
|
||||
case 6:
|
||||
if ( verV->Checked )
|
||||
dev = entreHora( desdeV->Text, hastaV->Text );
|
||||
break;
|
||||
// Sabado
|
||||
case 7:
|
||||
if ( verS->Checked )
|
||||
dev = entreHora( desdeS->Text, hastaS->Text );
|
||||
break;
|
||||
}
|
||||
}
|
||||
|
||||
return dev;
|
||||
}
|
||||
|
||||
void __fastcall TPropiedades::Timer1Timer(TObject *Sender)
|
||||
{
|
||||
static bool horaVista = false, firstTime = true, cH;
|
||||
bool nH;
|
||||
|
||||
nH = CheckHorario();
|
||||
|
||||
if ( firstTime ) { horaVista=false; firstTime = false; cH = nH; }
|
||||
|
||||
if ( cH != nH ) { horaVista = false; cH = nH; }
|
||||
|
||||
if ( !horaVista && cH ) // Si no hemos visto este cambio
|
||||
{
|
||||
horaVista = true;
|
||||
sndPlaySound("snd\\fuera_de_hora.wav", SND_ASYNC | SND_FILENAME);
|
||||
LEGO_COMM -> RetiraPermisoSalida();
|
||||
}
|
||||
}
|
||||
*/
|
||||
//---------------------------------------------------------------------------
|
||||
|
||||
void __fastcall TPropiedades::Label1DblClick(TObject *Sender)
|
||||
{
|
||||
AnsiString cantidad;
|
||||
// Cambio del aforo
|
||||
if ( InputQuery( "Forzar lleno de aforo", "Nuevo aforo:" , cantidad ) )
|
||||
{
|
||||
try {
|
||||
Ocupacion->Value = cantidad.ToInt();
|
||||
LEGO_COMM -> crdDENTRO = Ocupacion->Value;
|
||||
} catch(...){
|
||||
//nothing
|
||||
}
|
||||
}
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
|
||||
Reference in New Issue
Block a user