Changeset 33 for trunk/Application

Timestamp:

Nov 24, 2011, 1:45:12 PM (13 years ago)

Author:

chronos

Message:

• Modified: ChronisClient now use concept of object proxies. Methods of TObjectProxy and TListProxy is directed through TChronisClient and descendands implementing different protocols and access methods.

Location:

trunk/Application

Files:

• Clients/UChronisClientMySQL.pas (added)
• Clients/UChronisMySQL.pas (deleted)
• UChronisClient.pas (modified) (4 diffs)

trunk/Application/UChronisClient.pas

@@ -13 +13 @@
   TOrderDirection = (odNone, odAscending, odDescending);
 
-  { TQuery }
+  { TObjectProxy }
 
-  TQuery = class
+  TObjectProxy = class
+    Id: Integer;
+    Properties: TDictionaryStringString;
+    Client: TChronisClient;
+    procedure Load;
+    procedure Save;
+    procedure Delete;
+    procedure Add;
+    constructor Create;
+    destructor Destroy; override;
+  end;
+
+  { TListProxy }
+
+  TListProxy = class
     Client: TChronisClient;
     OrderColumn: string;
@@ -25 +39 @@
     ColumnsFilter: TListString;
     ColummsFilterUse: Boolean;
+    ConditionColumn: string;
+    ConditionValue: string;
+    ConditionUse: Boolean;
+    ObjectName: string;
+    Objects: TListObject; // TListObject<TObjectProxy>
+    procedure Clear;
     constructor Create;
     destructor Destroy; override;
-    procedure Execute; virtual;
-  end;
-
-  TItemList = class(TListObject) // TListObject<TDictionaryStringString>
-
+    procedure Load; virtual;
+    procedure Save; virtual;
   end;
 
@@ -37 +54 @@
 
   TChronisClient = class
-    //procedure GetItemList(Model: string; Condition: TCondition; ItemList: TItemList); virtual; abstract;
-    //procedure SetItemList(Model: string; Condition: TCondition; ItemList: TItemList); virtual; abstract;
+    Host: string;
+    Port: Word;
+    Schema: string;
+    User: string;
+    Password: string;
+    procedure ObjectLoad(AObject: TObjectProxy); virtual; abstract;
+    procedure ObjectSave(AObject: TObjectProxy); virtual; abstract;
+    procedure ObjectAdd(AObject: TObjectProxy); virtual; abstract;
+    procedure ObjectDelete(AObject: TObjectProxy); virtual; abstract;
+    procedure ListLoad(AList: TListProxy); virtual; abstract;
+    procedure ListSave(AList: TListProxy); virtual; abstract;
     constructor Create; virtual;
   end;
@@ -44 +70 @@
 implementation
 
-{ TQuery }
+{ TObjectProxy }
 
-constructor TQuery.Create;
+procedure TObjectProxy.Load;
 begin
-
+  Client.ObjectLoad(Self);
 end;
 
-destructor TQuery.Destroy;
+procedure TObjectProxy.Save;
 begin
+  Client.ObjectSave(Self);
+end;
+
+procedure TObjectProxy.Delete;
+begin
+  Client.ObjectDelete(Self);
+end;
+
+procedure TObjectProxy.Add;
+begin
+  Client.ObjectAdd(Self);
+end;
+
+constructor TObjectProxy.Create;
+begin
+  Properties := TDictionaryStringString.Create;
+end;
+
+destructor TObjectProxy.Destroy;
+begin
+  Properties.Free;
   inherited Destroy;
 end;
 
-procedure TQuery.Execute;
+{ TListProxy }
+
+procedure TListProxy.Clear;
 begin
+  ConditionUse := False;
+  PageUse := False;
+  ColummsFilterUse := False;
+  OrderUse := False;
+  Objects.Free;
+end;
 
+constructor TListProxy.Create;
+begin
+  ColumnsFilter := TListString.Create;
+  Objects := TListObject.Create;
+end;
+
+destructor TListProxy.Destroy;
+begin
+  Objects.Free;
+  ColumnsFilter.Free;
+  inherited Destroy;
+end;
+
+procedure TListProxy.Load;
+begin
+  Client.ListLoad(Self);
+end;
+
+procedure TListProxy.Save;
+begin
+  Client.ListSave(Self);
 end;