Changeset 15 for trunk/Forms/UItemAdd.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/UItemAdd.pas (modified) (7 diffs)

trunk

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

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

trunk/Forms/UItemAdd.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
-   StdCtrls, Spin, EditBtn, MaskEdit, USqlDatabase, USystem;
+  StdCtrls, Spin, EditBtn, MaskEdit, USqlDatabase, USystem,
+  SpecializedDictionary, SpecializedList;
 
 type
@@ -28 +29 @@
   public
     Report: TReport;
+    ControlList: TListObject;
   end; 
 
@@ -48 +50 @@
 
 procedure TItemAddForm.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.Insert(MainForm.SelectedObject.Table, Data, MainForm.SelectedObject.Schema);
+  finally
+    Data.Free;
+  end;
+  MainForm.LoadItemList;
   Close;
 end;
@@ -62 +81 @@
   Report := TReport.Create;
   Report.Base := Core.System;
+  ControlList := TListObject.Create;
+  ControlList.OwnsObjects := False;
 end;
 
@@ -67 +88 @@
 begin
   Report.Free;
+  ControlList.Free;
 end;
 
@@ -97 +119 @@
 
   // Load column names
+  ControlList.Clear;
     for I := 0 to Report.Columns.Count - 1 do
     if TReportColumn(Report.Columns[I]).ColumnName <> 'Id' then begin
@@ -113 +136 @@
       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