unitsulfinput.~dfm

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

          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000333
          3333333333777F33333333333309033333333333337F7F333333333333090333
          33333333337F7F33333333333309033333333333337F7F333333333333090333
          33333333337F7F33333333333309033333333333FF7F7FFFF333333000090000
          3333333777737777F333333099999990333333373F3333373333333309999903
          333333337F33337F33333333099999033333333373F333733333333330999033
          3333333337F337F3333333333099903333333333373F37333333333333090333
          33333333337F7F33333333333309033333333333337373333333333333303333
          333333333337F333333333333330333333333333333733333333}
        NumGlyphs = 2
      end
      object Panel3: TPanel
        Left = 1
        Top = 63
        Width = 57
        Height = 31
        Caption = '领料/克'
        Font.Charset = GB2312_CHARSET
        Font.Color = clPurple
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 39
      end
      object Panel14: TPanel
        Left = 58
        Top = 63
        Width = 58
        Height = 31
        Caption = '料重/只'
        Font.Charset = GB2312_CHARSET
        Font.Color = clPurple
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 40
      end
      object Panel6: TPanel
        Left = 499
        Top = 63
        Width = 154
        Height = 31
        Caption = '备     注'
        Font.Charset = GB2312_CHARSET
        Font.Color = clPurple
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 41
      end
      object DateTimePicker1: TDateTimePicker
        Left = 3
        Top = 34
        Width = 88
        Height = 20
        CalAlignment = dtaLeft
        Date = 36951.643328125
        Time = 36951.643328125
        DateFormat = dfShort
        DateMode = dmUpDown
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        Kind = dtkDate
        ParseInput = False
        ParentFont = False
        TabOrder = 42
        TabStop = False
        OnChange = DateTimePicker1Change
      end
      object Panel25: TPanel
        Left = 116
        Top = 63
        Width = 52
        Height = 31
        Caption = '模具编号'
        Font.Charset = GB2312_CHARSET
        Font.Color = clPurple
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 43
      end
      object Panel24: TPanel
        Left = 222
        Top = 63
        Width = 87
        Height = 31
        Caption = '生产批号'
        Font.Charset = GB2312_CHARSET
        Font.Color = clPurple
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 44
      end
      object Panel12: TPanel
        Left = 309
        Top = 63
        Width = 62
        Height = 31
        Caption = '补 贴/元'
        Font.Charset = GB2312_CHARSET
        Font.Color = clPurple
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 45
      end
      object Panel13: TPanel
        Left = 371
        Top = 63
        Width = 62
        Height = 31
        Caption = '扣 款/元'
        Font.Charset = GB2312_CHARSET
        Font.Color = clPurple
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 46
      end
      object echeck: TEdit
        Left = 432
        Top = 94
        Width = 67
        Height = 20
        TabOrder = 16
        OnClick = echeckEnter
        OnEnter = echeckEnter
        OnExit = echeckExit
        OnKeyPress = FormKeyPress
      end
      object eprodn: TEdit
        Left = 154
        Top = 33
        Width = 103
        Height = 20
        TabOrder = 1
        OnEnter = eprodnEnter
        OnExit = eprodnExit
        OnKeyPress = FormKeyPress
      end
      object efigid: TEdit
        Left = 256
        Top = 33
        Width = 107
        Height = 20
        TabOrder = 2
        OnClick = eprodnEnter
        OnEnter = eprodnEnter
        OnExit = DBENameIDExit
        OnKeyPress = FormKeyPress
      end
      object ename: TEdit
        Left = 90
        Top = 33
        Width = 64
        Height = 20
        TabOrder = 0
        OnClick = enameEnter
        OnEnter = enameEnter
        OnExit = DBENameIDExit
        OnKeyPress = FormKeyPress
      end
      object esourceid: TEdit
        Left = 116
        Top = 94
        Width = 52
        Height = 20
        TabOrder = 11
        OnEnter = DBENameIDEnter
        OnExit = DBENameIDExit
        OnKeyPress = FormKeyPress
      end
      object eRubbCardID: TEdit
        Left = 222
        Top = 94
        Width = 88
        Height = 20
        CharCase = ecLowerCase
        TabOrder = 13
        OnEnter = DBENameIDEnter
        OnExit = DBENameIDExit
        OnKeyPress = FormKeyPress
      end
      object eRubbMixID: TEdit
        Left = 498
        Top = 94
        Width = 155
        Height = 20
        TabOrder = 17
        OnEnter = DBENameIDEnter
        OnExit = DBENameIDExit
        OnKeyPress = FormKeyPress
      end
      object BitBtn1: TBitBtn
        Left = 548
        Top = 122
        Width = 77
        Height = 25
        Cancel = True
        Caption = '关闭'
        TabOrder = 47
        OnClick = BitBtn1Click
        Glyph.Data = {
          66020000424D660200000000000036000000280000000D0000000E0000000100
          18000000000030020000C40E0000C40E00000000000000000000BFBFBF000000
          000000000000000000000000000000000000000000000000000000000000BFBF
          BF00BFBFBFBFBFBFC0C0C00000000000FF8000FF8000FF8000FF8000FF000000
          C0C0C0C0C0C0BFBFBF00BFBFBFBFBFBFC0C0C00000008000FF0000FF8000FF80
          00FF8000FF000000C0C0C0C0C0C0BFBFBF00BFBFBFBFBFBFC0C0C00000000000
          FF8000FF8000FF8000FF8000FF000000C0C0C0C0C0C0BFBFBF00BFBFBFBFBFBF
          C0C0C00000008000FF0000FF8000FF8000FF8000FF000000C0C0C0C0C0C0BFBF
          BF00BFBFBFBFBFBFC0C0C00000000000FF8000FF8000FF8000FF8000FF000000
          C0C0C0C0C0C0BFBFBF00BFBFBFBFBFBFC0C0C00000008000FF0000FF8000FF80
          00FF8000FF000000C0C0C0C0C0C0BFBFBF00BFBFBFBFBFBFC0C0C00000000000
          FF8000FF8000FF8000FF8000FF000000C0C0C0C0C0C0BFBFBF00BFBFBFBFBFBF
          C0C0C00000008000FF0000FF8000FF8000FF8000FF000000C0C0C0C0C0C0BFBF
          BF00BFBFBFBFBFBFC0C0C00000000000FF8000FF8000FF8000FF8000FF000000
          C0C0C0C0C0C0BFBFBF00BFBFBFBFBFBFC0C0C000000000000000000000000000
          0000000000000000C0C0C0C0C0C0BFBFBF00BFBFBFBFBFBFBFBFBFBFBFBFBFBF
          BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00BFBFBFBFBFBF
          BFBFBFBFBFBF000000000000000000000000000000C0C0C0BFBFBFBFBFBFBFBF
          BF00BFBFBFBFBFBFBFBFBFC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
          BFBFBFBFBFBFBFBFBF00}
      end
      object elack: TDBEdit
        Left = 424
        Top = 33
        Width = 44
        Height = 20
        DataField = 'LackNum'
        DataSource = DataSource1
        TabOrder = 4
        OnEnter = eqcnumEnter
        OnExit = elackExit
      end
      object eImpu: TDBEdit
        Left = 468
        Top = 33
        Width = 47
        Height = 20
        DataField = 'ImpuNum'
        DataSource = DataSource1
        TabOrder = 5
        OnEnter = eqcnumEnter
        OnExit = elackExit
      end
      object epole: TDBEdit
        Left = 515
        Top = 33
        Width = 47
        Height = 20
        DataField = 'PoleNum'
        DataSource = DataSource1
        TabOrder = 6
        OnEnter = eqcnumEnter
        OnExit = elackExit
      end
      object erip: TDBEdit
        Left = 562
        Top = 33
        Width = 45
        Height = 20
        DataField = 'RipNum'
        DataSource = DataSource1
        TabOrder = 7
        OnEnter = eqcnumEnter
        OnExit = elackExit
      end
      object eElse: TDBEdit
        Left = 607
        Top = 33
        Width = 46
        Height = 20
        DataField = 'ElseNum'
        DataSource = DataSource1
        TabOrder = 8
        OnEnter = eqcnumEnter
        OnExit = elackExit
      end
      object edraww: TDBEdit
        Left = 1
        Top = 94
        Width = 57
        Height = 20
        DataField = 'DrawWeight'
        DataSource = DataSource1
        TabOrder = 9
        OnEnter = eqcnumEnter
        OnExit = elackExit
      end
      object emastew: TDBEdit
        Left = 58
        Top = 94
        Width = 58
        Height = 20
        DataField = 'MaterWeight'
        DataSource = DataSource1
        TabOrder = 10
        OnEnter = eqcnumEnter
        OnExit = elackExit
      end
      object eSubsa: TDBEdit
        Left = 309
        Top = 94
        Width = 61
        Height = 20
        DataField = 'SubSalary'
        DataSource = DataSource1
        TabOrder = 14
        OnEnter = eqcnumEnter
        OnExit = elackExit
      end
      object eDisSa: TDBEdit
        Left = 370
        Top = 94
        Width = 63
        Height = 20
        DataField = 'DisSalary'
        DataSource = DataSource1
        TabOrder = 15
        OnEnter = eqcnumEnter
        OnExit = elackExit
      end
      object eqcnum: TDBEdit
        Left = 363
        Top = 33
        Width = 61
        Height = 20
        DataField = 'QcNum'
        DataSource = DataSource1
        TabOrder = 3
        OnEnter = eqcnumEnter
        OnExit = eqcnumExit
      end
      object Panel26: TPanel
        Left = 168
        Top = 63
        Width = 54
        Height = 31
        Caption = '模 数'
        Font.Charset = GB2312_CHARSET
        Font.Color = clPurple
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 49
      end
      object DBEdit1: TDBEdit
        Left = 167
        Top = 94
        Width = 55
        Height = 20
        DataField = 'Moshu'
        DataSource = DataSource1
        TabOrder = 12
        OnEnter = eqcnumEnter
        OnExit = elackExit
      end
    end
    object Panel22: TPanel
      Left = 912
      Top = 24
      Width = 68
      Height = 25
      Caption = 'Panel22'
      TabOrder = 0
    end
    object DBGrid1: TDBGrid
      Left = 24
      Top = 237
      Width = 759
      Height = 277
      TabStop = False
      DataSource = DataSource1
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 1
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      Columns = <
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'Name'
          Title.Alignment = taCenter
          Width = 50
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'TMonth'
          Title.Alignment = taCenter
          Width = 45
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'TDate'
          Title.Alignment = taCenter
          Width = 63
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'ProdNameID'
          Title.Alignment = taCenter
          Width = 50
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ProdName'
          Title.Alignment = taCenter
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'FigID'
          Title.Alignment = taCenter
          Width = 88
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'DrawWeight'
          Title.Alignment = taCenter
          Width = 50
          Visible = True
        end
        item
          Alignment = taCenter