Changeset 8 for trunk/Forms/UFormTables.pas

Timestamp:

Jan 23, 2015, 12:00:37 AM (10 years ago)

Author:

chronos

Message:

• Modified: All data types have own table which is used to specify supported data types by database engines.

File:

• trunk/Forms/UFormTables.pas (modified) (2 diffs)

trunk/Forms/UFormTables.pas

@@ -94 +94 @@
   NewTable := TTable.Create;
   NewTable.Name := 'New table';
+  NewTable.Database := Database;
   FormTable.Load(NewTable);
   if FormTable.ShowModal = mrOk then begin
@@ -137 +138 @@
     FormFields.TableName := OldTable.Caption;
     FormFields.Fields := TFields.Create;
+    FormFields.Fields.Table := OldTable;
     FormFields.Fields.Assign(OldTable.Fields);
+    for I := 0 to FormFields.Fields.Count - 1 do
+      TField(FormFields.Fields[I]).Table := TField(OldTable.Fields[I]).Table;
     if FormFields.ShowModal = mrOk then begin
       // Inefficient way to update table data. Copy original columns to new records and