Changeset 26 for trunk/DbEngines
- Timestamp:
- Sep 10, 2022, 8:03:08 PM (2 years ago)
- Location:
- trunk
- Files:
-
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk
- Property svn:ignore
-
old new 7 7 heaptrclog.trc 8 8 MyData.exe 9 MyData.dbg 10
-
- Property svn:ignore
-
trunk/DbEngines/UDbClientRegistry.pas
r20 r26 1 1 unit UDbClientRegistry; 2 3 {$mode delphi}4 2 5 3 interface … … 18 16 19 17 20 21 18 implementation 22 19 -
trunk/DbEngines/UEngineMySQL.pas
r23 r26 1 1 unit UEngineMySQL; 2 3 {$mode delphi}4 2 5 3 interface 6 4 7 5 uses 8 Classes, Dialogs, SysUtils, UDatabase, USqlDatabase, UHtmlClasses, SpecializedDictionary; 6 Classes, Dialogs, SysUtils, UDatabase, USqlDatabase, UHtmlClasses, 7 UGenerics; 9 8 10 9 type … … 80 79 NewField := TField.Create; 81 80 NewField.Table := Table; 82 NewField.Name := TDictionaryStringString(DbRows[I]). Values['Name'];83 NewField.TextBefore := TDictionaryStringString(DbRows[I]). Values['Title'];84 DataType := StrToInt(TDictionaryStringString(DbRows[I]). Values['Type']);81 NewField.Name := TDictionaryStringString(DbRows[I]).Items['Name']; 82 NewField.TextBefore := TDictionaryStringString(DbRows[I]).Items['Title']; 83 DataType := StrToInt(TDictionaryStringString(DbRows[I]).Items['Type']); 85 84 SqlDatabase.Query(DbRows2, 'SELECT * FROM `DataType` WHERE `Id` = ' + IntToStr(DataType) + ''); 86 85 if DbRows2.Count > 0 then begin 87 TypeName := TDictionaryStringString(DbRows2[0]). Values['Name'];86 TypeName := TDictionaryStringString(DbRows2[0]).Items['Name']; 88 87 NewField.DataType := Table.DbClient.ClientType.DataTypes.SearchByName(TypeName); 89 88 if not Assigned(NewField.DataType) then -
trunk/DbEngines/UEngineSQLite.pas
r20 r26 1 1 unit UEngineSQLite; 2 3 {$mode delphi}4 2 5 3 interface -
trunk/DbEngines/UEngineXML.pas
r24 r26 1 1 unit UEngineXML; 2 3 {$mode delphi}4 2 5 3 interface … … 7 5 uses 8 6 Classes, SysUtils, DOM, XMLRead, XMLWrite, UDatabase, UXMLUtils, FileUtil, 9 UHtmlClasses, USqlDatabase, SpecializedDictionary;7 UHtmlClasses, USqlDatabase, UGenerics; 10 8 11 9 type
Note:
See TracChangeset
for help on using the changeset viewer.