unit2.dfm

来自「用delphi开发的户籍管理系统」· DFM 代码 · 共 41 行

object DataModule2: TDataModule2
  OldCreateOrder = False
  Left = 445
  Top = 320
  Height = 220
  Width = 309
  object huzhu_DataSource1: TDataSource
    DataSet = huZhu_Table1
    Left = 24
    Top = 32
  end
  object huZhu_Table1: TTable
    DatabaseName = 'huji'
    MasterSource = chengyuan_DataSource2
    TableName = 'huzhu'
    Left = 24
    Top = 104
  end
  object chengyuan_DataSource2: TDataSource
    DataSet = Query1
    Left = 168
    Top = 32
  end
  object Query1: TQuery
    DatabaseName = 'huji'
    SessionName = 'Default'
    SQL.Strings = (
      'select chengyuan.*, huzhu.'#22995#21517' from'
      'huzhu,chengyuan'
      'where huzhu.'#22995#21517'=:chengyuan.'#25143#20027';')
    Left = 168
    Top = 112
    ParamData = <
      item
        DataType = ftString
        Name = 'chengyuan.'#25143#20027
        ParamType = ptInputOutput
      end>
  end
end