source: branches/test1/Client/Module/UModuleSystem.pas

unit UModuleSystem;

{$mode delphi}

interface

uses
  Classes, SysUtils, UChronisModule, SpecializedDictionary, SpecializedList;

type

  { TModuleSystem }

  TModuleSystem = class(TChronisModule)
  private
    procedure InitStructure;
    procedure InitSystemValues;
  public
    procedure Install; override;
    procedure Uninstall; override;
    constructor Create; override;
    destructor Destroy; override;
  end;


implementation

uses
  USystem, USqlDatabase, UPDClient;

{ TModuleSystem }

procedure TModuleSystem.InitSystemValues;
var
  ObjectId: Integer;
  ObjectGroupId: Integer;
  PropertyParentId: Integer;
  ObjectPropertyGroupId: Integer;
  PropertyTypeId: Integer;
  ObjectPropertyId: Integer;
  ObjectPropertyIdGroup: Integer;
  PropertyObjectId: Integer;
  CustomTypeId: Integer;
  CustomTypeIdType: Integer;
  ObjectIdGroupId: Integer;
  TypeNumber: Integer;
  ObjectGroupParentId: Integer;
  TypeString: Integer;
  TypeBoolean: Integer;
  GroupId: Integer;
  EnumId: Integer;
  ModuleId: Integer;
  ModuleBaseId: Integer;
  ActionId: Integer;
  ObjectActionId: Integer;
