commonxml.dfm

Delphi XML & XPATH源代码

object datCommonXML: TdatCommonXML
  OldCreateOrder = False
  Left = 233
  Top = 133
  Height = 213
  Width = 258
  object qryMovie: TQuery
    Active = True
    DatabaseName = 'Movie-watcher'
    SQL.Strings = (
      'select * from movie')
    Left = 24
    Top = 8
    object qryMovieMovie_id: TIntegerField
      FieldName = 'Movie_id'
      Origin = 'MOVIE-WATCHER."movie.DB".Movie_id'
      DisplayFormat = 'M##0'
    end
    object qryMovieName: TStringField
      FieldName = 'Name'
      Origin = 'MOVIE-WATCHER."movie.DB".Name'
      Size = 40
    end
    object qryMovieRating: TStringField
      FieldName = 'Rating'
      Origin = 'MOVIE-WATCHER."movie.DB".Rating'
      Size = 5
    end
    object qryMovieLength_Mins: TIntegerField
      FieldName = 'Length_Mins'
      Origin = 'MOVIE-WATCHER."movie.DB".Length_Mins'
    end
    object qryMovieDirector: TStringField
      FieldName = 'Director'
      Origin = 'MOVIE-WATCHER."movie.DB".Director'
      Size = 30
    end
    object qryMovieSynopsis: TMemoField
      FieldName = 'Synopsis'
      Origin = 'MOVIE-WATCHER."movie.DB".Synopsis'
      OnGetText = GetMemoText
      BlobType = ftMemo
      Size = 5
    end
    object qryMovieURL: TStringField
      FieldName = 'URL'
      Origin = 'MOVIE-WATCHER."movie.DB".URL'
      Size = 70
    end
    object qryMovieLogo_URL: TStringField
      FieldName = 'Logo_URL'
      Origin = 'MOVIE-WATCHER."movie.DB".Logo_URL'
      Size = 70
    end
  end
  object qryScreening: TQuery
    Active = True
    DatabaseName = 'Movie-watcher'
    SQL.Strings = (
      'select * from screening')
    Left = 172
    Top = 8
    object qryScreeningMovie_id: TIntegerField
      FieldName = 'Movie_id'
      Origin = 'MOVIE-WATCHER."screening.DB".Movie_id'
      DisplayFormat = 'M##0'
    end
    object qryScreeningCinema_id: TIntegerField
      FieldName = 'Cinema_id'
      Origin = 'MOVIE-WATCHER."screening.DB".Cinema_id'
      DisplayFormat = 'C##0'
    end
    object qryScreeningStart_date: TDateField
      FieldName = 'Start_date'
      Origin = 'MOVIE-WATCHER."screening.DB".Start_date'
    end
    object qryScreeningEnd_date: TDateField
      FieldName = 'End_date'
      Origin = 'MOVIE-WATCHER."screening.DB".End_date'
    end
    object qryScreeningDigital_sound: TStringField
      FieldName = 'Digital_sound'
      Origin = 'MOVIE-WATCHER."screening.DB".Digital_sound'
      Size = 5
    end
    object qryScreeningNo_passes: TBooleanField
      FieldName = 'No_passes'
      Origin = 'MOVIE-WATCHER."screening.DB".No_passes'
    end
  end
  object qryCinema: TQuery
    Active = True
    DatabaseName = 'Movie-watcher'
    SQL.Strings = (
      'select * from cinema')
    Left = 96
    Top = 8
    object qryCinemaCinema_id: TIntegerField
      FieldName = 'Cinema_id'
      Origin = 'MOVIE-WATCHER."cinema.DB".Cinema_id'
      DisplayFormat = 'C##0'
    end
    object qryCinemaName: TStringField
      FieldName = 'Name'
      Origin = 'MOVIE-WATCHER."cinema.DB".Name'
      Size = 30
    end
    object qryCinemaPhone: TStringField
      FieldName = 'Phone'
      Origin = 'MOVIE-WATCHER."cinema.DB".Phone'
      Size = 15
    end
    object qryCinemaAddress: TStringField
      FieldName = 'Address'
      Origin = 'MOVIE-WATCHER."cinema.DB".Address'
      Size = 50
    end
    object qryCinemaDirections: TMemoField
      FieldName = 'Directions'
      Origin = 'MOVIE-WATCHER."cinema.DB".Directions'
      OnGetText = GetMemoText
      BlobType = ftMemo
      Size = 1
    end
    object qryCinemaCandy_bar: TBooleanField
      FieldName = 'Candy_bar'
      Origin = 'MOVIE-WATCHER."cinema.DB".Candy_bar'
    end
    object qryCinemaDisabled_access: TBooleanField
      FieldName = 'Disabled_access'
      Origin = 'MOVIE-WATCHER."cinema.DB".Disabled_access'
    end
  end
  object dsrMovie: TDataSource
    DataSet = qryMovie
    Left = 24
    Top = 60
  end
  object dsrCinema: TDataSource
    DataSet = qryCinema
    Left = 96
    Top = 60
  end
  object dsrScreening: TDataSource
    DataSet = qryScreening
    Left = 172
    Top = 60
  end
  object qryStars: TQuery
    Active = True
    DatabaseName = 'Movie-watcher'
    DataSource = dsrMovie
    SQL.Strings = (
      'select * from stars'
      'where movie_id = :movie_id')
    Left = 24
    Top = 112
    ParamData = <
      item
        DataType = ftInteger
        Name = 'Movie_id'
        ParamType = ptInput
        Size = 4
      end>
    object qryStarsStar_id: TIntegerField
      FieldName = 'Star_id'
      Origin = 'MOVIE-WATCHER."stars.DB".Star_id'
    end
    object qryStarsMovie_id: TIntegerField
      FieldName = 'Movie_id'
      Origin = 'MOVIE-WATCHER."stars.DB".Movie_id'
    end
    object qryStarsStar: TStringField
      FieldName = 'Star'
      Origin = 'MOVIE-WATCHER."stars.DB".Star'
      Size = 30
    end
  end
  object qryPricing: TQuery
    Active = True
    DatabaseName = 'Movie-watcher'
    DataSource = dsrCinema
    SQL.Strings = (
      'select * from pricing'
      'where cinema_id = :cinema_id')
    Left = 96
    Top = 112
    ParamData = <
      item
        DataType = ftInteger
        Name = 'Cinema_id'
        ParamType = ptInput
        Size = 4
      end>
    object qryPricingPricing_id: TIntegerField
      FieldName = 'Pricing_id'
      Origin = 'MOVIE-WATCHER."pricing.DB".Pricing_id'
      DisplayFormat = 'P##0'
    end
    object qryPricingCinema_id: TIntegerField
      FieldName = 'Cinema_id'
      Origin = 'MOVIE-WATCHER."pricing.DB".Cinema_id'
    end
    object qryPricingName: TStringField
      FieldName = 'Name'
      Origin = 'MOVIE-WATCHER."pricing.DB".Name'
    end
    object qryPricingPeriod: TStringField
      FieldName = 'Period'
      Origin = 'MOVIE-WATCHER."pricing.DB".Period'
      Size = 30
    end
    object qryPricingAdult: TFloatField
      FieldName = 'Adult'
      Origin = 'MOVIE-WATCHER."pricing.DB".Adult'
      DisplayFormat = '##0.00'
    end
    object qryPricingChild: TFloatField
      FieldName = 'Child'
      Origin = 'MOVIE-WATCHER."pricing.DB".Child'
      DisplayFormat = '##0.00'
    end
    object qryPricingDiscount: TFloatField
      FieldName = 'Discount'
      Origin = 'MOVIE-WATCHER."pricing.DB".Discount'
      DisplayFormat = '##0.00'
    end
  end
  object qrySessions: TQuery
    Active = True
    DatabaseName = 'Movie-watcher'
    DataSource = dsrScreening
    SQL.Strings = (
      'select * from sessions'
      'where movie_id = :movie_id and cinema_id = :cinema_id')
    Left = 172
    Top = 112
    ParamData = <
      item
        DataType = ftInteger
        Name = 'Movie_id'
        ParamType = ptInput
        Size = 4
      end
      item
        DataType = ftInteger
        Name = 'Cinema_id'
        ParamType = ptInput
        Size = 4
      end>
    object qrySessionsMovie_id: TIntegerField
      FieldName = 'Movie_id'
      Origin = 'MOVIE-WATCHER."sessions.DB".Movie_id'
    end
    object qrySessionsCinema_id: TIntegerField
      FieldName = 'Cinema_id'
      Origin = 'MOVIE-WATCHER."sessions.DB".Cinema_id'
    end
    object qrySessionsTime: TTimeField
      FieldName = 'Time'
      Origin = 'MOVIE-WATCHER."sessions.DB".Time'
    end
    object qrySessionsPricing_id: TIntegerField
      FieldName = 'Pricing_id'
      Origin = 'MOVIE-WATCHER."sessions.DB".Pricing_id'
      DisplayFormat = 'P##0'
    end
  end
end