Changeset 23 for trunk/UDatabase.pas

Timestamp:

Mar 26, 2018, 12:40:10 AM (7 years ago)

Author:

chronos

Message:

• Modified: More changes to implement SQL over XML file.

File:

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

trunk/UDatabase.pas

@@ -77 +77 @@
     function SearchByName(Name: string): TField;
     procedure Assign(Source: TFields);
+    function AddNew(Name: string; DataType: TDataType): TField;
   end;
 
@@ -96 +97 @@
     procedure Assign(Source: TRecords);
     function SearchByValue(Name, Value: string): TRecord;
+    function AddNew: TRecord;
   end;
 
@@ -120 +122 @@
     DbClient: TDbClient;
     function SearchByName(Name: string): TTable;
+    function AddNew(Name: string): TTable;
   end;
 
@@ -145 +148 @@
     Name: string;
     Params: TDbConnectParams;
+    DbManager: TDbManager;
     destructor Destroy; override;
     function GetClient: TDbClient;
@@ -189 +193 @@
     procedure SetConnectProfile(AValue: TDbConnectProfile); virtual;
   public
+    DbManager: TDbManager;
     procedure Query(Text: string; DbRows: TDbRows = nil); virtual;
-    procedure LoadTables(Tables: TTables); virtual;
     constructor Create; virtual;
     procedure Load; virtual;
@@ -350 +354 @@
 
       ConnectProfile := TDbConnectProfile.Create;
+      ConnectProfile.DbManager := DbManager;
       ConnectProfile.ClientType := ClientType;
       ConnectProfile.Name := GetValue('Name', '');
@@ -414 +419 @@
   Result := ClientType.DatabaseClientClass.Create;
   Result.ConnectProfile := Self;
+  Result.DbManager := DbManager;
 end;
 
@@ -428 +434 @@
 end;
 
+function TTables.AddNew(Name: string): TTable;
+begin
+  Result := TTable.Create;
+  Result.DbClient := DbClient;
+  Result.Name := Name;
+  Add(Result);
+end;
+
 { TDbClient }
 
@@ -443 +457 @@
 procedure TDbClient.Query(Text: string; DbRows: TDbRows = nil);
 begin
-end;
-
-procedure TDbClient.LoadTables(Tables: TTables);
-begin
-  Tables.Clear;
 end;
 
@@ -598 +607 @@
 end;
 
+function TRecords.AddNew: TRecord;
+begin
+  Result := TRecord.Create;
+  Result.Parent := Parent;
+  Result.InitValues;
+  Add(Result);
+end;
+
 { TFields }
 
@@ -622 +639 @@
     TField(Items[I]).Assign(TField(Source.Items[I]));
   end;
+end;
+
+function TFields.AddNew(Name: string; DataType: TDataType): TField;
+begin
+  Result := TField.Create;
+  Result.Table := Table;
+  Result.Name := Name;
+  Result.DataType := DataType;
+  Add(Result);
 end;