ustockquery.dfm

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

      Left = 357
      Top = 64
      Width = 183
      Height = 21
      TabOrder = 16
    end
    object DBLookupComboBox6: TDBLookupComboBox
      Left = 358
      Top = 120
      Width = 145
      Height = 21
      KeyField = 'attachment'
      ListField = 'attachment'
      ListSource = guishuDataSource
      TabOrder = 17
    end
    object GroupBox2: TGroupBox
      Left = 326
      Top = 152
      Width = 225
      Height = 49
      Caption = #24211#23384#25968#37327#32479#35745
      TabOrder = 18
      object Label13: TLabel
        Left = 168
        Top = 24
        Width = 24
        Height = 13
        Caption = #20844#26020
      end
      object StaticText1: TStaticText
        Left = 24
        Top = 18
        Width = 129
        Height = 20
        AutoSize = False
        BorderStyle = sbsSunken
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 0
      end
    end
    object ComboBox5: TComboBox
      Left = 88
      Top = 88
      Width = 145
      Height = 21
      ItemHeight = 13
      TabOrder = 19
    end
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 233
    Width = 878
    Height = 309
    Align = alClient
    DataSource = stockDataSource
    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 = 74
        Visible = True
      end
      item
        Expanded = False
        FieldName = #24211#28857
        Width = 58
        Visible = True
      end
      item
        Expanded = False
        FieldName = #20179#24211
        Width = 50
        Visible = True
      end
      item
        Expanded = False
        FieldName = #36135#20301
        Width = 43
        Visible = True
      end
      item
        Expanded = False
        FieldName = #36135#29289
        Width = 70
        Visible = True
      end
      item
        Expanded = False
        FieldName = #20837#24211#26102#38388
        Visible = True
      end
      item
        Expanded = False
        FieldName = #25910#33719#24180#20221
        Width = 55
        Visible = True
      end
      item
        Expanded = False
        FieldName = #20648#22791#24615#36136
        Width = 62
        Visible = True
      end
      item
        Expanded = False
        FieldName = #24402#23646
        Width = 42
        Visible = True
      end
      item
        Expanded = False
        FieldName = #24211#23384#25968#37327
        Visible = True
      end
      item
        Expanded = False
        FieldName = #21333#20215
        Width = 56
        Visible = True
      end
      item
        Expanded = False
        FieldName = #20135#22320
        Visible = True
      end
      item
        Expanded = False
        FieldName = #31561#32423
        Width = 54
        Visible = True
      end
      item
        Expanded = False
        FieldName = #27700#20998
        Width = 48
        Visible = True
      end
      item
        Expanded = False
        FieldName = #26434#24230
        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 = 118
    Top = 5
  end
  object UnitDataSource: TDataSource
    DataSet = UnitQuery
    Left = 154
    Top = 5
  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 = 115
    Top = 35
    ParamData = <
      item
        DataType = ftInteger
        Name = 'UnitId'
        ParamType = ptUnknown
      end>
  end
  object SiteDataSource: TDataSource
    DataSet = SiteQuery
    Left = 155
    Top = 37
  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,' +
        'DEPOT_NAME='#39#19981#25351#23450#39)
    Left = 115
    Top = 61
    ParamData = <
      item
        DataType = ftInteger
        Name = 'SiteId'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'unitid'
        ParamType = ptUnknown
      end>
  end
  object DepotDataSource: TDataSource
    DataSet = DepotQuery
    Left = 155
    Top = 61
  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 = 115
    Top = 107
  end
  object FoodTypeDataSource: TDataSource
    DataSet = FoodTypeQuery
    Left = 146
    Top = 107
  end
  object stockDataSource: TDataSource
    DataSet = stockQuery
    Left = 144
    Top = 216
  end
  object chubeiQuery: TQuery
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'select ATTRIBUTE'
      'from   ENT_ATTRIBUTE'
      'union  select ATTRIBUTE='#39#19981#25351#23450#39)
    Left = 368
    Top = 88
  end
  object chubeiDataSource: TDataSource
    DataSet = chubeiQuery
    Left = 400
    Top = 88
  end
  object guishuQuery: TQuery
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'select attachment'
      'from   ENT_ATTACHMENT'
      'union  select attachment='#39#19981#25351#23450#39)
    Left = 352
    Top = 120
  end
  object guishuDataSource: TDataSource
    DataSet = guishuQuery
    Left = 384
    Top = 120
  end
  object stockQuery: TQuery
    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','
      '       in_food as '#39#36135#29289#39', in_time as '#39#20837#24211#26102#38388#39','
      
        '       reap_year as '#39#25910#33719#24180#20221#39',attribute as '#39#20648#22791#24615#36136#39',attachment as '#39#24402#23646 +
        #39','
      '       storage as '#39#24211#23384#25968#37327#39',price as '#39#21333#20215#39','
      '       prod_area as '#39#20135#22320#39',fq_class as '#39#31561#32423#39','
      
        '       fq_moisture as '#39#27700#20998#39',fq_impurity as '#39#26434#24230#39',ent_instack.Unit_' +
        'id,ent_instack.Site_id,ent_instack.Depot_id,ent_instack.FoodPosi' +
        'tion_id'
      
        'from ent_instack,ent_fdposition_info,ent_depot_info,ent_site,ent' +
        '_unit_info'
      
        'where ( ent_instack.FOODPOSITION_ID*=ent_fdposition_info.FOODPOS' +
        'ITION_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 = 112
    Top = 216
    object stockQueryUnit_id: TIntegerField
      FieldName = 'Unit_id'
    end
    object stockQuerySite_id: TIntegerField
      FieldName = 'Site_id'
    end
    object stockQueryDepot_id: TIntegerField
      FieldName = 'Depot_id'
    end
    object stockQueryFoodPosition_id: TIntegerField
      FieldName = 'FoodPosition_id'
    end
    object stockQueryBDEDesigner: TStringField
      FieldName = #20648#22791#21333#20301
      Size = 50
    end
    object stockQueryBDEDesigner2: TStringField
      FieldName = #24211#28857
    end
    object stockQueryBDEDesigner3: TStringField
      FieldName = #20179#24211
    end
    object stockQueryBDEDesigner4: TStringField
      FieldName = #36135#20301
    end
    object stockQueryBDEDesigner5: TStringField
      FieldName = #36135#29289
      Size = 12
    end
    object stockQueryBDEDesigner6: TDateTimeField
      FieldName = #20837#24211#26102#38388
    end
    object stockQueryBDEDesigner7: TIntegerField
      FieldName = #25910#33719#24180#20221
    end
    object stockQueryBDEDesigner8: TStringField
      FieldName = #20648#22791#24615#36136
      Size = 12
    end
    object stockQueryBDEDesigner9: TStringField
      FieldName = #24402#23646
    end
    object stockQueryBDEDesigner10: TFloatField
      FieldName = #24211#23384#25968#37327
    end
    object stockQueryBDEDesigner11: TFloatField
      FieldName = #21333#20215
    end
    object stockQueryBDEDesigner12: TStringField
      FieldName = #20135#22320
      Size = 12
    end
    object stockQueryBDEDesigner13: TStringField
      FieldName = #31561#32423
      Size = 12
    end
    object stockQueryBDEDesigner14: TFloatField
      FieldName = #27700#20998
    end
    object stockQueryBDEDesigner15: TFloatField
      FieldName = #26434#24230
    end
  end
  object fdpidQuery: 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 = 264
    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_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 = 232
    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
end