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

First commit 11/07/1998

Browse Source
This commit is contained in:
José David Guillén
2021-09-12 21:56:32 +02:00
commit 4f7d0612d4
29 changed files with 612 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

212
BCrack.cpp Normal file
View File

@ -0,0 +1,212 @@
//---------------------------------------------------------------------------
#include <stdlib.h>
#include <stdio.h>
#include <vcl\vcl.h>
#pragma hdrstop
#include <io.h>
#include "BCrack.h"
#include "AcercaDe.h"
#include "Busc1.h"
//---------------------------------------------------------------------------
#pragma link "TB97"
#pragma link "Grids"
#pragma link "CoolForm"
#pragma link "ActivApp"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ToolbarButton972Click(TObject *Sender)
{
try {
Table1 -> Prior();
} catch(...){
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ToolbarButton974Click(TObject *Sender)
{
try {
Table1 -> Next();
} catch(...){
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ToolbarButton971Click(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ToolbarButton977Click(TObject *Sender)
{
AboutBox -> ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Table1BeforeOpen(TDataSet *DataSet)
{
if ( (access(Table1 -> TableName.c_str(), 0) != 0) )//! ( Table1 -> CheckOpen(0) ) )
{
// Facilitamos el nombre de la nueva tabla y su tipo
Table1 -> TableType = ttParadox;
// Usamos la propiedad FielDefs para definir
// las columnas que contendr<64> la tabla
Table1 -> FieldDefs -> Clear();
Table1 -> FieldDefs -> Add("indexed", ftAutoInc, 0, false );
Table1 -> FieldDefs -> Add("tCrack", ftString, 10, false );
Table1 -> FieldDefs -> Add("nCrack", ftString, 50, false );
Table1 -> FieldDefs -> Add("Nombre", ftString, 50, false );
Table1 -> FieldDefs -> Add("Fecha", ftDate, 0, false );
Table1 -> FieldDefs -> Add("tProg", ftString, 15, false );
Table1 -> IndexDefs-> Clear();
TIndexOptions Prim, MyIndexOptions;
Prim << ixPrimary << ixUnique;
MyIndexOptions << ixCaseInsensitive;
Table1->IndexDefs->Add("primary", "indexed", Prim);
Table1->IndexDefs->Add("itCrack", "tCrack", MyIndexOptions);
Table1->IndexDefs->Add("inCrack", "nCrack", MyIndexOptions);
Table1->IndexDefs->Add("iNombre", "Nombre", MyIndexOptions);
Table1->IndexDefs->Add("iFecha", "Fecha", MyIndexOptions);
Table1->IndexDefs->Add("itProg", "tProg", MyIndexOptions);
// Creamos la base...
Table1 -> CreateTable();
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Table1 -> TableName = "BCrack.db";
TBuscar -> TableName = "BCrack.db";
Table1 -> Active = true;
TBuscar-> Active = true;
/*
TDlgBuscProd *DlgBuscProd;
DlgBuscProd = new TDlgBuscProd(this);
*/
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ToolbarButton978Click(TObject *Sender)
{
DlgBuscProd -> ShowModal();
if ( DlgBuscProd -> ModalResult == mrOk )
{
BusqSig -> Enabled = true;
BusqAnt -> Enabled = true;
Table1 -> GotoCurrent(TBuscar);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BusqSigClick(TObject *Sender)
{
if ( TBuscar -> FindNext() == true )
{
Table1 -> GotoCurrent(TBuscar);
BusqAnt -> Enabled = true;
} else {
BusqSig -> Enabled = false;
MessageBox( 0, "Coincidencia no hayada", "<EFBFBD> Buscar Siguiente !", MB_OK );
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BusqAntClick(TObject *Sender)
{
if ( TBuscar -> FindPrior() == true )
{
Table1 -> GotoCurrent(TBuscar);
BusqSig -> Enabled = true;
} else {
BusqAnt -> Enabled = false;
MessageBox( 0, "Coincidencia no hayada", "<EFBFBD> Buscar Anterior !", MB_OK );
}
}
void __fastcall TForm1::Table1NewRecord(TDataSet *DataSet)
{
Table1 -> FieldByName( "Fecha" ) -> AsDateTime = TDateTime::CurrentDate();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::DataSource1DataChange(TObject *Sender, TField *Field)
{
char BarraEstado[80];
// Indicador de FichaActual / Num.Fichas
if ( Table1 -> RecNo > 0 && Table1 -> RecordCount > 0 )
{
sprintf( BarraEstado, "%d / %d", Table1 -> RecNo, Table1 -> RecordCount );
} else {
sprintf( BarraEstado, "<EFBFBD>Nuevo? / %d", Table1 -> RecordCount );
}
StatusBar1->Panels->Items[1]->Text = BarraEstado;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ToolbarButton976Click(TObject *Sender)
{
bool Success;
// Run crack...
ActivApp1 -> ExePath = "start ..\\Cracks\\" + Table1 -> FieldByName("nCrack") -> AsString;
ActivApp1 -> ExecuteApp( &Success );
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
/*
delete DlgBuscProd;
*/
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit1Change(TObject *Sender)
{
AnsiString BuscarCota;
BuscarCota = Edit1->Text + "Z";
TBuscar->FilterOptions = Form1 -> TBuscar->FilterOptions << foCaseInsensitive;
TBuscar->Filtered = true;
TBuscar->Filter = "([Nombre] >= '" + Edit1->Text + "') AND [Nombre] < '" + BuscarCota + "'";
try {
Table1 -> GotoCurrent(TBuscar);
} catch(...)
{
//do nothing
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::DBGrid1Enter(TObject *Sender)
{
DBGrid1 -> Options = DBGrid1 -> Options >> dgRowSelect >> dgAlwaysShowSelection << dgEditing;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::DBGrid1Exit(TObject *Sender)
{
DBGrid1 -> Options = DBGrid1 -> Options << dgAlwaysShowSelection << dgRowSelect;
}
//---------------------------------------------------------------------------