Changeset 37 for trunk/Forms/UItemEdit.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/UItemEdit.pas (modified) (4 diffs)

trunk/Forms/UItemEdit.pas

@@ -1 +1 @@
 unit UItemEdit;
 
-{$mode objfpc}{$H+}
+{$mode Delphi}{$H+}
 
 interface
@@ -8 +8 @@
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
   StdCtrls, Spin, EditBtn, USqlDatabase, MaskEdit, ComCtrls, USystem,
-  SpecializedList, SpecializedDictionary;
+  SpecializedList, SpecializedDictionary, UChronisClient;
 
 type
@@ -119 +119 @@
 procedure TItemEditForm.ButtonSaveClick(Sender: TObject);
 var
-  Data: TDictionaryStringString;
+  Proxy: TObjectProxy;
   I: Integer;
   DataType: TDataType;
@@ -125 +125 @@
   with Core.System do
   try
-    Data := TDictionaryStringString.Create;
+    Proxy := TObjectProxy.Create;
+    Proxy.Client := Client;
+    Proxy.ObjectName := SelectedObject.Table;
+    Proxy.SchemaName := SelectedObject.Schema;
+    Proxy.Id := SelectedItemId;
     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,
+      Proxy.Properties.Add(TReportColumn(Report.Columns[I]).ColumnName,
         DataType.GetControlValue(TWinControl(TReportColumn(Report.Columns[I]).Control)));
     end;
-    Database.Update(SelectedObject.Table, Data,
-      '`' + SelectedObject.PrimaryKey + '` = ' + IntToStr(SelectedItemId), SelectedObject.Schema);
+    Proxy.Save;
   finally
-    Data.Free;
+    Proxy.Free;
   end;
   if (SelectedObject.Table = ObjectGroupTable) or