Changeset 16 for trunk/Forms/UFormEdit.pas

Timestamp:

Nov 15, 2012, 2:01:43 PM (12 years ago)

Author:

chronos

Message:

• Přidáno: Vkládání, úprava a mazání položek jsou nyní funkční.

File:

• trunk/Forms/UFormEdit.pas (modified) (14 diffs)

trunk/Forms/UFormEdit.pas

@@ -8 +8 @@
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
   Buttons, ExtCtrls, Spin, ComCtrls, EditBtn, SpecializedList,
-  SpecializedDictionary, UDataView, USqlDatabase;
+  SpecializedDictionary, UDataView, USqlDatabase, UTimeEdit;
 
 type
@@ -19 +19 @@
     Visible: Boolean;
     Rect: TRect;
+    Control: TControl; // Used by TFormEdit
     ControlType: TControlType;
     TitlePlacement: TAlign;
@@ -48 +49 @@
     ButtonOk: TButton;
     ButtonCancel: TButton;
-    CalcEdit1: TCalcEdit;
     PanelControls: TPanel;
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
-    procedure SpeedButton1Click(Sender: TObject);
   private
     FView: TDataViewForm;
     procedure SetView(AValue: TDataViewForm);
-    { private declarations }
+    procedure RebuildControls;
   public
-    RuntimeControls: TListObject;
     Values: TDictionaryStringString;
     ItemId: Integer;
     property View: TDataViewForm read FView write SetView;
-    procedure UpdateData;
+    procedure ClearData;
+    procedure LoadFromDatabase;
+    procedure SaveToDatabase;
+    procedure LoadFromControls;
   end;
 
@@ -72 +73 @@
 uses
   UCore, UFormMain;
+
+resourcestring
+  SItemNotFound = 'Item not found';
 
 { TDataViewForm }
@@ -108 +112 @@
 begin
   Values := TDictionaryStringString.Create;
-  RuntimeControls := TListObject.Create;
 end;
 
 procedure TFormEdit.FormDestroy(Sender: TObject);
 begin
-  Values.Free;
-  RuntimeControls.Free;
-end;
-
-procedure TFormEdit.SpeedButton1Click(Sender: TObject);
-begin
-
+  FreeAndNil(Values);
 end;
 
@@ -126 +123 @@
   if FView=AValue then Exit;
   FView := AValue;
-  if Assigned(AValue) then UpdateData
+  if Assigned(AValue) then ClearData
     else begin
       Values.Clear;
-      RuntimeControls.Clear;
-    end;
-end;
-
-procedure TFormEdit.UpdateData;
+    end;
+end;
+
+procedure TFormEdit.RebuildControls;
 var
   NewControl: TControl;
   I: Integer;
   TitleRect: TRect;
-  DbRows: TDbRows;
   W: Integer;
   H: Integer;
@@ -144 +139 @@
   W := 130;
   H := 24;
-  try
-    DbRows := TDbRows.Create;
-    Core.Database.Query(DbRows, 'SELECT * FROM ' + View.Name + ' WHERE Id=' +
-      IntToStr(ItemId));
-    if DbRows.Count > 0 then Values.Assign(DbRows[0])
-      else begin
-        Values.Free;
-        Exit;
-      end;
-  finally
-    DbRows.Free;
-  end;
-
-  RuntimeControls.Clear;
   for I := 0 to View.Items.Count - 1 do
   with TFormItem(View.Items[I]) do begin
@@ -200 +181 @@
         (Rect.Right - Rect.Left) * W, (Rect.Bottom - Rect.Top) * H);
       NewControl.Show;
+      Control := NewControl;
     end else
     if ControlType = ctEdit then begin
@@ -209 +191 @@
        (Rect.Right - Rect.Left) * W, (Rect.Bottom - Rect.Top) * H);
       NewControl.Show;
+      Control := NewControl;
     end else
     if ControlType = ctMemo then begin
@@ -217 +200 @@
        (Rect.Right - Rect.Left) * W, (Rect.Bottom - Rect.Top) * H);
       NewControl.Show;
+      Control := NewControl;
     end else
     if ControlType = ctCheckBox then begin
       NewControl := TCheckBox.Create(Self);
       NewControl.Parent := PanelControls;
-      TCheckBox(NewControl).Enabled :=  Values.Values[Name] = '1';
-      NewControl.SetBounds(Rect.Left * W, Rect.Top * H,
-       (Rect.Right - Rect.Left) * W, (Rect.Bottom - Rect.Top) * H);
-      NewControl.Show;
+      TCheckBox(NewControl).Checked := Values.Values[Name] = '1';
+      NewControl.SetBounds(Rect.Left * W, Rect.Top * H,
+       (Rect.Right - Rect.Left) * W, (Rect.Bottom - Rect.Top) * H);
+      NewControl.Show;
+      Control := NewControl;
     end else
     if ControlType = ctComboBox then begin
