source: trunk/Forms/UFormField.pas

unit UFormField;

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  ComCtrls, EditBtn, Spin, UDatabase;

type

  { TFormField }

  TFormField = class(TForm)
    ButtonOk: TButton;
    ButtonCancel: TButton;
    ComboBoxType: TComboBox;
    DateEditMin: TDateEdit;
    DateEditMax: TDateEdit;
    EditName: TEdit;
    EditStringDefault: TEdit;
    EditTextBefore: TEdit;
    EditTextAfter: TEdit;
    FloatSpinEditMin: TFloatSpinEdit;
    FloatSpinEditMax: TFloatSpinEdit;
    Label1: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    PageControl1: TPageControl;
    SpinEditMin: TSpinEdit;
    SpinEditMax: TSpinEdit;
    TabSheetFloat: TTabSheet;
    TabSheetDateTime: TTabSheet;
    TabSheetInteger: TTabSheet;
    TabSheetString: TTabSheet;
    TabSheetBoolean: TTabSheet;
    procedure ComboBoxTypeChange(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
  public
    procedure Load(Field: TField);
    procedure Save(Field: TField);
  end;


implementation

uses
  UDataTypes;

{$R *.lfm}

{ TFormField }

procedure TFormField.FormShow(Sender: TObject);
begin
end;

procedure TFormField.FormCreate(Sender: TObject);
begin
end;

procedure TFormField.ComboBoxTypeChange(Sender: TObject);
begin
  PageControl1.TabIndex := ComboBoxType.ItemIndex;
end;

procedure TFormField.Load(Field: TField);
var
  I: Integer;
  SelectedItem: TDataType;
begin
  if ComboBoxType.ItemIndex <> -1 then
    SelectedItem := TDataType(ComboBoxType.Items.Objects[ComboBoxType.ItemIndex])
    else SelectedItem := nil;

  with Field.Table.DbClient.ConnectProfile.ClientType.DataTypes do begin
    while ComboBoxType.Items.Count > Count do
      ComboBoxType.Items.Delete(ComboBoxType.Items.Count - 1);
    while ComboBoxType.Items.Count < Count do
      ComboBoxType.Items.Add('');
    for I := 0 to Count - 1 do begin
      ComboBoxType.Items.Strings[I] := TDataType(Items[I]).Title;
      ComboBoxType.Items.Objects[I] := Items[I];
    end;
    if Assigned(SelectedItem) then
      ComboBoxType.ItemIndex := ComboBoxType.Items.IndexOfObject(SelectedItem);
  end;

  EditName.Text := Field.Name;
  EditTextAfter.Text := Field.TextAfter;
  EditTextBefore.Text := Field.TextBefore;
  ComboBoxType.ItemIndex := ComboBoxType.Items.IndexOfObject(Field.DataType);
  ComboBoxTypeChange(Self);
  case Field.DataType.FieldType of
    ftString: begin
      EditStringDefault.Text := TFieldString(Field.TypeRelated).DefaultValue;
    end;
    ftDateTime: begin
      DateEditMin.Date := TFieldDateTime(Field.TypeRelated).Min;
      DateEditMax.Date := TFieldDateTime(Field.TypeRelated).Max;
    end;
    ftInteger: begin
      SpinEditMin.Value := TFieldInteger(Field.TypeRelated).Min;
      SpinEditMax.Value := TFieldInteger(Field.TypeRelated).Max;
    end;
    ftFloat: begin
      FloatSpinEditMin.Value := TFieldFloat(Field.TypeRelated).Min;
      FloatSpinEditMax.Value := TFieldFloat(Field.TypeRelated).Max;
    end;
  end;
end;

procedure TFormField.Save(Field: TField);
begin
  Field.Name := EditName.Text;
  Field.TextBefore := EditTextBefore.Text;
  Field.TextAfter := EditTextAfter.Text;
  Field.DataType := TDataType(ComboBoxType.Items.Objects[ComboBoxType.ItemIndex]);
  case Field.DataType.FieldType of
    ftString: TFieldString(Field.TypeRelated).DefaultValue := EditStringDefault.Text;
    ftDateTime: begin
      TFieldDateTime(Field.TypeRelated).Min := DateEditMin.Date;
      TFieldDateTime(Field.TypeRelated).Max := DateEditMax.Date;
    end;
    ftInteger: begin
      TFieldInteger(Field.TypeRelated).Min := SpinEditMin.Value;
      TFieldInteger(Field.TypeRelated).Max := SpinEditMax.Value;
    end;
    ftFloat: begin
      TFieldFloat(Field.TypeRelated).Min := FloatSpinEditMin.Value;
      TFieldFloat(Field.TypeRelated).Max := FloatSpinEditMax.Value;
    end;
  end;
end;

end.