ubunit.dfm

是分布式粮库程序,是采用Delphi实现的

      '    name=:foodposition_name,'
      '    capacity=:capacity,memo=:memo'
      'where unit_id=:unit_id and site_id=:site_id'
      '      and depot_id=:depot_id'
      '      and foodposition_id=:foodposition_id')
    Left = 464
    Top = 120
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'site_id'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'depot_id'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'foodposition_id'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'foodposition_name'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'capacity'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'memo'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'unit_id'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'site_id'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'depot_id'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'foodposition_id'
        ParamType = ptUnknown
      end>
  end
  object Query1: TQuery
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'select * from ent_site'
      'where unit_id=:unit_id and site_id=:site_id')
    Left = 184
    Top = 280
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'unit_id'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'site_id'
        ParamType = ptUnknown
      end>
  end
  object Query2: TQuery
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'select * from ent_depot_info'
      'where unit_id=:unit_id and site_id=:site_id'
      '     and depot_id=:depot_id')
    Left = 216
    Top = 280
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'unit_id'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'site_id'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'depot_id'
        ParamType = ptUnknown
      end>
  end
  object Query3: TQuery
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'select * from ent_fdposition_info'
      'where unit_id=:unit_id and site_id=:site_id'
      '     and depot_id=:depot_id and foodposition_id=:foodposition_id')
    Left = 248
    Top = 280
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'unit_id'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'site_id'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'depot_id'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'foodposition_id'
        ParamType = ptUnknown
      end>
  end
  object Query4: TQuery
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'select * from ent_site'
      'where unit_id=:unit_id and site_name=:site_name')
    Left = 184
    Top = 320
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'unit_id'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'site_name'
        ParamType = ptUnknown
      end>
  end
  object depottypeQuery: TQuery
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'select depot_type'
      'from ent_depottype')
    Left = 8
    Top = 128
  end
  object depottypeDataSource: TDataSource
    DataSet = depottypeQuery
    Left = 40
    Top = 128
  end
  object Query5: TQuery
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'select * from ent_depot_info'
      'where unit_id=:unit_id and site_id=:site_id'
      '     and depot_name=:depot_name')
    Left = 216
    Top = 320
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'unit_id'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'site_id'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'depot_name'
        ParamType = ptUnknown
      end>
  end
  object Query6: TQuery
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'select * from ent_fdposition_info'
      'where unit_id=:unit_id and site_id=:site_id'
      '     and depot_id=:depot_id and name=:foodposition_name')
    Left = 248
    Top = 320
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'unit_id'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'site_id'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'depot_id'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'foodposition_name'
        ParamType = ptUnknown
      end>
  end
  object sitemodquery: TQuery
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'update ent_site'
      'set site_id=:site_id,site_name=:site_name,'
      '    site_address=:site_address,memo=:memo'
      'where unit_id=:unit_id and site_id=:site_id')
    Left = 400
    Top = 120
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'site_id'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'site_name'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'site_address'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'memo'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'unit_id'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'site_id'
        ParamType = ptUnknown
      end>
  end
  object qryunit: TQuery
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'select * from ENT_UNIT_INFO')
    Left = 80
    Top = 232
  end
  object qrysite: TQuery
    AfterScroll = qrysiteAfterScroll
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'select * from ENT_SITE'
      'where unit_id=:unitid')
    Left = 80
    Top = 264
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'unitid'
        ParamType = ptUnknown
      end>
  end
  object qrydepot: TQuery
    AfterScroll = qrydepotAfterScroll
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'select * from ENT_DEPOT_INFO'
      'where unit_id=:unitid')
    Left = 80
    Top = 296
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'unitid'
        ParamType = ptUnknown
      end>
  end
  object qryfdposition: TQuery
    AfterScroll = qryfdpositionAfterScroll
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'select * from ENT_FDPOSITION_INFO'
      'where unit_id=:unitid')
    Left = 80
    Top = 328
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'unitid'
        ParamType = ptUnknown
      end>
  end
  object Query7: TQuery
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'select * from ent_depot_info'
      'where unit_id=:unit_id and site_id=:site_id')
    Left = 384
    Top = 280
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'unit_id'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'site_id'
        ParamType = ptUnknown
      end>
  end
  object Query8: TQuery
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'select * from ent_fdposition_info'
      'where unit_id=:unit_id and site_id=:site_id'
      '     and depot_id=:depot_id')
    Left = 384
    Top = 320
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'unit_id'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'site_id'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'depot_id'
        ParamType = ptUnknown
      end>
  end
  object Query9: TQuery
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'select distinct site_id,site_name'
      'from ent_site'
      'where unit_id=:unit_id'
      'union select site_id=999,site_name='#39#25152#26377#24211#28857#39)
    Left = 632
    ParamData = <
      item
        DataType = ftInteger
        Name = 'unit_id'
        ParamType = ptUnknown
      end>
  end
  object DataSource3: TDataSource
    DataSet = Query9
    Left = 632
    Top = 32
  end
  object Query11: TQuery
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'select distinct depot_id,depot_name'
      'from ent_depot_info'
      'where unit_id=:unit_id'
      'and   site_id=:site_id'
      'union select depot_id=999,depot_name='#39#25152#26377#20179#24211#39)
    Left = 736
    ParamData = <
      item
        DataType = ftInteger
        Name = 'unit_id'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'site_id'
        ParamType = ptUnknown
      end>
  end
  object DataSource5: TDataSource
    DataSet = Query11
    Left = 736
    Top = 32
  end
end