upackagequery.~dfm

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

        Top = 142
        Width = 129
        Height = 30
        Caption = #36864'   '#20986
        TabOrder = 2
        OnClick = btnExitClick
        Glyph.Data = {
          36030000424D3603000000000000360000002800000010000000100000000100
          18000000000000030000C40E0000C40E00000000000000000000BFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBF0000007F7F7F0000007F7F7F0000007F7F7FFF
          FF007F7F7FFFFF00000000BFBFBF7F7F000000000000007F7F7FBFBFBF000000
          000000000000000000000000000000000000FFFF007F7F7F000000FFFFFF7F7F
          7F7F7F00000000000000BFBFBFBFBFBFBFBFBFBFBFBF00000000000000000000
          0000000000000000000000FFFFFF7F7F007F7F007F7F00000000BFBFBFBFBFBF
          BFBFBFBFBFBF0000000000FF000000FFFF00FFFFFF00007F000000FFFFFF7F7F
          7F7F7F007F7F7F0000000000000000000000000000000000000000FF0000FF00
          0000FFFF0000007F000000FFFFFF7F7F007F7F7F7F7F000000000000000000FF
          0000FF0000FF0000FF0000FF0000FF0000FF00000000007F000000FFFFFF7F7F
          7F0000007F7F7F0000000000000000FF0000FF0000FF0000FF0000FF0000FF00
          00FF00000000007F000000FFFFFF0000000000007F7F00000000000000000000
          0000000000000000000000FF0000FF000000FFFF0000007F000000FFFFFF7F7F
          000000007F7F7F000000BFBFBFBFBFBFBFBFBFBFBFBF0000000000FF000000FF
          FF00FFFFFF00007F000000FFFFFF7F7F7F7F7F007F7F00000000BFBFBFBFBFBF
          BFBFBFBFBFBF000000000000000000FFFFFFFFFF0000007F000000FFFFFF7F7F
          7F7F7F007F7F7F000000BFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBF000000FF
          FF00FFFFFF00007F000000FFFFFF7F7F007F7F007F7F00000000BFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBF000000FFFFFFFFFF0000007F000000FFFFFF7F7F
          7F7F7F007F7F7F000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000FF
          FF00FFFFFFFFFF00FFFFFF000000FFFFFF7F7F7F7F7F00000000BFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBF000000FFFFFFFFFF00FFFFFFFFFF00FFFFFFFFFF
          00FFFFFF7F7F7F000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00000000
          0000000000000000000000000000000000000000000000000000}
      end
      object BitBtn1: TBitBtn
        Left = 40
        Top = 102
        Width = 129
        Height = 30
        Caption = #25171#24320'EXCEL'
        TabOrder = 3
        OnClick = BitBtn1Click
        Kind = bkYes
      end
    end
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 193
    Width = 985
    Height = 231
    Align = alClient
    DataSource = DataSource4
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = #20648#22791#21333#20301
        Width = 136
        Visible = True
      end
      item
        Expanded = False
        FieldName = #24211#28857
        Width = 93
        Visible = True
      end
      item
        Expanded = False
        FieldName = #20179#24211
        Width = 87
        Visible = True
      end
      item
        Expanded = False
        FieldName = #36135#20301
        Width = 71
        Visible = True
      end
      item
        Expanded = False
        FieldName = #36135#29289
        Visible = True
      end
      item
        Expanded = False
        FieldName = #20648#22791#24615#36136
        Visible = True
      end
      item
        Expanded = False
        FieldName = #24402#23646
        Width = 68
        Visible = True
      end
      item
        Expanded = False
        FieldName = #26032#21253#35013
        Visible = True
      end
      item
        Expanded = False
        FieldName = #26087#21253#35013
        Visible = True
      end
      item
        Expanded = False
        FieldName = #26434#21253#35013
        Visible = True
      end>
  end
  object unitQuery: TQuery
    AfterScroll = unitQueryAfterScroll
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'select  UNIT_ID,UNIT_NAME'
      'from    ENT_UNIT_INFO'
      'union   select  UNIT_ID=99999997,UNIT_NAME='#39#19981#25351#23450#39)
    Left = 88
    Top = 16
  end
  object siteQuery: TQuery
    AfterScroll = siteQueryAfterScroll
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'select  unit_id,SITE_ID,SITE_NAME'
      'from    ENT_SITE'
      'where   unit_id=:UnitId '
      'union   select unit_id=99999,SITE_ID=99999998,SITE_NAME='#39#19981#25351#23450#39)
    Left = 88
    Top = 56
    ParamData = <
      item
        DataType = ftInteger
        Name = 'UnitId'
        ParamType = ptUnknown
      end>
  end
  object depotQuery: TQuery
    AfterScroll = depotQueryAfterScroll
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'select unit_id,site_id,DEPOT_ID,DEPOT_NAME'
      'from   ENT_DEPOT_INFO'
      'where  site_id=:SiteId and unit_id=:unitid'
      
        'union  select unit_id=99999,SITE_ID=99999998,DEPOT_ID=99999999,D' +
        'EPOT_NAME='#39#19981#25351#23450#39)
    Left = 88
    Top = 96
    ParamData = <
      item
        DataType = ftInteger
        Name = 'SiteId'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'unitid'
        ParamType = ptUnknown
      end>
  end
  object DataSource1: TDataSource
    DataSet = unitQuery
    Left = 120
    Top = 16
  end
  object DataSource2: TDataSource
    DataSet = siteQuery
    Left = 120
    Top = 56
  end
  object DataSource3: TDataSource
    DataSet = depotQuery
    Left = 120
    Top = 96
  end
  object Query1: TQuery
    OnCalcFields = Query1CalcFields
    DatabaseName = 'LYDB'
    SQL.Strings = (
      
        'select ent_unit_info.unit_name as '#39#20648#22791#21333#20301#39',ent_site.site_name as '#39 +
        #24211#28857#39','
      
        '       ent_depot_info.depot_name as '#39#20179#24211#39',ent_fdposition_info.nam' +
        'e as '#39#36135#20301#39','
      '       attribute as '#39#20648#22791#24615#36136#39',attachment as '#39#24402#23646#39',in_food as '#39#36135#29289#39','
      '       new as '#39#26032#21253#35013#39',old as '#39#26087#21253#35013#39',misc as '#39#26434#21253#35013#39
      'from ent_instack,ent_fdposition_info,ent_depot_info,'
      '     ent_site,ent_unit_info'
      
        'where ent_instack.FOODPOSITION_ID*=ent_fdposition_info.FOODPOSIT' +
        'ION_ID'
      '      and ent_instack.depot_id*=ent_fdposition_info.depot_id'
      '      and ent_instack.site_id*=ent_fdposition_info.site_id'
      '      and ent_instack.unit_id*=ent_fdposition_info.unit_id  '
      '   '
      '      and ent_instack.depot_id*=ent_depot_info.depot_id'
      '      and ent_instack.site_id*=ent_depot_info.site_id'
      '      and ent_instack.unit_id*=ent_depot_info.unit_id'
      ''
      '      and ent_instack.site_id*=ent_site.site_id'
      '      and ent_instack.unit_id*=ent_site.unit_id'
      ''
      '      and ent_instack.unit_id*=ent_unit_info.unit_id'
      '')
    Left = 184
    Top = 248
    object Query1BDEDesigner: TStringField
      FieldName = #20648#22791#21333#20301
      Size = 50
    end
    object Query1BDEDesigner2: TStringField
      FieldName = #24211#28857
    end
    object Query1BDEDesigner3: TStringField
      FieldName = #20179#24211
    end
    object Query1BDEDesigner4: TStringField
      FieldName = #36135#20301
    end
    object Query1BDEDesigner5: TIntegerField
      FieldName = #26032#21253#35013
    end
    object Query1BDEDesigner6: TIntegerField
      FieldName = #26087#21253#35013
    end
    object Query1BDEDesigner7: TIntegerField
      FieldName = #26434#21253#35013
    end
    object Query1sum: TIntegerField
      FieldKind = fkCalculated
      FieldName = 'sum'
      Calculated = True
    end
    object Query1BDEDesigner8: TStringField
      FieldName = #20648#22791#24615#36136
      Size = 12
    end
    object Query1BDEDesigner9: TStringField
      FieldName = #24402#23646
    end
    object Query1BDEDesigner10: TStringField
      FieldName = #36135#29289
      Size = 12
    end
  end
  object DataSource4: TDataSource
    DataSet = Query1
    Left = 216
    Top = 248
  end
  object fdpidQuery: TQuery
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'select foodposition_id,name'
      'from ent_fdposition_info'
      'where unit_id=:unit_id and site_id=:site_id '
      '    and depot_id=:depot_id and name=:foodposition_name')
    Left = 104
    Top = 176
    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 fdpositionquery: TQuery
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'select foodposition_id,name'
      'from ent_fdposition_info'
      'where unit_id=:unit_id and site_id=:site_id '
      '    and depot_id=:depot_id')
    Left = 88
    Top = 136
    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 chubeiQuery: TQuery
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'select ATTRIBUTE'
      'from   ENT_ATTRIBUTE'
      'union  select ATTRIBUTE='#39#19981#25351#23450#39)
    Left = 352
    Top = 16
  end
  object chubeiDataSource: TDataSource
    DataSet = chubeiQuery
    Left = 384
    Top = 16
  end
  object guishuQuery: TQuery
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'select attachment'
      'from   ENT_ATTACHMENT'
      'union  select attachment='#39#19981#25351#23450#39)
    Left = 360
    Top = 64
  end
  object guishuDataSource: TDataSource
    DataSet = guishuQuery
    Left = 392
    Top = 64
  end
  object FoodTypeQuery: TQuery
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'select FOOD_type'
      'from   ENT_FOOD_TYPE'
      'union  select FOOD_TYPE='#39#19981#25351#23450#39)
    Left = 355
    Top = 115
  end
  object FoodTypeDataSource: TDataSource
    DataSet = FoodTypeQuery
    Left = 386
    Top = 115
  end
end