moviedata1.dfm

来自「Delphi XML & XPATH源代码」· DFM 代码 · 共 56 行

object MovieData: TMovieData
  OldCreateOrder = False
  OnCreate = RemoteDataModuleCreate
  OnDestroy = RemoteDataModuleDestroy
  Left = 192
  Top = 107
  Height = 233
  Width = 249
  object dspMovies: TDataSetProvider
    DataSet = qryMovies
    Constraints = True
    Left = 156
    Top = 20
  end
  object sesMovies: TSession
    Active = True
    AutoSessionName = True
    Left = 16
    Top = 20
  end
  object qryMovies: TQuery
    AfterOpen = qryMoviesAfterOpen
    DatabaseName = 'Movie-watcher'
    SessionName = 'sesMovies_1'
    RequestLive = True
    SQL.Strings = (
      'SELECT *'
      'FROM movie')
    Left = 88
    Top = 20
  end
  object dsrMovies: TDataSource
    DataSet = qryMovies
    Left = 88
    Top = 76
  end
  object qryStars: TQuery
    DatabaseName = 'Movie-watcher'
    SessionName = 'sesMovies_1'
    DataSource = dsrMovies
    RequestLive = True
    SQL.Strings = (
      'SELECT *'
      'FROM stars'
      'WHERE movie_id = :movie_id')
    Left = 88
    Top = 132
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'movie_id'
        ParamType = ptUnknown
      end>
  end
end