source: trunk/Packages/ChronisPlatform/Forms/UFormEdit.pas

unit UFormEdit;

{$mode delphi}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  Buttons, ExtCtrls, Spin, ComCtrls, EditBtn, SpecializedList,
  SpecializedDictionary, UDataView, USqlDatabase, UTimeEdit;

type
  TControlType = (ctLabel, ctCheckBox, ctEdit, ctMemo, ctDate, ctTime, ctDateTime,
    ctComboBox, ctSpinEdit, ctReference);

  TFormItem = class
    Caption: string;
    Name: string;
    Visible: Boolean;
    Rect: TRect;
    Control: TControl; // Used by TFormEdit
    ControlType: TControlType;
    TitlePlacement: TAlign;
    ReferencedTable: string;
  end;

  { TFormItems }

  TFormItems = class(TListObject)
    function AddItem(Caption, Name: string; ControlType: TControlType;
      Visible: Boolean; Rect: TRect; TextPlacement: TAlign = alLeft): TFormItem;
  end;

  { TDataViewForm }

  TDataViewForm = class(TDataView)
    Name: string;
    Caption: string;
    ImageIndex: Integer;
    Items: TFormItems;
    constructor Create;
    destructor Destroy; override;
  end;

  { TFormEdit }

  TFormEdit = class(TForm)
    Bevel1: TBevel;
    ButtonOk: TButton;
    ButtonCancel: TButton;
    PanelControls: TPanel;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    FView: TDataViewForm;
    procedure SetView(AValue: TDataViewForm);
    procedure RebuildControls;
  public
    Values: TDictionaryStringString;
    ItemId: Integer;
    property View: TDataViewForm read FView write SetView;
    procedure ClearData;
    procedure LoadFromDatabase;
    procedure SaveToDatabase;
    procedure LoadFromControls;
  end;

var
  FormEdit: TFormEdit;

implementation

uses
  UCore, UFormMain;

resourcestring
  SItemNotFound = 'Item not found';

{ TDataViewForm }

constructor TDataViewForm.Create;
begin
  Items := TFormItems.Create;
end;

destructor TDataViewForm.Destroy;
begin
  Items.Free;
  inherited Destroy;
end;

{ TFormItems }

function TFormItems.AddItem(Caption, Name: string; ControlType: TControlType;
  Visible: Boolean; Rect: TRect; TextPlacement: TAlign = alLeft): TFormItem;
begin
  Result := TFormItem.Create;
  Result.Caption := Caption;
  Result.Name := Name;
  Result.Visible := Visible;
  Result.Rect := Rect;
  Result.ControlType := ControlType;
  Result.TitlePlacement := TextPlacement;
  Add(Result);
end;

{$R *.lfm}

{ TFormEdit }

procedure TFormEdit.FormCreate(Sender: TObject);
begin
  Values := TDictionaryStringString.Create;
end;

procedure TFormEdit.FormDestroy(Sender: TObject);
begin
  FreeAndNil(Values);
end;

procedure TFormEdit.SetView(AValue: TDataViewForm);
begin
  if FView=AValue then Exit;
  FView := AValue;
  if Assigned(AValue) then ClearData
    else begin
      Values.Clear;
    end;
end;

procedure TFormEdit.RebuildControls;
var
  NewControl: TControl;
  I: Integer;
  TitleRect: TRect;
  W: Integer;
  H: Integer;
