ustockquery.dfm

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

      Left = 429
      Top = 16
      Width = 81
      Height = 21
      CalAlignment = dtaLeft
      Date = 0.835642719903262
      Time = 0.835642719903262
      DateFormat = dfShort
      DateMode = dmComboBox
      Enabled = False
      Kind = dtkDate
      ParseInput = False
      TabOrder = 12
    end
    object ComboBox3: TComboBox
      Left = 327
      Top = 40
      Width = 81
      Height = 21
      Enabled = False
      ItemHeight = 13
      TabOrder = 13
      Text = 'ComboBox3'
    end
    object ComboBox4: TComboBox
      Left = 429
      Top = 40
      Width = 81
      Height = 21
      Enabled = False
      ItemHeight = 13
      TabOrder = 14
      Text = 'ComboBox4'
    end
    object Edit2: TEdit
      Left = 152
      Top = 140
      Width = 65
      Height = 21
      Enabled = False
      TabOrder = 15
      OnKeyPress = Edit2KeyPress
    end
    object Edit3: TEdit
      Left = 152
      Top = 164
      Width = 65
      Height = 21
      Enabled = False
      TabOrder = 16
      OnKeyPress = Edit3KeyPress
    end
    object Edit4: TEdit
      Left = 327
      Top = 64
      Width = 183
      Height = 21
      TabOrder = 17
    end
    object DBLookupComboBox6: TDBLookupComboBox
      Left = 328
      Top = 120
      Width = 145
      Height = 21
      KeyField = 'attachment'
      ListField = 'attachment'
      ListSource = guishuDataSource
      TabOrder = 18
    end
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 193
    Width = 698
    Height = 317
    Align = alClient
    DataSource = stockDataSource
    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
        Visible = True
      end
      item
        Expanded = False
        FieldName = #24211#28857
        Visible = True
      end
      item
        Expanded = False
        FieldName = #20179#24211
        Visible = True
      end
      item
        Expanded = False
        FieldName = #36135#20301
        Visible = True
      end
      item
        Expanded = False
        FieldName = #36135#29289
        Visible = True
      end
      item
        Expanded = False
        FieldName = #20837#24211#26102#38388
        Visible = True
      end
      item
        Expanded = False
        FieldName = #25910#33719#24180#20221
        Visible = True
      end
      item
        Expanded = False
        FieldName = #20648#22791#24615#36136
        Visible = True
      end
      item
        Expanded = False
        FieldName = #24402#23646
        Visible = True
      end
      item
        Expanded = False
        FieldName = #24211#23384#25968#37327
        Visible = True
      end
      item
        Expanded = False
        FieldName = #21333#20215
        Visible = True
      end
      item
        Expanded = False
        FieldName = #20135#22320
        Visible = True
      end
      item
        Expanded = False
        FieldName = #31561#32423
        Visible = True
      end
      item
        Expanded = False
        FieldName = #27700#20998
        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  SITE_ID,SITE_NAME'
      'from    ENT_SITE'
      'where   unit_id=:UnitId '
      'union   select SITE_ID=99999998,SITE_NAME='#39#19981#25351#23450#39)
    Left = 115
    Top = 35
    ParamData = <
      item
        DataType = ftString
        Name = 'UnitId'
        ParamType = ptUnknown
      end>
  end
  object SiteDataSource: TDataSource
    DataSet = SiteQuery
    Left = 147
    Top = 37
  end
  object DepotQuery: TQuery
    AfterScroll = DepotQueryAfterScroll
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'select DEPOT_ID,DEPOT_NAME'
      'from   ENT_DEPOT_INFO'
      'where  site_id=:SiteId'
      'union  select DEPOT_ID=99999999,DEPOT_NAME='#39#19981#25351#23450#39)
    Left = 115
    Top = 69
    ParamData = <
      item
        DataType = ftString
        Name = 'SiteId'
        ParamType = ptUnknown
      end>
  end
  object DepotDataSource: TDataSource
    DataSet = DepotQuery
    Left = 147
    Top = 69
  end
  object FoodTypeQuery: TQuery
    Active = True
    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 stockQuery: TQuery
    Active = True
    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 = 136
    Top = 320
    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 stockDataSource: TDataSource
    DataSet = stockQuery
    Left = 168
    Top = 320
  end
  object chubeiQuery: TQuery
    Active = True
    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
    Active = True
    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
end