42 lines
1.3 KiB
C++
42 lines
1.3 KiB
C++
//---------------------------------------------------------------------------
|
|
#include <vcl\vcl.h>
|
|
#pragma hdrstop
|
|
|
|
#include "agenda.h"
|
|
#include "bdiario.h"
|
|
#include "diario.h"
|
|
//---------------------------------------------------------------------------
|
|
#pragma resource "*.dfm"
|
|
TForm7 *Form7;
|
|
//---------------------------------------------------------------------------
|
|
__fastcall TForm7::TForm7(TComponent* Owner)
|
|
: TForm(Owner)
|
|
{
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall TForm7::FormKeyPress(TObject *Sender, char &Key)
|
|
{
|
|
if (dia==2 && Key=='+')
|
|
Table1->Next();
|
|
if (dia==2 && Key=='-')
|
|
Table1->Prior();
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall TForm7::FormActivate(TObject *Sender)
|
|
{
|
|
if (dia==2)
|
|
{
|
|
Table1->First();
|
|
}
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall TForm7::Edit1KeyPress(TObject *Sender, char &Key)
|
|
{
|
|
TLocateOptions SearchOptions;
|
|
SearchOptions << loPartialKey;
|
|
if(Key=='\r')
|
|
if(Table1->Locate("Fecha", Edit1->Text, SearchOptions)==false)
|
|
ShowMessage("Fecha no encontrada");
|
|
}
|
|
//---------------------------------------------------------------------------
|