sfc_wipwaster_d.dfm

一个MRPII系统源代码版本

inherited Frm_Sfc_WipWaster_D: TFrm_Sfc_WipWaster_D
  Left = 239
  Top = 113
  Caption = '车间工废记录'
  ClientHeight = 334
  ClientWidth = 495
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel [0]
    Left = 234
    Top = 59
    Width = 72
    Height = 12
    Caption = '生产订单号：'
  end
  object Label2: TLabel [1]
    Left = 47
    Top = 82
    Width = 60
    Height = 12
    Caption = '订单行号：'
  end
  object Label3: TLabel [2]
    Left = 22
    Top = 109
    Width = 84
    Height = 12
    Caption = '订单物料代码：'
  end
  object Label4: TLabel [3]
    Left = 21
    Top = 134
    Width = 84
    Height = 12
    Caption = '工废物料代码：'
  end
  object Label5: TLabel [4]
    Left = 70
    Top = 12
    Width = 36
    Height = 12
    Caption = '日期：'
  end
  object Label7: TLabel [5]
    Left = 46
    Top = 159
    Width = 60
    Height = 12
    Caption = '工废数量：'
  end
  object Label9: TLabel [6]
    Left = 46
    Top = 36
    Width = 60
    Height = 12
    Caption = '部门代码：'
  end
  object Label10: TLabel [7]
    Left = 70
    Top = 59
    Width = 36
    Height = 12
    Caption = '班别：'
  end
  object Label11: TLabel [8]
    Left = 247
    Top = 82
    Width = 60
    Height = 12
    Caption = '记录单号：'
  end
  object Label12: TLabel [9]
    Left = 46
    Top = 487
    Width = 60
    Height = 12
    Caption = '报废类型：'
    Visible = False
  end
  object Label13: TLabel [10]
    Left = 191
    Top = 158
    Width = 60
    Height = 12
    Caption = '报废原因：'
  end
  object Label14: TLabel [11]
    Left = 69
    Top = 186
    Width = 36
    Height = 12
    Caption = '备注：'
  end
  object Label15: TLabel [12]
    Left = 44
    Top = 211
    Width = 60
    Height = 12
    Caption = '建档人员：'
  end
  object Label16: TLabel [13]
    Left = 301
    Top = 210
    Width = 60
    Height = 12
    Caption = '建档日期：'
  end
  object Label17: TLabel [14]
    Left = 43
    Top = 238
    Width = 60
    Height = 12
    Caption = '改档人员：'
  end
  object Label18: TLabel [15]
    Left = 302
    Top = 235
    Width = 60
    Height = 12
    Caption = '改档日期：'
  end
  inherited btn_ok: TButton
    Left = 153
    Top = 291
    TabOrder = 21
  end
  inherited btn_Cancel: TButton
    Left = 230
    Top = 291
    TabOrder = 22
  end
  object edt_Mono: TLinkEdit [18]
    Left = 308
    Top = 53
    Width = 125
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 3
    OnButtonClick = edt_MonoButtonClick
    OnKeyDown = edt_MonoKeyDown
  end
  object edt_ite_ItemCode: TEdit [19]
    Left = 108
    Top = 102
    Width = 125
    Height = 20
    Enabled = False
    TabOrder = 6
  end
  object edt_ItemCode: TLinkEdit [20]
    Left = 108
    Top = 126
    Width = 125
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 8
    OnButtonClick = edt_ItemCodeButtonClick
    OnExit = edt_ItemCodeExit
    OnKeyDown = edt_ItemCodeKeyDown
  end
  object edt_ItemName: TEdit [21]
    Left = 235
    Top = 127
    Width = 199
    Height = 20
    Enabled = False
    TabOrder = 9
  end
  object edt_Wipqty: TEdit [22]
    Left = 108
    Top = 151
    Width = 80
    Height = 20
    TabOrder = 10
    OnExit = edt_WipqtyExit
  end
  object MEdt_WipDate: TMaskEdit [23]
    Left = 108
    Top = 8
    Width = 81
    Height = 20
    EditMask = '!9999.99.99;1; '
    MaxLength = 10
    TabOrder = 0
    Text = '    .  .  '
    OnExit = DateCheck
  end
  object edt_ite_ItemName: TEdit [24]
    Left = 234
    Top = 102
    Width = 199
    Height = 20
    Enabled = False
    TabOrder = 7
  end
  object edt_MoLineno: TLinkEdit [25]
    Left = 108
    Top = 76
    Width = 125
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 4
    OnButtonClick = edt_MoLinenoButtonClick
    OnExit = edt_MoLinenoExit
    OnKeyDown = edt_MoLinenoKeyDown
  end
  object edt_DeptCode: TLinkEdit [26]
    Left = 108
    Top = 31
    Width = 81
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 1
    OnButtonClick = DeptHint1
    OnExit = edt_DeptCodeExit
    OnKeyDown = DeptHint
  end
  object edt_DeptName: TEdit [27]
    Left = 192
    Top = 31
    Width = 161
    Height = 20
    Enabled = False
    TabOrder = 11
  end
  object edt_ShiftType: TComboBox [28]
    Left = 108
    Top = 54
    Width = 125
    Height = 18
    Style = csOwnerDrawFixed
    ItemHeight = 12
    TabOrder = 2
  end
  inherited Pnl_Add: TPanel
    Left = 406
    Top = 8
    TabOrder = 23
    Visible = True
  end
  object Edt_BillNo: TEdit [30]
    Left = 308
    Top = 75
    Width = 124
    Height = 20
    TabOrder = 5
    OnExit = Edt_BillNoExit
  end
  object Cmbx_WasterType: TComboBox [31]
    Left = 108
    Top = 478
    Width = 126
    Height = 22
    Style = csOwnerDrawFixed
    ItemHeight = 16
    TabOrder = 12
    Visible = False
    Items.Strings = (
      '1 料废'
      '2 工废')
  end
  object Edt_WasterCause: TEdit [32]
    Left = 253
    Top = 150
    Width = 181
    Height = 20
    MaxLength = 50
    TabOrder = 13
    OnExit = Edt_WasterCauseExit
  end
  object Edt_RemArk: TEdit [33]
    Left = 108
    Top = 176
    Width = 326
    Height = 20
    MaxLength = 50
    TabOrder = 14
    OnExit = TextCheck
  end
  object LEdt_EmployeeCode_Create: TLinkEdit [34]
    Left = 108
    Top = 203
    Width = 75
    Height = 20
    Enabled = False
    LinkStyle = lsEllipsis
    TabOrder = 15
  end
  object Edt_EmployeeName: TEdit [35]
    Left = 184
    Top = 203
    Width = 114
    Height = 20
    Enabled = False
    TabOrder = 16
  end
  object MEdt_Date_Create: TMaskEdit [36]
    Left = 365
    Top = 203
    Width = 70
    Height = 20
    Enabled = False
    EditMask = '!9999.99.99;1; '
    MaxLength = 10
    TabOrder = 17
    Text = '    .  .  '
  end
  object LEdt_EmployeeCode_Edit: TLinkEdit [37]
    Left = 108
    Top = 231
    Width = 77
    Height = 20
    Enabled = False
    LinkStyle = lsEllipsis
    TabOrder = 18
  end
  object Edt_EdItEmployeeName: TEdit [38]
    Left = 185
    Top = 230
    Width = 114
    Height = 20
    Enabled = False
    TabOrder = 19
  end
  object MEdt_Date_Edit: TMaskEdit [39]
    Left = 365
    Top = 230
    Width = 70
    Height = 20
    Enabled = False
    EditMask = '!9999.99.99;1; '
    MaxLength = 10
    TabOrder = 20
    Text = '    .  .  '
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 528
    Top = 120
  end
end