eermodel_xml_erwin41_import.pas

功能强大的ER图建模工具的源代码。 可以代替ERWin了

    property Physical_Display_FK_Name: Integer read Get_Physical_Display_FK_Name write Set_Physical_Display_FK_Name;
    property Physical_Display_Cardinality: Integer read Get_Physical_Display_Cardinality write Set_Physical_Display_Cardinality;
    property Physical_Display_Ref_Integ: Integer read Get_Physical_Display_Ref_Integ write Set_Physical_Display_Ref_Integ;
    property Physical_Display_Alt_Keys: Integer read Get_Physical_Display_Alt_Keys write Set_Physical_Display_Alt_Keys;
    property Disallow_Manual_Rel_Layout: WideString read Get_Disallow_Manual_Rel_Layout write Set_Disallow_Manual_Rel_Layout;
    property Dont_Display_Views: WideString read Get_Dont_Display_Views write Set_Dont_Display_Views;
    property Dont_Display_View_Rels: WideString read Get_Dont_Display_View_Rels write Set_Dont_Display_View_Rels;
    property Display_View_Col_Datatype: WideString read Get_Display_View_Col_Datatype write Set_Display_View_Col_Datatype;
    property Display_View_Col_Null_Option: WideString read Get_Display_View_Col_Null_Option write Set_Display_View_Col_Null_Option;
    property Display_Ungenerated: WideString read Get_Display_Ungenerated write Set_Display_Ungenerated;
    property Show_Migrated_Atts: WideString read Get_Show_Migrated_Atts write Set_Show_Migrated_Atts;
    property Display_Logical_Datatype: WideString read Get_Display_Logical_Datatype write Set_Display_Logical_Datatype;
    property Display_Logical_FK_Deisgnator: WideString read Get_Display_Logical_FK_Deisgnator write Set_Display_Logical_FK_Deisgnator;
    property Display_Diagonal_Lines: WideString read Get_Display_Diagonal_Lines write Set_Display_Diagonal_Lines;
    property Display_Attribute_Icons: WideString read Get_Display_Attribute_Icons write Set_Display_Attribute_Icons;
    property Display_Entity_Icons: WideString read Get_Display_Entity_Icons write Set_Display_Entity_Icons;
    property Display_Logical_PK_Designator: WideString read Get_Display_Logical_PK_Designator write Set_Display_Logical_PK_Designator;
    property Display_Physical_PK_Designator: WideString read Get_Display_Physical_PK_Designator write Set_Display_Physical_PK_Designator;
    property Display_DW_Icons: WideString read Get_Display_DW_Icons write Set_Display_DW_Icons;
    property Display_View_Col_Expr: WideString read Get_Display_View_Col_Expr write Set_Display_View_Col_Expr;
    property Hide_Rels: WideString read Get_Hide_Rels write Set_Hide_Rels;
    property Display_Danging_Rels: WideString read Get_Display_Danging_Rels write Set_Display_Danging_Rels;
    property Disallow_Manual_Entity_Resize: WideString read Get_Disallow_Manual_Entity_Resize write Set_Disallow_Manual_Entity_Resize;
    property Shadow: WideString read Get_Shadow write Set_Shadow;
    property Shadow_X: Integer read Get_Shadow_X write Set_Shadow_X;
    property Shadow_Y: Integer read Get_Shadow_Y write Set_Shadow_Y;
    property V_Scroll_Pos: Integer read Get_V_Scroll_Pos write Set_V_Scroll_Pos;
    property H_Scroll_Pos: Integer read Get_H_Scroll_Pos write Set_H_Scroll_Pos;
    property Modified_Time: Integer read Get_Modified_Time write Set_Modified_Time;
    property Is_Locked: WideString read Get_Is_Locked write Set_Is_Locked;
    property Display_Logical_Domains: WideString read Get_Display_Logical_Domains write Set_Display_Logical_Domains;
    property Default_Object_Alternative_Id: IXMLDefault_Object_Alternative_IdType read Get_Default_Object_Alternative_Id;
    property Print_Info: WideString read Get_Print_Info write Set_Print_Info;
  end;

{ IXMLDrawing_Object_Entity_GroupsType }

  IXMLDrawing_Object_Entity_GroupsType = interface(IXMLNodeCollection)
    ['{68BB2554-D532-47D8-B284-27EEBFBA6800}']
    { Property Accessors }
    function Get_Drawing_Object_Entity(Index: Integer): IXMLDrawing_Object_EntityType;
    { Methods & Properties }
    function Add: IXMLDrawing_Object_EntityType;
    function Insert(const Index: Integer): IXMLDrawing_Object_EntityType;
    property Drawing_Object_Entity[Index: Integer]: IXMLDrawing_Object_EntityType read Get_Drawing_Object_Entity; default;
  end;

