Changeset 4 for trunk/Forms/UFormTables.pas

Timestamp:

Jan 18, 2015, 11:29:26 PM (9 years ago)

Author:

chronos

Message:

• Moved: Field and value data type declaration moved to separate unit.
• Modified: Fields edit form is now modal and made need changes need to be accepted.
• Added: 32x32 icons to actions.
• Fixed: If fileds count or type changed then table values are updated.

File:

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

trunk/Forms/UFormTables.pas

@@ -68 +68 @@
   if (Item.Index >= 0) and (Item.Index < Database.Tables.Count) then
   with TTable(Database.Tables[Item.Index]) do begin
-    Item.Caption := Name;
+    Item.Caption := Caption;
     Item.SubItems.Add(IntToStr(Records.Count));
     Item.Data := Database.Tables[Item.Index];
@@ -116 +116 @@
 begin
   if Assigned(ListView1.Selected) then begin
-    Database.Tables.Remove(ListView1.Selected.Data);
-    ReloadList;
+    if MessageDlg('Remove table', 'Do you want to really remove table ' +
+    TTable(ListView1.Selected.Data).Name, mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin
+      Database.Tables.Remove(ListView1.Selected.Data);
+      ReloadList;
+    end;
   end;
 end;
 
 procedure TFormMain.AShowFieldsExecute(Sender: TObject);
-begin
-  if Assigned(ListView1.Selected) then begin
-    FormFields.Table := TTable(ListView1.Selected.Data);
-    FormFields.ShowModal;
-    ReloadList;
+var
+  NewRecords: TRecords;
+  I: Integer;
+  FI: Integer;
+  C: Integer;
+  OldField: TField;
+  OldTable: TTable;
+begin
+  if Assigned(ListView1.Selected) then begin
+    OldTable := TTable(ListView1.Selected.Data);
+    FormFields.TableName := OldTable.Caption;
+    FormFields.Fields := TFields.Create;
+    FormFields.Fields.Assign(OldTable.Fields);
+    if FormFields.ShowModal = mrOk then begin
+      // Inefficient way to update table data. Copy original columns to new records and
+      // then replace original table records
+      NewRecords := TRecords.Create;
+      NewRecords.Count := OldTable.Records.Count;
+      for I := 0 to NewRecords.Count - 1 do begin
+        NewRecords.Items[I] := TRecord.Create;
+        TRecord(NewRecords.Items[I]).Values.Count := FormFields.Fields.Count;
+        for C := 0 to FormFields.Fields.Count - 1 do
+          TRecord(NewRecords.Items[I]).Values[C] := TField(FormFields.Fields[C]).GetValueClass.Create;
+      end;
+      for C := 0 to FormFields.Fields.Count - 1 do begin
+        OldField := OldTable.Fields.FindByName(TField(FormFields.Fields[C]).Name);
+        if Assigned(OldField) then begin
+          FI := OldTable.Fields.IndexOf(OldField);
+          for I := 0 to NewRecords.Count - 1 do
+            TValue(TRecord(NewRecords[I]).Values[C]).Assign(TValue(TRecord(OldTable.Records[I]).Values[FI]));
+        end;
+      end;
+      OldTable.Fields.Assign(FormFields.Fields);
+      OldTable.Records.Assign(NewRecords);
+      NewRecords.Free;
+      ReloadList;
+    end;
+    FormFields.Fields.Free;
   end;
 end;