Changeset 35 for trunk/USystem.pas

Timestamp:

Nov 25, 2011, 9:17:21 AM (13 years ago)

Author:

chronos

Message:

• Modified: More direct SQL queries replaced by TChronisClient execution.

File:

• trunk/USystem.pas (modified) (2 diffs)

trunk/USystem.pas

@@ -147 +147 @@
 implementation
 
+uses
+  UCore;
+
 resourcestring
   SUnsupportedType = 'Unsupported property type "%s"';
@@ -709 +712 @@
 procedure TChronisObject.Load(ObjectId: Integer);
 var
-  DbRows: TDbRows;
-begin
-  try
-    DbRows := TDbRows.Create;
-    Base.Database.Query(DbRows, 'SELECT * FROM `' + ObjectTable +
-      '` WHERE `Id`=' + IntToStr(ObjectId));
-    if DbRows.Count = 1 then begin
+  List: TListProxy;
+begin
+  try
+    List := TListProxy.Create;
+    List.Client := Core.System.Client;
+    List.ObjectName := ObjectTable;
+    List.SchemaName := Core.System.Database.Database;
+    List.SetCondition('Id', IntToStr(ObjectId));
+    List.Load;
+    if List.Objects.Count = 1 then begin
       Id := ObjectId;
-      with DbRows[0] do begin
-        Name := Values['Name'];
-        Schema := Values['Schema'];
-        GroupId := StrToInt(Values['Group']);
-        Table := Values['Table'];
-        PrimaryKey := Values['PrimaryKey'];
+      with TObjectProxy(List.Objects[0]) do begin
+        Name := Properties.Values['Name'];
+        Schema := Properties.Values['Schema'];
+        GroupId := StrToInt(Properties.Values['Group']);
+        Table := Properties.Values['Table'];
+        PrimaryKey := Properties.Values['PrimaryKey'];
       end;
     end;
   finally
-    DbRows.Free;
+    List.Free;
   end;
 end;