Changeset 24 for trunk/Modules/Attendance/UFormVirtualTerminal.pas

Timestamp:

Nov 19, 2012, 12:31:19 PM (12 years ago)

Author:

chronos

Message:

• Opraveno: Ladění komunikačního protokolu s terminálem BF-630.

File:

• trunk/Modules/Attendance/UFormVirtualTerminal.pas (modified) (3 diffs)

trunk/Modules/Attendance/UFormVirtualTerminal.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs;
+  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Spin,
+  StdCtrls, ExtCtrls;
 
 type
@@ -12 +13 @@
   end;
 
+  { TFormVirtualAccessControler }
+
   TFormVirtualAccessControler = class(TForm)
+    ButtonPress: TButton;
+    Label1: TLabel;
+    Label2: TLabel;
+    Label3: TLabel;
+    LabelTime: TLabel;
+    SpinEditUser: TSpinEdit;
+    SpinEditKey: TSpinEdit;
+    Timer1: TTimer;
+    procedure Timer1Timer(Sender: TObject);
   private
     { private declarations }
@@ -26 +38 @@
 {$R *.lfm}
 
+{ TFormVirtualAccessControler }
+
+procedure TFormVirtualAccessControler.Timer1Timer(Sender: TObject);
+begin
+  LabelTime.Caption := DateTimeToStr(Now);
+end;
+
 end.