eermodel_xml.pas

DBDesigner 4 is a database design system that integrates database design, modelling, creation and ma

    function Get_LINKEDMODELS: IXMLLINKEDMODELSType;
    procedure Set_Version(Value: WideString);
  public
    procedure AfterConstruction; override;
  end;

{ TXMLSETTINGSType }

  TXMLSETTINGSType = class(TXMLNode, IXMLSETTINGSType)
  protected
    { IXMLSETTINGSType }
    function Get_GLOBALSETTINGS: IXMLGLOBALSETTINGSType;
    function Get_DATATYPEGROUPS: IXMLDATATYPEGROUPSType;
    function Get_DATATYPES: IXMLDATATYPESType;
    function Get_COMMON_DATATYPES: IXMLCOMMON_DATATYPESType;
    function Get_TABLEPREFIXES: IXMLTABLEPREFIXESType;
    function Get_REGIONCOLORS: IXMLREGIONCOLORSType;
    function Get_POSITIONMARKERS: IXMLPOSITIONMARKERSType;
  public
    procedure AfterConstruction; override;
  end;

{ TXMLGLOBALSETTINGSType }

  TXMLGLOBALSETTINGSType = class(TXMLNode, IXMLGLOBALSETTINGSType)
  protected
    { IXMLGLOBALSETTINGSType }
    function Get_ModelName: WideString;
    function Get_IDModel: Integer;
    function Get_IDVersion: Integer;
    function Get_VersionStr: WideString;
    function Get_Comments: WideString;
    function Get_UseVersionHistroy: Integer;
    function Get_AutoIncVersion: Integer;
    function Get_DatabaseType: WideString;
    function Get_ZoomFac: WideString;
    function Get_XPos: Integer;
    function Get_YPos: Integer;
    function Get_DefaultDataType: Integer;
    function Get_DefaultTablePrefix: Integer;
    function Get_DefSaveDBConn: WideString;
    function Get_DefSyncDBConn: WideString;
    function Get_DefQueryDBConn: WideString;
    function Get_Printer: WideString;
    function Get_HPageCount: WideString;
    function Get_PageAspectRatio: WideString;
    function Get_PageOrientation: Integer;
    function Get_PageFormat: WideString;
    function Get_SelectedPages: WideString;
    function Get_UsePositionGrid: Integer;
    function Get_PositionGridX: Integer;
    function Get_PositionGridY: Integer;
    function Get_TableNameInRefs: Integer;
    function Get_DefaultTableType: Integer;
    function Get_ActivateRefDefForNewRelations: Integer;
    function Get_FKPrefix: WideString;
    function Get_FKPostfix: WideString;
    function Get_CreateFKRefDefIndex: Integer;
    function Get_DBQuoteCharacter: WideString;
    function Get_CreateSQLforLinkedObjects: Integer;
    function Get_DefModelFont: WideString;
    function Get_CanvasWidth: Integer;
    function Get_CanvasHeight: Integer;
    procedure Set_ModelName(Value: WideString);
    procedure Set_IDModel(Value: Integer);
    procedure Set_IDVersion(Value: Integer);
    procedure Set_VersionStr(Value: WideString);
    procedure Set_Comments(Value: WideString);
    procedure Set_UseVersionHistroy(Value: Integer);
    procedure Set_AutoIncVersion(Value: Integer);
    procedure Set_DatabaseType(Value: WideString);
    procedure Set_ZoomFac(Value: WideString);
    procedure Set_XPos(Value: Integer);
    procedure Set_YPos(Value: Integer);
    procedure Set_DefaultDataType(Value: Integer);
    procedure Set_DefaultTablePrefix(Value: Integer);
    procedure Set_DefSaveDBConn(Value: WideString);
    procedure Set_DefSyncDBConn(Value: WideString);
    procedure Set_DefQueryDBConn(Value: WideString);
    procedure Set_Printer(Value: WideString);
    procedure Set_HPageCount(Value: WideString);
    procedure Set_PageAspectRatio(Value: WideString);
    procedure Set_PageOrientation(Value: Integer);
    procedure Set_PageFormat(Value: WideString);
    procedure Set_SelectedPages(Value: WideString);
    procedure Set_UsePositionGrid(Value: Integer);
    procedure Set_PositionGridX(Value: Integer);
    procedure Set_PositionGridY(Value: Integer);
    procedure Set_TableNameInRefs(Value: Integer);
    procedure Set_DefaultTableType(Value: Integer);
    procedure Set_ActivateRefDefForNewRelations(Value: Integer);
    procedure Set_FKPrefix(Value: WideString);
    procedure Set_FKPostfix(Value: WideString);
    procedure Set_CreateFKRefDefIndex(Value: Integer);
    procedure Set_DBQuoteCharacter(Value: WideString);
    procedure Set_CreateSQLforLinkedObjects(Value: Integer);
    procedure Set_DefModelFont(Value: WideString);
    procedure Set_CanvasWidth(Value: Integer);
    procedure Set_CanvasHeight(Value: Integer);
  end;