{ IXMLDrawing_Object_EntityType }

  IXMLDrawing_Object_EntityType = interface(IXMLNode)
    ['{E375BA15-2692-426E-8A91-32D17ACBB868}']
    { Property Accessors }
    function Get_Id: WideString;
    function Get_Name: WideString;
    function Get_Drawing_Object_EntityProps: IXMLDrawing_Object_EntityPropsType;
    procedure Set_Id(Value: WideString);
    procedure Set_Name(Value: WideString);
    { Methods & Properties }
    property Id: WideString read Get_Id write Set_Id;
    property Name: WideString read Get_Name write Set_Name;
    property Drawing_Object_EntityProps: IXMLDrawing_Object_EntityPropsType read Get_Drawing_Object_EntityProps;
  end;

{ IXMLDrawing_Object_EntityPropsType }

  IXMLDrawing_Object_EntityPropsType = interface(IXMLNode)
    ['{2FDE3695-7233-4B2F-A16A-C92BDDE050A5}']
    { Property Accessors }
    function Get_DO_Text: WideString;
    function Get_DO_Location: WideString;
    function Get_DO_Reference_Object: WideString;
    function Get_DO_Entity_Width_AutoResizeable: WideString;
    function Get_DO_Entity_Height_AutoResizeable: WideString;
    procedure Set_DO_Text(Value: WideString);
    procedure Set_DO_Location(Value: WideString);
    procedure Set_DO_Reference_Object(Value: WideString);
    procedure Set_DO_Entity_Width_AutoResizeable(Value: WideString);
    procedure Set_DO_Entity_Height_AutoResizeable(Value: WideString);
    { Methods & Properties }
    property DO_Text: WideString read Get_DO_Text write Set_DO_Text;
    property DO_Location: WideString read Get_DO_Location write Set_DO_Location;
    property DO_Reference_Object: WideString read Get_DO_Reference_Object write Set_DO_Reference_Object;
    property DO_Entity_Width_AutoResizeable: WideString read Get_DO_Entity_Width_AutoResizeable write Set_DO_Entity_Width_AutoResizeable;
    property DO_Entity_Height_AutoResizeable: WideString read Get_DO_Entity_Height_AutoResizeable write Set_DO_Entity_Height_AutoResizeable;
  end;

{ IXMLDrawing_Object_Relationship_GroupsType }

  IXMLDrawing_Object_Relationship_GroupsType = interface(IXMLNode)
    ['{0D6BEB15-8FE6-4185-8462-484E35D8FB6A}']
    { Property Accessors }
    function Get_Drawing_Object_Relationship: IXMLDrawing_Object_RelationshipType;
    { Methods & Properties }
    property Drawing_Object_Relationship: IXMLDrawing_Object_RelationshipType read Get_Drawing_Object_Relationship;
  end;

{ IXMLDrawing_Object_RelationshipType }

  IXMLDrawing_Object_RelationshipType = interface(IXMLNode)
    ['{099A15E9-6AFA-4FE8-8A31-BECAAF52B58F}']
    { Property Accessors }
    function Get_Id: WideString;
    function Get_Name: WideString;
    function Get_Drawing_Object_RelationshipProps: IXMLDrawing_Object_RelationshipPropsType;
    procedure Set_Id(Value: WideString);
    procedure Set_Name(Value: WideString);
    { Methods & Properties }
    property Id: WideString read Get_Id write Set_Id;
    property Name: WideString read Get_Name write Set_Name;
    property Drawing_Object_RelationshipProps: IXMLDrawing_Object_RelationshipPropsType read Get_Drawing_Object_RelationshipProps;
  end;

