Changeset 27 for trunk/USystem.pas

Timestamp:

Nov 9, 2011, 4:11:56 PM (13 years ago)

Author:

george

Message:

• Added: Partial client-server protocol layer implementation.

File:

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

trunk/USystem.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, SpecializedList, SpecializedDictionary, USqlDatabase,
-  Strings, UDataTypes, Dialogs, ComCtrls, StdCtrls, Controls;
+  Classes, SysUtils, SpecializedList, SpecializedDictionary,
+  Strings, UDataTypes, Dialogs, ComCtrls, StdCtrls, Controls, UChronisClient;
 
 const
@@ -103 +103 @@
   TChronisBase = class
     Types: TChronisTypeList;
-    Database: TSQLDatabase;
+    Client: TChronisClient;
     function AddType(Name, DataType: string; TypeIndex: TDbValueType): Integer;
     function AddGroup(Name: string; ParentGroupId: Integer = 0): Integer;
@@ -180 +180 @@
 procedure TReport.Load(Obj: TChronisObject; Filter: string = '');
 var
-  Properties: TDbRows;
-  Values: TDbRows;
+  Properties: TItemList;
+  Values: TItemList;
   I: Integer;
   C: Integer;
@@ -193 +193 @@
     // Load column names
     try
-      Properties := TDbRows.Create;
+      Properties := TItemList.Create;
+      Base.Client.GetItemList(PropertyTable, Condition, Properties);
+      ?
       Base.Database.Query(Properties, 'SELECT * FROM `' + PropertyTable +
         '` WHERE `Object`=' + IntToStr(Obj.Id));
@@ -627 +629 @@
 begin
   Types := TChronisTypeList.Create;
+  Client := nil;
 end;
 
@@ -632 +635 @@
 begin
   Types.Free;
+  Client.Free;
   inherited Destroy;
 end;