@@ -233 +218 @@
        (Rect.Right - Rect.Left) * W, (Rect.Bottom - Rect.Top) * H);
       NewControl.Show;
+      Control := NewControl;
     end else
     if ControlType = ctSpinEdit then begin
@@ -241 +227 @@
        (Rect.Right - Rect.Left) * W, (Rect.Bottom - Rect.Top) * H);
       NewControl.Show;
+      Control := NewControl;
     end else
     if ControlType = ctDate then begin
@@ -249 +236 @@
        (Rect.Right - Rect.Left) * W - TEditButton(NewControl).Button.Width, (Rect.Bottom - Rect.Top) * H);
       NewControl.Show;
+      Control := NewControl;
     end else
     if ControlType = ctTime then begin
-      NewControl := TEdit.Create(Self);
-      NewControl.Parent := PanelControls;
-      TEdit(NewControl).Text := TimeToStr(SQLToTime(Values.Values[Name]));
-      NewControl.SetBounds(Rect.Left * W, Rect.Top * H,
-       (Rect.Right - Rect.Left) * W, (Rect.Bottom - Rect.Top) * H);
-      NewControl.Show;
+      NewControl := TTimeEdit.Create(Self);
+      NewControl.Parent := PanelControls;
+      TTimeEdit(NewControl).Time := SQLToTime(Values.Values[Name]);
+      NewControl.SetBounds(Rect.Left * W, Rect.Top * H,
+       (Rect.Right - Rect.Left) * W, (Rect.Bottom - Rect.Top) * H);
+      NewControl.Show;
+      Control := NewControl;
     end else
     if ControlType = ctReference then begin
@@ -267 +256 @@
        (Rect.Bottom - Rect.Top) * H);
       NewControl.Show;
+      Control := NewControl;
+    end;
+  end;
+end;
+
+procedure TFormEdit.ClearData;
+var
+  I: Integer;
+begin
+  Values.Clear;
+  for I := 0 to View.Items.Count - 1 do
+  with TFormItem(View.Items[I]) do begin
+    case ControlType of
+      ctSpinEdit, ctDate, ctTime, ctDateTime, ctReference: Values.Add(Name, '0');
+      else Values.Add(Name, '');
+    end;
+  end;
+  RebuildControls;
+end;
+
+procedure TFormEdit.LoadFromDatabase;
+var
+  DbRows: TDbRows;
+  Columns: string;
+  I: Integer;
+begin
+  Columns := '';
+  for I := 0 to View.Items.Count - 1 do
+  with TFormItem(View.Items[I]) do
+  if Visible then
+    Columns := Columns + ', ' + Name;
+  Delete(Columns, 1, 2);
+  try
+    DbRows := TDbRows.Create;
+    Core.Database.Query(DbRows, 'SELECT ' + Columns + ' FROM `' + View.Name + '` WHERE `Id`=' +
+      IntToStr(ItemId));
+    if DbRows.Count > 0 then Values.Assign(DbRows[0])
+      else raise Exception.Create(SItemNotFound);
+  finally
+    DbRows.Free;
+  end;
+  RebuildControls;
+end;
+
+procedure TFormEdit.SaveToDatabase;
+var
+  DbRows: TDbRows;
+begin
+  LoadFromControls;
+  try
+    DbRows := TDbRows.Create;
+    if ItemId < 1 then Core.Database.Insert(View.Name, Values)
+      else Core.Database.Update(View.Name, Values, '`Id`=' + IntToStr(ItemId));
+  finally
+    DbRows.Free;
+  end;
+end;
+
+procedure TFormEdit.LoadFromControls;
+var
+  I: Integer;
+begin
+  for I := 0 to View.Items.Count - 1 do
+  with TFormItem(View.Items[I]) do begin
+    if ControlType = ctLabel then begin
+      Values.Values[Name] := TLabel(Control).Caption;
+    end else
+    if ControlType = ctEdit then begin
+      Values.Values[Name] := TEdit(Control).Text;
+    end else
+    if ControlType = ctMemo then begin
+      Values.Values[Name] := TMemo(Control).Lines.Text;
+    end else
+    if ControlType = ctCheckBox then begin
+      Values.Values[Name] := BoolToStr(TCheckBox(Control).Checked);
+    end else
+    if ControlType = ctComboBox then begin
+      Values.Values[Name] := TComboBox(Control).Text;
+    end else
+    if ControlType = ctSpinEdit then begin
+      Values.Values[Name] := IntToStr(TSpinEdit(Control).Value);
+    end else
+    if ControlType = ctDate then begin
+      Values.Values[Name] := DateToSQL(TDateEdit(Control).Date);
+    end else
+    if ControlType = ctTime then begin
+      Values.Values[Name] := TimeToSQL(TTimeEdit(Control).Time);
+    end else
+    if ControlType = ctReference then begin
+      Values.Values[Name] := TEditButton(Control).Text;
     end;
   end;