ad_enter_workload_d.dfm

来自「一个MRPII系统源代码版本」· DFM 代码 · 共 166 行

inherited Frm_Ad_Enter_WorkLoad_D: TFrm_Ad_Enter_WorkLoad_D
  Left = 200
  Top = 171
  Caption = '工作量管理'
  ClientHeight = 322
  ClientWidth = 428
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel [0]
    Left = 47
    Top = 181
    Width = 72
    Height = 12
    Caption = '单位折旧额：'
  end
  object Label2: TLabel [1]
    Left = 59
    Top = 213
    Width = 60
    Height = 12
    Caption = '月折旧额：'
  end
  object Label3: TLabel [2]
    Left = 83
    Top = 245
    Width = 36
    Height = 12
    Caption = '备注：'
  end
  object Label4: TLabel [3]
    Left = -7
    Top = 310
    Width = 84
    Height = 12
    Caption = '所属部门名称：'
    Visible = False
  end
  object Label5: TLabel [4]
    Left = 59
    Top = 149
    Width = 60
    Height = 12
    Caption = '月工作量：'
  end
  object lbl_DeptName: TLabel [5]
    Left = 71
    Top = 312
    Width = 48
    Height = 12
    Caption = '部门名称'
    Visible = False
  end
  object Label6: TLabel [6]
    Left = 35
    Top = 21
    Width = 84
    Height = 12
    Caption = '固定资产编号：'
  end
  object Label7: TLabel [7]
    Left = 35
    Top = 53
    Width = 84
    Height = 12
    Caption = '固定资产名称：'
  end
  object Label23: TLabel [8]
    Left = 59
    Top = 85
    Width = 60
    Height = 12
    Caption = '工作总量：'
  end
  object Label25: TLabel [9]
    Left = 83
    Top = 117
    Width = 36
    Height = 12
    Caption = '月份：'
  end
  inherited btn_ok: TButton
    Left = 209
    Top = 280
  end
  inherited btn_Cancel: TButton
    Left = 318
    Top = 280
  end
  object EDT_PeriodRate: TEdit [13]
    Left = 121
    Top = 177
    Width = 100
    Height = 20
    Enabled = False
    TabOrder = 8
  end
  object EDT_Depreciation: TEdit [14]
    Left = 121
    Top = 209
    Width = 100
    Height = 20
    Enabled = False
    TabOrder = 9
  end
  object EDT_RemArk: TExtEdit [15]
    Left = 121
    Top = 241
    Width = 298
    Height = 20
    TabOrder = 10
  end
  object Edt_AssetCode: TLinkEdit [16]
    Left = 121
    Top = 16
    Width = 100
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 3
    Text = ' '
    OnButtonClick = Edt_AssetCodeButtonClick
    OnExit = Edt_AssetCodeExit
    OnKeyDown = Edt_AssetCodeKeyDown
  end
  object EDT_AssetName: TEdit [17]
    Left = 121
    Top = 48
    Width = 250
    Height = 20
    Enabled = False
    TabOrder = 4
  end
  object EDT_Intending: TExtEdit [18]
    Left = 121
    Top = 80
    Width = 100
    Height = 20
    Enabled = False
    TabOrder = 5
    DispLabel = lbl_DeptName
  end
  object MEDT_Month: TMaskEdit [19]
    Left = 121
    Top = 112
    Width = 50
    Height = 20
    EditMask = '9999.99;1;_'
    MaxLength = 7
    TabOrder = 6
    Text = '    .  '
    OnExit = MEDT_MonthExit
  end
  object EDT_WorkLoad: TEdit [20]
    Left = 121
    Top = 144
    Width = 100
    Height = 20
    TabOrder = 7
    OnChange = EDT_WorkLoadChange
    OnExit = EDT_WorkLoadExit
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 385
    Top = 47
  end
end