ad_enter_assetcard.dfm

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

inherited Frm_Ad_Enter_AssetCard: TFrm_Ad_Enter_AssetCard
  Left = 317
  Top = 144
  Caption = '固定资产卡片'
  ClientHeight = 494
  ClientWidth = 707
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 707
  end
  inherited Pnl_Title: TPanel
    Width = 707
    Caption = '固定资产卡片'
    inherited Image2: TImage
      Width = 707
    end
  end
  inherited Pnl_Head: TPanel
    Width = 707
    inherited Image1: TImage
      Width = 707
    end
    inherited Lbl_Order: TLabel
      Width = 72
      Caption = '固定资产编号'
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 451
    Width = 707
    Height = 43
    inherited Image4: TImage
      Width = 707
      Height = 43
    end
    object Label1: TLabel
      Left = 16
      Top = 8
      Width = 102
      Height = 12
      Caption = '固定资产类别名称:'
      TransParent = True
    end
    object Label2: TLabel
      Left = 40
      Top = 24
      Width = 78
      Height = 12
      Caption = '存放地点名称:'
      TransParent = True
    end
    object Label3: TLabel
      Left = 384
      Top = 8
      Width = 78
      Height = 12
      Caption = '增减方式名称:'
      TransParent = True
    end
    object Label4: TLabel
      Left = 384
      Top = 24
      Width = 78
      Height = 12
      Caption = '使用状态名称:'
      TransParent = True
    end
    object DBText1: TDBText
      Left = 120
      Top = 8
      Width = 65
      Height = 17
      DataField = 'AssetTypeName'
      DataSource = DataSource
      TransParent = True
    end
    object DBText2: TDBText
      Left = 464
      Top = 8
      Width = 65
      Height = 17
      DataField = 'AdChangeTypeName'
      DataSource = DataSource
      TransParent = True
    end
    object DBText3: TDBText
      Left = 120
      Top = 24
      Width = 65
      Height = 17
      DataField = 'DepositaryName'
      DataSource = DataSource
      TransParent = True
    end
    object DBText4: TDBText
      Left = 464
      Top = 24
      Width = 65
      Height = 17
      DataField = 'UseStatusName'
      DataSource = DataSource
      TransParent = True
    end
  end
  inherited Pnl_Body: TPanel
    Width = 707
    Height = 354
    inherited Image3: TImage
      Width = 707
      Height = 354
    end
    inherited DBGridEh: TDBGridEh
      Width = 707
      Height = 354
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      FrozenCols = 2
      Columns = <
        Item
          FieldName = 'AssetCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '固定资产编号'
          Width = 80
          KeyList.Strings = ()
        end
        Item
          FieldName = 'AssetName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '固定资产名称'
          Width = 150
          KeyList.Strings = ()
        end
        Item
          FieldName = 'UomCode'
          PickList.Strings = ()
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'UomName'
          PickList.Strings = ()
          Width = 54
          KeyList.Strings = ()
        end
        Item
          FieldName = 'AssetSujectCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '固定资产科目代码'
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'KmName1'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '固定资产科目名称'
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DepreciationSubjectCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '累计折旧科目代码'
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'KmName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '累计折旧科目名称'
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'AssetTypeCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '固定资产类别代码'
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'AssetTypeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '固定资产类别名称'
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DepositaryCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '存放地点代码'
          Width = 80
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DepositaryName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '存放地点名称'
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InAccountDate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '入帐日期'
          Width = 80
          KeyList.Strings = ()
        end
        Item
          FieldName = 'StartUseDate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '开始使用日期'
          Width = 80
          KeyList.Strings = ()
        end
        Item
          FieldName = 'AdChangeTypeCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '增减方式代码'
          Width = 80
          KeyList.Strings = ()
        end
        Item
          FieldName = 'AdChangeTypeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '增减方式名称'
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'UseStatusCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '使用情况代码'
          Width = 80
          KeyList.Strings = ()
        end
        Item
          FieldName = 'UseStatusName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '使用情况名称'
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CurrencyCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '货币代码'
          Width = 60
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CURRENCYName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '货币名称'
          Width = 80
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ExchangeRate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '汇率'
          Width = 60
          KeyList.Strings = ()
        end
        Item
          FieldName = 'FirstAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '原值'
          Width = 80
          KeyList.Strings = ()
        end
        Item
          FieldName = 'FirstFAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '本位币原值'
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DepreciationWay'
          PickList.Strings = (
            '平均年限法'
            '工作量法'
            '双倍余额递减法'
            '年数总和法'
            '不计提折旧法')
          Title.Alignment = taCenter
          Title.Caption = '折旧方法'
          Width = 80
          KeyList.Strings = (
            '1'
            '2 '
            '3'
            '4 '
            '5')
        end
        Item
          FieldName = 'IntendingPeriod'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '预计使用期间'
          Width = 80
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DraffRate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '净残值率'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DraffValue'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '净残值'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PeriodRate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '月折旧率'
          Width = 80
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PeriodValue'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '月折旧额'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'UsedPeriod'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '已计提月份'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DepreciationValue'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '累计折旧'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'NetValue'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '净值'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Intending'
          PickList.Strings = ()
          Title.Alignment = taCenter