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

85
Builder/agenda/Recuerda.cpp Normal file
View File

@ -0,0 +1,85 @@
//---------------------------------------------------------------------------
#include <vcl\vcl.h>
#pragma hdrstop
#include "busqueda.h"
#include "Recuerda.h"
//---------------------------------------------------------------------------
#pragma resource "*.dfm"
TForm3 *Form3;
//---------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button1Click(TObject *Sender)
{
Table1->Post();
Table1->Insert();
DBEdit1->SetFocus();
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button5Click(TObject *Sender)
{
Table1->Prior();
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button2Click(TObject *Sender)
{
Table1->Edit();
Table1->Delete();
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button4Click(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm3::FormKeyPress(TObject *Sender, char &Key)
{
if (Key=='\r')
Table1->Next();
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button3Click(TObject *Sender)
{
TForm4 *Busqueda;
Busqueda = new TForm4(this);
busca = 2;
Busqueda->Table1->TableName = "recordatorio.db";
Busqueda->Table1->Active=true;
Busqueda->ShowModal();
delete Busqueda;
Table1->First();
Table1->MoveBy(direccion);
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button6Click(TObject *Sender)
{
Table1->Next();
}
//---------------------------------------------------------------------------
void __fastcall TForm3::FormClose(TObject *Sender, TCloseAction &Action)
{
if(Table1->State == dsInsert && Table1->Modified == true)
{
switch(MessageBox(Handle,"No guard<72> los datos <20>Desea Guardarlos?", "Atenci<EFBFBD>n" ,MB_YESNOCANCEL))
{
case 6:
Table1->Post();
break;
default:
Table1->Cancel();
break;
}
}
}
//---------------------------------------------------------------------------
void __fastcall TForm3::FormCreate(TObject *Sender)
{
Table1->Insert();
}
//---------------------------------------------------------------------------