First commit 14/02/1999

TpvAccessControl.cpp

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