ad_enter_assetcard_d.dfm

来自「一个MRPII系统源代码版本」· DFM 代码 · 共 775 行 · 第 1/2 页

    OnExit = FloatCheck
    DispLabel = lbl_DeptName
  end
  object EDT_DepreciationValue: TExtEdit [51]
    Left = 96
    Top = 278
    Width = 90
    Height = 20
    TabOrder = 27
    OnExit = EDT_DepreciationValueExit
    DispLabel = lbl_DeptName
  end
  object EDT_Intending: TExtEdit [52]
    Left = 449
    Top = 186
    Width = 90
    Height = 20
    TabOrder = 33
    OnExit = FloatCheck
    DispLabel = lbl_DeptName
  end
  object EDT_TaskUom: TExtEdit [53]
    Left = 449
    Top = 232
    Width = 90
    Height = 20
    TabOrder = 35
    DispLabel = lbl_DeptName
  end
  object EDT_NetValue: TExtEdit [54]
    Left = 282
    Top = 278
    Width = 90
    Height = 20
    Enabled = False
    TabOrder = 32
    OnExit = FloatCheck
    DispLabel = lbl_DeptName
  end
  object EDT_AssetTypeCode: TLinkEdit [55]
    Left = 96
    Top = 90
    Width = 60
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 6
    Text = ' '
    OnButtonClick = EDT_AssetTypeCodeButtonClick
    OnExit = EDT_AssetTypeCodeExit
    OnKeyDown = EDT_AssetTypeCodeKeyDown
  end
  object EDT_DepositaryCode: TLinkEdit [56]
    Left = 96
    Top = 67
    Width = 60
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 4
    Text = ' '
    OnButtonClick = EDT_DepositaryCodeButtonClick
    OnExit = EDT_DepositaryCodeExit
    OnKeyDown = EDT_DepositaryCodeKeyDown
  end
  object EDT_DepositaryName: TExtEdit [57]
    Left = 157
    Top = 67
    Width = 108
    Height = 20
    Enabled = False
    ReadOnly = True
    TabOrder = 5
    DispLabel = lbl_DeptName
  end
  object MEDT_InAccountDate: TMaskEdit [58]
    Left = 96
    Top = 140
    Width = 90
    Height = 20
    EditMask = '9999.99.99;1;_'
    MaxLength = 10
    TabOrder = 16
    Text = '    .  .  '
    OnExit = DateCheck
  end
  object MEDT_StartUseDate: TMaskEdit [59]
    Left = 282
    Top = 140
    Width = 90
    Height = 20
    EditMask = '9999.99.99;1;_'
    MaxLength = 10
    TabOrder = 17
    Text = '    .  .  '
    OnExit = DateCheck
  end
  object EDT_AdChangeTypeCode: TLinkEdit [60]
    Left = 364
    Top = 44
    Width = 60
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 8
    Text = ' '
    OnButtonClick = EDT_AdChangeTypeCodeButtonClick
    OnExit = EDT_AdChangeTypeCodeExit
    OnKeyDown = EDT_AdChangeTypeCodeKeyDown
  end
  object EDT_AdChangeTypeName: TExtEdit [61]
    Left = 425
    Top = 44
    Width = 120
    Height = 20
    Enabled = False
    ReadOnly = True
    TabOrder = 9
    DispLabel = lbl_DeptName
  end
  object EDT_UseStatusCode: TLinkEdit [62]
    Left = 96
    Top = 113
    Width = 60
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 14
    Text = ' '
    OnButtonClick = EDT_UseStatusCodeButtonClick
    OnExit = EDT_UseStatusCodeExit
    OnKeyDown = EDT_UseStatusCodeKeyDown
  end
  object EDT_UseStatusName: TExtEdit [63]
    Left = 157
    Top = 113
    Width = 108
    Height = 20
    Enabled = False
    ReadOnly = True
    TabOrder = 15
    DispLabel = lbl_DeptName
  end
  object EDT_CurrencyCode: TLinkEdit [64]
    Left = 96
    Top = 163
    Width = 60
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 19
    Text = ' '
    OnButtonClick = CurrencyHint1
    OnExit = EDT_CurrencyCodeExit
    OnKeyDown = CurrencyHint
  end
  object EDT_CurrencyName: TExtEdit [65]
    Left = 157
    Top = 163
    Width = 66
    Height = 20
    Enabled = False
    ReadOnly = True
    TabOrder = 20
    DispLabel = lbl_DeptName
  end
  object EDT_FinishTask: TExtEdit [66]
    Left = 449
    Top = 209
    Width = 90
    Height = 20
    TabOrder = 34
    OnExit = FloatCheck
    DispLabel = lbl_DeptName
  end
  object EDT_PcDepreciation: TExtEdit [67]
    Left = 449
    Top = 255
    Width = 90
    Height = 20
    Enabled = False
    TabOrder = 36
    OnExit = FloatCheck
    DispLabel = lbl_DeptName
  end
  object CMBX_DepreciationWay: TComboBox [68]
    Left = 449
    Top = 163
    Width = 90
    Height = 20
    Style = csDropDownList
    ItemHeight = 12
    TabOrder = 22
    OnChange = CMBX_DepreciationWayChange
    Items.Strings = (
      '1 平均年限法'
      '2 工作量法'
      '3 双倍余额递减法'
      '4 年数总和法'
      '5 不计提折旧法'
      '')
  end
  object MEDT_CreateDate: TMaskEdit [69]
    Left = 96
    Top = 303
    Width = 90
    Height = 20
    Enabled = False
    EditMask = '9999.99.99;1;_'
    MaxLength = 10
    TabOrder = 38
    Text = '    .  .  '
    OnExit = DateCheck
  end
  object MEDT_EditDate: TMaskEdit [70]
    Left = 96
    Top = 326
    Width = 90
    Height = 20
    Enabled = False
    EditMask = '9999.99.99;1;_'
    MaxLength = 10
    TabOrder = 41
    Text = '    .  .  '
    OnExit = DateCheck
  end
  object EDT_CreateEmployeeCode: TLinkEdit [71]
    Left = 281
    Top = 303
    Width = 66
    Height = 20
    Enabled = False
    LinkStyle = lsEllipsis
    TabOrder = 39
    Text = ' '
    OnButtonClick = EmployeeHint1
    OnChange = EDT_CreateEmployeeCodeChange
    OnExit = EDT_CreateEmployeeCodeExit
    OnKeyDown = EmployeeHint
  end
  object EDT_CreateEmployeeName: TExtEdit [72]
    Left = 348
    Top = 303
    Width = 90
    Height = 20
    Enabled = False
    ReadOnly = True
    TabOrder = 40
    DispLabel = lbl_DeptName
  end
  object EDT_EdItEmployeeCode: TLinkEdit [73]
    Left = 281
    Top = 326
    Width = 66
    Height = 20
    Enabled = False
    LinkStyle = lsEllipsis
    TabOrder = 42
    Text = ' '
    OnButtonClick = EmployeeHint1
    OnChange = EDT_EdItEmployeeCodeChange
    OnExit = EDT_EdItEmployeeCodeExit
    OnKeyDown = EmployeeHint
  end
  object EDT_EdItEmployeeName: TExtEdit [74]
    Left = 348
    Top = 326
    Width = 90
    Height = 20
    Enabled = False
    ReadOnly = True
    TabOrder = 43
    DispLabel = lbl_DeptName
  end
  object EDT_DepreciationSubjectCode: TLinkEdit [75]
    Left = 364
    Top = 90
    Width = 60
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 12
    Text = ' '
    OnButtonClick = EDT_AssetSujectCodeButtonClick
    OnChange = EDT_DepreciationSubjectCodeChange
    OnExit = EDT_DepreciationSubjectCodeExit
    OnKeyDown = EDT_AssetSujectCodeKeyDown
  end
  object EDT_DepreciationSubjectName: TExtEdit [76]
    Left = 425
    Top = 90
    Width = 120
    Height = 20
    Enabled = False
    ReadOnly = True
    TabOrder = 13
    DispLabel = lbl_DeptName
  end
  object EDT_AssetSujectCode: TLinkEdit [77]
    Left = 364
    Top = 67
    Width = 60
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 10
    Text = ' '
    OnButtonClick = EDT_AssetSujectCodeButtonClick
    OnChange = EDT_AssetSujectCodeChange
    OnExit = EDT_AssetSujectCodeExit
    OnKeyDown = EDT_AssetSujectCodeKeyDown
  end
  object EDT_AssetSujectName: TExtEdit [78]
    Left = 425
    Top = 67
    Width = 120
    Height = 20
    Enabled = False
    ReadOnly = True
    TabOrder = 11
    DispLabel = lbl_DeptName
  end
  object Button1: TButton [79]
    Left = 410
    Top = 114
    Width = 120
    Height = 23
    Anchors = [akRight, akBottom]
    Caption = '附属设备'
    TabOrder = 46
    OnClick = Button1Click
  end
  object Button2: TButton [80]
    Left = 282
    Top = 114
    Width = 120
    Height = 23
    Anchors = [akRight, akBottom]
    Caption = '使用部门'
    TabOrder = 47
    OnClick = Button2Click
  end
  object Edt_UomCode: TLinkEdit [81]
    Left = 96
    Top = 44
    Width = 60
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 2
    Text = ' '
    OnButtonClick = Edt_UomCodeButtonClick
    OnChange = Edt_UomCodeChange
    OnExit = Edt_UomCodeExit
    OnKeyDown = Edt_UomCodeKeyDown
  end
  object ExtEdit1: TExtEdit [82]
    Left = 157
    Top = 44
    Width = 108
    Height = 20
    Enabled = False
    ReadOnly = True
    TabOrder = 3
    DispLabel = lbl_DeptName
  end
  object MEDT_StArtStopUseDate: TMaskEdit [83]
    Left = 449
    Top = 278
    Width = 90
    Height = 20
    Enabled = False
    EditMask = '9999.99.99;1;_'
    MaxLength = 10
    TabOrder = 37
    Text = '    .  .  '
    OnExit = MEDT_StArtStopUseDateExit
  end
  object Edt_StArtDepreciationMonth: TMaskEdit [84]
    Left = 449
    Top = 140
    Width = 90
    Height = 20
    EditMask = '9999.99;1;_'
    MaxLength = 7
    TabOrder = 18
    Text = '    .  '
    OnExit = MEDT_StArtStopUseDateExit
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 569
    Top = 19
  end
end