unjhd.dfm

来自「商品入库」· DFM 代码 · 共 71 行

object FMJHD: TFMJHD
  OldCreateOrder = False
  Left = 408
  Top = 176
  Height = 349
  Width = 517
  object DSJHZB: TDataSource
    DataSet = QJHZB
    Left = 88
    Top = 40
  end
  object QJHZB: TQuery
    Active = True
    DatabaseName = 'CS'
    RequestLive = True
    SQL.Strings = (
      'SELECT * FROM JHZB')
    Left = 240
    Top = 40
  end
  object TJHZB: TTable
    Active = True
    AutoRefresh = True
    DatabaseName = 'CS'
    FieldDefs = <
      item
        Name = 'SPNO'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'JHNUM'
        DataType = ftFloat
      end
      item
        Name = 'SPNAM'
        DataType = ftString
        Size = 40
      end
      item
        Name = 'JBREN'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'BEIZHU'
        DataType = ftMemo
        Size = 1
      end
      item
        Name = 'JHXJ'
        DataType = ftFloat
      end>
    IndexDefs = <
      item
        Name = 'PrimaryKey'
        Fields = 'SPNO'
        Options = [ixUnique]
      end>
    StoreDefs = True
    TableName = 'JHZB'
    Left = 96
    Top = 152
  end
  object DSTJHZB: TDataSource
    DataSet = TJHZB
    Left = 192
    Top = 152
  end
end