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

45
Builder/barmatic/claves.cpp Normal file
View File

@ -0,0 +1,45 @@
//---------------------------------------------------------------------------
#include <vcl\vcl.h>
#pragma hdrstop
#include "barmati.h"
#include "claves.h"
//---------------------------------------------------------------------------
#pragma resource "*.dfm"
TForm4 *Form4;
//---------------------------------------------------------------------------
__fastcall TForm4::TForm4(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm4::Edit1KeyPress(TObject *Sender, char &Key)
{
if (Key=='\r' && Edit1->Text == clave)
{
ShowMessage("Clave correcta");
if (acceso==2)
{
Label2->Visible=true;
Edit2->Visible=true;
Edit2->SetFocus();
}
else
Form4->Visible=false;
}
else if (Key=='\r')
ShowMessage("Clave incorrecta");
}
//---------------------------------------------------------------------------
void __fastcall TForm4::Edit2KeyPress(TObject *Sender, char &Key)
{
if (Key=='\r')
{
clave = Edit2->Text;
Edit2->Clear();
Label2->Visible=false;
Edit2->Visible=false;
Form4->Visible=false;
}
}
//---------------------------------------------------------------------------