source: trunk/Forms/UFormFields.pas

unit UFormFields;

interface

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

type

  { TFormFields }

  TFormFields = class(TForm)
    AAdd: TAction;
    AOk: TAction;
    ACancel: TAction;
    ActionList1: TActionList;
    AModify: TAction;
    ARemove: TAction;
    ListView1: TListView;
    MenuItem1: TMenuItem;
    MenuItem2: TMenuItem;
    MenuItem3: TMenuItem;
    PopupMenu1: TPopupMenu;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    procedure AAddExecute(Sender: TObject);
    procedure ACancelExecute(Sender: TObject);
    procedure AModifyExecute(Sender: TObject);
    procedure AOkExecute(Sender: TObject);
    procedure ARemoveExecute(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure ListView1Data(Sender: TObject; Item: TListItem);
    procedure ListView1SelectItem(Sender: TObject; Item: TListItem;
      Selected: Boolean);
  public
    Fields: TFields;
    TableName: string;
    procedure UpdateInterface;
    procedure ReloadList;
  end;

implementation

uses
  UFormField;

{$R *.lfm}

resourcestring
  SNewField = 'New field';
  SFieldsNotSet = 'Fields not set';
  STableFields = 'Table fields - %s';

{ TFormFields }

procedure TFormFields.FormShow(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to ToolBar1.ButtonCount - 1 do
    ToolBar1.Buttons[I].Hint := ToolBar1.Buttons[I].Caption;
  if not Assigned(Fields) then
    raise Exception.Create(SFieldsNotSet);
  Caption := Format(STableFields, [TableName]);
  UpdateInterface;
  ReloadList;
end;

procedure TFormFields.AAddExecute(Sender: TObject);
var
  NewField: TField;
begin
  NewField := TField.Create;
  NewField.Table := Fields.Table;
  NewField.Name := SNewField;
  if Fields.Table.DbClient.ConnectProfile.ClientType.DataTypes.Count > 0 then
    NewField.DataType := TDataType(Fields.Table.DbClient.ConnectProfile.ClientType.DataTypes[0]);
  with TFormField.Create(nil) do
  try
    Load(NewField);
    if ShowModal = mrOk then begin
      Save(NewField);
      Fields.Table.DbClient.Query('INSERT INTO ModelField ( Name , Caption , Model , DataType ) VALUES ( ' +
        NewField.Name + ' , ' + NewField.TextBefore + ' , ' + TableName + ' , ' + NewField.DataType.Name + ' )');
      ReloadList;
    end else NewField.Free;
  finally
    Free;
  end;
end;

procedure TFormFields.ACancelExecute(Sender: TObject);
begin
  Close;
end;

procedure TFormFields.AModifyExecute(Sender: TObject);
begin
  if Assigned(ListView1.Selected) then begin
    with TFormField.Create(nil) do
    try
      Load(TField(ListView1.Selected.Data));
      if ShowModal = mrOk then begin
        Save(TField(ListView1.Selected.Data));
        Fields.Table.DbClient.Query('UPDATE ModelField SET Caption = ' + TField(ListView1.Selected.Data).TextBefore +
          ' , DataType = ' + TField(ListView1.Selected.Data).DataType.Name +
          ' WHERE Model = ' + Fields.Table.Name +' , Name = ' + TField(ListView1.Selected.Data).Name);
        ReloadList;
      end;
    finally
      Free;
    end;
  end;
end;

procedure TFormFields.AOkExecute(Sender: TObject);
begin
  ModalResult := mrOk;
end;

procedure TFormFields.ARemoveExecute(Sender: TObject);
begin
  if Assigned(ListView1.Selected) then begin
    Fields.Table.DbClient.Query('DELETE FROM ModelField WHERE Model = ' + Fields.Table.Name +
      ' , Name = ' + TField(ListView1.Selected.Data).Name);
    ReloadList;
    UpdateInterface;
  end;
end;

procedure TFormFields.ListView1Data(Sender: TObject; Item: TListItem);
begin
  if (Item.Index >= 0) and (Item.Index < Fields.Count) then
  with TField(Fields[Item.Index]) do begin
    Item.Caption := Name;
    Item.SubItems.Add(DataType.Title);
    Item.SubItems.Add(BoolToStr(Required));
    Item.SubItems.Add(TextBefore);
    Item.SubItems.Add(TextAfter);
    Item.Data := Fields[Item.Index];
  end;
end;

procedure TFormFields.ListView1SelectItem(Sender: TObject; Item: TListItem;
  Selected: Boolean);
begin
  UpdateInterface;
end;

procedure TFormFields.UpdateInterface;
begin
  AModify.Enabled := Assigned(ListView1.Selected);
  ARemove.Enabled := Assigned(ListView1.Selected);
end;

procedure TFormFields.ReloadList;
begin
  Fields.Load;

  ListView1.Items.Count := Fields.Count;
  ListView1.Repaint;
end;

end.