{ IXMLDrawing_Object_RelationshipPropsType }

  IXMLDrawing_Object_RelationshipPropsType = interface(IXMLNode)
    ['{FEA578A3-964B-4689-9FA3-DCA9A36F62E8}']
    { Property Accessors }
    function Get_DO_Text: WideString;
    function Get_DO_Reference_Object: WideString;
    function Get_DO_Relationship_Path: IXMLString_List;
    function Get_DO_User_Controled_Path: WideString;
    function Get_DO_Parent_Side_Verb_Phrase: Integer;
    function Get_DO_Childside_Verb_Phrase: Integer;
    function Get_DO_Mid_Point_of_Relationship: WideString;
    function Get_DO_Parent_Side_Verb_Phrase_Coordinates: WideString;
    function Get_DO_Child_Side_Verb_Phrase_Coordinates: WideString;
    function Get_DO_Color_Inherited: WideString;
    function Get_DO_Font_Inherited: WideString;
    procedure Set_DO_Text(Value: WideString);
    procedure Set_DO_Reference_Object(Value: WideString);
    procedure Set_DO_User_Controled_Path(Value: WideString);
    procedure Set_DO_Parent_Side_Verb_Phrase(Value: Integer);
    procedure Set_DO_Childside_Verb_Phrase(Value: Integer);
    procedure Set_DO_Mid_Point_of_Relationship(Value: WideString);
    procedure Set_DO_Parent_Side_Verb_Phrase_Coordinates(Value: WideString);
    procedure Set_DO_Child_Side_Verb_Phrase_Coordinates(Value: WideString);
    procedure Set_DO_Color_Inherited(Value: WideString);
    procedure Set_DO_Font_Inherited(Value: WideString);
    { Methods & Properties }
    property DO_Text: WideString read Get_DO_Text write Set_DO_Text;
    property DO_Reference_Object: WideString read Get_DO_Reference_Object write Set_DO_Reference_Object;
    property DO_Relationship_Path: IXMLString_List read Get_DO_Relationship_Path;
    property DO_User_Controled_Path: WideString read Get_DO_User_Controled_Path write Set_DO_User_Controled_Path;
    property DO_Parent_Side_Verb_Phrase: Integer read Get_DO_Parent_Side_Verb_Phrase write Set_DO_Parent_Side_Verb_Phrase;
    property DO_Childside_Verb_Phrase: Integer read Get_DO_Childside_Verb_Phrase write Set_DO_Childside_Verb_Phrase;
    property DO_Mid_Point_of_Relationship: WideString read Get_DO_Mid_Point_of_Relationship write Set_DO_Mid_Point_of_Relationship;
    property DO_Parent_Side_Verb_Phrase_Coordinates: WideString read Get_DO_Parent_Side_Verb_Phrase_Coordinates write Set_DO_Parent_Side_Verb_Phrase_Coordinates;
    property DO_Child_Side_Verb_Phrase_Coordinates: WideString read Get_DO_Child_Side_Verb_Phrase_Coordinates write Set_DO_Child_Side_Verb_Phrase_Coordinates;
    property DO_Color_Inherited: WideString read Get_DO_Color_Inherited write Set_DO_Color_Inherited;
    property DO_Font_Inherited: WideString read Get_DO_Font_Inherited write Set_DO_Font_Inherited;
  end;

{ IXMLRelationship_GroupsType }

  IXMLRelationship_GroupsType = interface(IXMLNodeCollection)
    ['{F9700A44-2FA4-4F8A-B61C-45D73161FD89}']
    { Property Accessors }
    function Get_Relationship(Index: Integer): IXMLRelationshipType;
    { Methods & Properties }
    function Add: IXMLRelationshipType;
    function Insert(const Index: Integer): IXMLRelationshipType;
    property Relationship[Index: Integer]: IXMLRelationshipType read Get_Relationship; default;
  end;

{ IXMLRelationshipType }

  IXMLRelationshipType = interface(IXMLNode)
    ['{E739CEC2-DEB6-441B-96E3-DC0BDC402D8F}']
    { Property Accessors }
    function Get_Id: WideString;
    function Get_Name: WideString;
    function Get_RelationshipProps: IXMLRelationshipPropsType;
    procedure Set_Id(Value: WideString);
    procedure Set_Name(Value: WideString);
    { Methods & Properties }
    property Id: WideString read Get_Id write Set_Id;
    property Name: WideString read Get_Name write Set_Name;
    property RelationshipProps: IXMLRelationshipPropsType read Get_RelationshipProps;
  end;

