Changeset 23 for trunk/DbEngines/UEngineMySQL.pas

Timestamp:

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

Author:

chronos

Message:

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

File:

• trunk/DbEngines/UEngineMySQL.pas (modified) (2 diffs)

trunk/DbEngines/UEngineMySQL.pas

@@ -16 +16 @@
     procedure LoadFields(Table: TTable);
   protected
-    procedure LoadTables(Tables: TTables); override;
   public
     SqlDatabase: TSqlDatabase;
@@ -102 +101 @@
 end;
 
-procedure TDatabaseMySQL.LoadTables(Tables: TTables);
-var
-  DbRows: TDbRows;
-  NewTable: TTable;
-  I: Integer;
-begin
-  DbRows := TDbRows.Create;
-  try
-    SqlDatabase.Query(DbRows, 'SELECT `Id`,`Name`,`Title` FROM `Model`');
-    for I := 0 to DbRows.Count - 1 do begin
-      NewTable := TTable.Create;
-      NewTable.Id := StrToInt(TDictionaryStringString(DbRows[I]).Values['Id']);
-      NewTable.DbClient := Self;
-      NewTable.Name := TDictionaryStringString(DbRows[I]).Values['Name'];
-      NewTable.Caption := TDictionaryStringString(DbRows[I]).Values['Title'];
-      LoadFields(NewTable);
-      Tables.Add(NewTable);
-    end;
-  finally
-    DbRows.Free;
-  end;
-end;
-
 procedure TDatabaseMySQL.Query(Text: string; DbRows: TDbRows = nil);
 begin