38 lines
1.2 KiB
C++
38 lines
1.2 KiB
C++
//---------------------------------------------------------------------------
|
|
|
|
#include <vcl.h>
|
|
#pragma hdrstop
|
|
|
|
#include "TpvAccessControl.h"
|
|
//---------------------------------------------------------------------------
|
|
#pragma package(smart_init)
|
|
#pragma link "ElastFrm"
|
|
#pragma resource "*.dfm"
|
|
TAccessControl *AccessControl;
|
|
//---------------------------------------------------------------------------
|
|
__fastcall TAccessControl::TAccessControl(TComponent* Owner)
|
|
: TForm(Owner)
|
|
{
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall TAccessControl::MakePost(TObject *Sender)
|
|
{
|
|
/*
|
|
if ( TbAcceso -> State == dsInsert || TbAcceso -> State == dsEdit )
|
|
TbAcceso -> Post();
|
|
*/
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall TAccessControl::SpeedButton1Click(TObject *Sender)
|
|
{
|
|
Close();
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall TAccessControl::DBEdit1KeyUp(TObject *Sender, WORD &Key,
|
|
TShiftState Shift)
|
|
{
|
|
// if ( Key == VK_RETURN ) TbAcceso->Post();
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|