Changeset 44 for trunk/USystem.pas


Ignore:
Timestamp:
Mar 9, 2012, 3:02:00 PM (13 years ago)
Author:
chronos
Message:
  • Fixed: Login profile manager can lost some values during edit.
  • Added: Base initialization of TChronisClient.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/USystem.pas

    r43 r44  
    316316    Proxy.Client := Client;
    317317    Proxy.ObjectName := ObjectTable;
    318     Proxy.Properties.Add('Name', Name);
    319     Proxy.Properties.Add('Schema', Schema);
    320     Proxy.Properties.Add('Table', TableName);
    321     Proxy.Properties.Add('Group', IntToStr(GroupId));
     318    with Proxy.Properties do begin
     319      Add('Name', Name);
     320      Add('Schema', Schema);
     321      Add('Table', TableName);
     322      Add('Group', IntToStr(GroupId));
     323      Add('PrimaryKey', 'Id');
     324    end;
    322325    Proxy.Save;
    323326    Result := Proxy.Id;
    … …  
    360363    Proxy.ObjectName := CustomTypeTableName;
    361364    Proxy.Properties.Add('Type', IntToStr(Integer(vtInteger)));
     365    Proxy.Save;
    362366    CustomTypeId := Proxy.Id;
    363367
     368    Proxy.Id := 0;
    364369    Proxy.ObjectName := TypeNumber;
    365370    Proxy.Properties.Clear;
    … …  
    389394    Proxy.ObjectName := CustomTypeTableName;
    390395    Proxy.Properties.Add('Type', IntToStr(Integer(vtFloat)));
     396    Proxy.Save;
    391397    CustomTypeId := Proxy.Id;
    392398
     399    Proxy.Id := 0;
    393400    Proxy.ObjectName := TypeFloat;
    394401    Proxy.Properties.Clear;
    … …  
    421428    CustomTypeId := Proxy.Id;
    422429
     430    Proxy.Id := 0;
    423431    Proxy.ObjectName := TypeDateTime;
    424432    Proxy.Properties.Clear;
    … …  
    450458    CustomTypeId := Proxy.Id;
    451459
     460    Proxy.Id := 0;
    452461    Proxy.ObjectName := TypeString;
    453462    Proxy.Properties.Clear;
    … …  
    478487    CustomTypeId := Proxy.Id;
    479488
     489    Proxy.Id := 0;
    480490    Proxy.ObjectName := TypeString;
    481491    Proxy.Properties.Clear;
    … …  
    505515    CustomTypeId := Proxy.Id;
    506516
     517    Proxy.Id := 0;
    507518    Proxy.ObjectName := TypeRelationOne;
    508519    Proxy.Properties.Clear;
    … …  
    528539    Proxy.Client := Client;
    529540    Proxy.ObjectName := CustomTypeTableName;
    530 
    531541    Proxy.Properties.Clear;
    532542    Proxy.Properties.Add('Type', IntToStr(Integer(vtRelationMany)));
    … …  
    534544    CustomTypeId := Proxy.Id;
    535545
     546    Proxy.Id := 0;
    536547    Proxy.ObjectName := TypeRelationMany;
    537548    Proxy.Properties.Clear;
    … …  
    590601    Proxy.Properties.Add('Enumeration', IntToStr(Enum));
    591602    Proxy.Properties.Add('Name', Name);
     603    Proxy.Properties.Add('Sequence', '0');
    592604    Proxy.Save;
    593605    Result := Proxy.Id;
Note: See TracChangeset for help on using the changeset viewer.