Changeset 37 for trunk/Forms/UItemAdd.pas

Timestamp:

Mar 8, 2012, 3:11:10 PM (13 years ago)

Author:

chronos

Message:

• Modified: Direct acces using Database: TSqlDatabase replaced by TChronisClient interface.

File:

• trunk/Forms/UItemAdd.pas (modified) (3 diffs)

trunk/Forms/UItemAdd.pas

@@ -8 +8 @@
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
   StdCtrls, Spin, EditBtn, MaskEdit, USqlDatabase, USystem,
-  SpecializedDictionary, SpecializedList;
+  SpecializedDictionary, SpecializedList, UChronisClient;
 
 type
@@ -53 +53 @@
 var
   Data: TDictionaryStringString;
+  NewProxy: TObjectProxy;
   I: Integer;
   DataType: TDataType;
@@ -59 +60 @@
   try
     Data := TDictionaryStringString.Create;
+    NewProxy := TObjectProxy.Create;
+    NewProxy.Client := Client;
+    NewProxy.ObjectName := SelectedObject.Table;
+    NewProxy.SchemaName := SelectedObject.Schema;
     for I := 0 to Report.Columns.Count - 1 do
     if not (TReportColumn(Report.Columns[I]).CustomType is TDataTypeRelationMany) then
     if TReportColumn(Report.Columns[I]).ColumnName <> SelectedObject.PrimaryKey then begin
       DataType := TReportColumn(Report.Columns[I]).CustomType;
-      Data.Add(TReportColumn(Report.Columns[I]).ColumnName,
+      NewProxy.Properties.Add(TReportColumn(Report.Columns[I]).ColumnName,
         DataType.GetControlValue(TWinControl(TReportColumn(Report.Columns[I]).Control)));
     end;
-    Database.Insert(SelectedObject.Table, Data, SelectedObject.Schema);
+    NewProxy.Save;
   finally
     Data.Free;
+    NewProxy.Free;
   end;
   //MainForm.LoadItemList;