First commit 14/02/1999

TpvSelectActiveUser.h

@@ -0,0 +1,43 @@
+//---------------------------------------------------------------------------
+
+#ifndef TpvSelectActiveUserH
+#define TpvSelectActiveUserH
+//---------------------------------------------------------------------------
+#include <Classes.hpp>
+#include <Controls.hpp>
+#include <StdCtrls.hpp>
+#include <Forms.hpp>
+#include <ExtCtrls.hpp>
+#include <Graphics.hpp>
+#include <jpeg.hpp>
+#include <Db.hpp>
+#include <DBTables.hpp>
+//---------------------------------------------------------------------------
+class TChangeUserName : public TForm
+{
+__published:	// IDE-managed Components
+        TLabel *Label1;
+        TImage *Image2;
+        TLabel *Label2;
+        TImage *Image3;
+        TBevel *Bevel1;
+        TLabel *Label3;
+        TBevel *Bevel2;
+        TEdit *Edit1;
+        TLabel *Label4;
+        TEdit *Edit2;
+        TTable *TbAccess;
+        void __fastcall Edit2KeyUp(TObject *Sender, WORD &Key,
+          TShiftState Shift);
+        void __fastcall Edit1KeyUp(TObject *Sender, WORD &Key,
+          TShiftState Shift);
+private:	// User declarations
+
+public:		// User declarations
+    bool TablaDeAcceso[10][10];
+    __fastcall TChangeUserName(TComponent* Owner);
+};
+//---------------------------------------------------------------------------
+extern PACKAGE TChangeUserName *ChangeUserName;
+//---------------------------------------------------------------------------
+#endif