Changeset 7 for trunk/UDatabase.pas

Timestamp:

Jan 20, 2015, 11:33:39 PM (9 years ago)

Author:

chronos

Message:

• Fixed: XML database can be opened from file.

File:

• trunk/UDatabase.pas (modified) (8 diffs)

trunk/UDatabase.pas

@@ -11 +11 @@
   TTable = class;
   TDatabaseEngine = class;
+  TDatabaseClient = class;
 
   TFieldType = (ftString, ftInteger, ftDateTime, ftBoolean, ftFloat, ftImage,
@@ -107 +108 @@
 
   TDatabase = class
+  private
+    FEngine: TDatabaseEngine;
+    procedure SetEngine(AValue: TDatabaseEngine);
+  public
     Name: string;
     Tables: TTables;
     ConnectionString: string;
-    Engine: TDatabaseEngine;
+    Client: TDatabaseClient;
     constructor Create;
     destructor Destroy; override;
     procedure Load; virtual;
     procedure Save; virtual;
+    property Engine: TDatabaseEngine read FEngine write SetEngine;
   end;
 
@@ -134 +140 @@
   end;
 
+  { TDatabaseClient }
+
+  TDatabaseClient = class
+    Database: TDatabase;
+    procedure Load; virtual;
+    procedure Save; virtual;
+  end;
+
+  TDatabaseClientClass = class of TDatabaseClient;
+
   { TDatabaseEngine }
 
@@ -139 +155 @@
     Name: string;
     DataTypes: TDataTypes;
-    DatabaseClass: TDatabaseClass;
+    DatabaseClientClass: TDatabaseClientClass;
     constructor Create;
     destructor Destroy; override;
@@ -147 +163 @@
 
   TDatabaseEngines = class(TObjectList)
-    function RegisterEngine(Name: string; DatabaseClass: TDatabaseClass): TDatabaseEngine;
+    function RegisterEngine(Name: string; DatabaseClass: TDatabaseClientClass): TDatabaseEngine;
     function FindByName(Name: string): TDatabaseEngine;
   end;
@@ -157 +173 @@
   UDataTypes;
 
+{ TDatabaseClient }
+
+procedure TDatabaseClient.Load;
+begin
+
+end;
+
+procedure TDatabaseClient.Save;
+begin
+
+end;
+
 { TDatabaseEngines }
 
 function TDatabaseEngines.RegisterEngine(Name: string;
-  DatabaseClass: TDatabaseClass): TDatabaseEngine;
+  DatabaseClass: TDatabaseClientClass): TDatabaseEngine;
 begin
   Result := TDatabaseEngine.Create;
   Result.Name := Name;
-  Result.DatabaseClass := DatabaseClass;
+  Result.DatabaseClientClass := DatabaseClass;
   Add(Result);
 end;
@@ -365 +393 @@
 { TDatabase }
 
+procedure TDatabase.SetEngine(AValue: TDatabaseEngine);
+begin
+  if FEngine = AValue then Exit;
+  if Assigned(Client) then
+    Client.Free;
+  FEngine := AValue;
+  if Assigned(FEngine) then begin
+    Client := Engine.DatabaseClientClass.Create;
+    Client.Database := Self;
+  end;
+end;
+
 constructor TDatabase.Create;
 begin
   Tables := TTables.Create;
+  Engine := nil;
 end;
 
@@ -378 +419 @@
 procedure TDatabase.Load;
 begin
-
+  if Assigned(Client) then Client.Load;
 end;
 
 procedure TDatabase.Save;
 begin
-
+  if Assigned(Client) then Client.Save;
 end;