83 lines
2.1 KiB
C++
83 lines
2.1 KiB
C++
//---------------------------------------------------------------------------
|
|
#include <vcl\vcl.h>
|
|
#pragma hdrstop
|
|
|
|
#include "busqueda.h"
|
|
#include "diario.h"
|
|
#include "recuerda.h"
|
|
#include "telefonos.h"
|
|
//---------------------------------------------------------------------------
|
|
#pragma link "Grids"
|
|
#pragma resource "*.dfm"
|
|
int direccion;
|
|
TForm4 *Form4;
|
|
//---------------------------------------------------------------------------
|
|
__fastcall TForm4::TForm4(TComponent* Owner)
|
|
: TForm(Owner)
|
|
{
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall TForm4::ComboBox1Change(TObject *Sender)
|
|
{
|
|
Edit1->SetFocus();
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall TForm4::Edit1KeyPress(TObject *Sender, char &Key)
|
|
{
|
|
TLocateOptions SearchOptions;
|
|
SearchOptions << loPartialKey;
|
|
switch(busca)
|
|
{
|
|
case 0:
|
|
if(Key=='\r')
|
|
Table1->Locate("Fecha", Edit1->Text, SearchOptions);
|
|
break;
|
|
|
|
case 1:
|
|
if (ComboBox1->Text == "Nombre")
|
|
Table1->Locate("Nombre", Edit1->Text, SearchOptions);
|
|
else
|
|
Table1->Locate("Apodo", Edit1->Text, SearchOptions);
|
|
break;
|
|
|
|
case 2:
|
|
if(Key=='\r')
|
|
Table1->Locate("Fecha", Edit1->Text, SearchOptions);
|
|
break;
|
|
|
|
}
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall TForm4::FormActivate(TObject *Sender)
|
|
{
|
|
ComboBox1->Clear();
|
|
Edit1->Clear();
|
|
|
|
switch(busca)
|
|
{
|
|
|
|
case 0:
|
|
ComboBox1->Text="Fecha";
|
|
ComboBox1->Items->Add("Fecha");
|
|
break;
|
|
|
|
case 1:
|
|
ComboBox1->Text="Nombre";
|
|
ComboBox1->Items->Add("Apodo");
|
|
ComboBox1->Items->Add("Nombre");
|
|
break;
|
|
|
|
case 2:
|
|
ComboBox1->Text="Fecha";
|
|
ComboBox1->Items->Add("Fecha");
|
|
break;
|
|
|
|
}
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall TForm4::FormClose(TObject *Sender, TCloseAction &Action)
|
|
{
|
|
direccion = (Table1->RecNo) -1;
|
|
}
|
|
//---------------------------------------------------------------------------
|