eermodel_xml_erwin41_import.pas

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

    property DBMS_Version: IXMLDBMS_VersionType read Get_DBMS_Version;
    property Logical_Notation: Integer read Get_Logical_Notation write Set_Logical_Notation;
    property DBMS_Minor_Version: IXMLDBMS_Minor_VersionType read Get_DBMS_Minor_Version;
    property Old_Repos: Integer read Get_Old_Repos write Set_Old_Repos;
    property Max_View_Expr_Display_Len: Integer read Get_Max_View_Expr_Display_Len write Set_Max_View_Expr_Display_Len;
    property Physical_Notation: Integer read Get_Physical_Notation write Set_Physical_Notation;
    property Index_Name_Macro: WideString read Get_Index_Name_Macro write Set_Index_Name_Macro;
    property Max_Def_Display_Len: Integer read Get_Max_Def_Display_Len write Set_Max_Def_Display_Len;
    property Table_Name_Macro: WideString read Get_Table_Name_Macro write Set_Table_Name_Macro;
    property Current_Tool: WideString read Get_Current_Tool write Set_Current_Tool;
    property MM_Preview: WideString read Get_MM_Preview write Set_MM_Preview;
    property Saved_From_Previous_Version: WideString read Get_Saved_From_Previous_Version write Set_Saved_From_Previous_Version;
    property WYSIWYG_Print: WideString read Get_WYSIWYG_Print write Set_WYSIWYG_Print;
    property Model_Background_Color: Integer read Get_Model_Background_Color write Set_Model_Background_Color;
  end;

{ IXMLType_ }

  IXMLType_ = interface(IXMLNode)
    ['{1AFE674B-0AD0-4DA8-B029-0389ADE40163}']
    { Property Accessors }
    function Get_RO: WideString;
    procedure Set_RO(Value: WideString);
    { Methods & Properties }
    property RO: WideString read Get_RO write Set_RO;
  end;

{ IXMLFile_NameType }

  IXMLFile_NameType = interface(IXMLNode)
    ['{28F719D9-481D-427B-9377-8618F95A5081}']
    { Property Accessors }
    function Get_RO: WideString;
    procedure Set_RO(Value: WideString);
    { Methods & Properties }
    property RO: WideString read Get_RO write Set_RO;
  end;

{ IXMLFile_FormatType }

  IXMLFile_FormatType = interface(IXMLNode)
    ['{559BC9B1-BBDD-42EA-8B02-7365C4F05972}']
    { Property Accessors }
    function Get_RO: WideString;
    procedure Set_RO(Value: WideString);
    { Methods & Properties }
    property RO: WideString read Get_RO write Set_RO;
  end;

{ IXMLTarget_ServerType }

  IXMLTarget_ServerType = interface(IXMLNode)
    ['{D606093B-957F-41F1-8A63-501C76D25BF7}']
    { Property Accessors }
    function Get_RO: WideString;
    procedure Set_RO(Value: WideString);
    { Methods & Properties }
    property RO: WideString read Get_RO write Set_RO;
  end;

{ IXMLDBMS_VersionType }

  IXMLDBMS_VersionType = interface(IXMLNode)
    ['{38A9FC77-8672-4A4A-8707-7A4BFE6F235F}']
    { Property Accessors }
    function Get_RO: WideString;
    procedure Set_RO(Value: WideString);
    { Methods & Properties }
    property RO: WideString read Get_RO write Set_RO;
  end;

{ IXMLDBMS_Minor_VersionType }

  IXMLDBMS_Minor_VersionType = interface(IXMLNode)
    ['{ED770888-D35E-4FD5-8388-F62AB7996C4D}']
    { Property Accessors }
    function Get_RO: WideString;
    procedure Set_RO(Value: WideString);
    { Methods & Properties }
    property RO: WideString read Get_RO write Set_RO;
  end;