{ TXMLDATATYPEGROUPSType }

  TXMLDATATYPEGROUPSType = class(TXMLNodeCollection, IXMLDATATYPEGROUPSType)
  protected
    { IXMLDATATYPEGROUPSType }
    function Get_DATATYPEGROUP(Index: Integer): IXMLDATATYPEGROUPType;
    function Add: IXMLDATATYPEGROUPType;
    function Insert(const Index: Integer): IXMLDATATYPEGROUPType;
  public
    procedure AfterConstruction; override;
  end;

{ TXMLDATATYPEGROUPType }

  TXMLDATATYPEGROUPType = class(TXMLNode, IXMLDATATYPEGROUPType)
  protected
    { IXMLDATATYPEGROUPType }
    function Get_Name: WideString;
    function Get_Icon: Integer;
    procedure Set_Name(Value: WideString);
    procedure Set_Icon(Value: Integer);
  end;

{ TXMLDATATYPESType }

  TXMLDATATYPESType = class(TXMLNodeCollection, IXMLDATATYPESType)
  protected
    { IXMLDATATYPESType }
    function Get_DATATYPE(Index: Integer): IXMLDATATYPEType;
    function Add: IXMLDATATYPEType;
    function Insert(const Index: Integer): IXMLDATATYPEType;
  public
    procedure AfterConstruction; override;
  end;

{ TXMLDATATYPEType }

  TXMLDATATYPEType = class(TXMLNode, IXMLDATATYPEType)
  protected
    { IXMLDATATYPEType }
    function Get_ID: Integer;
    function Get_IDGroup: Integer;
    function Get_TypeName: WideString;
    function Get_Description: WideString;
    function Get_ParamCount: Integer;
    function Get_OptionCount: Integer;
    function Get_ParamRequired: Integer;
    function Get_EditParamsAsString: Integer;
    function Get_SynonymGroup: Integer;
    function Get_PhysicalMapping: Integer;
    function Get_PhysicalTypeName: WideString;
    function Get_PARAMS: IXMLPARAMSType;
    function Get_OPTIONS: IXMLOPTIONSType;
    procedure Set_ID(Value: Integer);
    procedure Set_IDGroup(Value: Integer);
    procedure Set_TypeName(Value: WideString);
    procedure Set_Description(Value: WideString);
    procedure Set_ParamCount(Value: Integer);
    procedure Set_OptionCount(Value: Integer);
    procedure Set_ParamRequired(Value: Integer);
    procedure Set_EditParamsAsString(Value: Integer);
    procedure Set_SynonymGroup(Value: Integer);
    procedure Set_PhysicalMapping(Value: Integer);
    procedure Set_PhysicalTypeName(Value: WideString);
  public
    procedure AfterConstruction; override;
  end;

{ TXMLPARAMSType }

  TXMLPARAMSType = class(TXMLNodeCollection, IXMLPARAMSType)
  protected
    { IXMLPARAMSType }
    function Get_PARAM(Index: Integer): IXMLPARAMType;
    function Add: IXMLPARAMType;
    function Insert(const Index: Integer): IXMLPARAMType;
  public
    procedure AfterConstruction; override;
  end;

{ TXMLPARAMType }

  TXMLPARAMType = class(TXMLNode, IXMLPARAMType)
  protected
    { IXMLPARAMType }
    function Get_Name: WideString;
    procedure Set_Name(Value: WideString);
  end;

{ TXMLOPTIONSType }

  TXMLOPTIONSType = class(TXMLNodeCollection, IXMLOPTIONSType)
  protected
    { IXMLOPTIONSType }
    function Get_OPTION(Index: Integer): IXMLOPTIONType;
    function Add: IXMLOPTIONType;
    function Insert(const Index: Integer): IXMLOPTIONType;
  public
    procedure AfterConstruction; override;
  end;

