source: trunk/Forms/UFormTables.pas

unit UFormTables;

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
  ActnList, Menus, UDatabase;

type

  { TFormTables }

  TFormTables = class(TForm)
    AAdd: TAction;
    AShowFields: TAction;
    AShowRecords: TAction;
    AModify: TAction;
    ARemove: TAction;
    ActionList1: TActionList;
    ListViewTables: TListView;
    MenuItem1: TMenuItem;
    MenuItem2: TMenuItem;
    MenuItem3: TMenuItem;
    MenuItem4: TMenuItem;
    MenuItem5: TMenuItem;
    PopupMenu1: TPopupMenu;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    procedure AAddExecute(Sender: TObject);
    procedure AModifyExecute(Sender: TObject);
    procedure ARemoveExecute(Sender: TObject);
    procedure AShowFieldsExecute(Sender: TObject);
    procedure AShowRecordsExecute(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure ListViewTablesData(Sender: TObject; Item: TListItem);
    procedure ListViewTablesSelectItem(Sender: TObject; Item: TListItem;
      Selected: Boolean);
  private
    FDbClient: TDbClient;
    FTables: TTables;
    procedure SetDbClient(AValue: TDbClient);
  public
    property DbClient: TDbClient read FDbClient write SetDbClient;
    property Tables: TTables read FTables;
    procedure UpdateInterface;
    procedure ReloadList;
  end;


implementation

uses
  UFormTable, UFormRecords, UFormFields;

{$R *.lfm}

resourcestring
  SRemoveTable = 'Remove table';
  SRemoveTableConfirm = 'Do you want to really remove table ''%s'' ?';
  SNewTable = 'New table';

{ TFormTables }

procedure TFormTables.ListViewTablesData(Sender: TObject; Item: TListItem);
begin
  if (Item.Index >= 0) and (Item.Index < FTables.Count) then
  with TTable(FTables[Item.Index]) do begin
    Item.Caption := Caption;
    Item.SubItems.Add(IntToStr(RecordsCount));
    Item.Data := FTables[Item.Index];
  end
end;

procedure TFormTables.ListViewTablesSelectItem(Sender: TObject; Item: TListItem;
  Selected: Boolean);
begin
  UpdateInterface;
end;

procedure TFormTables.SetDbClient(AValue: TDbClient);
begin
  if FDbClient = AValue then Exit;
  FDbClient := AValue;
  FTables.DbClient := AValue;
  ReloadList;
end;

procedure TFormTables.UpdateInterface;
begin
  ListViewTables.Enabled := Assigned(Tables) and Assigned(FDbClient);
  AAdd.Enabled := Assigned(Tables) and Assigned(FDbClient);
  AModify.Enabled := Assigned(Tables) and Assigned(ListViewTables.Selected) and Assigned(FDbClient);
  ARemove.Enabled := Assigned(Tables) and Assigned(ListViewTables.Selected) and Assigned(FDbClient);
  AShowRecords.Enabled := Assigned(Tables) and Assigned(ListViewTables.Selected) and Assigned(FDbClient);
  AShowFields.Enabled := Assigned(Tables) and Assigned(ListViewTables.Selected) and Assigned(FDbClient);
end;

procedure TFormTables.AAddExecute(Sender: TObject);
var
  NewTable: TTable;
begin
  NewTable := TTable.Create;
  NewTable.Name := SNewTable;
  NewTable.DbClient := Tables.DbClient;
  with TFormTable.Create(nil) do
  try
    Load(NewTable);
    if ShowModal = mrOk then begin
      Save(NewTable);
      Tables.DbClient.Query('INSERT INTO Model ( Name , Caption ) VALUES ( ' +
        NewTable.Name + ' , ' + NewTable.Caption + ' )');
      ReloadList;
    end else NewTable.Free;
  finally
    Free;
  end;
end;

procedure TFormTables.AModifyExecute(Sender: TObject);
begin
  if Assigned(ListViewTables.Selected) then begin
    with TFormTable.Create(nil) do
    try
      Load(TTable(ListViewTables.Selected.Data));
      if ShowModal = mrOk then begin
        Save(TTable(ListViewTables.Selected.Data));
        DbClient.Query('UPDATE Model SET Caption = ' + TTable(ListViewTables.Selected.Data).Caption + ' WHERE Name = ' + TTable(ListViewTables.Selected.Data).Name);
        ReloadList;
      end;
    finally
      Free;
    end;
  end;
end;

procedure TFormTables.ARemoveExecute(Sender: TObject);
begin
  if Assigned(ListViewTables.Selected) then begin
    if MessageDlg(SRemoveTable, Format(SRemoveTableConfirm, [TTable(ListViewTables.Selected.Data).Caption]),
    mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin
      Tables.DbClient.Query('DELETE FROM Model WHERE Name = ' + TTable(ListViewTables.Selected.Data).Name);
      ReloadList;
    end;
  end;
end;

procedure TFormTables.AShowFieldsExecute(Sender: TObject);
var
  NewRecords: TRecords;
  I: Integer;
  FI: Integer;
  C: Integer;
  OldField: TField;
  OldTable: TTable;
  FormFields: TFormFields;
begin
  if Assigned(ListViewTables.Selected) then begin
    OldTable := TTable(ListViewTables.Selected.Data);
    FormFields := TFormFields.Create(nil);
    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
      FormFields.Fields[I].Table := OldTable.Fields[I].Table;
    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;
        NewRecords[I].Values.Count := FormFields.Fields.Count;
        for C := 0 to FormFields.Fields.Count - 1 do
          NewRecords[I].Values[C] := FormFields.Fields[C].GetValueClass.Create;
      end;
      for C := 0 to FormFields.Fields.Count - 1 do begin
        OldField := OldTable.Fields.SearchByName(FormFields.Fields[C].Name);
        if Assigned(OldField) then begin
          FI := OldTable.Fields.IndexOf(OldField);
          for I := 0 to NewRecords.Count - 1 do
            NewRecords[I].Values[C].Assign(OldTable.Records[I].Values[FI]);
        end;
      end;
      OldTable.Fields.Assign(FormFields.Fields);
      OldTable.Records.Assign(NewRecords);
      NewRecords.Free;
      ReloadList;
    end;
    FormFields.Fields.Free;
    FormFields.Free;
  end;
end;

procedure TFormTables.AShowRecordsExecute(Sender: TObject);
begin
  if Assigned(ListViewTables.Selected) then begin
    with TFormRecords.Create(nil) do
    try
      Table := TTable(ListViewTables.Selected.Data);
      ShowModal;
    finally
      Free;
    end;
    ReloadList;
  end;
end;

procedure TFormTables.FormCreate(Sender: TObject);
begin
  FTables := TTables.Create;
end;

procedure TFormTables.FormDestroy(Sender: TObject);
begin
  FreeAndNil(FTables);
end;

procedure TFormTables.FormShow(Sender: TObject);
var
  I: Integer;
begin
  ReloadList;
  for I := 0 to ToolBar1.ButtonCount - 1 do
    ToolBar1.Buttons[I].Hint := ToolBar1.Buttons[I].Caption;
  UpdateInterface;
end;

procedure TFormTables.ReloadList;
var
  DbRows: TDbRows;
  NewTable: TTable;
  I: Integer;
begin
  Tables.Clear;
  if Assigned(DbClient) then begin
    DbRows := TDbRows.Create;
    try
      DbClient.Query('SELECT * FROM Model', DbRows);
      for I := 0 to DbRows.Count - 1 do begin
        NewTable := Tables.AddNew(DbRows[I].Items['Name']);
        NewTable.Caption := DbRows[I].Items['Caption'];
      end;
    finally
      DbRows.Free;
    end;
  end;

  for I := 0 to Tables.Count - 1 do
    Tables[I].LoadRecordsCount;
  if Assigned(Tables) then begin
    ListViewTables.Items.Count := Tables.Count;
    ListViewTables.Repaint;
  end else ListViewTables.Items.Count := 0;
  UpdateInterface;
end;

end.