{ IXMLEntity_GroupsType }

  IXMLEntity_GroupsType = interface(IXMLNodeCollection)
    ['{DB0E8349-17E0-4B8F-B726-AB17B39A5321}']
    { Property Accessors }
    function Get_Entity(Index: Integer): IXMLEntityType;
    { Methods & Properties }
    function Add: IXMLEntityType;
    function Insert(const Index: Integer): IXMLEntityType;
    property Entity[Index: Integer]: IXMLEntityType read Get_Entity; default;
  end;

{ IXMLEntityType }

  IXMLEntityType = interface(IXMLNode)
    ['{06EF027F-B1E2-4E3A-89DA-9316A7057E73}']
    { Property Accessors }
    function Get_Id: WideString;
    function Get_Name: WideString;
    function Get_EntityProps: IXMLEntityPropsType;
    function Get_Attribute_Groups: IXMLAttribute_GroupsType;
    function Get_Key_Group_Groups: IXMLKey_Group_GroupsType;
    function Get_History_Information_Groups: IXMLHistory_Information_GroupsType;
    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 EntityProps: IXMLEntityPropsType read Get_EntityProps;
    property Attribute_Groups: IXMLAttribute_GroupsType read Get_Attribute_Groups;
    property Key_Group_Groups: IXMLKey_Group_GroupsType read Get_Key_Group_Groups;
    property History_Information_Groups: IXMLHistory_Information_GroupsType read Get_History_Information_Groups;
  end;

{ IXMLEntityPropsType }

  IXMLEntityPropsType = interface(IXMLNode)
    ['{EE4C7B96-8F42-4BA4-BE95-58B127E517E9}']
    { Property Accessors }
    function Get_Type_: Integer;
    function Get_Index_Generate: Integer;
    function Get_Physical_Name: WideString;
    function Get_Comment: WideString;
    function Get_Physical_Only: WideString;
    procedure Set_Type_(Value: Integer);
    procedure Set_Index_Generate(Value: Integer);
    procedure Set_Physical_Name(Value: WideString);
    procedure Set_Comment(Value: WideString);
    procedure Set_Physical_Only(Value: WideString);
    { Methods & Properties }
    property Type_: Integer read Get_Type_ write Set_Type_;
    property Index_Generate: Integer read Get_Index_Generate write Set_Index_Generate;
    property Physical_Name: WideString read Get_Physical_Name write Set_Physical_Name;
    property Comment: WideString read Get_Comment write Set_Comment;
    property Physical_Only: WideString read Get_Physical_Only write Set_Physical_Only;
  end;

{ IXMLAttribute_GroupsType }

  IXMLAttribute_GroupsType = interface(IXMLNodeCollection)
    ['{C775CFDB-DD32-4551-B486-DB633BACCB51}']
    { Property Accessors }
    function Get_Attribute(Index: Integer): IXMLAttributeType;
    { Methods & Properties }
    function Add: IXMLAttributeType;
    function Insert(const Index: Integer): IXMLAttributeType;
    property Attribute[Index: Integer]: IXMLAttributeType read Get_Attribute; default;
  end;

{ IXMLAttributeType }

  IXMLAttributeType = interface(IXMLNode)
    ['{AA7A2A5F-1EDB-4F7D-97BA-183BC4EBE55B}']
    { Property Accessors }
    function Get_Id: WideString;
    function Get_Name: WideString;
    function Get_AttributeProps: IXMLAttributePropsType;
    function Get_History_Information_Groups: IXMLHistory_Information_GroupsType;
    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 AttributeProps: IXMLAttributePropsType read Get_AttributeProps;
    property History_Information_Groups: IXMLHistory_Information_GroupsType read Get_History_Information_Groups;
  end;

