unit_modechan.dfm

此代码为企业原料管理代码

          TabOrder = 7
          OnClick = bbchartoneClick
          Glyph.Data = {
            F6040000424DF604000000000000360000002800000015000000130000000100
            180000000000C0040000C40E0000C40E00000000000000000000FFFFFFFFFFFF
            FFFFFF7F7F7FFFFFFF7F7F7FFFFFFF7F7F7FFFFFFF7F7F7FFFFFFF7F7F7FFFFF
            FF7F7F7FFFFFFF7F7F7FFFFFFF7F7F7FFFFFFF7F7F7FFFFFFF00FFFFFFFFFFFF
            0000000000000000000000000000000000000000000000000000000000000000
            00000000000000000000000000000000000000000000FFFFFF00FFFFFF7F7F7F
            000000FFFFFF0000FF0000FFFFFFFFFF0000FF0000FFFFFF007F00007F00FFFF
            FFFFFF00FFFF00FFFFFF00007F00007FFFFFFFFFFFFFFFFFFF00FFFFFFFFFFFF
            000000FFFFFF0000FF0000FFFFFFFFFF0000FF0000FFFFFF007F00007F00FFFF
            FFFFFF00FFFF00FFFFFF00007F00007FFFFFFFFFFFFFFFFFFF00FFFFFF7F7F7F
            000000FFFFFF0000FF0000FFFFFFFFFF0000FF0000FFFFFF007F00007F00FFFF
            FFFFFF00FFFF00FFFFFF00007F00007FFFFFFFFFFFFFFFFFFF00FFFFFFFFFFFF
            000000FFFFFF0000FF0000FFFFFFFFFF0000FF0000FFFFFF007F00007F00FFFF
            FFFFFF00FFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00FFFFFF7F7F7F
            000000FFFFFF0000FF0000FFFFFFFFFF0000FF0000FFFFFF007F00007F00FFFF
            FFFFFF00FFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00FFFFFFFFFFFF
            000000FFFFFFFFFFFFFFFFFFFFFFFFFF0000FF0000FFFFFF007F00007F00FFFF
            FFFFFF00FFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00FFFFFF7F7F7F
            000000FFFFFFFFFFFFFFFFFFFFFFFFFF0000FF0000FFFFFF007F00007F00FFFF
            FFFFFF00FFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00FFFFFFFFFFFF
            000000FFFFFFFFFFFFFFFFFFFFFFFFFF0000FF0000FFFFFF007F00007F00FFFF
            FFFFFF00FFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00FFFFFF7F7F7F
            000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF007F00007F00FFFF
            FFFFFF00FFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00FFFFFFFFFFFF
            000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF007F00007F00FFFF
            FFFFFF00FFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00FFFFFF7F7F7F
            000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF007F00007F00FFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00FFFFFFFFFFFF
            000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF007F00007F00FFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00FFFFFF7F7F7F
            000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00FFFFFFFFFFFF
            000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00FFFFFF7F7F7F
            000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00FFFFFFFFFFFF
            000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00FFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00}
        end
        object BitBtn6: TBitBtn
          Left = 659
          Top = 12
          Width = 76
          Height = 25
          Caption = '上一条'
          TabOrder = 8
          OnClick = BitBtn6Click
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000333
            3333333333777F33333333333309033333333333337F7F333333333333090333
            33333333337F7F33333333333309033333333333337F7F333333333333090333
            33333333337F7F33333333333309033333333333FF7F7FFFF333333000090000
            3333333777737777F333333099999990333333373F3333373333333309999903
            333333337F33337F33333333099999033333333373F333733333333330999033
            3333333337F337F3333333333099903333333333373F37333333333333090333
            33333333337F7F33333333333309033333333333337373333333333333303333
            333333333337F333333333333330333333333333333733333333}
          NumGlyphs = 2
        end
        object BitBtn7: TBitBtn
          Left = 660
          Top = 40
          Width = 76
          Height = 25
          Caption = '下一条'
          TabOrder = 9
          OnClick = BitBtn7Click
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
            333333333337F33333333333333033333333333333373F333333333333090333
            33333333337F7F33333333333309033333333333337373F33333333330999033
            3333333337F337F33333333330999033333333333733373F3333333309999903
            333333337F33337F33333333099999033333333373333373F333333099999990
            33333337FFFF3FF7F33333300009000033333337777F77773333333333090333
            33333333337F7F33333333333309033333333333337F7F333333333333090333
            33333333337F7F33333333333309033333333333337F7F333333333333090333
            33333333337F7F33333333333300033333333333337773333333}
          NumGlyphs = 2
        end
        object Panel9: TPanel
          Left = 7
          Top = 15
          Width = 163
          Height = 49
          AutoSize = True
          BevelInner = bvLowered
          TabOrder = 10
          object Panel3: TPanel
            Left = 2
            Top = 2
            Width = 158
            Height = 21
            Caption = '请输入产品编号'
            TabOrder = 0
          end
          object ename: TEdit
            Left = 105
            Top = 25
            Width = 56
            Height = 20
            TabOrder = 1
            OnEnter = enameEnter
          end
          object Panel10: TPanel
            Left = 2
            Top = 23
            Width = 102
            Height = 24
            TabOrder = 2
            object CheckBoxdic: TCheckBox
              Left = 5
              Top = 3
              Width = 94
              Height = 17
              Caption = '使用字典输入'
              Checked = True
              State = cbChecked
              TabOrder = 0
            end
          end
        end
        object BBPrinttwe: TBitBtn
          Left = 535
          Top = 12
          Width = 110
          Height = 25
          Caption = '打印数据'
          TabOrder = 11
          OnClick = BBPrinttweClick
          Glyph.Data = {
            D6050000424DD605000000000000360000002800000017000000140000000100
            180000000000A0050000C40E0000C40E00000000000000000000BFBFBFBFBFBF
            BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
            BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00
            0000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
            BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
            BFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
            BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
            BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBF
            BF00000000000000000000000000000000000000000000000000000000000000
            0000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBF
            BFBFBFBFBFBF000000C0C7C0C0C7C0C0C7C0C0C7C0C0C7C0C0C7C0C0C7C0C0C7
            C0C0C7C0000000C0C7C0000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00
            0000BFBFBFBFBFBFBFBFBF000000000000000000000000000000000000000000
            000000000000000000000000000000000000C0C7C0000000BFBFBFBFBFBFBFBF
            BFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBF000000C0C7C0C0C7C0C0C7C0C0
            C7C0C0C7C0C0C7C000FFFF00FFFF00FFFFC0C7C0C0C7C0000000000000000000
            BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBF000000C0C7
            C0C0C7C0C0C7C0C0C7C0C0C7C0C0C7C0808780808780808780C0C7C0C0C7C000
            0000C0C7C0000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBF
            BFBFBF0000000000000000000000000000000000000000000000000000000000
            00000000000000000000C0C7C0C0C7C0000000BFBFBFBFBFBFBFBFBFBFBFBF00
            0000BFBFBFBFBFBFBFBFBF000000C0C7C0C0C7C0C0C7C0C0C7C0C0C7C0C0C7C0
            C0C7C0C0C7C0C0C7C0C0C7C0000000C0C7C0000000C0C7C0000000BFBFBFBFBF
            BFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBFBFBF00000000000000000000
            0000000000000000000000000000000000000000C0C7C0000000C0C7C0000000
            000000BFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBF
            BF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000C0
            C7C0000000C0C7C0000000BFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBF
            BFBFBFBFBFBFBFBFBFBFBFBF000000FFFFFF0000000000000000000000000000
            00FFFFFF000000000000000000000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00
            0000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000FFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBF
            BFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00
            0000FFFFFF000000000000000000000000000000FFFFFF000000BFBFBFBFBFBF
            BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBF
            BFBFBFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBF
            BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000000000000000000000000000
            00000000000000000000000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00
            0000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
            BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
            BFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
            BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
            BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBF
            BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
            BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000}
        end
      end
    end
  end
  object Tableall: TTable
    DatabaseName = 'JL2000'
    TableName = 'modeDate.DB'
    Left = 164
    Top = 175
    object TableallProdname: TStringField
      DisplayLabel = '产品名称'
      DisplayWidth = 18
      FieldName = 'Prodname'
      Size = 18
    end
    object TableallFigID: TStringField
      DisplayLabel = '图  号'
      DisplayWidth = 15
      FieldName = 'FigID'
      Size = 15
    end
    object TableallElsenum: TSmallintField
      DisplayLabel = '领坯数/只'
      DisplayWidth = 9
      FieldName = 'Elsenum'
    end
    object TableallQcNum: TIntegerField
      DisplayLabel = '合格品数/只'
      DisplayWidth = 11
      FieldName = 'QcNum'
    end
    object TableallWasternum: TIntegerField
      DisplayLabel = '废品数/只'
      DisplayWidth = 9
      FieldName = 'Wasternum'
    end
    object TableallQcper: TFloatField
      DisplayLabel = '合格率%'
      DisplayWidth = 7
      FieldName = 'Qcper'
    end
    object TableallWasterPer: TFloatField
      DisplayLabel = '胶料损耗/克'
      DisplayWidth = 11
      FieldName = 'WasterPer'
    end
    object TableallWastermoney: TFloatField
      DisplayLabel = '成本损耗/元'
      DisplayWidth = 11
      FieldName = 'Wastermoney'
    end
    object TableallLacknum: TSmallintField
      DisplayLabel = '修废/只'
      DisplayWidth = 7
      FieldName = 'Lacknum'
    end
    object TableallImpunum: TSmallintField
      DisplayLabel = '硫废/只'
      DisplayWidth = 7
      FieldName = 'Impunum'
    end
    object TableallPolenum: TSmallintField
      FieldName = 'Polenum'
      Visible = False
    end
  end
  object Query1: TQuery
    DatabaseName = 'JL2000'
    Left = 172
    Top = 263
  end
  object Queryall: TQuery
    DatabaseName = 'JL2000'
    Left = 164
    Top = 215
  end
  object DataSource1: TDataSource
    DataSet = Tableall
    Left = 204
    Top = 175
  end
  object DataSource2: TDataSource
    DataSet = Queryall
    Left = 204
    Top = 218
  end
  object Tableone: TTable
    DatabaseName = 'JL2000'
    TableName = 'modePer.DB'
    Left = 492
    Top = 185
    object TableoneTDate: TDateField
      FieldName = 'TDate'
    end
    object TableoneProdname: TStringField
      DisplayWidth = 18
      FieldName = 'Prodname'
      Size = 18
    end
    object TableoneFigID: TStringField
      FieldName = 'FigID'
      Size = 25
    end
    object TableoneQcnum: TIntegerField
      FieldName = 'Qcnum'
    end
    object TableoneWasternum: TIntegerField
      FieldName = 'Wasternum'
    end
    object TableoneQcper: TFloatField
      FieldName = 'Qcper'
    end
    object TableoneWasterPer: TFloatField
      FieldName = 'WasterPer'
    end
    object TableoneWastermoney: TFloatField
      FieldName = 'Wastermoney'
    end
    object TableoneProfitPer: TFloatField
      FieldName = 'ProfitPer'
    end
    object TableoneRubbMixID: TStringField
      FieldName = 'RubbMixID'
      Size = 6
    end
    object TableoneBDEDesigner: TStringField
      FieldName = '生产批号'
      Size = 15
    end
    object TableoneSourceID: TStringField
      FieldName = 'SourceID'
      Size = 15
    end
    object TableoneTMonth: TStringField
      FieldName = 'TMonth'
      Size = 8
    end
    object TableoneLacknum: TSmallintField
      FieldName = 'Lacknum'
    end
    object TableoneImpunum: TSmallintField
      FieldName = 'Impunum'
    end
    object TableonePolenum: TSmallintField
      FieldName = 'Polenum'
    end
    object TableoneRipnum: TSmallintField
      FieldName = 'Ripnum'
    end
    object TableoneElsenum: TSmallintField
      FieldName = 'Elsenum'
    end
  end
  object DataSource3: TDataSource
    DataSet = SulfQuerypermonth
    Left = 534
    Top = 293
  end
  object DataSourcequeryone: TDataSource
    DataSet = Queryone
    Left = 529
    Top = 217
  end
  object Queryone: TQuery
    DatabaseName = 'JL2000'
    Left = 493
    Top = 220
  end
  object sulfQueryperdate: TQuery
    DatabaseName = 'JL2000'
    Left = 495
    Top = 256
  end
  object SulfQuerypermonth: TQuery
    DatabaseName = 'JL2000'
    Left = 497
    Top = 293
  end
  object DataSourcetableone: TDataSource
    DataSet = Tableone
    Left = 529
    Top = 185
  end
  object DataSourcedate: TDataSource
    DataSet = sulfQueryperdate
    Left = 532
    Top = 257
  end
end