begin
  with TChronisBase(System) do begin
  TypeNumber := AddType('Number', 'INT', vtInteger);
  TypeString := AddType('String', 'VARCHAR(255)', vtString);
  AddType('Text', 'TEXT', vtText);
  AddType('Date and time', 'DATETIME', vtDateTime);
  AddType('Floating number', 'FLOAT', vtFloat);
  AddType('Image', 'BLOB', vtImage);
  TypeBoolean := AddType('Boolean', 'BOOL', vtBoolean);
  AddType('IPv4', 'BINARY(4)', vtIPv4);
  AddType('IPv6', 'BINARY(16)', vtIPv6);
  AddType('MAC address', 'BINARY(6)', vtMAC);
  AddType('File', 'INT', vtFile);
  AddType('GPS', 'INT', vtGPS);
  AddType('Currency', 'FLOAT', vtCurrency);
  AddType('Enumeration', 'INT', vtEnumeration);
  AddType('Time', 'TIME', vtTime);
  AddType('Date', 'DATE', vtDate);
  AddType('Color', 'INT', vtColor);
  AddType('Hyperlink', 'VARCHAR(255)', vtHyperlink);
  AddType('RelationOne', 'INT', vtRelationOne);
  AddType('RelationMany', 'INT', vtRelationMany);
  AddType('Password', 'VARCHAR(255)', vtPassword);

  EnumId := AddEnumeration('Boolean');
  AddEnumerationState(EnumId, 'False');
  AddEnumerationState(EnumId, 'True');

  EnumId := AddEnumeration('Priority');
  AddEnumerationState(EnumId, 'Low');
  AddEnumerationState(EnumId, 'Normal');
  AddEnumerationState(EnumId, 'High');

  ActionId := AddObject('Action', 'SystemAction', Client.Schema);
    AddPropertyNumber(ActionId, 'Id', 'Id', False);
    AddPropertyString(ActionId, 'Name', 'Name', True);

  ObjectGroupId := AddObject('Menu', 'SystemMenu', Client.Schema);
    AddPropertyNumber(ObjectGroupId, 'Id', 'Id', False);
    AddPropertyString(ObjectGroupId, 'Name', 'Name', True);
    AddPropertyRelationOne(ObjectGroupId, 'Action', 'Action', True, ActionId);
    ObjectGroupParentId := AddPropertyRelationOne(ObjectGroupId, 'Parent', 'Parent', True, ObjectGroupId);

  ObjectId := AddObject('Objects', 'Object', Client.Schema);
    AddPropertyNumber(ObjectId, 'Id', 'Id', False);
    AddPropertyString(ObjectId, 'Name', 'Name', True);
    ObjectIdGroupId := AddPropertyRelationOne(ObjectId, 'Group', 'Group', True, ObjectGroupId);
    AddPropertyString(ObjectId, 'Schema', 'Schema', True);
    AddPropertyString(ObjectId, 'Table', 'Table', True);
    AddPropertyString(ObjectId, 'Primary key', 'PrimaryKey', True);
    AddPropertyNumber(ObjectId, 'Sequence', 'Sequence', True);
  ObjectActionId := AddAction('Show objects', 'Object', ObjectId);
  AddMenu('Objects', 0, ObjectActionId);

  PropertyTypeId := AddObject('Property types', 'Type', Client.Schema);
    AddPropertyNumber(PropertyTypeId, 'Id', 'Id', False);
    AddPropertyString(PropertyTypeId, 'Name', 'Name', True);
    AddPropertyString(PropertyTypeId, 'Type', 'DbType', True);
    //AddPropertyNumber(ObjectId, 'Parent', 'Parent');

  CustomTypeId := AddObject('Custom types', 'TypeCustom', Client.Schema);
    AddPropertyNumber(CustomTypeId, 'Id', 'Id', False);
    CustomTypeIdType := AddPropertyRelationOne(CustomTypeId, 'Type', 'Type', True, PropertyTypeId);

  ObjectPropertyGroupId := AddObject('Property groups', 'PropertyGroup', Client.Schema);
    AddPropertyNumber(ObjectPropertyGroupId, 'Id', 'Id', False);

  ObjectPropertyId := AddObject('Properties', 'Property', Client.Schema);
    AddPropertyNumber(ObjectPropertyId, 'Id', 'Id', False);
    AddPropertyString(ObjectPropertyId, 'Name', 'Name', True);
    PropertyParentId := AddPropertyRelationOne(ObjectPropertyId, 'Object', 'Object', True, ObjectId);
    ObjectPropertyIdGroup := AddPropertyRelationOne(ObjectPropertyId, 'Property group', 'PropertyGroup', True, ObjectPropertyGroupId);
    AddPropertyNumber(ObjectPropertyId, 'Custom type', 'CustomType', True);
    AddProperty(ObjectPropertyId, 'Editable', 'Editable', TypeBoolean, True);
    AddPropertyString(ObjectPropertyId, 'Column name', 'ColumnName', True);

    AddPropertyRelationMany(ObjectGroupId, 'Childs', 'Childs', True, PropertyParentId);
    AddPropertyRelationMany(ObjectGroupId, 'Objects', 'Objects', True, ObjectIdGroupId);
    AddPropertyRelationMany(ObjectId, 'Properties', 'Properties', True, PropertyParentId);
    AddPropertyRelationMany(ObjectPropertyGroupId, 'Properties', 'Properties', True, ObjectPropertyIdGroup);
    AddPropertyRelationMany(PropertyTypeId, 'Custom types', 'CustomTypes', True, CustomTypeIdType);

  ModuleId := AddObject('Modules', 'SystemModule', Client.Schema);
    AddPropertyNumber(ModuleId, 'Id', 'Id', False);
    AddPropertyString(ModuleId, 'System name', 'SysName', True);
    AddPropertyString(ModuleId, 'Name', 'Name', True);
    AddPropertyString(ModuleId, 'Creator', 'Creator', True);
    AddPropertyString(ModuleId, 'Website', 'Website', False);
    AddPropertyString(ModuleId, 'Version', 'Version', True);
    AddPropertyText(ModuleId, 'Description', 'Description', False);
    AddPropertyString(ModuleId, 'License', 'License', False);
    AddPropertyBoolean(ModuleId, 'Installed', 'Installed', False);
  end;
end;

procedure TModuleSystem.Install;
begin
  InitStructure;
  inherited Install;
  //InitSystemValues;
end;

