source: branches/test1/Client/Application/UDataTypes.pas

unit UDataTypes;

{$mode delphi}

interface

uses
  Classes, SysUtils, Controls, Spin, StdCtrls, ExtCtrls, MaskEdit, EditBtn,
  UPDClient;

type

  { TDataType }

  TDataType = class
    Name: string;
    CustomType: Integer;
    Control: TWinControl;
    function CreateControl(Owner: TComponent): TWinControl; virtual;
    procedure SetupControl(Control: TWinControl); virtual;
    function GetControlValue(Control: TWinControl): string; virtual;
    procedure Load(CellValue: string); virtual;
    procedure LoadDef(ACustomType: Integer); virtual;
    procedure SetDefault; virtual;
    function GetStringValue: string; virtual;
    constructor Create; virtual;
  end;

  { TDataTypeNumber }

  TDataTypeNumber = class(TDataType)
    Value: Integer;
    Default: Integer;
    Min: Integer;
    Max: Integer;
    function CreateControl(Owner: TComponent): TWinControl; override;
    procedure SetupControl(Control: TWinControl); override;
    function GetControlValue(Control: TWinControl): string; override;
    procedure Load(CellValue: string); override;
    procedure LoadDef(CustomType: Integer); override;
    constructor Create; override;
  end;

  { TDataTypeString }

  TDataTypeString = class(TDataType)
    Value: string;
    Default: string;
    MaxLength: Integer;
    function CreateControl(Owner: TComponent): TWinControl; override;
    procedure SetupControl(Control: TWinControl); override;
    function GetControlValue(Control: TWinControl): string; override;
    procedure Load(CellValue: string); override;
    constructor Create; override;
  end;

  { TDataTypePassword }

  TDataTypePassword = class(TDataType)
    Value: string;
    Default: string;
    MaxLength: Integer;
    function CreateControl(Owner: TComponent): TWinControl; override;
    procedure SetupControl(Control: TWinControl); override;
    procedure Load(CellValue: string); override;
    constructor Create; override;
  end;

  { TDataTypeBoolean }

  TDataTypeBoolean = class(TDataType)
    Value: Boolean;
    Default: Boolean;
    function CreateControl(Owner: TComponent): TWinControl; override;
    function GetControlValue(Control: TWinControl): string; override;
    procedure SetupControl(Control: TWinControl); override;
    procedure Load(CellValue: string); override;
    constructor Create; override;
  end;

  { TDataTypeRelationOne }

  TDataTypeRelationOne = class(TDataType)
  private
    procedure ButtonClickExecute(Sender: TObject);
  public
    ObjectId: Integer;
    SelectedItemName: string;
    function CreateControl(Owner: TComponent): TWinControl; override;
    procedure SetupControl(Control: TWinControl); override;
    function GetControlValue(Control: TWinControl): string; override;
    procedure Load(CellValue: string); override;
    procedure LoadDef(ACustomType: Integer); override;
    constructor Create; override;
  end;

  { TDataTypeRelationMany }

  TDataTypeRelationMany = class(TDataType)
    ObjectId: Integer;
    PropertyID: Integer;
    PropertyName: string;
    SelectedItemName: string;
    function CreateControl(Owner: TComponent): TWinControl; override;
    procedure SetupControl(Control: TWinControl); override;
    procedure Load(CellValue: string); override;
    procedure LoadDef(ACustomType: Integer); override;
    constructor Create; override;
  end;

  { TDataTypeDateTime }

  TDataTypeDate = class(TDataType)
    Value: TDateTime;
    Default: TDateTime;
    Min: TDateTime;
    Max: TDateTime;
    function CreateControl(Owner: TComponent): TWinControl; override;
    function GetControlValue(Control: TWinControl): string; override;
    procedure SetupControl(Control: TWinControl); override;
    procedure Load(CellValue: string); override;
    constructor Create; override;
  end;

  TDataTypeDateTime = class(TDataType)
    Value: TDateTime;
    Default: TDateTime;
    Min: TDateTime;
    Max: TDateTime;
    function CreateControl(Owner: TComponent): TWinControl; override;
    function GetControlValue(Control: TWinControl): string; override;
    procedure SetupControl(Control: TWinControl); override;
    procedure Load(CellValue: string); override;
    constructor Create; override;
  end;

  { TDataTypeFloat }

  TDataTypeFloat = class(TDataType)
    Value: Double;
    Default: Double;
    Min: Double;
    Max: Double;
    function CreateControl(Owner: TComponent): TWinControl; override;
    function GetControlValue(Control: TWinControl): string; override;
    procedure SetupControl(Control: TWinControl); override;
    procedure Load(CellValue: string); override;
    constructor Create; override;
  end;

  function GetDataType(ACustomType: Integer): TDataType;


implementation

uses
  USqlDatabase, UFormItemSelect, UFormMain, UCore, USystem;

function GetDataType(ACustomType: Integer): TDataType;
var
  Proxy: TListProxy;
  BaseType: Integer;