{ TXMLOPTIONType }

  TXMLOPTIONType = class(TXMLNode, IXMLOPTIONType)
  protected
    { IXMLOPTIONType }
    function Get_Name: WideString;
    function Get_Default: Integer;
    procedure Set_Name(Value: WideString);
    procedure Set_Default(Value: Integer);
  end;

{ TXMLCOMMON_DATATYPESType }

  TXMLCOMMON_DATATYPESType = class(TXMLNodeCollection, IXMLCOMMON_DATATYPESType)
  protected
    { IXMLCOMMON_DATATYPESType }
    function Get_COMMON_DATATYPE(Index: Integer): IXMLCOMMON_DATATYPEType;
    function Add: IXMLCOMMON_DATATYPEType;
    function Insert(const Index: Integer): IXMLCOMMON_DATATYPEType;
  public
    procedure AfterConstruction; override;
  end;

{ TXMLCOMMON_DATATYPEType }

  TXMLCOMMON_DATATYPEType = class(TXMLNode, IXMLCOMMON_DATATYPEType)
  protected
    { IXMLCOMMON_DATATYPEType }
    function Get_ID: Integer;
    procedure Set_ID(Value: Integer);
  end;

{ TXMLTABLEPREFIXESType }

  TXMLTABLEPREFIXESType = class(TXMLNodeCollection, IXMLTABLEPREFIXESType)
  protected
    { IXMLTABLEPREFIXESType }
    function Get_TABLEPREFIX(Index: Integer): IXMLTABLEPREFIXType;
    function Add: IXMLTABLEPREFIXType;
    function Insert(const Index: Integer): IXMLTABLEPREFIXType;
  public
    procedure AfterConstruction; override;
  end;

{ TXMLTABLEPREFIXType }

  TXMLTABLEPREFIXType = class(TXMLNode, IXMLTABLEPREFIXType)
  protected
    { IXMLTABLEPREFIXType }
    function Get_Name: WideString;
    procedure Set_Name(Value: WideString);
  end;

{ TXMLREGIONCOLORSType }

  TXMLREGIONCOLORSType = class(TXMLNodeCollection, IXMLREGIONCOLORSType)
  protected
    { IXMLREGIONCOLORSType }
    function Get_REGIONCOLOR(Index: Integer): IXMLREGIONCOLORType;
    function Add: IXMLREGIONCOLORType;
    function Insert(const Index: Integer): IXMLREGIONCOLORType;
  public
    procedure AfterConstruction; override;
  end;

{ TXMLREGIONCOLORType }

  TXMLREGIONCOLORType = class(TXMLNode, IXMLREGIONCOLORType)
  protected
    { IXMLREGIONCOLORType }
    function Get_Color: WideString;
    procedure Set_Color(Value: WideString);
  end;

{ TXMLPOSITIONMARKERSType }

  TXMLPOSITIONMARKERSType = class(TXMLNodeCollection, IXMLPOSITIONMARKERSType)
  protected
    { IXMLPOSITIONMARKERSType }
    function Get_POSITIONMARKER(Index: Integer): IXMLPOSITIONMARKERType;
    function Add: IXMLPOSITIONMARKERType;
    function Insert(const Index: Integer): IXMLPOSITIONMARKERType;
  public
    procedure AfterConstruction; override;
  end;

{ TXMLPOSITIONMARKERType }

  TXMLPOSITIONMARKERType = class(TXMLNode, IXMLPOSITIONMARKERType)
  protected
    { IXMLPOSITIONMARKERType }
    function Get_ZoomFac: WideString;
    function Get_X: Integer;
    function Get_Y: Integer;
    procedure Set_ZoomFac(Value: WideString);
    procedure Set_X(Value: Integer);
    procedure Set_Y(Value: Integer);
  end;

{ TXMLMETADATAType }

  TXMLMETADATAType = class(TXMLNode, IXMLMETADATAType)
  protected
    { IXMLMETADATAType }
    function Get_REGIONS: IXMLREGIONSType;
    function Get_TABLES: IXMLTABLESType;
    function Get_RELATIONS: IXMLRELATIONSType;
    function Get_NOTES: IXMLNOTESType;
    function Get_IMAGES: IXMLIMAGESType;
  public
    procedure AfterConstruction; override;
  end;

{ TXMLREGIONSType }

  TXMLREGIONSType = clas