Changeset 362 for PersistentData/UPDClient.pas

Timestamp:

May 10, 2012, 1:18:25 PM (13 years ago)

Author:

chronos

Message:

• Modified: PersistentData Memory backend partial implementation.
• Modified: Some persistent type system modifications.

File:

• PersistentData/UPDClient.pas (modified) (11 diffs)

PersistentData/UPDClient.pas

@@ -15 +15 @@
 
   TPDClient = class;
+  TPDType = class;
 
   TOrderDirection = (odNone, odAscending, odDescending);
@@ -31 +32 @@
     constructor Create;
     destructor Destroy; override;
+    procedure Assign(Source: TObjectProxy);
+  end;
+
+  TOperation = (opUndefined, opDefined, opEqual, opNotEqual,
+    opLess, opMore, opLessOrEqual, opMoreOrEqual);
+
+  TCondition = class
+    Column: string;
+    Operation: TOperation;
+    Value: string;
   end;
 
@@ -56 +67 @@
   end;
 
+  TPDTypeProperty = class
+    Name: string;
+    DbType: TPDType;
+    Unique: Boolean;
+    Index: Boolean;
+  end;
+
+  { TPDTypePropertyList }
+
+  TPDTypePropertyList = class(TListObject)
+    Client: TPDClient;
+    procedure AddSimple(Name: string; TypeName: string; Unique: Boolean = False;
+      Index: Boolean = False);
+  end;
+
   { TPDType }
 
   TPDType = class
-    Client: TPDClient;
+  private
+    FClient: TPDClient;
+    procedure SetClient(AValue: TPDClient);
+  public
     Name: string;
     DbType: string;
-    Properties: TDictionaryStringString;
+    Properties: TPDTypePropertyList;
     function IsDefined: Boolean;
     procedure Define;
@@ -68 +97 @@
     constructor Create;
     destructor Destroy; override;
+    property Client: TPDClient read FClient write SetClient;
   end;
 
@@ -103 +133 @@
     procedure TypeUndefine(AType: TPDType); virtual; abstract;
     procedure CheckTypes;
-    function TypeExists(Name: string): Boolean; virtual; abstract;
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
@@ -120 +149 @@
   TPDClientClass = class of TPDClient;
 
+  resourcestring
+    SClientNotSet = 'Client not set';
+    SNotSupported = 'Not supported';
+    SVersionMismatch = 'Version mismatch, client: %0:s, server: %1:s. Please upgrade database.';
+    SCantLoadObjectWithoutId = 'Can''t load object without id';
+
+
 implementation
 
-resourcestring
-  SClientNotSet = 'Client not set';
-  SNotSupported = 'Not supported';
-  SVersionMismatch = 'Version mismatch, client: %0:s, server: %1:s. Please upgrade database.';
+{ TPDTypePropertyList }
+
+procedure TPDTypePropertyList.AddSimple(Name: string; TypeName: string;
+  Unique: Boolean; Index: Boolean);
+var
+  NewProperty: TPDTypeProperty;
+begin
+  NewProperty := TPDTypeProperty(AddNew(TPDTypeProperty.Create));
+  NewProperty.Name := Name;
+  NewProperty.DbType := Client.Types.SearchByName(TypeName);
+  NewProperty.Unique := Unique;
+  NewProperty.Index := Index;
+end;
 
 
@@ -148 +193 @@
 end;
 
+procedure TPDType.SetClient(AValue: TPDClient);
+begin
+  if FClient = AValue then Exit;
+  FClient := AValue;
+  Properties.Client := AValue;
+end;
+
 function TPDType.IsDefined: Boolean;
 begin
@@ -168 +220 @@
 constructor TPDType.Create;
 begin
-  Properties := TDictionaryStringString.Create;
+  Properties := TPDTypePropertyList.Create;
 end;
 
@@ -206 +258 @@
   Properties.Free;
   inherited Destroy;
+end;
+
+procedure TObjectProxy.Assign(Source: TObjectProxy);
+begin
+  Path := Source.Path;
+  Client := Source.Client;
+  ObjectName := Source.ObjectName;
+  Id := Source.Id;
+  Properties.Assign(Source.Properties);
 end;
 
@@ -293 +354 @@
     NewType.Client := Self;
     NewType.Name := SystemVersionObject;
-    NewType.Properties.Add('Version', 'String');
-    NewType.Properties.Add('Time', 'DateTime');
+    NewType.Properties.AddSimple('Version', 'String');
+    NewType.Properties.AddSimple('Time', 'DateTime');
     NewType.Define;
 
@@ -380 +441 @@
 procedure TPDClient.Uninstall;
 begin
-
+  //Types.Uninstall;
 end;