begin
  try
    Proxy := TListProxy.Create;
    Proxy.Client := Core.System.Client;
    Proxy.ObjectName := CustomTypeTableName;
    Proxy.Condition := 'Id=' + IntToStr(ACustomType);
    Proxy.Load;
    BaseType := StrToInt(TObjectProxy(Proxy.Objects[0]).Properties.Values['Type']);
  finally
    Proxy.Free;
  end;

  if BaseType = Integer(vtInteger) then begin
    Result := TDataTypeNumber.Create;
  end else
  if BaseType = Integer(vtDate) then begin
    Result := TDataTypeDate.Create;
  end else
  if BaseType = Integer(vtDateTime) then begin
    Result := TDataTypeDateTime.Create;
  end else
  if BaseType = Integer(vtFloat) then begin
    Result := TDataTypeFloat.Create;
  end else
  if BaseType = Integer(vtString) then begin
    Result := TDataTypeString.Create;
  end else
  if BaseType = Integer(vtPassword) then begin
    Result := TDataTypePassword.Create;
  end else
  if BaseType = Integer(vtBoolean) then begin
    Result := TDataTypeBoolean.Create;
  end else
  if BaseType = Integer(vtRelationOne) then begin
    Result := TDataTypeRelationOne.Create;
  end else
  if BaseType = Integer(vtRelationMany) then begin
    Result := TDataTypeRelationMany.Create;
  end else begin
    Result := TDataTypeString.Create;
  end;
  Result.CustomType := ACustomType;
end;

{ TDataTypeDateTime }

function TDataTypeDateTime.CreateControl(Owner: TComponent): TWinControl;
begin
  Result := TDateEdit.Create(Owner);
end;

function TDataTypeDateTime.GetControlValue(Control: TWinControl): string;
begin
  Result := DateTimeToSQL(TDateEdit(Control).Date);
end;

procedure TDataTypeDateTime.SetupControl(Control: TWinControl);
begin
  TDateEdit(Control).Date := Value;
end;

procedure TDataTypeDateTime.Load(CellValue: string);
begin
  Value := SQLToDateTime(CellValue);
end;

constructor TDataTypeDateTime.Create;
begin
  inherited Create;
  Name := 'DateType';
end;

{ TDataTypeRelationMany }

function TDataTypeRelationMany.CreateControl(Owner: TComponent): TWinControl;
begin
  Result := inherited CreateControl(Owner);
end;

procedure TDataTypeRelationMany.SetupControl(Control: TWinControl);
begin
  inherited SetupControl(Control);
end;

procedure TDataTypeRelationMany.Load(CellValue: string);
begin
  inherited Load(CellValue);
end;

procedure TDataTypeRelationMany.LoadDef(ACustomType: Integer);
var
  Proxy: TListProxy;
  BaseType: Integer;
begin
  try
    Proxy := TListProxy.Create;
    Proxy.Client := Core.System.Client;
    Proxy.ObjectName := TypeRelationMany;
    Proxy.Condition := 'CustomType=' + IntToStr(ACustomType);
    Proxy.Load;
    PropertyID := StrToInt(TObjectProxy(Proxy.Objects[0]).Properties.Values['ObjectProperty']);
  finally
    Proxy.Free;
  end;
  try
    Proxy := TListProxy.Create;
    Proxy.Client := Core.System.Client;
    Proxy.ObjectName := PropertyTable;
    Proxy.Condition := 'Id=' + IntToStr(PropertyID);
    Proxy.Load;
    ObjectId := StrToInt(TObjectProxy(Proxy.Objects[0]).Properties.Values['Object']);
    PropertyName := TObjectProxy(Proxy.Objects[0]).Properties.Values['ColumnName'];
  finally
    Proxy.Free;
  end;
end;

constructor TDataTypeRelationMany.Create;
begin
  inherited Create;
  Name := 'RelationMany';
end;

{ TDataTypeRelationOne }

procedure TDataTypeRelationOne.ButtonClickExecute(Sender: TObject);
var
  NewSelectForm: TItemSelectForm;
begin
  try
    NewSelectForm := TItemSelectForm.Create(MainForm);
    NewSelectForm.ObjectId := ObjectId;
    NewSelectForm.ShowModal;
    TEditButton(Control).Text := IntToStr(NewSelectForm.SelectedId)
  finally
    ItemSelectForm.Free;
  end;
end;

function TDataTypeRelationOne.CreateControl(Owner: TComponent): TWinControl;
begin
  Result := TEditButton.Create(Owner);
  TEditButton(Result).Enabled := False;
  TEditButton(Result).Button.Enabled := True;
  TEditButton(Result).Button.OnClick := ButtonClickExecute;
  Control := Result;
end;

procedure TDataTypeRelationOne.SetupControl(Control: TWinControl);
begin
  TEditButton(Control).Text := SelectedItemName;
end;

function TDataTypeRelationOne.GetControlValue(Control: TWinControl): string;
begin
  Result := TEditButton(Control).Text;
end;

procedure TDataTypeRelationOne.Load(CellValue: string);
begin
  SelectedItemName := CellValue;
end;

procedure TDataTypeRelationOne.LoadDef(ACustomType: Integer);
var
  Proxy: TListProxy;
