unitsulfinput.~dfm

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

object FrmSulfInput: TFrmSulfInput
  Left = -2
  Top = 41
  BorderStyle = bsDialog
  Caption = '宁波巨龙橡塑有限公司 硫化车间管理系统'
  ClientHeight = 534
  ClientWidth = 794
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poScreenCenter
  WindowState = wsMaximized
  OnClose = FormClose
  OnKeyDown = FormKeyDown
  OnKeyPress = FormKeyPress
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 794
    Height = 534
    Align = alClient
    TabOrder = 0
    object Label4: TLabel
      Left = 160
      Top = 43
      Width = 456
      Height = 12
      Caption = 
        '注意：在向成品仓库自动记帐时，日期一定要选在成品仓库结帐日期之后' +
        '！否则出错！'
    end
    object Panel5: TPanel
      Left = 25
      Top = 62
      Width = 656
      Height = 154
      BevelInner = bvLowered
      Color = clAppWorkSpace
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 3
      object SpeedButton1: TSpeedButton
        Left = 559
        Top = 123
        Width = 87
        Height = 24
        AllowAllUp = True
        GroupIndex = 1
        Caption = '自动入库开'
        Visible = False
        OnClick = SpeedButton1Click
      end
      object echeckerid: TEdit
        Left = 440
        Top = 96
        Width = 41
        Height = 15
        AutoSize = False
        TabOrder = 48
        Text = 'echeckerID'
        Visible = False
      end
      object DBEprodnameID: TDBEdit
        Left = 293
        Top = 37
        Width = 32
        Height = 14
        TabStop = False
        AutoSize = False
        DataField = 'ProdNameID'
        TabOrder = 20
        Visible = False
      end
      object Panel15: TPanel
        Left = 153
        Top = 2
        Width = 105
        Height = 31
        Caption = '产品名称'
        Font.Charset = GB2312_CHARSET
        Font.Color = clPurple
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 19
      end
      object DBEmonth: TDBEdit
        Left = 2
        Top = 34
        Width = 35
        Height = 20
        TabStop = False
        DataField = 'TMonth'
        TabOrder = 21
      end
      object DBEdate: TDBEdit
        Left = 39
        Top = 34
        Width = 48
        Height = 20
        TabStop = False
        DataField = 'TDate'
        TabOrder = 22
      end
      object Panel4: TPanel
        Left = 424
        Top = 2
        Width = 229
        Height = 18
        Caption = '缺    陷    品    分     布 /只'
        Font.Charset = GB2312_CHARSET
        Font.Color = clPurple
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 23
      end
      object Panel16: TPanel
        Left = 468
        Top = 20
        Width = 45
        Height = 13
        Caption = '杂 质'
        Font.Charset = GB2312_CHARSET
        Font.Color = clPurple
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 24
        object Edit2: TEdit
          Left = 0
          Top = 16
          Width = 121
          Height = 20
          TabOrder = 0
          Text = 'Edit2'
        end
      end
      object Panel17: TPanel
        Left = 563
        Top = 20
        Width = 43
        Height = 13
        Caption = '撕 裂'
        Font.Charset = GB2312_CHARSET
        Font.Color = clPurple
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 25
      end
      object Panel7: TPanel
        Left = 3
        Top = 2
        Width = 86
        Height = 31
        Caption = '请选择日期'
        Font.Charset = GB2312_CHARSET
        Font.Color = clPurple
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 26
      end
      object Panel19: TPanel
        Left = 89
        Top = 2
        Width = 64
        Height = 31
        Caption = '职工姓名'
        Font.Charset = GB2312_CHARSET
        Font.Color = clPurple
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 27
      end
      object Panel30: TPanel
        Left = 258
        Top = 2
        Width = 106
        Height = 31
        Caption = '图   号'
        Font.Charset = GB2312_CHARSET
        Font.Color = clPurple
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 28
      end
      object Panel8: TPanel
        Left = 364
        Top = 2
        Width = 60
        Height = 31
        Caption = '合格品/只'
        Font.Charset = GB2312_CHARSET
        Font.Color = clPurple
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 29
      end
      object Panel9: TPanel
        Left = 425
        Top = 20
        Width = 43
        Height = 13
        Caption = '缺 料'
        Font.Charset = GB2312_CHARSET
        Font.Color = clPurple
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 30
        object Edit1: TEdit
          Left = 0
          Top = 16
          Width = 121
          Height = 20
          TabOrder = 0
          Text = 'Edit1'
        end
      end
      object Panel21: TPanel
        Left = 606
        Top = 20
        Width = 47
        Height = 13
        Caption = '其 它'
        Font.Charset = GB2312_CHARSET
        Font.Color = clPurple
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 31
      end
      object Panel18: TPanel
        Left = 514
        Top = 20
        Width = 48
        Height = 13
        Caption = '气 泡'
        Font.Charset = GB2312_CHARSET
        Font.Color = clPurple
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 32
      end
      object Panel11: TPanel
        Left = 433
        Top = 63
        Width = 66
        Height = 31
        Caption = '检验员'
        Font.Charset = GB2312_CHARSET
        Font.Color = clPurple
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 33
      end
      object BBPost: TBitBtn
        Left = 462
        Top = 122
        Width = 75
        Height = 25
        Caption = '提交'
        TabOrder = 18
        OnClick = BBPostClick
        Glyph.Data = {
          9E020000424D9E0200000000000036000000280000000E0000000E0000000100
          18000000000068020000C40E0000C40E00000000000000000000BFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BFBFBFBF0000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000BFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000BFBF
          BFBFBFBFBFBFBFBFBFBF0000008000FF000000BFBFBFBFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBF0000BFBFBFBFBFBFBFBFBF0000008000FF8000FF8000FF00
          0000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000BFBFBFBFBFBF00000080
          00FF8000FF8000FF8000FF8000FF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
          0000BFBFBF0000008000FF8000FF8000FF0000008000FF8000FF8000FF000000
          BFBFBFBFBFBFBFBFBFBFBFBF0000BFBFBF0000008000FF8000FF000000BFBFBF
          0000008000FF8000FF8000FF000000BFBFBFBFBFBFBFBFBF0000BFBFBF000000
          000000000000BFBFBFBFBFBFBFBFBF0000008000FF8000FF8000FF000000BFBF
          BFBFBFBF0000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000
          008000FF8000FF8000FF000000BFBFBF0000BFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBF0000008000FF8000FF8000FF0000000000BFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00000080
          00FF8000FF0000000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBF0000000000000000000000BFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
          0000}
      end
      object BBEdit: TBitBtn
        Left = 291
        Top = 122
        Width = 75
        Height = 25
        Caption = '修改'
        TabOrder = 34
        TabStop = False
        OnClick = BBEditClick
        Glyph.Data = {
          9E020000424D9E0200000000000036000000280000000E0000000E0000000100
          18000000000068020000C40E0000C40E00000000000000000000BFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BFBFBFBF0000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000BFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000BFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBF000000000000000000000000000000000000000000000000
          00000000000000000000000000000000000000000000BFBFBF0000008000FF80
          00FF8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FF000000BFBFBF
          0000BFBFBFBFBFBF0000008000FF8000FF8000FF8000FF8000FF8000FF8000FF
          8000FF000000BFBFBFBFBFBF0000BFBFBFBFBFBFBFBFBF0000008000FF8000FF
          8000FF8000FF8000FF8000FF000000BFBFBFBFBFBFBFBFBF0000BFBFBFBFBFBF
          BFBFBFBFBFBF0000008000FF8000FF8000FF8000FF000000BFBFBFBFBFBFBFBF
          BFBFBFBF0000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000008000FF8000FF0000
          00BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000BFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BFBFBFBF000000000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000BFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBF0000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000BFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
          0000}
      end
      object BBDelete: TBitBtn
        Left = 206
        Top = 122
        Width = 75
        Height = 25
        Caption = '删除'
        TabOrder = 35
        TabStop = False
        OnClick = BBDeleteClick
        Glyph.Data = {
          72020000424D720200000000000036000000280000000E0000000D0000000100
          1800000000003C020000C40E0000C40E00000000000000000000BFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BFBFBFBF0000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000BFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000BFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBF0000BFBFBF00000000000000000000000000000000000000
          0000000000000000000000000000000000BFBFBF0000BFBFBF0000008000FF80
          00FF8000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FF000000BFBFBF
          0000BFBFBF0000008000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FF
          8000FF8000FF000000BFBFBF0000BFBFBF0000008000FF8000FF8000FF8000FF
          8000FF8000FF8000FF8000FF8000FF8000FF000000BFBFBF0000BFBFBF000000
          0000000000000000000000000000000000000000000000000000000000000000
          00BFBFBF0000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000BFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000BFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBF0000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000}
      end
      object BBInsert: TBitBtn
        Tag = 15
        Left = 377
        Top = 122
        Width = 75
        Height = 25
        Caption = '添加'
        TabOrder = 36
        TabStop = False
        OnClick = BBInsertClick
        Glyph.Data = {
          3E020000424D3E0200000000000036000000280000000D0000000D0000000100
          18000000000008020000C40E0000C40E00000000000000000000BFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BF00BFBFBFBFBFBFBFBFBFBFBFBF000000000000000000000000000000BFBFBF
          BFBFBFBFBFBFBFBFBF00BFBFBFBFBFBFBFBFBFBFBFBF0000008000FF8000FF80
          00FF000000BFBFBFBFBFBFBFBFBFBFBFBF00BFBFBFBFBFBFBFBFBFBFBFBF0000
          008000FF8000FF8000FF000000BFBFBFBFBFBFBFBFBFBFBFBF00BFBFBF000000
          0000000000000000008000FF8000FF8000FF000000000000000000000000BFBF
          BF00BFBFBF0000008000FF8000FF8000FF8000FF8000FF8000FF8000FF8000FF
          8000FF000000BFBFBF00BFBFBF0000008000FF8000FF8000FF8000FF8000FF80
          00FF8000FF8000FF8000FF000000BFBFBF00BFBFBF0000008000FF8000FF8000
          FF8000FF8000FF8000FF8000FF8000FF8000FF000000BFBFBF00BFBFBF000000
          0000000000000000008000FF8000FF8000FF000000000000000000000000BFBF
          BF00BFBFBFBFBFBFBFBFBFBFBFBF0000008000FF8000FF8000FF000000BFBFBF
          BFBFBFBFBFBFBFBFBF00BFBFBFBFBFBFBFBFBFBFBFBF0000008000FF8000FF80
          00FF000000BFBFBFBFBFBFBFBFBFBFBFBF00BFBFBFBFBFBFBFBFBFBFBFBF0000
          00000000000000000000000000BFBFBFBFBFBFBFBFBFBFBFBF00BFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BF00}
      end
      object BBNext: TBitBtn
        Left = 120
        Top = 122
        Width = 75
        Height = 25
        Caption = '下一条'
        TabOrder = 37
        TabStop = False
        OnClick = BBNextClick
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333
          333333333337F33333333333333033333333333333373F333333333333090333
          33333333337F7F33333333333309033333333333337373F33333333330999033
          3333333337F337F33333333330999033333333333733373F3333333309999903
          333333337F33337F33333333099999033333333373333373F333333099999990
          33333337FFFF3FF7F33333300009000033333337777F77773333333333090333
          33333333337F7F33333333333309033333333333337F7F333333333333090333
          33333333337F7F33333333333309033333333333337F7F333333333333090333
          33333333337F7F33333333333300033333333333337773333333}
        NumGlyphs = 2
      end
      object BBPrior: TBitBtn
        Left = 35
        Top = 122
        Width = 75
        Height = 25
        Caption = '上一条'
        TabOrder = 38
        TabStop = False
        OnClick = BBPriorClick
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000