unit_dinginput.~dfm

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

object Form_dinginput: TForm_dinginput
  Left = 65
  Top = 101
  Width = 668
  Height = 438
  Caption = '宁波市巨龙橡塑有限公司-------订单输入'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  OnKeyPress = FormKeyPress
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 16
    Top = 20
    Width = 515
    Height = 135
    TabOrder = 0
    object Panel2: TPanel
      Left = 1
      Top = 2
      Width = 60
      Height = 21
      Caption = '编  号'
      Font.Charset = GB2312_CHARSET
      Font.Color = clPurple
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
    end
    object DBEdit1: TDBEdit
      Left = 2
      Top = 22
      Width = 59
      Height = 22
      DataField = 'Xuhao'
      DataSource = DataSource1
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = DBEdit1Click
    end
    object DBEdit4: TDBEdit
      Left = 338
      Top = 24
      Width = 108
      Height = 22
      DataField = 'Tuhao'
      DataSource = DataSource1
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 4
    end
    object DBEdit5: TDBEdit
      Left = 1
      Top = 65
      Width = 61
      Height = 22
      DataField = 'Shuli'
      DataSource = DataSource1
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 5
      OnClick = DBEdit1Click
      OnEnter = DBEdit5Enter
      OnExit = DBEdit5Exit
    end
    object DBEdit6: TDBEdit
      Left = 62
      Top = 66
      Width = 50
      Height = 22
      DataField = 'Dajia'
      DataSource = DataSource1
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 6
      OnEnter = DBEdit5Enter
      OnExit = DBEdit5Exit
    end
    object DBEdit7: TDBEdit
      Left = 111
      Top = 66
      Width = 60
      Height = 22
      DataField = 'Dijin'
      DataSource = DataSource1
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 7
      OnEnter = DBEdit5Enter
      OnExit = DBEdit5Exit
    end
    object DBEdit8: TDBEdit
      Left = 362
      Top = 67
      Width = 85
      Height = 22
      DataField = 'Jihufash'
      DataSource = DataSource1
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 8
      OnEnter = DBEdit5Enter
      OnExit = DBEdit5Exit
    end
    object Panel3: TPanel
      Left = 61
      Top = 1
      Width = 163
      Height = 22
      Caption = '客 户 名 称'
      Font.Charset = GB2312_CHARSET
      Font.Color = clPurple
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 11
    end
    object Panel4: TPanel
      Left = 224
      Top = 1
      Width = 114
      Height = 23
      Caption = '产品名称'
      Font.Charset = GB2312_CHARSET
      Font.Color = clPurple
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 12
    end
    object Panel5: TPanel
      Left = 338
      Top = 1
      Width = 109
      Height = 24
      Caption = '图号（规格型号）'
      Font.Charset = GB2312_CHARSET
      Font.Color = clPurple
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 13
    end
    object Panel6: TPanel
      Left = 1
      Top = 45
      Width = 61
      Height = 20
      Caption = '订购数量'
      Font.Charset = GB2312_CHARSET
      Font.Color = clPurple
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 14
    end
    object Panel7: TPanel
      Left = 62
      Top = 46
      Width = 50
      Height = 20
      Caption = '单  价'
      Font.Charset = GB2312_CHARSET
      Font.Color = clPurple
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 15
    end
    object Panel8: TPanel
      Left = 112
      Top = 46
      Width = 59
      Height = 20
      Caption = '订  金'
      Font.Charset = GB2312_CHARSET
      Font.Color = clPurple
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 16
    end
    object Panel9: TPanel
      Left = 171
      Top = 47
      Width = 95
      Height = 19
      Caption = '订货日期'
      Font.Charset = GB2312_CHARSET
      Font.Color = clPurple
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 17
    end
    object Panel10: TPanel
      Left = 266
      Top = 47
      Width = 96
      Height = 20
      Caption = '交货日期'
      Font.Charset = GB2312_CHARSET
      Font.Color = clPurple
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 18
    end
    object DateTimePicker1: TDateTimePicker
      Left = 171
      Top = 66
      Width = 96
      Height = 22
      CalAlignment = dtaLeft
      Date = 37483.5824466435
      Time = 37483.5824466435
      DateFormat = dfShort
      DateMode = dmComboBox
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = '宋体'
      Font.Style = []
      Kind = dtkDate
      ParseInput = False
      ParentFont = False
      TabOrder = 19
    end
    object DateTimePicker2: TDateTimePicker
      Left = 266
      Top = 67
      Width = 96
      Height = 22
      CalAlignment = dtaLeft
      Date = 37483.5828643519
      Time = 37483.5828643519
      DateFormat = dfShort
      DateMode = dmComboBox
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = '宋体'
      Font.Style = []
      Kind = dtkDate
      ParseInput = False
      ParentFont = False
      TabOrder = 20
    end
    object Panel11: TPanel
      Left = 362
      Top = 47
      Width = 85
      Height = 20
      Caption = '交货方式'
      Font.Charset = GB2312_CHARSET
      Font.Color = clPurple
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 21
    end
    object Panel12: TPanel
      Left = 61
      Top = 88
      Width = 58
      Height = 22
      Caption = '联系人'
      Font.Charset = GB2312_CHARSET
      Font.Color = clPurple
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 22
    end
    object Panel13: TPanel
      Left = 355
      Top = 88
      Width = 93
      Height = 22
      Caption = '材料总值'
      Font.Charset = GB2312_CHARSET
      Font.Color = clPurple
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 23
    end
    object Panel14: TPanel
      Left = 119
      Top = 88
      Width = 236
      Height = 22
      Caption = '备      注'
      Font.Charset = GB2312_CHARSET
      Font.Color = clPurple
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 24
    end
    object DBEdit9: TDBEdit
      Left = 61
      Top = 110
      Width = 58
      Height = 22
      DataField = 'Lixiren'
      DataSource = DataSource1
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 9
      OnEnter = DBEdit5Enter
      OnExit = DBEdit5Exit
    end
    object DBEdit10: TDBEdit
      Left = 355
      Top = 110
      Width = 94
      Height = 22
      DataField = 'Touru'
      DataSource = DataSource1
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 25
    end
    object DBEdit11: TDBEdit
      Left = 119
      Top = 110
      Width = 236
      Height = 22
      DataField = 'Note'
      DataSource = DataSource1
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 10
      OnExit = DBEdit11Exit
    end
    object Panel15: TPanel
      Left = 447
      Top = 0
      Width = 67
      Height = 25
      Caption = '每个骨架数'
      Font.Charset = GB2312_CHARSET
      Font.Color = clPurple
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 26
    end
    object Panel16: TPanel
      Left = 447
      Top = 47
      Width = 67
      Height = 20
      Caption = '每个弹簧数'
      Font.Charset = GB2312_CHARSET
      Font.Color = clPurple
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 27
    end
    object DBEdit14: TDBEdit
      Left = 232
      Top = 24
      Width = 97
      Height = 21
      DataField = 'ProdID'
      DataSource = DataSource1
      TabOrder = 28
    end
    object DBEdit3: TDBEdit
      Tag = 1
      Left = 225
      Top = 24
      Width = 113
      Height = 20
      DataField = 'Chpimi'
      DataSource = DataSource1
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 3
      OnClick = DBEdit2Click
      OnEnter = DBEdit3Enter
      OnExit = DBEdit3Exit
    end
    object DBEdit2: TDBEdit
      Left = 61
      Top = 23
      Width = 163
      Height = 20
      DataField = 'Kehumi'
      DataSource = DataSource1
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnClick = DBEdit2Click
      OnEnter = DBEdit2Enter
      OnExit = DBEdit2Exit
    end
    object DBEdit15: TDBEdit
      Left = 446
      Top = 24
      Width = 67
      Height = 21
      DataField = 'Gujia'
      DataSource = DataSource1
      TabOrder = 29
      OnEnter = DBEdit5Enter
      OnExit = DBEdit5Exit
    end
    object DBEdit16: TDBEdit
      Left = 447
      Top = 66
      Width = 67
      Height = 21
      DataField = 'Tanhuang'
      DataSource = DataSource1
      TabOrder = 30
      OnEnter = DBEdit5Enter
      OnExit = DBEdit5Exit
    end
  end
  object DBGrid1: TDBGrid
    Left = 16
    Top = 160
    Width = 625
    Height = 193
    Hint = '双击某条记录，可做计划'
    DataSource = DataSource1