//---------------------------------------------------------------------------
#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");
}
//---------------------------------------------------------------------------