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

66
Builder/barmatic/articulos.cpp Normal file
View File

@ -0,0 +1,66 @@
//---------------------------------------------------------------------------
#include <vcl\vcl.h>
#pragma hdrstop
#include "articulos.h"
//---------------------------------------------------------------------------
#pragma resource "*.dfm"
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button6Click(TObject *Sender)
{
Panel3->Caption = "Busca Art<72>culo";
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button1Click(TObject *Sender)
{
Panel3->Caption = "Crea Art<72>culo";
Table1->Edit();
Table1->Insert();
DBEdit1->SetFocus();
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button2Click(TObject *Sender)
{
Panel3->Caption = "Modifica Art<72>culo";
Table1->Edit();
Table1->Post();
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button3Click(TObject *Sender)
{
Panel3->Caption = "Borra Art<72>culo";
Table1->Edit();
Table1->Delete();
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button4Click(TObject *Sender)
{
int registro;
Panel3->Caption = "Siguiente Art<72>culo";
Table1->Next();
registro = Table1->RecNo;
Label3->Caption = registro;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button5Click(TObject *Sender)
{
int registro;
Panel3->Caption = "Anterior Art<72>culo";
Table1->Prior();
registro = Table1->RecNo;
Label3->Caption = registro;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::FormActivate(TObject *Sender)
{
int registro;
registro = Table1->RecNo;
Label3->Caption = registro;
}
//---------------------------------------------------------------------------