Changeset 10 for trunk/Forms

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/UFormEdit.lfm (modified) (1 diff)
• Forms/UFormEdit.pas (modified) (6 diffs)
• Forms/UFormMain.lfm (modified) (3 diffs)
• Forms/UFormMain.pas (modified) (4 diffs)

trunk

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

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

trunk/Forms/UFormEdit.lfm

@@ -39 +39 @@
   object PanelControls: TPanel
     Left = 4
-    Height = 285
+    Height = 473
     Top = 4
     Width = 530

trunk/Forms/UFormEdit.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  Buttons, ExtCtrls, Spin, SpecializedList, SpecializedDictionary, UDataView,
-  USqlDatabase;
+  Buttons, ExtCtrls, Spin, ComCtrls, EditBtn, SpecializedList,
+  SpecializedDictionary, UDataView, USqlDatabase;
 
 type
-  TControlType = (ctLabel, ctCheckBox, ctEdit, ctMemo, ctDate, ctTime,
+  TControlType = (ctLabel, ctCheckBox, ctEdit, ctMemo, ctDate, ctTime, ctDateTime,
     ctComboBox, ctSpinEdit, ctReference);
 
@@ -21 +21 @@
     ControlType: TControlType;
     TitlePlacement: TAlign;
+    ReferencedTable: string;
   end;
 
@@ -50 +51 @@
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
+    procedure SpeedButton1Click(Sender: TObject);
   private
     FView: TDataViewForm;
@@ -68 +70 @@
 
 uses
-  UCore;
+  UCore, UFormMain;
 
 { TDataViewForm }
@@ -112 +114 @@
   Values.Free;
   RuntimeControls.Free;
+end;
+
+procedure TFormEdit.SpeedButton1Click(Sender: TObject);
+begin
+
 end;
 
@@ -233 +240 @@
        (Rect.Right - Rect.Left) * W, (Rect.Bottom - Rect.Top) * H);
       NewControl.Show;
+    end else
+    if ControlType = ctDate then begin
+      NewControl := TDateEdit.Create(Self);
+      NewControl.Parent := PanelControls;
+      TDateEdit(NewControl).Date := MySQLStrToFloat(Values.Values[Name]);
+      NewControl.SetBounds(Rect.Left * W, Rect.Top * H,
+       (Rect.Right - Rect.Left) * W - 28, (Rect.Bottom - Rect.Top) * H);
+      NewControl.Show;
+    end else
+    if ControlType = ctTime then begin
+      NewControl := TEdit.Create(Self);
+      NewControl.Parent := PanelControls;
+      TEdit(NewControl).Text := TimeToStr(MySQLStrToFloat(Values.Values[Name]));
+      NewControl.SetBounds(Rect.Left * W, Rect.Top * H,
+       (Rect.Right - Rect.Left) * W, (Rect.Bottom - Rect.Top) * H);
+      NewControl.Show;
+    end else
+    if ControlType = ctReference then begin
+      NewControl := TEdit.Create(Self);
+      NewControl.Parent := PanelControls;
+      TEdit(NewControl).Text := Values.Values[Name];
+      NewControl.SetBounds(Rect.Left * W, Rect.Top * H,
+       (Rect.Right - Rect.Left) * W - 28, (Rect.Bottom - Rect.Top) * H);
+      NewControl.Show;
+      NewControl := TBitBtn.Create(Self);
+      NewControl.Parent := PanelControls;
+      TBitBtn(NewControl).Caption := '';
+      NewControl.SetBounds(Rect.Right * W - 28, Rect.Top * H, 24, 24);
+      FormMain.ImageList1.GetBitmap(4, TBitBtn(NewControl).Glyph);
+      NewControl.Show;
     end;
   end;

trunk/Forms/UFormMain.lfm

@@ -5 +5 @@
   Width = 733
   Caption = 'Attendance'
-  ClientHeight = 436
+  ClientHeight = 430
   ClientWidth = 733
   Menu = MainMenu1
@@ -16 +16 @@
   object StatusBar1: TStatusBar
     Left = 0
-    Height = 20
-    Top = 416
+    Height = 21
+    Top = 409
     Width = 733
     Panels = <>
@@ -39 +39 @@
   object PageControl1: TPageControl
     Left = 0
-    Height = 390
+    Height = 383
     Top = 26
     Width = 733

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