Ignore:
Timestamp:
Jun 13, 2011, 8:25:31 AM (13 years ago)
Author:
george
Message:
  • Modified: USqlDatabase used from CoolWeb package.
  • Added: Store item data to database for Add and Edit dialog.
Location:
trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk

    • Property svn:ignore

      •  

        old new  
        44heaptrclog.trc
        55chronis.exe
         6DebugLog.txt

  • trunk/Forms/UMainForm.pas

    r14 r15  
    407407  ObjectId := AddObject('Object groups', 'ObjectGroup', Core.System.Database.Database, GroupId);
    408408    AddPropertyString(ObjectId, 'Name', 'Name');
     409    AddPropertyNumber(ObjectId, 'Parent', 'Parent');
    409410  ObjectId := AddObject('Objects', 'Object', Core.System.Database.Database, GroupId);
    410411    AddPropertyString(ObjectId, 'Name', 'Name');
    … …  
    417418    AddPropertyString(ObjectId, 'Name', 'Name');
    418419    AddPropertyString(ObjectId, 'Type', 'DbType');
    419     AddPropertyNumber(ObjectId, 'Parent', 'Parent');
     420    //AddPropertyNumber(ObjectId, 'Parent', 'Parent');
    420421  ObjectId := AddObject('Property groups', 'PropertyGroup', Core.System.Database.Database, GroupId);
    421422  ObjectId := AddObject('Properties', 'Property', Core.System.Database.Database, GroupId);
Note: See TracChangeset for help on using the changeset viewer.