{ IXMLRelationshipPropsType }

  IXMLRelationshipPropsType = interface(IXMLNode)
    ['{6BE142E9-9D46-4070-B961-BDAD8D43FDAC}']
    { Property Accessors }
    function Get_Name: WideString;
    function Get_Type_: Integer;
    function Get_Note: WideString;
    function Get_Cardinality: WideString;
    function Get_Relationship_No_Nulls: Integer;
    function Get_Relationship_Sequence: Integer;
    function Get_Relationship_Parent_Update_Rule: Integer;
    function Get_Relationship_Parent_Delete_Rule: Integer;
    function Get_Relationship_Parent_Insert_Rule: Integer;
    function Get_Relationship_Child_Update_Rule: Integer;
    function Get_Relationship_Child_Delete_Rule: Integer;
    function Get_Relationship_Child_Insert_Rule: Integer;
    function Get_Physical_Only: WideString;
    function Get_Relationship_Parent_Entity: WideString;
    function Get_Relationship_Child_Entity: WideString;
    procedure Set_Name(Value: WideString);
    procedure Set_Type_(Value: Integer);
    procedure Set_Note(Value: WideString);
    procedure Set_Cardinality(Value: WideString);
    procedure Set_Relationship_No_Nulls(Value: Integer);
    procedure Set_Relationship_Sequence(Value: Integer);
    procedure Set_Relationship_Parent_Update_Rule(Value: Integer);
    procedure Set_Relationship_Parent_Delete_Rule(Value: Integer);
    procedure Set_Relationship_Parent_Insert_Rule(Value: Integer);
    procedure Set_Relationship_Child_Update_Rule(Value: Integer);
    procedure Set_Relationship_Child_Delete_Rule(Value: Integer);
    procedure Set_Relationship_Child_Insert_Rule(Value: Integer);
    procedure Set_Physical_Only(Value: WideString);
    procedure Set_Relationship_Parent_Entity(Value: WideString);
    procedure Set_Relationship_Child_Entity(Value: WideString);
    { Methods & Properties }
    property Name: WideString read Get_Name write Set_Name;
    property Type_: Integer read Get_Type_ write Set_Type_;
    property Note: WideString read Get_Note write Set_Note;
    property Cardinality: WideString read Get_Cardinality write Set_Cardinality;
    property Relationship_No_Nulls: Integer read Get_Relationship_No_Nulls write Set_Relationship_No_Nulls;
    property Relationship_Sequence: Integer read Get_Relationship_Sequence write Set_Relationship_Sequence;
    property Relationship_Parent_Update_Rule: Integer read Get_Relationship_Parent_Update_Rule write Set_Relationship_Parent_Update_Rule;
    property Relationship_Parent_Delete_Rule: Integer read Get_Relationship_Parent_Delete_Rule write Set_Relationship_Parent_Delete_Rule;
    property Relationship_Parent_Insert_Rule: Integer read Get_Relationship_Parent_Insert_Rule write Set_Relationship_Parent_Insert_Rule;
    property Relationship_Child_Update_Rule: Integer read Get_Relationship_Child_Update_Rule write Set_Relationship_Child_Update_Rule;
    property Relationship_Child_Delete_Rule: Integer read Get_Relationship_Child_Delete_Rule write Set_Relationship_Child_Delete_Rule;
    property Relationship_Child_Insert_Rule: Integer read Get_Relationship_Child_Insert_Rule write Set_Relationship_Child_Insert_Rule;
    property Physical_Only: WideString read Get_Physical_Only write Set_Physical_Only;
    property Relationship_Parent_Entity: WideString read Get_Relationship_Parent_Entity write Set_Relationship_Parent_Entity;
    property Relationship_Child_Entity: WideString read Get_Relationship_Child_Entity write Set_Relationship_Child_Entity;
  end;

{ IXMLDefault_Value_GroupsType }

  IXMLDefault_Value_GroupsType = interface(IXMLNodeCollection)
    ['{50D88E04-D389-464D-8652-3B8D398B44EA}']
    { Property Accessors }
    function Get_Default_Value(Index: Integer): IXMLDefault_ValueType;
    { Methods & Properties }
    function Add: IXMLDefault_ValueType;
    function Insert(const Index: Integer): IXMLDefault_ValueType;
    property Default_Value[Index: Integer]: IXMLDefault_ValueType read Get_Default_Value; default;
  end;

{ IXMLDefault_ValueType }

  IXMLDefault_ValueType = interface(IXMLNode)
    ['{56E3E210-F4DE-40C8-ACA4-29D964A37C28}']
    { Property Accessors }
    function Get_Id: WideString;
    function Get_Name: WideString;
    function Get_Default_ValueProps: IXMLDefault_ValuePropsType;
    procedure Set_Id(Value: WideString);
    procedure Set_Name(Value: WideString);
    { Methods & Properties }
    property Id: WideString read Get_Id write Set_Id;
    property Name: WideString read Get_Name write Set_Name;
    property Default_ValueProps: IXMLDefault_ValuePropsType read Get_Default_ValueProps;
  end;

{ IXMLDefault_ValuePropsType }

  IXMLDefault_ValuePropsType = interface(IXMLNode)
    ['{B8F33693-2CEC-4BAF-8678-A4407F73F33C}']
    { Property Accessors }
    function Get_Name: WideString;
    function Get_Usage_Count: Integer;
    function Get_S