C/OSCAR
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

First commit 16/08/1996

Browse Source
This commit is contained in:
José David Guillén
2021-09-12 19:50:38 +02:00
commit 0f24b3477e
129 changed files with 10926 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

41
Builder/agenda/bdiario.cpp Normal file
View File

@ -0,0 +1,41 @@
//---------------------------------------------------------------------------
#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");
}
//---------------------------------------------------------------------------