Changeset 7 for trunk/DbEngines

Timestamp:

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

Author:

chronos

Message:

• Fixed: XML database can be opened from file.

Location:

trunk/DbEngines

Files:

• UEngineMySQL.pas (modified) (1 diff)
• UEngineSQLite.pas (modified) (1 diff)
• UEngineXML.pas (modified) (6 diffs)

trunk/DbEngines/UEngineMySQL.pas

@@ -9 +9 @@
 
 type
-  TDatabaseMySQL = class(TDatabase)
+  TDatabaseMySQL = class(TDatabaseClient)
 
   end;

trunk/DbEngines/UEngineSQLite.pas

@@ -9 +9 @@
 
 type
-  TDatabaseSQLite = class(TDatabase)
+  TDatabaseSQLite = class(TDatabaseClient)
 
   end;

trunk/DbEngines/UEngineXML.pas

@@ -11 +11 @@
   { TDatabaseXML }
 
-  TDatabaseXML = class(TDatabase)
+  TDatabaseXML = class(TDatabaseClient)
   private
     function GetFileName: string;
@@ -47 +47 @@
 function TDatabaseXML.GetFileName: string;
 begin
-  if Copy(ConnectionString, 1, 8) = 'file:///' then
-    Result := Copy(ConnectionString, 8, High(Integer))
+  if Copy(Database.ConnectionString, 1, 8) = 'file:///' then
+    Result := Copy(Database.ConnectionString, 8, High(Integer))
     else Result := '';
 end;
@@ -238 +238 @@
       NewNode := FindNode('Tables');
       if Assigned(NewNode) then
-        LoadNodeTables(Tables, NewNode);
+        LoadNodeTables(Database.Tables, NewNode);
     end;
   finally
@@ -259 +259 @@
       NewNode := OwnerDocument.CreateElement('Tables');
       AppendChild(NewNode);
-      SaveNodeTables(Tables, NewNode);
+      SaveNodeTables(Database.Tables, NewNode);
     end;
     ForceDirectoriesUTF8(ExtractFileDir(FileName));
@@ -270 +270 @@
 procedure TDatabaseXML.Load;
 begin
-  inherited Load;
   if FileExists(FileName) then
     LoadFromFile(FileName);
@@ -277 +276 @@
 procedure TDatabaseXML.Save;
 begin
-  inherited Save;
   SaveToFile(FileName);
 end;