databindingobjs.pas

Delphi XML & XPATH源代码

{******************************************************************************}
{                                                                              }
{                           Delphi XML Data Binding                            }
{                                                                              }
{         Generated on: 11/12/2001 5:02:43 PM                                  }
{       Generated from: C:\Keith\Delphi 6\Projects\XMLBind\movie-watcher.dtd   }
{   Settings stored in: C:\Keith\Delphi 6\Projects\XMLBind\movie-watcher.xdb   }
{                                                                              }
{******************************************************************************}
unit DataBindingObjs;

interface

uses xmldom, XMLDoc, XMLIntf, SysUtils, Windows, Variants;

type

{ Forward Decls }

  IXMLMovieWatcherType = interface;
  IXMLMoviesType = interface;
  IXMLMovieType = interface;
  IXMLStarringType = interface;
  IXMLCinemasType = interface;
  IXMLCinemaType = interface;
  IXMLFacilitiesType = interface;
  IXMLPricingType = interface;
  IXMLPricesType = interface;
  IXMLScreeningsType = interface;
  IXMLScreeningType = interface;
  IXMLFeaturesType = interface;
  IXMLRestrictionsType = interface;
  IXMLSessionsType = interface;
  IXMLSessionType = interface;

{ IXMLMovieWatcherType }

  IXMLMovieWatcherType = interface(IXMLNode)
    ['{A9970C67-FC5A-422A-8932-8F88BBFAD054}']
    { Property Accessors }
    function GetMovies: IXMLMoviesType;
    function GetCinemas: IXMLCinemasType;
    function GetScreenings: IXMLScreeningsType;
    { Methods & Properties }
    property Movies: IXMLMoviesType read GetMovies;
    property Cinemas: IXMLCinemasType read GetCinemas;
    property Screenings: IXMLScreeningsType read GetScreenings;
  end;

{ IXMLMoviesType }

  IXMLMoviesType = interface(IXMLNodeCollection)
    ['{DFD46023-2D28-4E62-AC86-C554FF283B5A}']
    { Property Accessors }
    function GetMovie(Index: Integer): IXMLMovieType;
    { Methods & Properties }
    function Add: IXMLMovieType;
    function Insert(const Index: Integer): IXMLMovieType;
    property Movie[Index: Integer]: IXMLMovieType read GetMovie; default;
  end;

{ IXMLMovieType }

  IXMLMovieType = interface(IXMLNode)
    ['{2A39E069-3EA2-4144-B3A8-1CBF6157E23E}']
    { Property Accessors }
    function GetId: WideString;
    function GetRating: WideString;
    function GetLogoUrl: WideString;
    function GetUrl: WideString;
    function GetName: WideString;
    function GetLength: Integer;
    function GetDirector: WideString;
    function GetStarring: IXMLStarringType;
    function GetSynopsis: WideString;
    procedure SetId(Value: WideString);
    procedure SetRating(Value: WideString);
    procedure SetLogoUrl(Value: WideString);
    procedure SetUrl(Value: WideString);
    procedure SetName(Value: WideString);
    procedure SetLength(Value: Integer);
    procedure SetDirector(Value: WideString);
    procedure SetSynopsis(Value: WideString);
    { Methods & Properties }
    property Id: WideString read GetId write SetId;
    property Rating: WideString read GetRating write SetRating;
    property LogoUrl: WideString read GetLogoUrl write SetLogoUrl;
    property Url: WideString read GetUrl write SetUrl;
    property Name: WideString read GetName write SetName;
    property Length: Integer read GetLength write SetLength;
    property Director: WideString read GetDirector write SetDirector;
    property Starring: IXMLStarringType read GetStarring;
    property Synopsis: WideString read GetSynopsis write SetSynopsis;
  end;

{ IXMLStarringType }

  IXMLStarringType = interface(IXMLNodeCollection)
    ['{4E487310-74B5-4B6B-BE64-D66C4A537998}']
    { Property Accessors }
    function GetStar(Index: Integer): WideString;
    { Methods & Properties }
    function Add(const Star: WideString): IXMLNode;
    function Insert(const Index: Integer; const Star: WideString): IXMLNode;
    property Star[Index: Integer]: WideString read GetStar; default;
  end;

{ IXMLCinemasType }

  IXMLCinemasType = interface(IXMLNodeCollection)
    ['{0EEDEB72-AAC0-4B69-AF1F-7676450172E8}']
    { Property Accessors }
    function GetCinema(Index: Integer): IXMLCinemaType;
    { Methods & Properties }
    function Add: IXMLCinemaType;
    function Insert(const Index: Integer): IXMLCinemaType;
    property Cinema[Index: Integer]: IXMLCinemaType read GetCinema; default;
  end;

