ubunit.dfm

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

        Top = 112
        Width = 97
        Height = 21
        TabOrder = 10
        Text = 'Edit9'
        OnKeyPress = Edit9KeyPress
      end
      object Memo3: TMemo
        Left = 240
        Top = 104
        Width = 129
        Height = 33
        Lines.Strings = (
          'Memo3')
        TabOrder = 11
      end
      object GroupBox5: TGroupBox
        Left = 632
        Top = 0
        Width = 185
        Height = 137
        Caption = #26597#35810
        TabOrder = 12
        object Label33: TLabel
          Left = 8
          Top = 21
          Width = 60
          Height = 13
          Caption = #24211#28857#21517#31216#65306
        end
        object Label34: TLabel
          Left = 5
          Top = 79
          Width = 60
          Height = 13
          Caption = #20179#24211#21517#31216#65306
        end
        object DBLookupComboBox9: TDBLookupComboBox
          Left = 40
          Top = 44
          Width = 113
          Height = 21
          KeyField = 'site_id'
          ListField = 'site_name'
          ListSource = DataSource3
          TabOrder = 0
          OnCloseUp = DBLookupComboBox9CloseUp
        end
        object DBLookupComboBox10: TDBLookupComboBox
          Left = 40
          Top = 100
          Width = 113
          Height = 21
          KeyField = 'depot_id'
          ListField = 'depot_name'
          ListSource = DataSource5
          TabOrder = 1
          OnCloseUp = DBLookupComboBox10CloseUp
        end
      end
    end
  end
  object unitDataSource: TDataSource
    DataSet = qryunit
    Left = 48
    Top = 232
  end
  object siteDataSource: TDataSource
    DataSet = qrysite
    Left = 48
    Top = 264
  end
  object depotDataSource: TDataSource
    DataSet = qrydepot
    Left = 48
    Top = 296
  end
  object fdpositionDataSource: TDataSource
    DataSet = qryfdposition
    Left = 48
    Top = 328
  end
  object siteQuery: TQuery
    AfterScroll = siteQueryAfterScroll
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'select site_id,site_name'
      'from ent_site'
      'where unit_id=:unit_id')
    Left = 104
    Top = 48
    ParamData = <
      item
        DataType = ftInteger
        Name = 'unit_id'
        ParamType = ptUnknown
      end>
  end
  object DataSource1: TDataSource
    DataSet = siteQuery
    Left = 136
    Top = 48
  end
  object unitQuery: TQuery
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'select * from ent_unit_info'
      'where unit_id=:unit_id')
    Left = 104
    Top = 16
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'unit_id'
        ParamType = ptUnknown
      end>
  end
  object depotQuery: TQuery
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'select depot_id,depot_name'
      'from ent_depot_info'
      'where unit_id=:unit_id and site_id=:site_id')
    Left = 104
    Top = 80
    ParamData = <
      item
        DataType = ftInteger
        Name = 'unit_id'
        ParamType = ptUnknown
      end
      item
        DataType = ftInteger
        Name = 'site_id'
        ParamType = ptUnknown
      end>
  end
  object DataSource2: TDataSource
    DataSet = depotQuery
    Left = 136
    Top = 80
  end
  object sitenewQuery: TQuery
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'insert ent_site (unit_id,site_id,site_name,site_address,memo)'
      'values (:unit_id,:site_id,:site_name,:site_address,:memo)')
    Left = 400
    Top = 40
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'unit_id'
        ParamType = ptUnknown
      end
      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>
  end
  object depotnewQuery: TQuery
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'insert ent_depot_info (unit_id,site_id,depot_id,'
      '                       depot_name,depot_area,depot_type,memo)'
      'values               (:unit_id,:site_id,:depot_id,'
      '                      :depot_name,:depot_area,:depot_type,:memo)')
    Left = 432
    Top = 40
    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 = 'depot_name'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'depot_area'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'depot_type'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'memo'
        ParamType = ptUnknown
      end>
  end
  object fdpnewQuery: TQuery
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'insert ent_fdposition_info (unit_id,site_id,depot_id,'
      '                       foodposition_id,name,'
      '                         capacity,memo)'
      'values       (:unit_id,:site_id,:depot_id,:foodposition_id,'
      '              :foodposition_name,:capacity,:memo)')
    Left = 464
    Top = 40
    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
      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>
  end
  object sitedelQuery: TQuery
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'delete from ent_site'
      'where unit_id=:unit_id and site_id=:site_id')
    Left = 400
    Top = 80
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'unit_id'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'site_id'
        ParamType = ptUnknown
      end>
  end
  object depotdelQuery: TQuery
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'delete from ent_depot_info'
      'where unit_id=:unit_id and site_id=:site_id '
      '      and depot_id=:depot_id')
    Left = 432
    Top = 80
    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 fdpdelQuery: TQuery
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'delete from ent_fdposition_info'
      'where unit_id=:unit_id and site_id=:site_id '
      
        '      and depot_id=:depot_id and foodposition_id=:foodposition_i' +
        'd')
    Left = 464
    Top = 80
    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 depotmodQuery: TQuery
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'update ent_depot_info'
      'set site_id=:site_id,depot_id=:depot_id,'
      '    depot_name=:depot_name,depot_type=:depot_type,'
      '    depot_area=:depot_area,memo=:memo'
      'where unit_id=:unit_id and site_id=:site_id'
      '      and depot_id=:depot_id')
    Left = 432
    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 = 'depot_name'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'depot_type'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'depot_area'
        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>
  end
  object fdpmodQuery: TQuery
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'update ent_fdposition_info'
      'set site_id=:site_id,depot_id=:depot_id,'
      '    foodposition_id=:foodposition_id,'