unit_modeinput.~dfm

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

    object DBEdit6: TDBEdit
      Left = 373
      Top = 24
      Width = 63
      Height = 22
      AutoSize = False
      DataField = 'Hao'
      DataSource = DataSource1
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 4
      OnEnter = DBEdit3Enter
      OnExit = DBEdit1Exit
    end
    object Panel5: TPanel
      Left = 62
      Top = 56
      Width = 82
      Height = 23
      Caption = '生产批号：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 16
    end
    object Panel6: TPanel
      Left = 275
      Top = 2
      Width = 49
      Height = 23
      Caption = '领坯数'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 17
    end
    object Panel7: TPanel
      Left = 324
      Top = 2
      Width = 49
      Height = 23
      Caption = '领簧数'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 18
    end
    object Panel8: TPanel
      Left = 373
      Top = 2
      Width = 62
      Height = 23
      Caption = '合格品数'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 19
    end
    object Panel9: TPanel
      Left = 435
      Top = 2
      Width = 49
      Height = 23
      Caption = '修废数'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 20
    end
    object Panel10: TPanel
      Left = 652
      Top = 1
      Width = 56
      Height = 23
      Caption = '检验员'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 21
    end
    object Panel11: TPanel
      Left = 276
      Top = 56
      Width = 69
      Height = 23
      Caption = '备 注：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 22
    end
    object DBEdit7: TDBEdit
      Left = 482
      Top = 24
      Width = 50
      Height = 22
      AutoSize = False
      DataField = 'Huai'
      DataSource = DataSource1
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 6
      OnEnter = DBEdit3Enter
      OnExit = DBEdit1Exit
    end
    object DBEdit8: TDBEdit
      Tag = 1
      Left = 652
      Top = 23
      Width = 57
      Height = 22
      AutoSize = False
      DataField = 'Checke'
      DataSource = DataSource1
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 9
      OnEnter = DBEdit8Enter
      OnExit = DBEdit1Exit
    end
    object DBEdit9: TDBEdit
      Left = 345
      Top = 56
      Width = 144
      Height = 22
      AutoSize = False
      DataField = 'Note'
      DataSource = DataSource1
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 12
      OnEnter = DBEdit3Enter
      OnExit = DBEdit1Exit
    end
    object Panel12: TPanel
      Left = 1
      Top = 2
      Width = 82
      Height = 22
      Caption = '日  期'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 23
    end
    object Edit1: TEdit
      Left = 152
      Top = 4
      Width = 90
      Height = 21
      TabOrder = 24
      Text = 'Edit1'
    end
    object Panel4: TPanel
      Left = 145
      Top = 1
      Width = 130
      Height = 23
      Caption = '产品名称'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 25
    end
    object Button5: TButton
      Left = 417
      Top = 90
      Width = 75
      Height = 25
      Caption = '返 回'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 26
      OnClick = Button5Click
    end
    object Edit2: TEdit
      Left = 152
      Top = 25
      Width = 91
      Height = 21
      TabOrder = 27
      Text = 'Edit2'
    end
    object DBEdit10: TDBEdit
      Left = 145
      Top = 24
      Width = 130
      Height = 22
      AutoSize = False
      DataField = 'Prodname'
      DataSource = DataSource1
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnEnter = DBEdit10Enter
      OnExit = DBEdit1Exit
    end
    object Edit4: TEdit
      Left = 622
      Top = 59
      Width = 60
      Height = 20
      AutoSize = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 28
      OnEnter = Edit4Enter
    end
    object Button6: TButton
      Left = 591
      Top = 90
      Width = 75
      Height = 25
      Caption = '查 询'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 29
      OnClick = Button6Click
    end
    object Panel13: TPanel
      Left = 484
      Top = 1
      Width = 47
      Height = 24
      Caption = '硫废数'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 30
    end
    object DBEdit2: TDBEdit
      Left = 435
      Top = 24
      Width = 47
      Height = 21
      AutoSize = False
      DataField = 'Xioufei'
      DataSource = DataSource1
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 5
    end
    object Panel14: TPanel
      Left = 531
      Top = 1
      Width = 61
      Height = 25
      Caption = '补贴/元'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 31
    end
    object Panel15: TPanel
      Left = 592
      Top = 1
      Width = 60
      Height = 25
      Caption = '扣款/元'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 32
    end
    object DBEdit11: TDBEdit
      Left = 531
      Top = 24
      Width = 61
      Height = 21
      DataField = 'Subsalary'
      DataSource = DataSource1
      TabOrder = 7
    end
    object DBEdit12: TDBEdit
      Left = 592
      Top = 24
      Width = 61
      Height = 21
      DataField = 'Dissalary'
      DataSource = DataSource1
      TabOrder = 8
    end
    object DBEdit13: TDBEdit
      Left = 8
      Top = 24
      Width = 58
      Height = 21
      DataField = 'Tmonth'
      DataSource = DataSource1
      TabOrder = 33
    end
    object DateTimePicker1: TDateTimePicker
      Left = 2
      Top = 24
      Width = 81
      Height = 22
      CalAlignment = dtaLeft
      Date = 37562.5413561343
      Time = 37562.5413561343
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 34
      OnClick = DateTimePicker1Click
      OnChange = DateTimePicker1Change
    end
  end
  object Panel3: TPanel
    Left = 91
    Top = 35
    Width = 62
    Height = 23
    Caption = '姓 名'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
  end
  object Edit3: TEdit
    Left = 144
    Top = 6
    Width = 58
    Height = 21
    TabOrder = 4
    Text = 'Edit3'
    Visible = False
  end
  object Table1: TTable
    DatabaseName = 'JL2000'
    OnFilterRecord = Table1FilterRecord
    TableName = 'zhenxiou.DB'
    Left = 94
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 464
  end
end