⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 uqualityquery.~dfm

📁 是分布式粮库程序,是采用Delphi实现的
💻 ~DFM
📖 第 1 页 / 共 3 页
字号:
  object ComboBox7: TComboBox
    Left = 513
    Top = 146
    Width = 47
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    TabOrder = 10
    OnChange = ComboBox7Change
    Items.Strings = (
      '='
      '>='
      '<='
      '>'
      '<'
      #19981#25351#23450)
  end
  object Edit6: TEdit
    Left = 563
    Top = 146
    Width = 30
    Height = 21
    TabOrder = 11
    OnKeyPress = edititem3KeyPress
  end
  object Edit7: TEdit
    Left = 563
    Top = 201
    Width = 30
    Height = 21
    TabOrder = 12
    OnKeyPress = edititem4KeyPress
  end
  object ComboBox8: TComboBox
    Left = 513
    Top = 201
    Width = 47
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    TabOrder = 13
    OnChange = ComboBox8Change
    Items.Strings = (
      '='
      '>='
      '<='
      '>'
      '<'
      #19981#25351#23450)
  end
  object ComboBox9: TComboBox
    Left = 10
    Top = 200
    Width = 47
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    TabOrder = 14
    OnChange = ComboBox9Change
    Items.Strings = (
      '='
      '>='
      '<='
      '>'
      '<'
      #19981#25351#23450)
  end
  object Edit8: TEdit
    Left = 57
    Top = 200
    Width = 31
    Height = 21
    TabOrder = 15
    OnKeyPress = EditItem5KeyPress
  end
  object ComboBox10: TComboBox
    Left = 98
    Top = 200
    Width = 47
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    TabOrder = 16
    OnChange = ComboBox10Change
    Items.Strings = (
      '='
      '>='
      '<='
      '>'
      '<'
      #19981#25351#23450)
  end
  object Edit9: TEdit
    Left = 145
    Top = 200
    Width = 31
    Height = 21
    TabOrder = 17
    OnKeyPress = EditItem5KeyPress
  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 = 24
    Top = 32
  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 = 136
    Top = 32
    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 = 240
    Top = 32
    ParamData = <
      item
        DataType = ftInteger
        Name = 'SiteId'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'unitid'
        ParamType = ptUnknown
      end>
  end
  object foodQuery: TQuery
    DatabaseName = 'LYDB'
    SQL.Strings = (
      'select FOOD_type'
      'from   ENT_FOOD_TYPE'
      'union  select FOOD_TYPE='#39#19981#25351#23450#39)
    Left = 456
    Top = 32
  end
  object DataSource1: TDataSource
    DataSet = unitQuery
    Left = 56
    Top = 32
  end
  object DataSource2: TDataSource
    DataSet = siteQuery
    Left = 168
    Top = 32
  end
  object DataSource3: TDataSource
    DataSet = depotQuery
    Left = 272
    Top = 32
  end
  object DataSource5: TDataSource
    DataSet = foodQuery
    Left = 488
    Top = 32
  end
  object Query1: TQuery
    DatabaseName = 'LYDB'
    Constrained = True
    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','
      '       fq_item1 as '#39#32431#31918#29575'/'#40644#31890#31859#39', fq_item2 as '#39#19981#23436#21892#29575#39','
      '       fq_item3 as '#39#25972#31934#31859#29575#39', fq_item4 as '#39#35895#22806#31961#31859#39','
      '       fq_item5 as '#39#23481#37325','#20986#31961#29575','#31291#35895#31890', '#39640#36807#27687#21270#20540#39','
      '       fq_fat as '#39#33026#32938#37240#29575#39','
      '       ent_food_type.food_style as '#39#36135#29289#31867#21035#39
      'from ent_instack,ent_fdposition_info,ent_depot_info,'
      '     ent_site,ent_unit_info, ent_food_type'
      
        'where    ent_instack.FOODPOSITION_ID*=ent_fdposition_info.FOODPO' +
        'SITION_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'
      '      and ent_instack.in_food=ent_food_type.food_type')
    Left = 168
    Top = 320
    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: TStringField
      FieldName = #36135#29289
      Size = 12
    end
    object Query1BDEDesigner6: TDateTimeField
      FieldName = #20837#24211#26102#38388
    end
    object Query1BDEDesigner7: TIntegerField
      FieldName = #25910#33719#24180#20221
    end
    object Query1BDEDesigner8: TStringField
      FieldName = #20648#22791#24615#36136
      Size = 12
    end
    object Query1BDEDesigner9: TStringField
      FieldName = #24402#23646
    end
    object Query1BDEDesigner10: TFloatField
      FieldName = #24211#23384#25968#37327
    end
    object Query1BDEDesigner11: TFloatField
      FieldName = #21333#20215
    end
    object Query1BDEDesigner12: TStringField
      FieldName = #20135#22320
      Size = 12
    end
    object Query1BDEDesigner13: TStringField
      FieldName = #31561#32423
      Size = 12
    end
    object Query1BDEDesigner14: TFloatField
      FieldName = #27700#20998
    end
    object Query1BDEDesigner15: TFloatField
      FieldName = #26434#24230
    end
    object Query1BDEDesigner16: TFloatField
      FieldName = #32431#31918#29575'/'#40644#31890#31859
    end
    object Query1BDEDesigner17: TFloatField
      FieldName = #19981#23436#21892#29575
    end
    object Query1BDEDesigner18: TFloatField
      FieldName = #25972#31934#31859#29575
    end
    object Query1BDEDesigner19: TFloatField
      FieldName = #35895#22806#31961#31859
    end
    object Query1BDEDesigner20: TFloatField
      FieldName = #23481#37325','#20986#31961#29575','#31291#35895#31890', '#39640#36807#27687#21270#20540
    end
    object Query1BDEDesigner22: TFloatField
      FieldName = #33026#32938#37240#29575
    end
    object Query1BDEDesigner21: TStringField
      FieldName = #36135#29289#31867#21035
    end
  end
  object DataSource4: TDataSource
    DataSet = Query1
    Left = 200
    Top = 320
  end
  object Query2: TQuery
    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','
      '       fq_item1 as '#39#32431#31918#29575'/'#40644#31890#31859#39', fq_item2 as '#39#19981#23436#21892#29575#39','
      '       fq_item3 as '#39#25972#31934#31859#29575#39', fq_item4 as '#39#35895#22806#31961#31859#39','
      '       fq_item5 as '#39#23481#37325','#20986#31961#29575','#31291#35895#31890', '#39640#36807#27687#21270#20540#39','
      '       fq_fat as '#39#33026#32938#37240#29575#39','
      '       ent_food_type.food_style as '#39#36135#29289#31867#21035#39
      'from ent_instack,ent_fdposition_info,ent_depot_info,'
      '     ent_site,ent_unit_info, ent_food_type'
      
        'where    ent_instack.FOODPOSITION_ID*=ent_fdposition_info.FOODPO' +
        'SITION_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'
      '      and ent_instack.in_food=ent_food_type.food_type')
    Left = 168
    Top = 392
  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 = 384
    Top = 24
    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 = 352
    Top = 24
    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

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -