Changeset 20 for trunk/Forms/UFormFields.pas

Timestamp:

Mar 23, 2018, 1:59:25 PM (7 years ago)

Author:

chronos

Message:

• Modified: Database classes reorganized. Now TDbConnectProfile is class which holds information about connection to database.
• Modified: TDbManager is top most class for managing other database classes.
• Modified: TDbConnectParams class contains client specific parameters for connect profile.

File:

• trunk/Forms/UFormFields.pas (modified) (1 diff)

trunk/Forms/UFormFields.pas

@@ -86 +86 @@
   NewField.Table := Fields.Table;
   NewField.Name := SNewField;
-  if Fields.Table.Database.Engine.DataTypes.Count > 0 then
-    NewField.DataType := TDataType(Fields.Table.Database.Engine.DataTypes[0]);
+  if Fields.Table.DbClient.ConnectProfile.ClientType.DataTypes.Count > 0 then
+    NewField.DataType := TDataType(Fields.Table.DbClient.ConnectProfile.ClientType.DataTypes[0]);
   FormField.Load(NewField);
   if FormField.ShowModal = mrOk then begin