Changeset 15 for trunk/Forms/UItemEdit.pas

Timestamp:

Jun 13, 2011, 8:25:31 AM (13 years ago)

Author:

george

Message:

• Modified: USqlDatabase used from CoolWeb package.
• Added: Store item data to database for Add and Edit dialog.

Location:

trunk

Files:

• . (modified) (1 prop)
• Forms/UItemEdit.pas (modified) (5 diffs)

trunk

@@ -4 +4 @@
 heaptrclog.trc
 chronis.exe
+DebugLog.txt

@@ -4 +4 @@
 heaptrclog.trc
 chronis.exe
+DebugLog.txt

trunk/Forms/UItemEdit.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
-  StdCtrls, Spin, EditBtn, USqlDatabase, MaskEdit, USystem;
+  StdCtrls, Spin, EditBtn, USqlDatabase, MaskEdit, USystem,
+  SpecializedList, SpecializedDictionary;
 
 type
@@ -27 +28 @@
   public
     Report: TReport;
+    ControlList: TListObject;
     procedure BuildControls;
   end; 
@@ -48 +50 @@
 
 procedure TItemEditForm.ButtonSaveClick(Sender: TObject);
+var
+  Data: TDictionaryStringString;
+  I: Integer;
+  DataType: TDataType;
 begin
-
+  with Core.System do
+  try
+    Data := TDictionaryStringString.Create;
+    for I := 0 to Report.Columns.Count - 1 do
+    if TReportColumn(Report.Columns[I]).ColumnName <> 'Id' then begin
+      DataType := TReportColumn(Report.Columns[I]).CustomType;
+      Data.Add(TReportColumn(Report.Columns[I]).ColumnName, DataType.GetControlValue(TWinControl(ControlList[I])));
+    end;
+    Database.Update(MainForm.SelectedObject.Table, Data,
+      '`Id` = ' + IntToStr(MainForm.SelectedItem), MainForm.SelectedObject.Schema);
+  finally
+    Data.Free;
+  end;
+  if (MainForm.SelectedObject.Table = ObjectGroupTable) or
+  (MainForm.SelectedObject.Table = ObjectTable) then
+    MainForm.LoadTree;
   MainForm.LoadItemList;
   Close;
@@ -64 +85 @@
   Report := TReport.Create;
   Report.Base := Core.System;
+  ControlList := TListObject.Create;
+  ControlList.OwnsObjects := False;
 end;
 
 procedure TItemEditForm.FormDestroy(Sender: TObject);
 begin
+  ControlList.Free;
   Report.Free;
 end;
@@ -115 +139 @@
       NewControl.Left := Column * Width div ColumnCount + (Width div ColumnCount) div 2;
       NewControl.Width := (Width div ColumnCount) div 2 - 20;
+      ControlList.Add(NewControl);
 
       Column := (Column + 1) mod 2;
       if Column = 0 then LastTop := LastTop + NewControl.Height + 4;
-   end;
+   end else ControlList.Add(nil);
 end;
 

@@ -4 +4 @@
 heaptrclog.trc
 chronis.exe
+DebugLog.txt