{ IXMLAttributePropsType }

  IXMLAttributePropsType = interface(IXMLNode)
    ['{E217454F-8E51-40DB-8F80-0D16445DD51B}']
    { Property Accessors }
    function Get_Type_: Integer;
    function Get_Null_Option: Integer;
    function Get_Order: Integer;
    function Get_Physical_Order: Integer;
    function Get_Parent_Attribute: WideString;
    function Get_Parent_Relationship: WideString;
    function Get_Physical_Name: WideString;
    function Get_Parent_Domain: WideString;
    function Get_Hide_in_Logical: WideString;
    function Get_Hide_in_Physical: WideString;
    function Get_Master_Attribute: IXMLMaster_AttributeType;
    function Get_DO_Color_Inherited: WideString;
    function Get_DO_Font_Inherited: WideString;
    function Get_Datatype: WideString;
    function Get_Comment: WideString;
    function Get_Default: WideString;
    procedure Set_Type_(Value: Integer);
    procedure Set_Null_Option(Value: Integer);
    procedure Set_Order(Value: Integer);
    procedure Set_Physical_Order(Value: Integer);
    procedure Set_Parent_Attribute(Value: WideString);
    procedure Set_Parent_Relationship(Value: WideString);
    procedure Set_Physical_Name(Value: WideString);
    procedure Set_Parent_Domain(Value: WideString);
    procedure Set_Hide_in_Logical(Value: WideString);
    procedure Set_Hide_in_Physical(Value: WideString);
    procedure Set_DO_Color_Inherited(Value: WideString);
    procedure Set_DO_Font_Inherited(Value: WideString);
    procedure Set_Datatype(Value: WideString);
    procedure Set_Comment(Value: WideString);
    procedure Set_Default(Value: WideString);
    { Methods & Properties }
    property Type_: Integer read Get_Type_ write Set_Type_;
    property Null_Option: Integer read Get_Null_Option write Set_Null_Option;
    property Order: Integer read Get_Order write Set_Order;
    property Physical_Order: Integer read Get_Physical_Order write Set_Physical_Order;
    property Parent_Attribute: WideString read Get_Parent_Attribute write Set_Parent_Attribute;
    property Parent_Relationship: WideString read Get_Parent_Relationship write Set_Parent_Relationship;
    property Physical_Name: WideString read Get_Physical_Name write Set_Physical_Name;
    property Parent_Domain: WideString read Get_Parent_Domain write Set_Parent_Domain;
    property Hide_in_Logical: WideString read Get_Hide_in_Logical write Set_Hide_in_Logical;
    property Hide_in_Physical: WideString read Get_Hide_in_Physical write Set_Hide_in_Physical;
    property Master_Attribute: IXMLMaster_AttributeType read Get_Master_Attribute;
    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;
    property Datatype: WideString read Get_Datatype write Set_Datatype;
    property Comment: WideString read Get_Comment write Set_Comment;
    property Default: WideString read Get_Default write Set_Default;
  end;

{ IXMLMaster_AttributeType }

  IXMLMaster_AttributeType = interface(IXMLNode)
    ['{E8A91116-7F09-475A-86AD-369295316C15}']
    { Property Accessors }
    function Get_RO: WideString;
    procedure Set_RO(Value: WideString);
    { Methods & Properties }
    property RO: WideString read Get_RO write Set_RO;
  end;

{ IXMLHistory_Information_GroupsType }

  IXMLHistory_Information_GroupsType = interface(IXMLNode)
    ['{0BA1212D-808F-42DA-8E64-ACD6880090EF}']
    { Property Accessors }
    function Get_History_Information: IXMLHistory_InformationType;
    { Methods & Properties }
    property History_Information: IXMLHistory_InformationType read Get_History_Information;
  end;

{ IXMLHistory_InformationType }

  IXMLHistory_InformationType = interface(IXMLNode)
    ['{656A5AA2-CC49-4B7B-95C9-0CD317AA9F8A}']
    { Property Accessors }
    function Get_Id: WideString;
    function Get_Name: WideString;
    function Get_History_InformationProps: IXMLHistory_InformationPropsType;
    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 History_InformationProps: IXMLHistory_InformationPropsType read Get_History_InformationProps;
  end;

{ IXMLHistory_InformationPropsType }

  IXMLHistory_InformationPropsType = interface(IXMLNode)
    ['{36E655F6-F11A-410E-8C64-16FC2D28082A}']
    { Property Accessors }
    function Get_Type_: Integer;
    function Get_Created_Time: Integer;
    function Get_Default_Object_Alternative_Id: IXMLDefault_Object_Alternative_IdType;
    procedure Set_Type_(Value: Integer);
    procedure Set_Created_Time(Value: Integer);