ad_enter_decreaseasset_d.dfm

一个MRPII系统源代码版本

inherited Frm_Ad_Enter_DecreaseAsset_D: TFrm_Ad_Enter_DecreaseAsset_D
  Left = 165
  Top = 113
  Caption = '资产减少'
  ClientHeight = 342
  ClientWidth = 378
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel [0]
    Left = 13
    Top = 13
    Width = 84
    Height = 12
    Caption = '固定资产编号：'
  end
  object Label2: TLabel [1]
    Left = 13
    Top = 36
    Width = 84
    Height = 12
    Caption = '固定资产名称：'
  end
  object Label4: TLabel [2]
    Left = 433
    Top = 405
    Width = 84
    Height = 12
    Caption = '所属部门名称：'
    Visible = False
  end
  object lbl_DeptName: TLabel [3]
    Left = 599
    Top = 531
    Width = 48
    Height = 12
    Caption = '部门名称'
    Visible = False
  end
  object Label10: TLabel [4]
    Left = 61
    Top = 82
    Width = 36
    Height = 12
    Caption = '原值：'
  end
  object Label15: TLabel [5]
    Left = 37
    Top = 128
    Width = 60
    Height = 12
    Caption = '入帐日期：'
  end
  object Label22: TLabel [6]
    Left = 37
    Top = 105
    Width = 60
    Height = 12
    Caption = '累计折旧：'
  end
  object Label25: TLabel [7]
    Left = 13
    Top = 151
    Width = 84
    Height = 12
    Caption = '开始使用日期：'
  end
  object Label26: TLabel [8]
    Left = 37
    Top = 174
    Width = 60
    Height = 12
    Caption = '增减方式：'
  end
  object Label29: TLabel [9]
    Left = 37
    Top = 243
    Width = 60
    Height = 12
    Caption = '建单日期：'
  end
  object Label30: TLabel [10]
    Left = 37
    Top = 197
    Width = 60
    Height = 12
    Caption = '减少日期：'
  end
  object Label31: TLabel [11]
    Left = 37
    Top = 266
    Width = 60
    Height = 12
    Caption = '建单人员：'
  end
  object Label33: TLabel [12]
    Left = 37
    Top = 59
    Width = 60
    Height = 12
    Caption = '计量单位：'
  end
  object Label34: TLabel [13]
    Left = 37
    Top = 220
    Width = 60
    Height = 12
    Caption = '注销日期：'
  end
  object Label3: TLabel [14]
    Left = 61
    Top = 289
    Width = 36
    Height = 12
    Caption = '备注：'
  end
  inherited btn_ok: TButton
    Left = 188
    Top = 312
    TabOrder = 8
  end
  inherited btn_Cancel: TButton
    Left = 289
    Top = 312
    TabOrder = 9
  end
  inherited Pnl_Add: TPanel
    Left = 531
    TabOrder = 10
  end
  object EDT_AssetName: TEdit [18]
    Left = 96
    Top = 30
    Width = 254
    Height = 20
    Enabled = False
    TabOrder = 12
  end
  object EDT_FirstAmount: TExtEdit [19]
    Left = 96
    Top = 76
    Width = 90
    Height = 20
    Enabled = False
    TabOrder = 5
    DispLabel = lbl_DeptName
  end
  object EDT_DepreciationValue: TExtEdit [20]
    Left = 96
    Top = 99
    Width = 90
    Height = 20
    Enabled = False
    TabOrder = 6
    DispLabel = lbl_DeptName
  end
  object MEDT_InAccountDate: TMaskEdit [21]
    Left = 96
    Top = 122
    Width = 66
    Height = 20
    Enabled = False
    EditMask = '9999.99.99;1;_'
    MaxLength = 10
    TabOrder = 3
    Text = '    .  .  '
    OnExit = DateCheck
  end
  object MEDT_StartUseDate: TMaskEdit [22]
    Left = 96
    Top = 145
    Width = 66
    Height = 20
    Enabled = False
    EditMask = '9999.99.99;1;_'
    MaxLength = 10
    TabOrder = 4
    Text = '    .  .  '
    OnExit = DateCheck
  end
  object EDT_AdChangeTypeCode: TLinkEdit [23]
    Left = 96
    Top = 168
    Width = 60
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 13
    Text = ' '
    OnButtonClick = EDT_AdChangeTypeCodeButtonClick
    OnExit = EDT_AdChangeTypeCodeExit
    OnKeyDown = EDT_AdChangeTypeCodeKeyDown
  end
  object EDT_AdChangeTypeName: TExtEdit [24]
    Left = 155
    Top = 168
    Width = 120
    Height = 20
    Enabled = False
    ReadOnly = True
    TabOrder = 2
    DispLabel = lbl_DeptName
  end
  object MEDT_CreateDate: TMaskEdit [25]
    Left = 96
    Top = 237
    Width = 66
    Height = 20
    EditMask = '9999.99.99;1;_'
    MaxLength = 10
    TabOrder = 16
    Text = '    .  .  '
    OnExit = DateCheck
  end
  object MEDT_DecreaseDate: TMaskEdit [26]
    Left = 96
    Top = 191
    Width = 66
    Height = 20
    EditMask = '9999.99.99;1;_'
    MaxLength = 10
    TabOrder = 14
    Text = '    .  .  '
    OnExit = MEDT_DecreaseDateExit
  end
  object EDT_CreateEmployeeCode: TLinkEdit [27]
    Left = 96
    Top = 260
    Width = 66
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 17
    Text = ' '
    OnButtonClick = EmployeeHint1
    OnExit = EDT_CreateEmployeeCodeExit
    OnKeyDown = EmployeeHint
  end
  object EDT_CreateEmployeeName: TExtEdit [28]
    Left = 164
    Top = 260
    Width = 90
    Height = 20
    Enabled = False
    ReadOnly = True
    TabOrder = 7
    DispLabel = lbl_DeptName
  end
  object Edt_UomCode: TLinkEdit [29]
    Left = 96
    Top = 53
    Width = 60
    Height = 20
    Enabled = False
    LinkStyle = lsEllipsis
    TabOrder = 0
    Text = ' '
    OnChange = Edt_UomCodeChange
  end
  object ExtEdit1: TExtEdit [30]
    Left = 155
    Top = 53
    Width = 108
    Height = 20
    Enabled = False
    ReadOnly = True
    TabOrder = 1
    DispLabel = lbl_DeptName
  end
  object MEDT_StArtStopUseDate: TMaskEdit [31]
    Left = 96
    Top = 214
    Width = 66
    Height = 20
    EditMask = '9999.99.99;1;_'
    MaxLength = 10
    TabOrder = 15
    Text = '    .  .  '
    OnExit = DateCheck
  end
  object Edt_RemArk: TEdit [32]
    Left = 96
    Top = 283
    Width = 254
    Height = 20
    TabOrder = 18
  end
  object Edt_AssetCode: TLinkEdit [33]
    Left = 97
    Top = 8
    Width = 100
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 11
    Text = ' '
    OnButtonClick = Edt_AssetCodeButtonClick
    OnChange = Edt_AssetCodeChange
    OnExit = Edt_AssetCodeExit
  end
  inherited AdoQry_Tmp: TAdoQuery
    CurSorType = ctStatic
    SQL.Strings = (
      
        'select AssetCode,AssetName,UomCode,InAccountDate,StartUseDate,Fi' +
        'rstAmount,DepreciationValue from Ad_AssetCard')
    Left = 321
    Top = 112
  end
end