{ IXMLCinemaType }

  IXMLCinemaType = interface(IXMLNode)
    ['{30960EC0-A982-4025-B7FA-6BC579D87629}']
    { Property Accessors }
    function GetId: WideString;
    function GetLogoUrl: WideString;
    function GetUrl: WideString;
    function GetName: WideString;
    function GetPhone: WideString;
    function GetAddress: WideString;
    function GetDirections: WideString;
    function GetFacilities: IXMLFacilitiesType;
    function GetPricing: IXMLPricingType;
    procedure SetId(Value: WideString);
    procedure SetLogoUrl(Value: WideString);
    procedure SetUrl(Value: WideString);
    procedure SetName(Value: WideString);
    procedure SetPhone(Value: WideString);
    procedure SetAddress(Value: WideString);
    procedure SetDirections(Value: WideString);
    { Methods & Properties }
    property Id: WideString read GetId write SetId;
    property LogoUrl: WideString read GetLogoUrl write SetLogoUrl;
    property Url: WideString read GetUrl write SetUrl;
    property Name: WideString read GetName write SetName;
    property Phone: WideString read GetPhone write SetPhone;
    property Address: WideString read GetAddress write SetAddress;
    property Directions: WideString read GetDirections write SetDirections;
    property Facilities: IXMLFacilitiesType read GetFacilities;
    property Pricing: IXMLPricingType read GetPricing;
  end;

{ IXMLFacilitiesType }

  IXMLFacilitiesType = interface(IXMLNode)
    ['{BCD217BD-502F-4317-B6AF-8F8EDA200403}']
    { Property Accessors }
    function GetCandyBar: Boolean;
    function GetDisabledAccess: Boolean;
    procedure SetCandyBar(Value: Boolean);
    procedure SetDisabledAccess(Value: Boolean);
    { Methods & Properties }
    property CandyBar: Boolean read GetCandyBar write SetCandyBar;
    property DisabledAccess: Boolean read GetDisabledAccess write SetDisabledAccess;
  end;

{ IXMLPricingType }

  IXMLPricingType = interface(IXMLNodeCollection)
    ['{7977DB78-E235-4541-A521-9A446A12A9C6}']
    { Property Accessors }
    function GetPrices(Index: Integer): IXMLPricesType;
    { Methods & Properties }
    function Add: IXMLPricesType;
    function Insert(const Index: Integer): IXMLPricesType;
    property Prices[Index: Integer]: IXMLPricesType read GetPrices; default;
  end;

{ IXMLPricesType }

  IXMLPricesType = interface(IXMLNode)
    ['{9AF77FB0-EF44-4FC6-AB87-538036CC4E6D}']
    { Property Accessors }
    function GetId: WideString;
    function GetName: WideString;
    function GetPeriod: WideString;
    function GetAdult: Double;
    function GetChild: Double;
    function GetDiscount: Double;
    procedure SetId(Value: WideString);
    procedure SetName(Value: WideString);
    procedure SetPeriod(Value: WideString);
    procedure SetAdult(Value: Double);
    procedure SetChild(Value: Double);
    procedure SetDiscount(Value: Double);
    { Methods & Properties }
    property Id: WideString read GetId write SetId;
    property Name: WideString read GetName write SetName;
    property Period: WideString read GetPeriod write SetPeriod;
    property Adult: Double read GetAdult write SetAdult;
    property Child: Double read GetChild write SetChild;
    property Discount: Double read GetDiscount write SetDiscount;
  end;

{ IXMLScreeningsType }

  IXMLScreeningsType = interface(IXMLNodeCollection)
    ['{593FD30F-FF4E-4002-AC54-C7BAC6016FF9}']
    { Property Accessors }
    function GetScreening(Index: Integer): IXMLScreeningType;
    { Methods & Properties }
    function Add: IXMLScreeningType;
    function Insert(const Index: Integer): IXMLScreeningType;
    property Screening[Index: Integer]: IXMLScreeningType read GetScreening; default;
  end;

{ IXMLScreeningType }

  IXMLScreeningType = interface(IXMLNode)
    ['{6FCD3E62-7086-45A2-B3C0-B0B6C116BA3D}']
    { Property Accessors }
    function GetMovieId: WideString;
    function GetCinemaId: WideString;
    function GetStartDate: TDateTime;
    function GetEndDate: TDateTime;
    function GetFeatures: IXMLFeaturesType;
    function GetRestrictions: IXMLRestrictionsType;
    function GetSessions: IXMLSessionsType;
    procedure SetMovieId(Value: WideString);
    procedure SetCinemaId(Value: WideString);
    procedure SetStartDate(Value: TDateTime);
    procedure SetEndDate(Value: TDateTime);
    { Methods & Properties }
    property MovieId: WideString read GetMovieId write SetMovieId;
    property CinemaId: WideString read GetCinemaId write SetCinemaId;
    property StartDate: TDateTime read GetStartDate write SetStartDate;
    property EndDate: TDateTime read GetEndDate write SetEndDate;
    property Features: IXMLFeaturesType read GetFeatures;
    property Restrictions: IXMLRestrictionsType read GetRestrictions;
    property Sessions: IXMLSessionsType read GetSessions;
  end;

