uqualityquery.~dfm

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

object Fqualityquery: TFqualityquery
  Left = 56
  Top = 105
  Width = 930
  Height = 581
  Caption = #36136#37327#26597#35810
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  WindowState = wsMaximized
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label18: TLabel
    Left = 367
    Top = 165
    Width = 8
    Height = 13
    Caption = '%'
  end
  object Label24: TLabel
    Left = 178
    Top = 137
    Width = 8
    Height = 13
    Caption = '%'
  end
  object Label29: TLabel
    Left = 733
    Top = 94
    Width = 8
    Height = 13
    Caption = '%'
  end
  object Label30: TLabel
    Left = 733
    Top = 137
    Width = 8
    Height = 13
    Caption = '%'
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 922
    Height = 233
    Align = alTop
    Caption = #26597#35810#26465#20214#65306
    TabOrder = 0
    object Label1: TLabel
      Left = 16
      Top = 24
      Width = 60
      Height = 13
      Caption = #20648#22791#21333#20301#65306
    end
    object Label2: TLabel
      Left = 120
      Top = 24
      Width = 36
      Height = 13
      Caption = #24211#28857#65306
    end
    object Label3: TLabel
      Left = 224
      Top = 24
      Width = 36
      Height = 13
      Caption = #20179#24211#65306
    end
    object Label4: TLabel
      Left = 344
      Top = 24
      Width = 36
      Height = 13
      Caption = #36135#20301#65306
    end
    object Bevel1: TBevel
      Left = 8
      Top = 64
      Width = 769
      Height = 8
      Shape = bsBottomLine
    end
    object Label5: TLabel
      Left = 448
      Top = 24
      Width = 60
      Height = 13
      Caption = #36135#29289#21517#31216#65306
    end
    object Label6: TLabel
      Left = 11
      Top = 73
      Width = 36
      Height = 13
      Caption = #31867#21035#65306
    end
    object Label7: TLabel
      Left = 74
      Top = 73
      Width = 36
      Height = 13
      Caption = #31561#32423#65306
    end
    object Label10: TLabel
      Left = 9
      Top = 122
      Width = 180
      Height = 13
      Caption = #23481#37325','#20986#31961#29575','#31291#35895#31890', '#39640#36807#27687#21270#20540#65306
    end
    object Label8: TLabel
      Left = 201
      Top = 73
      Width = 47
      Height = 13
      Caption = #27700#20998'(%)   '
    end
    object Label9: TLabel
      Left = 204
      Top = 122
      Width = 47
      Height = 13
      Caption = #26434#36136'(%)   '
    end
    object Label11: TLabel
      Left = 204
      Top = 176
      Width = 95
      Height = 13
      Caption = #32431#31918#29575','#40644#31890'(%)      '
    end
    object Label12: TLabel
      Left = 427
      Top = 72
      Width = 77
      Height = 13
      Caption = #19981#23436#21892#31890'(%)     '
    end
    object Label19: TLabel
      Left = 426
      Top = 122
      Width = 74
      Height = 13
      Caption = #25972#31934#31859#29575'(%)    '
    end
    object Label20: TLabel
      Left = 427
      Top = 176
      Width = 77
      Height = 13
      Caption = #35895#22806#31961#31859'(%)     '
    end
    object Label13: TLabel
      Left = 8
      Top = 176
      Width = 72
      Height = 13
      Caption = #33026#32938#37240#29575#65306'    '
    end
    object DBLookupComboBox1: TDBLookupComboBox
      Left = 16
      Top = 40
      Width = 89
      Height = 21
      KeyField = 'UNIT_ID'
      ListField = 'UNIT_NAME'
      ListSource = DataSource1
      TabOrder = 0
    end
    object DBLookupComboBox2: TDBLookupComboBox
      Left = 124
      Top = 40
      Width = 89
      Height = 21
      KeyField = 'SITE_ID'
      ListField = 'SITE_NAME'
      ListSource = DataSource2
      TabOrder = 1
    end
    object DBLookupComboBox3: TDBLookupComboBox
      Left = 232
      Top = 40
      Width = 89
      Height = 21
      KeyField = 'DEPOT_ID'
      ListField = 'DEPOT_NAME'
      ListSource = DataSource3
      TabOrder = 2
    end
    object Panel1: TPanel
      Left = 648
      Top = 15
      Width = 272
      Height = 216
      Align = alRight
      TabOrder = 3
      object btnQuery: TBitBtn
        Left = 16
        Top = 35
        Width = 105
        Height = 29
        Caption = #24320#22987#26597#35810' &O'
        TabOrder = 0
        OnClick = btnQueryClick
        Glyph.Data = {
          36030000424D3603000000000000360000002800000010000000100000000100
          18000000000000030000C40E0000C40E00000000000000000000BFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00
          FFFF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
          7F7F7FBFBFBFBFBFBFBFBFBFBFBFBF00FFFF000000BFBFBFBFBFBFBFBFBF0000
          00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00FFFF000000BFBFBFBFBFBFBFBFBF00
          FFFF000000BFBFBFBFBFBF7F7F7F00FFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BFBFBF00FFFF7F7F7FBFBFBFBFBFBF00FFFF000000BFBFBF00000000FFFFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00FFFF000000BFBFBF00
          FFFF0000007F7F7F00FFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBF00FFFF7F7F7F00FFFF00000000FFFFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBF00000000000000000000000000000000000000FFFF00
          FFFF00FFFF000000000000000000000000000000000000BFBFBF00FFFF00FFFF
          00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
          FF00FFFF00FFFFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7F7F00FFFF00
          FFFF00FFFF7F7F7FBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBF00000000FFFFBFBFBF00FFFF00000000FFFF000000BFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF7F7F7F00FFFFBFBFBFBFBFBF00
          FFFF000000BFBFBF00FFFF7F7F7FBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
          00000000FFFFBFBFBFBFBFBFBFBFBF00FFFF000000BFBFBFBFBFBF00FFFF0000
          00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00
          FFFF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00FFFF000000BFBFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00
          FFFF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF}
      end
      object btnReset: TBitBtn
        Left = 16
        Top = 111
        Width = 105
        Height = 29
        Caption = #37325#35774#26465#20214' &C'
        TabOrder = 1
        OnClick = btnResetClick
        Glyph.Data = {
          36030000424D3603000000000000360000002800000010000000100000000100
          18000000000000030000C40E0000C40E00000000000000000000BFBFBFBFBFBF
          BFBFBF0000000000000000000000000000000000000000000000000000000000
          00000000000000000000BFBFBFBFBFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000BFBFBFBFBFBF
          BFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF007F00FFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFF000000BFBFBFBFBFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFF
          FFFF007F00007F00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000BFBFBFBFBFBF
          BFBFBF000000FFFFFFFFFFFFFFFFFF007F00007F00007F00007F00007F00FFFF
          FFFFFFFFFFFFFF000000BFBFBFBFBFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFF
          FFFF007F00007F00FFFFFFFFFFFF007F00FFFFFFFFFFFF000000BFBFBFBFBFBF
          BFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF007F00FFFFFFFFFFFF007F
          00FFFFFFFFFFFF000000BFBFBFBFBFBFBFBFBF000000FFFFFFFFFFFF007F00FF
          FFFFFFFFFFFFFFFFFFFFFFFFFFFF007F00FFFFFFFFFFFF000000BFBFBFBFBFBF
          BFBFBF000000FFFFFFFFFFFF007F00FFFFFFFFFFFF007F00FFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFF000000BFBFBFBFBFBFBFBFBF000000FFFFFFFFFFFF007F00FF
          FFFFFFFFFF007F00007F00FFFFFFFFFFFFFFFFFFFFFFFF000000BFBFBFBFBFBF
          BFBFBF000000FFFFFFFFFFFFFFFFFF007F00007F00007F00007F00007F00FFFF
          FFFFFFFFFFFFFF000000BFBFBFBFBFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFF007F00007F00FFFFFFFFFFFFFFFFFFFFFFFF000000BFBFBFBFBFBF
          BFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF007F00FFFFFFFFFFFF0000
          00000000000000000000BFBFBFBFBFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFF000000BFBFBFBFBFBFBFBFBF
          BFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000
          00000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00000000000000000000000000
          0000000000000000000000000000000000BFBFBFBFBFBFBFBFBF}
      end
      object closebitbtn: TBitBtn
        Left = 144
        Top = 111
        Width = 105
        Height = 29
        Caption = #36864'    '#20986' &E'
        TabOrder = 2
        OnClick = closebitbtnClick
        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 = 144
        Top = 35
        Width = 105
        Height = 29
        Caption = #25171#24320'EXCEL'
        TabOrder = 3
        OnClick = BitBtn1Click
        Kind = bkOK
      end
    end
    object DBLookupComboBox5: TDBLookupComboBox
      Left = 448
      Top = 40
      Width = 89
      Height = 21
      KeyField = 'FOOD_type'
      ListField = 'FOOD_type'
      ListSource = DataSource5
      TabOrder = 4
    end
    object ComboKind: TComboBox
      Left = 11
      Top = 89
      Width = 62
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 5
      OnChange = ComboKindChange
      Items.Strings = (
        #22823#31859
        #22823#35910
        #23567#40614
        #29577#31859
        #31291#35895
        #27833
        #19981#25351#23450)
    end
    object ComboClass: TComboBox
      Left = 74
      Top = 89
      Width = 57
      Height = 21
      ItemHeight = 13
      TabOrder = 6
    end
    object cmbitem5: TComboBox
      Left = 10
      Top = 144
      Width = 47
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 7
      OnChange = cmbitem5Change
      Items.Strings = (
        '='
        '>='
        '<='
        '>'
        '<'
        #19981#25351#23450)
    end
    object EditItem5: TEdit
      Left = 57
      Top = 144
      Width = 31
      Height = 21
      TabOrder = 8
      OnKeyPress = EditItem5KeyPress
    end
    object cmbMoisture: TComboBox
      Left = 203
      Top = 89
      Width = 47
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 9
      OnChange = cmbMoistureChange
      Items.Strings = (
        '='
        '>='
        '<='
        '>'
        '<'