Changeset 37 for trunk/Application/UDataTypes.pas

Timestamp:

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

Author:

chronos

Message:

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

File:

• trunk/Application/UDataTypes.pas (modified) (4 diffs)

trunk/Application/UDataTypes.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, Controls, Spin, StdCtrls, ExtCtrls, MaskEdit, EditBtn;
+  Classes, SysUtils, Controls, Spin, StdCtrls, ExtCtrls, MaskEdit, EditBtn,
+  UChronisClient;
 
 type
@@ -147 +148 @@
 function GetDataType(ACustomType: Integer): TDataType;
 var
-  DbRows: TDbRows;
+  Proxy: TListProxy;
   BaseType: Integer;
 begin
   try
-    DbRows := TDbRows.Create;
-    Core.System.Database.Select(DbRows, CustomTypeTableName, '*', 'Id=' + IntToStr(ACustomType));
-    BaseType := StrToInt(DbRows[0].Values['Type']);
+    Proxy := TListProxy.Create;
+    Proxy.Client := Core.System.Client;
+    Proxy.ObjectName := CustomTypeTableName;
+    Proxy.Condition := 'Id=' + IntToStr(ACustomType);
+    Proxy.Load;
+    BaseType := StrToInt(TObjectProxy(Proxy.Objects[0]).Properties.Values['Type']);
   finally
-    DbRows.Free;
+    Proxy.Free;
   end;
 
@@ -231 +235 @@
 procedure TDataTypeRelationMany.LoadDef(ACustomType: Integer);
 var
-  DbRows: TDbRows;
+  Proxy: TListProxy;
   BaseType: Integer;
 begin
   try
-    DbRows := TDbRows.Create;
-    Core.System.Database.Select(DbRows, TypeRelationMany, '*', 'CustomType=' + IntToStr(ACustomType));
-    PropertyID := StrToInt(DbRows[0].Values['ObjectProperty']);
+    Proxy := TListProxy.Create;
+    Proxy.Client := Core.System.Client;
+    Proxy.ObjectName := TypeRelationMany;
+    Proxy.Condition := 'CustomType=' + IntToStr(ACustomType);
+    Proxy.Load;
+    PropertyID := StrToInt(TObjectProxy(Proxy.Objects[0]).Properties.Values['ObjectProperty']);
   finally
-    DbRows.Free;
+    Proxy.Free;
   end;
   try
-    DbRows := TDbRows.Create;
-    Core.System.Database.Select(DbRows, PropertyTable, '*', 'Id=' + IntToStr(PropertyID));
-    ObjectId := StrToInt(DbRows[0].Values['Object']);
-    PropertyName := DbRows[0].Values['ColumnName'];
+    Proxy := TListProxy.Create;
+    Proxy.Client := Core.System.Client;
+    Proxy.ObjectName := PropertyTable;
+    Proxy.Condition := 'Id=' + IntToStr(PropertyID);
+    ObjectId := StrToInt(TObjectProxy(Proxy.Objects[0]).Properties.Values['Object']);
+    PropertyName := TObjectProxy(Proxy.Objects[0]).Properties.Values['ColumnName'];
   finally
-    DbRows.Free;
+    Proxy.Free;
   end;
 end;
@@ -286 +295 @@
 procedure TDataTypeRelationOne.LoadDef(ACustomType: Integer);
 var
-  DbRows: TDbRows;
+  Proxy: TListProxy;
 begin
   try
-    DbRows := TDbRows.Create;
-    Core.System.Database.Select(DbRows, TypeRelationOne, '*', 'CustomType=' + IntToStr(ACustomType));
-    ObjectId := StrToInt(DbRows[0].Values['Object']);
+    Proxy := TListProxy.Create;
+    Proxy.Client := Core.System.Client;
+    Proxy.ObjectName := TypeRelationOne;
+    Proxy.Condition := 'CustomType=' + IntToStr(ACustomType);
+    Proxy.Load;
+    ObjectId := StrToInt(TObjectProxy(Proxy.Objects[0]).Properties.Values['Object']);
   finally
-    DbRows.Free;
+    Proxy.Free;
   end;
 end;