{ IXMLFeaturesType }

  IXMLFeaturesType = interface(IXMLNode)
    ['{85A3180A-FC1F-40A6-8E4E-AE00550E46D4}']
    { Property Accessors }
    function GetDigitalSound: WideString;
    procedure SetDigitalSound(Value: WideString);
    { Methods & Properties }
    property DigitalSound: WideString read GetDigitalSound write SetDigitalSound;
  end;

{ IXMLRestrictionsType }

  IXMLRestrictionsType = interface(IXMLNode)
    ['{598EC223-4917-4569-8C53-59976E57A183}']
    { Property Accessors }
    function GetNoPasses: Boolean;
    procedure SetNoPasses(Value: Boolean);
    { Methods & Properties }
    property NoPasses: Boolean read GetNoPasses write SetNoPasses;
  end;

{ IXMLSessionsType }

  IXMLSessionsType = interface(IXMLNodeCollection)
    ['{C0FABFD5-802E-41EA-B14D-DA9E5D1A4744}']
    { Property Accessors }
    function GetSession(Index: Integer): IXMLSessionType;
    { Methods & Properties }
    function Add: IXMLSessionType;
    function Insert(const Index: Integer): IXMLSessionType;
    property Session[Index: Integer]: IXMLSessionType read GetSession; default;
  end;

{ IXMLSessionType }

  IXMLSessionType = interface(IXMLNode)
    ['{BE29F3DB-B000-4A4C-8329-293770AE7E3D}']
    { Property Accessors }
    function GetPriceId: WideString;
    procedure SetPriceId(Value: WideString);
    function GetTime: TDateTime;          // KW
    procedure SetTime(Value: TDateTime);  // KW
    { Methods & Properties }
    property PriceId: WideString read GetPriceId write SetPriceId;
    property Time: TDateTime read GetTime write SetTime;  // KW
  end;

{ Forward Decls }

  TXMLMovieWatcherType = class;
  TXMLMoviesType = class;
  TXMLMovieType = class;
  TXMLStarringType = class;
  TXMLCinemasType = class;
  TXMLCinemaType = class;
  TXMLFacilitiesType = class;
  TXMLPricingType = class;
  TXMLPricesType = class;
  TXMLScreeningsType = class;
  TXMLScreeningType = class;
  TXMLFeaturesType = class;
  TXMLRestrictionsType = class;
  TXMLSessionsType = class;
  TXMLSessionType = class;

{ TXMLMovieWatcherType }

  TXMLMovieWatcherType = class(TXMLNode, IXMLMovieWatcherType)
  protected
    { IXMLMovieWatcherType }
    function GetMovies: IXMLMoviesType;
    function GetCinemas: IXMLCinemasType;
    function GetScreenings: IXMLScreeningsType;
  public
    procedure AfterConstruction; override;
  end;

{ TXMLMoviesType }

  TXMLMoviesType = class(TXMLNodeCollection, IXMLMoviesType)
  protected
    { IXMLMoviesType }
    function GetMovie(Index: Integer): IXMLMovieType;
    function Add: IXMLMovieType;
    function Insert(const Index: Integer): IXMLMovieType;
  public
    procedure AfterConstruction; override;
  end;

{ TXMLMovieType }

  TXMLMovieType = class(TXMLNode, IXMLMovieType)
  protected
    { IXMLMovieType }
    function GetId: WideString;
    function GetRating: WideString;
    function GetLogoUrl: WideString;
    function GetUrl: WideString;
    function GetName: WideString;
    function GetLength: Integer;
    function GetDirector: WideString;
    function GetStarring: IXMLStarringType;
    function GetSynopsis: WideString;
    procedure SetId(Value: WideString);
    procedure SetRating(Value: WideString);
    procedure SetLogoUrl(Value: WideString);
    procedure SetUrl(Value: WideString);
    procedure SetName(Value: WideString);
    procedure SetLength(Value: Integer);
    procedure SetDirector(Value: WideString);
    procedure SetSynopsis(Value: WideString);
  public
    procedure AfterConstruction; override;
  end;

{ TXMLStarringType }

  TXMLStarringType = class(TXMLNodeCollection, IXMLStarringType)
  protected
    { IXMLStarringType }
    function GetStar(Index: Integer): WideString;
    function Add(const Star: WideString): IXMLNode;
    function Insert(const Index: Integer; const Star: WideString): IXMLNode;
  public
    procedure AfterConstruction; override;
  end;

{ TXMLCinemasType }

  TXMLCinemasType = class(TXMLNodeCollection, IXMLCinemasType)
  protected
    { IXMLCinemasType }
    function GetCinema(Index: Integer): IXMLCinemaType;
    function Add: IXMLCinemaType;
    function Insert(const Index: Integer): IXMLCinemaType;
  public
    procedure AfterConstruction; override;
  end;

{ TXMLCinemaType }