mwmapmain.dfm

来自「Delphi XML & XPATH源代码」· DFM 代码 · 共 701 行 · 第 1/2 页

      FieldName = 'movie'
    end
    object cdsMovieWatchercinema: TDataSetField
      FieldName = 'cinema'
    end
    object cdsMovieWatcherscreening: TDataSetField
      FieldName = 'screening'
    end
  end
  object cdsMovies: TClientDataSet
    Aggregates = <>
    DataSetField = cdsMovieWatchermovie
    Params = <>
    Left = 228
    Top = 392
    object cdsMoviesid: TStringField
      DisplayLabel = 'Id'
      DisplayWidth = 5
      FieldName = 'id'
      Required = True
      Size = 3
    end
    object cdsMoviesrating: TStringField
      DisplayLabel = 'Rating'
      DisplayWidth = 6
      FieldName = 'rating'
      Required = True
      Size = 5
    end
    object cdsMoviesname: TStringField
      DisplayLabel = 'Name'
      DisplayWidth = 35
      FieldName = 'name'
      Size = 40
    end
    object cdsMovieslength: TIntegerField
      DisplayLabel = 'Length'
      DisplayWidth = 7
      FieldName = 'length'
    end
    object cdsMoviesdirector: TStringField
      DisplayLabel = 'Director'
      DisplayWidth = 20
      FieldName = 'director'
      Size = 30
    end
    object cdsMoviessynopsis: TStringField
      DisplayLabel = 'Synopsis'
      DisplayWidth = 1200
      FieldName = 'synopsis'
      Size = 1000
    end
    object cdsMovieslogourl: TStringField
      DisplayLabel = 'Logo URL'
      DisplayWidth = 60
      FieldName = 'logo-url'
      Size = 50
    end
    object cdsMoviesurl: TStringField
      DisplayLabel = 'URL'
      DisplayWidth = 60
      FieldName = 'url'
      Size = 50
    end
    object cdsMoviesstar: TDataSetField
      FieldName = 'star'
      Visible = False
    end
  end
  object srcMovies: TDataSource
    DataSet = cdsMovies
    Left = 228
    Top = 440
  end
  object cdsStars: TClientDataSet
    Aggregates = <>
    DataSetField = cdsMoviesstar
    Params = <>
    Left = 280
    Top = 392
    object cdsStarsstar: TStringField
      DisplayLabel = 'Star'
      FieldName = 'star'
      Size = 30
    end
  end
  object srcStars: TDataSource
    DataSet = cdsStars
    Left = 280
    Top = 440
  end
  object cdsCinemas: TClientDataSet
    Aggregates = <>
    DataSetField = cdsMovieWatchercinema
    Params = <>
    Left = 336
    Top = 392
    object cdsCinemasid: TStringField
      DisplayLabel = 'Id'
      DisplayWidth = 4
      FieldName = 'id'
      Required = True
      Size = 3
    end
    object cdsCinemasname: TStringField
      DisplayLabel = 'Name'
      DisplayWidth = 30
      FieldName = 'name'
      Required = True
      Size = 30
    end
    object cdsCinemasphone: TStringField
      DisplayLabel = 'Phone'
      DisplayWidth = 15
      FieldName = 'phone'
      Required = True
      Size = 12
    end
    object cdsCinemasaddress: TStringField
      DisplayLabel = 'Address'
      DisplayWidth = 35
      FieldName = 'address'
      Required = True
      Size = 50
    end
    object cdsCinemasdirections: TStringField
      DisplayLabel = 'Directions'
      DisplayWidth = 1728
      FieldName = 'directions'
      Size = 1000
    end
    object cdsCinemascandybar: TStringField
      Alignment = taCenter
      DisplayLabel = 'Candy Bar'
      DisplayWidth = 8
      FieldName = 'candy-bar'
      Size = 1
    end
    object cdsCinemasdisabledaccess: TStringField
      Alignment = taCenter
      DisplayLabel = 'Disabled Access'
      DisplayWidth = 13
      FieldName = 'disabled-access'
      Size = 1
    end
    object cdsCinemasprices: TDataSetField
      FieldName = 'prices'
      Visible = False
    end
  end
  object srcCinemas: TDataSource
    DataSet = cdsCinemas
    Left = 336
    Top = 440
  end
  object cdsPrices: TClientDataSet
    Aggregates = <>
    DataSetField = cdsCinemasprices
    Params = <>
    Left = 392
    Top = 392
    object cdsPricesid: TStringField
      DisplayLabel = 'Id'
      DisplayWidth = 8
      FieldName = 'pid'
      Required = True
      Size = 3
    end
    object cdsPricesname: TStringField
      DisplayLabel = 'Name'
      DisplayWidth = 36
      FieldName = 'name'
      Required = True
      Size = 30
    end
    object cdsPricesperiod: TStringField
      DisplayLabel = 'Period'
      DisplayWidth = 35
      FieldName = 'period'
      Required = True
      Size = 30
    end
    object cdsPricesadult: TFloatField
      DisplayLabel = 'Adult'
      DisplayWidth = 8
      FieldName = 'adult'
      Required = True
      DisplayFormat = '0.00'
    end
    object cdsPriceschild: TFloatField
      DisplayLabel = 'Child'
      DisplayWidth = 8
      FieldName = 'child'
      Required = True
      DisplayFormat = '0.00'
    end
    object cdsPricesdiscount: TFloatField
      DisplayLabel = 'Discount'
      DisplayWidth = 8
      FieldName = 'discount'
      DisplayFormat = '0.00'
    end
  end
  object srcPrices: TDataSource
    DataSet = cdsPrices
    Left = 392
    Top = 440
  end
  object cdsScreenings: TClientDataSet
    Aggregates = <>
    DataSetField = cdsMovieWatcherscreening
    Params = <>
    Left = 456
    Top = 392
    object cdsScreeningsmovieid: TStringField
      DisplayLabel = 'Movie'
      FieldName = 'movie-id'
      Required = True
      Visible = False
      Size = 3
    end
    object cdsScreeningsmoviename: TStringField
      DisplayLabel = 'Movie'
      DisplayWidth = 35
      FieldKind = fkLookup
      FieldName = 'movie-name'
      LookupDataSet = cdsMovies
      LookupKeyFields = 'id'
      LookupResultField = 'name'
      KeyFields = 'movie-id'
      Size = 40
      Lookup = True
    end
    object cdsScreeningscinemaid: TStringField
      DisplayLabel = 'Cinema'
      DisplayWidth = 2
      FieldName = 'cinema-id'
      Required = True
      Visible = False
      Size = 2
    end
    object cdsScreeningscinemaname: TStringField
      DisplayLabel = 'Cinema'
      DisplayWidth = 35
      FieldKind = fkLookup
      FieldName = 'cinema-name'
      LookupDataSet = cdsCinemas
      LookupKeyFields = 'id'
      LookupResultField = 'name'
      KeyFields = 'cinema-id'
      Size = 40
      Lookup = True
    end
    object cdsScreeningsstartdate: TDateField
      DisplayLabel = 'Start Date'
      DisplayWidth = 12
      FieldName = 'start-date'
      Required = True
    end
    object cdsScreeningsenddate: TDateField
      DisplayLabel = 'End Date'
      DisplayWidth = 12
      FieldName = 'end-date'
      Required = True
    end
    object cdsScreeningsdigitalsound: TStringField
      DisplayLabel = 'Digital Sound'
      DisplayWidth = 10
      FieldName = 'digital-sound'
      Size = 3
    end
    object cdsScreeningsnopasses: TStringField
      Alignment = taCenter
      DisplayLabel = 'No Passes'
      DisplayWidth = 8
      FieldName = 'no-passes'
      Size = 1
    end
    object cdsScreeningssessions: TDataSetField
      FieldName = 'sessions'
      Visible = False
    end
  end
  object srcScreenings: TDataSource
    DataSet = cdsScreenings
    Left = 456
    Top = 440
  end
  object cdsSessions: TClientDataSet
    Aggregates = <>
    DataSetField = cdsScreeningssessions
    Params = <>
    Left = 528
    Top = 392
    object cdsSessionssession: TTimeField
      DisplayLabel = 'Session Time'
      FieldName = 'session'
      Required = True
    end
    object cdsSessionspriceid: TStringField
      DisplayLabel = 'Pricing Id'
      FieldName = 'price-id'
      Required = True
      Visible = False
      Size = 5
    end
    object cdsSessionspricename: TStringField
      DisplayLabel = 'Pricing'
      FieldKind = fkLookup
      FieldName = 'price-name'
      LookupDataSet = cdsPrices
      LookupKeyFields = 'pid'
      LookupResultField = 'name'
      KeyFields = 'price-id'
      Size = 40
      Lookup = True
    end
  end
  object srcSessions: TDataSource
    DataSet = cdsSessions
    Left = 528
    Top = 440
  end
  object cdsPricesLookup: TClientDataSet
    Aggregates = <>
    Filtered = True
    FieldDefs = <
      item
        Name = 'cinema-id'
        DataType = ftString
        Size = 2
      end
      item
        Name = 'price-id'
        DataType = ftString
        Size = 5
      end
      item
        Name = 'price-name'
        DataType = ftString
        Size = 40
      end>
    IndexDefs = <>
    Params = <>
    StoreDefs = True
    Left = 604
    Top = 392
  end
end