Changeset 10 for trunk/Forms/UFormMain.pas

Timestamp:

Nov 14, 2012, 10:12:02 PM (12 years ago)

Author:

chronos

Message:

• Přidáno: Zobrazení ovládacího prvku pro určování odkazů do jiných tabulek.

Location:

trunk

Files:

• . (modified) (1 prop)
• Forms/UFormMain.pas (modified) (4 diffs)

trunk

@@ -4 +4 @@
 heaptrclog.trc
 lib
+Dochazka

@@ -4 +4 @@
 heaptrclog.trc
 lib
+Dochazka

trunk/Forms/UFormMain.pas

@@ -67 +67 @@
   STerminal = 'Terminal';
   SUser = 'User';
+  SDate = 'Date';
   STime = 'Time';
   SOperation = 'Operation';
@@ -191 +192 @@
     with Items do begin
       AddItem(STime, 'Time', ctDate, True, Bounds(0, 0, 1, 1));
-      AddItem(SUser, 'User', ctReference, True, Bounds(3, 0, 1, 1));
-      AddItem(SOperation, 'Operation', ctReference, True, Bounds(0, 1, 1, 1));
-      AddItem(STerminal, 'Terminal', ctReference, True, Bounds(3, 1, 1, 1));
+      with AddItem(SUser, 'User', ctReference, True, Bounds(3, 0, 1, 1)) do
+        ReferencedTable := 'User';
+      with AddItem(SOperation, 'Operation', ctReference, True, Bounds(0, 1, 1, 1)) do
+        ReferencedTable := 'User';
+      with AddItem(STerminal, 'Terminal', ctReference, True, Bounds(3, 1, 1, 1)) do
+        ReferencedTable := 'User';
     end;
     Name := 'Passage';
@@ -204 +208 @@
   with NewDataView do begin
     with Columns do begin
+      AddItem(SDate, 'Date', True, 80);
       AddItem(SUser, 'User', True, 80);
       AddItem(STimeFrom, 'TimeFrom', True, 120);
@@ -213 +218 @@
   end;
   DataViewLists.Add(NewDataView);
+  NewDataView2 := TDataViewForm.Create;
+  with NewDataView2 do begin
+    with Items do begin
+      AddItem(SUser, 'User', ctReference, True, Bounds(1, 0, 1, 1));
+      AddItem(SDate, 'Date', ctDate, True, Bounds(3, 0, 1, 1));
+      AddItem(STimeFrom, 'TimeFrom', ctTime, True, Bounds(1, 1, 1, 1));
+      AddItem(STimeTo, 'TimeTo', ctTime, True, Bounds(3, 1, 1, 1));
+    end;
+    Name := 'Attendance';
+    Caption := SAttendance;
+    ImageIndex := 14;
+  end;
+  DataViewForms.Add(NewDataView2);
 
   NewDataView := TDataViewList.Create;

@@ -4 +4 @@
 heaptrclog.trc
 lib
+Dochazka