procedure TModuleSystem.InitStructure;
begin
  with TChronisBase(System).Client do
  try
    with Types.AddType(SystemObjectTable) do begin
      with Properties do begin
        AddSimple('Name', 'String');
        AddSimple('Schema', 'String');
        AddSimple('Table', 'String');
        AddSimple('PrimaryKey', 'String');
        AddSimple('Sequence', 'Integer');
      end;
    end;

    with Types.AddType(SystemMenuTable) do begin
      with Properties do begin
        AddSimple('Name', 'String');
        AddSimple('Action', 'RelationOne');
        AddSimple('Parent', 'RelationOne');
        AddSimple('Sequence', 'Integer');
      end;
    end;

    with Types.AddType(SystemActionTable) do begin
      with Properties do begin
        AddSimple('Name', 'String');
      end;
    end;

    with Types.AddType(PropertyTable) do begin
      with Properties do begin
        AddSimple('Name', 'String');
        AddSimple('Object', 'RelationOne');
        AddSimple('PropertyGroup', 'RelationOne');
        AddSimple('CustomType', 'RelationOne');
        AddSimple('Editable', 'Boolean');
        AddSimple('ColumnName', 'String');
      end;
    end;

    with Types.AddType(PropertyTypeTable) do begin
      with Properties do begin
        AddSimple('Name', 'String');
        AddSimple('DbType', 'String');
      end;
    end;

    with Types.AddType(PropertyGroupTable) do begin
      with Properties do begin
        AddSimple('Name', 'String');
        AddSimple('Object', 'RelationOne');
      end;
    end;

    with Types.AddType(EnumerationState) do begin
      with Properties do begin
        AddSimple('Enumeration', 'RelationOne');
        AddSimple('Name', 'String');
        AddSimple('Sequence', 'Integer');
      end;
    end;

    with Types.AddType(Enumeration) do begin
      with Properties do begin
        AddSimple('Name', 'String');
      end;
    end;

    with Types.AddType(TypeEnumeration) do begin
      with Properties do begin
        AddSimple('Enumeration', 'RelationOne');
      end;
    end;

    with Types.AddType(TypeRelationOne) do begin
      with Properties do begin
        AddSimple('CustomType', 'RelationOne');
        AddSimple('Object', 'Integer');
      end;
    end;

    with Types.AddType(TypeRelationMany) do begin
      with Properties do begin
        AddSimple('CustomType', 'RelationOne');
        AddSimple('ObjectProperty', 'Integer');
      end;
    end;

    with Types.AddType(TypeFile) do begin
      with Properties do begin
        AddSimple('Name', 'String');
        AddSimple('Size', 'Integer');
      end;
    end;

    with Types.AddType(TypeGPS) do begin
      with Properties do begin
        AddSimple('Latitude', 'Double');
        AddSimple('Longitude', 'Double');
      end;
    end;

    with Types.AddType(CustomTypeTableName) do begin
      with Properties do begin
        AddSimple('Type', 'RelationOne');
      end;
    end;

    with Types.AddType(TypeNumber) do begin
      with Properties do begin
        AddSimple('CustomType', 'RelationOne');
        AddSimple('Default', 'Integer');
        AddSimple('Min', 'Integer');
        AddSimple('Max', 'Integer');
      end;
    end;

    with Types.AddType(TypeFloat) do begin
      with Properties do begin
        AddSimple('CustomType', 'RelationOne');
        AddSimple('Default', 'Double');
        AddSimple('Min', 'Double');
        AddSimple('Max', 'Double');
      end;
    end;

    with Types.AddType(TypeDateTime) do begin
      with Properties do begin
        AddSimple('CustomType', 'RelationOne');
        AddSimple('Default', 'DateTime');
        AddSimple('Min', 'DateTime');
        AddSimple('Max', 'DateTime');
      end;
    end;

    with Types.AddType(TypeString) do begin
      with Properties do begin
        AddSimple('CustomType', 'RelationOne');
        AddSimple('Default', 'String');
        AddSimple('MaxLength', 'Integer');
      end;
    end;
    CheckTypes;
  finally
  end;
end;


procedure TModuleSystem.Uninstall;
begin
  inherited Uninstall;
end;

constructor TModuleSystem.Create;
begin
  inherited Create;
  SysName := 'System';
  Name := 'System';
  Version := '1.0';
end;

destructor TModuleSystem.Destroy;
begin
  inherited Destroy;
end;

end.