begin
  try
    Proxy := TListProxy.Create;
    Proxy.Client := Core.System.Client;
    Proxy.ObjectName := TypeRelationOne;
    Proxy.Condition := 'CustomType=' + IntToStr(ACustomType);
    Proxy.Load;
    ObjectId := StrToInt(TObjectProxy(Proxy.Objects[0]).Properties.Values['Object']);
  finally
    Proxy.Free;
  end;
end;

constructor TDataTypeRelationOne.Create;
begin
  inherited Create;
  Name := 'RelationOne';
end;


{ TDataTypePassword }

function TDataTypePassword.CreateControl(Owner: TComponent): TWinControl;
begin
  Result := TMaskEdit.Create(Owner);
end;

procedure TDataTypePassword.SetupControl(Control: TWinControl);
begin
  TMaskEdit(Control).Text := Value;
end;

procedure TDataTypePassword.Load(CellValue: string);
begin
  Value := CellValue;
end;

constructor TDataTypePassword.Create;
begin
  inherited Create;
  Name := 'Password';
end;

{ TDataTypeFloat }

function TDataTypeFloat.CreateControl(Owner: TComponent): TWinControl;
begin
  Result := TFloatSpinEdit.Create(Owner);
end;

function TDataTypeFloat.GetControlValue(Control: TWinControl): string;
begin
  Result := MySQLFloatToStr(TFloatSpinEdit(Control).Value);
end;

procedure TDataTypeFloat.SetupControl(Control: TWinControl);
begin
  TFloatSpinEdit(Control).Value := Value;
end;

procedure TDataTypeFloat.Load(CellValue: string);
begin
  Value := MySQLStrToFloat(CellValue);
end;

constructor TDataTypeFloat.Create;
begin
  inherited Create;
  Name := 'Float';
end;

{ TDataTypeDateTime }

function TDataTypeDate.CreateControl(Owner: TComponent): TWinControl;
begin
  Result := TDateEdit.Create(Owner);
end;

function TDataTypeDate.GetControlValue(Control: TWinControl): string;
begin
  Result := DateTimeToSQL(TDateEdit(Control).Date);
end;

procedure TDataTypeDate.SetupControl(Control: TWinControl);
begin
  TDateEdit(Control).Date := Value;
end;

procedure TDataTypeDate.Load(CellValue: string);
begin
  Value := SQLToDateTime(CellValue);
end;

constructor TDataTypeDate.Create;
begin
  inherited Create;
  Name := 'Date';
end;

{ TDataTypeBoolean }

function TDataTypeBoolean.CreateControl(Owner: TComponent): TWinControl;
begin
  Result := TCheckBox.Create(Owner);
end;

function TDataTypeBoolean.GetControlValue(Control: TWinControl): string;
begin
  Result := IntToStr(Integer(TCheckBox(Control).Checked));
end;

procedure TDataTypeBoolean.SetupControl(Control: TWinControl);
begin
  TCheckBox(Control).Checked := Value;
end;

procedure TDataTypeBoolean.Load(CellValue: string);
begin
  Value := Boolean(StrToInt(CellValue));
end;

constructor TDataTypeBoolean.Create;
begin
  inherited Create;
  Name := 'Boolean';
end;

{ TDataTypeNumber }

function TDataTypeNumber.CreateControl(Owner: TComponent): TWinControl;
begin
  Result := TSpinEdit.Create(Owner);
end;

procedure TDataTypeNumber.SetupControl(Control: TWinControl);
begin
  inherited SetupControl(Control);
  TSpinEdit(Control).Value := Value;
end;

function TDataTypeNumber.GetControlValue(Control: TWinControl): string;
begin
  Result := IntToStr(TSpinEdit(Control).Value);
end;

procedure TDataTypeNumber.Load(CellValue: string);
begin
  inherited Load(CellValue);
  Value := StrToInt(CellValue);
end;

procedure TDataTypeNumber.LoadDef(CustomType: Integer);
begin

end;

constructor TDataTypeNumber.Create;
begin
  inherited Create;
  Name := 'Number';
end;

{ TDataTypeString }

function TDataTypeString.CreateControl(Owner: TComponent): TWinControl;
begin
  Result := TEdit.Create(Owner);
end;

procedure TDataTypeString.SetupControl(Control: TWinControl);
begin
  TEdit(Control).Text := Value;
end;

function TDataTypeString.GetControlValue(Control: TWinControl): string;
begin
  Result := TEdit(Control).Text;
end;

procedure TDataTypeString.Load(CellValue: string);
begin
  Value := CellValue;
end;

constructor TDataTypeString.Create;
begin
  inherited Create;
  Name := 'String';
end;

{ TDataType }

function TDataType.CreateControl(Owner: TComponent): TWinControl;
begin

end;

procedure TDataType.SetupControl(Control: TWinControl);
begin

end;

function TDataType.GetControlValue(Control: TWinControl): string;
begin

end;

procedure TDataType.Load(CellValue: string);
begin

end;

procedure TDataType.LoadDef(ACustomType: Integer);
begin

end;

procedure TDataType.SetDefault;
begin

end;

function TDataType.GetStringValue: string;
begin
  Result := '';
end;

constructor TDataType.Create;
begin
  inherited;
end;

end.