begin
  W := 130;
  H := 24;
  for I := PanelControls.ControlCount - 1 downto 0 do
    PanelControls.Controls[I].Free;
  for I := 0 to View.Items.Count - 1 do
  with TFormItem(View.Items[I]) do begin
    if TitlePlacement <> alNone then begin
      NewControl := TLabel.Create(Self);
      NewControl.Parent := PanelControls;
      NewControl.Caption := Caption;
      NewControl.AutoSize := False;
      TitleRect := Rect;
      case TitlePlacement of
        alLeft: begin
          TitleRect.Left := TitleRect.Left - 1;
          TitleRect.Right := TitleRect.Right - 1;
          TLabel(NewControl).Alignment := taRightJustify;
        end;
        alRight: begin
          TitleRect.Left := TitleRect.Left + 1;
          TitleRect.Right := TitleRect.Right + 1;
          TLabel(NewControl).Alignment := taLeftJustify;
        end;
        alTop: begin
          TitleRect.Top := TitleRect.Top - 1;
          TitleRect.Bottom := TitleRect.Bottom - 1;
          TLabel(NewControl).Alignment := taLeftJustify;
        end;
        alBottom: begin
          TitleRect.Top := TitleRect.Top + 1;
          TitleRect.Bottom := TitleRect.Bottom + 1;
          TLabel(NewControl).Alignment := taLeftJustify;
        end;
      end;
      NewControl.SetBounds(TitleRect.Left * W + 4, TitleRect.Top * H + 2,
        (TitleRect.Right - TitleRect.Left) * W - 8,
        (TitleRect.Bottom - TitleRect.Top) * H - 4);
      NewControl.Show;
    end;
    if ControlType = ctLabel then begin
      NewControl := TLabel.Create(Self);
      NewControl.Parent := PanelControls;
      NewControl.Caption := Values.Values[Name];
      NewControl.SetBounds(Rect.Left * W, Rect.Top * H,
        (Rect.Right - Rect.Left) * W, (Rect.Bottom - Rect.Top) * H);
      NewControl.Show;
      Control := NewControl;
    end else
    if ControlType = ctEdit then begin
      NewControl.Show;
      NewControl := TEdit.Create(Self);
      TEdit(NewControl).Text := Values.Values[Name];
      NewControl.Parent := PanelControls;
      NewControl.SetBounds(Rect.Left * W, Rect.Top * H,
       (Rect.Right - Rect.Left) * W, (Rect.Bottom - Rect.Top) * H);
      NewControl.Show;
      Control := NewControl;
    end else
    if ControlType = ctMemo then begin
      NewControl := TMemo.Create(Self);
      NewControl.Parent := PanelControls;
      TMemo(NewControl).Lines.Text := Values.Values[Name];
      NewControl.SetBounds(Rect.Left * W, Rect.Top * H,
       (Rect.Right - Rect.Left) * W, (Rect.Bottom - Rect.Top) * H);
      NewControl.Show;
      Control := NewControl;
    end else
    if ControlType = ctCheckBox then begin
      NewControl := TCheckBox.Create(Self);
      NewControl.Parent := PanelControls;
      TCheckBox(NewControl).Checked := Values.Values[Name] = '1';
      NewControl.SetBounds(Rect.Left * W, Rect.Top * H,
       (Rect.Right - Rect.Left) * W, (Rect.Bottom - Rect.Top) * H);
      NewControl.Show;
      Control := NewControl;
    end else
    if ControlType = ctComboBox then begin
      NewControl := TComboBox.Create(Self);
      NewControl.Parent := PanelControls;
      TComboBox(NewControl).Text := Values.Values[Name];
      NewControl.SetBounds(Rect.Left * W, Rect.Top * H,
       (Rect.Right - Rect.Left) * W, (Rect.Bottom - Rect.Top) * H);
      NewControl.Show;
      Control := NewControl;
    end else
    if ControlType = ctSpinEdit then begin
      NewControl := TSpinEdit.Create(Self);
      NewControl.Parent := PanelControls;
      TSpinEdit(NewControl).Value := StrToInt(Values.Values[Name]);
      NewControl.SetBounds(Rect.Left * W, Rect.Top * H,
       (Rect.Right - Rect.Left) * W, (Rect.Bottom - Rect.Top) * H);
      NewControl.Show;
      Control := NewControl;
    end else
    if ControlType = ctDate then begin
      NewControl := TDateEdit.Create(Self);
      NewControl.Parent := PanelControls;
      TDateEdit(NewControl).Date := SQLToDate(Values.Values[Name]);
      NewControl.SetBounds(Rect.Left * W, Rect.Top * H,
       (Rect.Right - Rect.Left) * W - TEditButton(NewControl).Button.Width, (Rect.Bottom - Rect.Top) * H);
      NewControl.Show;
      Control := NewControl;
    end else
    if ControlType = ctTime then begin
      NewControl := TTimeEdit.Create(Self);
      NewControl.Parent := PanelControls;
      TTimeEdit(NewControl).Time := SQLToTime(Values.Values[Name]);
      NewControl.SetBounds(Rect.Left * W, Rect.Top * H,
       (Rect.Right - Rect.Left) * W, (Rect.Bottom - Rect.Top) * H);
      NewControl.Show;
      Control := NewControl;
    end else
    if ControlType = ctReference then begin
      NewControl := TEditButton.Create(Self);
      NewControl.Parent := PanelControls;
      TEditButton(NewControl).Text := Values.Values[Name];
      FormMain.ImageList1.GetBitmap(4, TEditButton(NewControl).Glyph);
      NewControl.SetBounds(Rect.Left * W, Rect.Top * H,
       (Rect.Right - Rect.Left) * W - TEditButton(NewControl).Button.Width,
       (Rect.Bottom - Rect.Top) * H);
      NewControl.Show;
      Control := NewControl;
    end;
  end;
