Changeset 28 for trunk/USystem.pas

Timestamp:

Nov 23, 2011, 7:17:55 PM (13 years ago)

Author:

george

Message:

• Fixed: Compilation after last change.

File:

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

trunk/USystem.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, SpecializedList, SpecializedDictionary,
+  Classes, SysUtils, SpecializedList, SpecializedDictionary, USqlDatabase,
   Strings, UDataTypes, Dialogs, ComCtrls, StdCtrls, Controls, UChronisClient;
 
@@ -104 +104 @@
     Types: TChronisTypeList;
     Client: TChronisClient;
+    Database: TSqlDatabase;
     function AddType(Name, DataType: string; TypeIndex: TDbValueType): Integer;
     function AddGroup(Name: string; ParentGroupId: Integer = 0): Integer;
@@ -180 +181 @@
 procedure TReport.Load(Obj: TChronisObject; Filter: string = '');
 var
-  Properties: TItemList;
-  Values: TItemList;
+  Properties: TDbRows;
+  Values: TDbRows;
   I: Integer;
   C: Integer;
@@ -193 +194 @@
     // Load column names
     try
-      Properties := TItemList.Create;
-      Base.Client.GetItemList(PropertyTable, Condition, Properties);
-      ?
+      Properties := TDbRows.Create;
       Base.Database.Query(Properties, 'SELECT * FROM `' + PropertyTable +
         '` WHERE `Object`=' + IntToStr(Obj.Id));