Changeset 13 for trunk/DbEngines/UEngineMySQL.pas

Timestamp:

Mar 17, 2015, 12:09:11 AM (10 years ago)

Author:

chronos

Message:

• Modified: Now records are loaded from SQL database using SQL query. The query is parsed also by XML database client to load records from XML file.
• Added: Packages Network and Synapse.

File:

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

trunk/DbEngines/UEngineMySQL.pas

@@ -14 +14 @@
   TDatabaseMySQL = class(TDatabaseClient)
   private
+    procedure LoadFields(Table: TTable);
     procedure LoadTables;
   public
     SqlDatabase: TSqlDatabase;
+    procedure Query(DbRows: TDbRows; Text: string); override;
     constructor Create; override;
     destructor Destroy; override;
@@ -27 +29 @@
 { TDatabaseMySQL }
 
+procedure TDatabaseMySQL.LoadFields(Table: TTable);
+var
+  DbRows: TDbRows;
+  NewField: TField;
+  I: Integer;
+  DataType: Integer;
+begin
+  DbRows := TDbRows.Create;
+  try
+    SqlDatabase.Query(DbRows, 'SELECT * FROM `ModelField` WHERE `Model` = ' + IntToStr(Table.Id) + '');
+    for I := 0 to DbRows.Count - 1 do begin
+      NewField := TField.Create;
+      NewField.Table := Table;
+      NewField.Name := TDictionaryStringString(DbRows[I]).Values['Name'];
+      NewField.TextBefore := TDictionaryStringString(DbRows[I]).Values['Title'];
+      DataType := StrToInt(TDictionaryStringString(DbRows[I]).Values['DataType']);
+      NewField.DataType := Table.Database.Engine.DataTypes.FindByType(TFieldType(DataType));
+      if not Assigned(NewField.DataType) then
+        NewField.DataType := Table.Database.Engine.DataTypes.FindByType(ftString);
+      Table.Fields.Add(NewField);
+    end;
+  finally
+    DbRows.Free;
+  end;
+end;
+
 procedure TDatabaseMySQL.LoadTables;
 var
   DbRows: TDbRows;
+  DbRows2: TDbRows;
   NewTable: TTable;
   I: Integer;
@@ -35 +64 @@
   DbRows := TDbRows.Create;
   try
-    SqlDatabase.Query(DbRows, 'SELECT `TABLE_NAME` FROM `information_schema`.`TABLES` WHERE `TABLE_SCHEMA` = "' + SqlDatabase.Database + '"');
+    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.Database := Database;
-      NewTable.Name := (TDictionaryStringString(DbRows[I])[0]).Value;
-      NewTable.Caption := NewTable.Name;
+      NewTable.Name := TDictionaryStringString(DbRows[I]).Values['Name'];
+      NewTable.Caption := TDictionaryStringString(DbRows[I]).Values['Title'];
+      LoadFields(NewTable);
+      DbRows2 := TDbRows.Create;
+      try
+        SqlDatabase.Query(DbRows2, 'SELECT COUNT(*) FROM `' + NewTable.Name + '`');
+        if DbRows2.Count = 1 then
+          NewTable.RecordsCount := StrToInt(DbRows2[0].Values['COUNT(*)']);
+      finally
+        DbRows2.Free;
+      end;
       Database.Tables.Add(NewTable);
     end;
@@ -46 +85 @@
     DbRows.Free;
   end;
+end;
+
+procedure TDatabaseMySQL.Query(DbRows: TDbRows; Text: string);
+begin
+  SqlDatabase.Query(DbRows, Text);
 end;