end;

procedure TFormEdit.ClearData;
var
  I: Integer;
begin
  Values.Clear;
  for I := 0 to View.Items.Count - 1 do
  with TFormItem(View.Items[I]) do begin
    case ControlType of
      ctCheckBox, ctSpinEdit, ctReference: Values.Add(Name, '0');
      ctDateTime: Values.Add(Name, '0000-00-00 00:00:00');
      ctDate: Values.Add(Name, '0000-00-00');
      ctTime: Values.Add(Name, '00:00:00');
      else Values.Add(Name, '');
    end;
  end;
  RebuildControls;
end;

procedure TFormEdit.LoadFromDatabase;
var
  DbRows: TDbRows;
  Columns: string;
  I: Integer;
begin
  Columns := '';
  for I := 0 to View.Items.Count - 1 do
  with TFormItem(View.Items[I]) do
  if Visible then
    Columns := Columns + ', ' + Name;
  Delete(Columns, 1, 2);
  try
    DbRows := TDbRows.Create;
    Core.Database.Query(DbRows, 'SELECT ' + Columns + ' FROM `' + View.Name + '` WHERE `Id`=' +
      IntToStr(ItemId));
    if DbRows.Count > 0 then Values.Assign(DbRows[0])
      else raise Exception.Create(SItemNotFound);
  finally
    DbRows.Free;
  end;
  RebuildControls;
end;

procedure TFormEdit.SaveToDatabase;
var
  DbRows: TDbRows;
begin
  LoadFromControls;
  try
    DbRows := TDbRows.Create;
    if ItemId < 1 then Core.Database.Insert(View.Name, Values)
      else Core.Database.Update(View.Name, Values, '`Id`=' + IntToStr(ItemId));
  finally
    DbRows.Free;
  end;
end;

procedure TFormEdit.LoadFromControls;
var
  I: Integer;
begin
  for I := 0 to View.Items.Count - 1 do
  with TFormItem(View.Items[I]) do begin
    if ControlType = ctLabel then begin
      Values.Values[Name] := TLabel(Control).Caption;
    end else
    if ControlType = ctEdit then begin
      Values.Values[Name] := TEdit(Control).Text;
    end else
    if ControlType = ctMemo then begin
      Values.Values[Name] := TMemo(Control).Lines.Text;
    end else
    if ControlType = ctCheckBox then begin
      Values.Values[Name] := BoolToStr(TCheckBox(Control).Checked);
    end else
    if ControlType = ctComboBox then begin
      Values.Values[Name] := TComboBox(Control).Text;
    end else
    if ControlType = ctSpinEdit then begin
      Values.Values[Name] := IntToStr(TSpinEdit(Control).Value);
    end else
    if ControlType = ctDate then begin
      Values.Values[Name] := DateToSQL(TDateEdit(Control).Date);
    end else
    if ControlType = ctTime then begin
      Values.Values[Name] := TimeToSQL(TTimeEdit(Control).Time);
    end else
    if ControlType = ctReference then begin
      Values.Values[Name] := TEditButton(Control).Text;
    end;
  end;
end;

end.