ad_enter_addassetcard.dfm

一个MRPII系统源代码版本

inherited Frm_Ad_Enter_AddAssetCard: TFrm_Ad_Enter_AddAssetCard
  Left = 160
  Top = 126
  Caption = #36164#20135#22686#21152
  ClientHeight = 494
  ClientWidth = 707
  FormStyle = fsNormal
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 707
  end
  inherited Pnl_Title: TPanel
    Width = 707
    Caption = #36164#20135#22686#21152
    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 = #22266#23450#36164#20135#32534#21495
    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 = #22266#23450#36164#20135#31867#21035#21517#31216':'
      Transparent = True
    end
    object Label2: TLabel
      Left = 40
      Top = 24
      Width = 78
      Height = 12
      Caption = #23384#25918#22320#28857#21517#31216':'
      Transparent = True
    end
    object Label3: TLabel
      Left = 384
      Top = 8
      Width = 78
      Height = 12
      Caption = #22686#20943#26041#24335#21517#31216':'
      Transparent = True
    end
    object Label4: TLabel
      Left = 384
      Top = 24
      Width = 78
      Height = 12
      Caption = #20351#29992#29366#24577#21517#31216':'
      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 = 358
    inherited Image3: TImage
      Width = 707
      Height = 358
    end
    inherited DBGridEh: TDBGridEh
      Width = 707
      Height = 358
      FrozenCols = 2
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      Columns = <
        item
          EditButtons = <>
          FieldName = 'AssetCode'
          Footers = <>
          Title.Caption = #22266#23450#36164#20135#32534#21495
          Width = 80
        end
        item
          EditButtons = <>
          FieldName = 'AssetName'
          Footers = <>
          Title.Caption = #22266#23450#36164#20135#21517#31216
          Width = 150
        end
        item
          EditButtons = <>
          FieldName = 'UomCode'
          Footers = <>
          Visible = False
        end
        item
          EditButtons = <>
          FieldName = 'UomName'
          Footers = <>
          Width = 54
        end
        item
          EditButtons = <>
          FieldName = 'AssetSujectCode'
          Footers = <>
          Title.Caption = #22266#23450#36164#20135#31185#30446#20195#30721
          Width = 100
        end
        item
          EditButtons = <>
          FieldName = 'KmName1'
          Footers = <>
          Title.Caption = #22266#23450#36164#20135#31185#30446#21517#31216
          Width = 100
        end
        item
          EditButtons = <>
          FieldName = 'DepreciationSubjectCode'
          Footers = <>
          Title.Caption = #32047#35745#25240#26087#31185#30446#20195#30721
          Width = 100
        end
        item
          EditButtons = <>
          FieldName = 'KmName'
          Footers = <>
          Title.Caption = #32047#35745#25240#26087#31185#30446#21517#31216
          Width = 100
        end
        item
          EditButtons = <>
          FieldName = 'AssetTypeCode'
          Footers = <>
          Title.Caption = #22266#23450#36164#20135#31867#21035#20195#30721
          Width = 100
        end
        item
          EditButtons = <>
          FieldName = 'AssetTypeName'
          Footers = <>
          Title.Caption = #22266#23450#36164#20135#31867#21035#21517#31216
          Width = 100
        end
        item
          EditButtons = <>
          FieldName = 'DepositaryCode'
          Footers = <>
          Title.Caption = #23384#25918#22320#28857#20195#30721
          Width = 80
        end
        item
          EditButtons = <>
          FieldName = 'DepositaryName'
          Footers = <>
          Title.Caption = #23384#25918#22320#28857#21517#31216
          Width = 100
        end
        item
          EditButtons = <>
          FieldName = 'InAccountDate'
          Footers = <>
          Title.Caption = #20837#24080#26085#26399
          Width = 80
        end
        item
          EditButtons = <>
          FieldName = 'StartUseDate'
          Footers = <>
          Title.Caption = #24320#22987#20351#29992#26085#26399
          Width = 80
        end
        item
          EditButtons = <>
          FieldName = 'AdChangeTypeCode'
          Footers = <>
          Title.Caption = #22686#20943#26041#24335#20195#30721
          Width = 80
        end
        item
          EditButtons = <>
          FieldName = 'AdChangeTypeName'
          Footers = <>
          Title.Caption = #22686#20943#26041#24335#21517#31216
          Width = 100
        end
        item
          EditButtons = <>
          FieldName = 'UseStatusCode'
          Footers = <>
          Title.Caption = #20351#29992#24773#20917#20195#30721
          Width = 80
        end
        item
          EditButtons = <>
          FieldName = 'UseStatusName'
          Footers = <>
          Title.Caption = #20351#29992#24773#20917#21517#31216
          Width = 100
        end
        item
          EditButtons = <>
          FieldName = 'CurrencyCode'
          Footers = <>
          Title.Caption = #36135#24065#20195#30721
          Width = 60
        end
        item
          EditButtons = <>
          FieldName = 'CURRENCYName'
          Footers = <>
          Title.Caption = #36135#24065#21517#31216
          Width = 80
        end
        item
          EditButtons = <>
          FieldName = 'ExchangeRate'
          Footers = <>
          Title.Caption = #27719#29575
          Width = 60
        end
        item
          EditButtons = <>
          FieldName = 'FirstAmount'
          Footers = <>
          Title.Caption = #21407#20540
          Width = 80
        end
        item
          EditButtons = <>
          FieldName = 'FirstFAmount'
          Footers = <>
          Title.Caption = #26412#20301#24065#21407#20540
          Width = 100
        end
        item
          EditButtons = <>
          FieldName = 'DepreciationWay'
          Footers = <>
          KeyList.Strings = (
            '1'
            '2 '
            '3'
            '4 '
            '5')
          PickList.Strings = (
            #24179#22343#24180#38480#27861
            #24037#20316#37327#27861
            #21452#20493#20313#39069#36882#20943#27861
            #24180#25968#24635#21644#27861
            #19981#35745#25552#25240#26087#27861)
          Title.Caption = #25240#26087#26041#27861
          Width = 80
        end
        item
          EditButtons = <>
          FieldName = 'IntendingPeriod'
          Footers = <>
          Title.Caption = #39044#35745#20351#29992#26399#38388
          Width = 80
        end
        item
          EditButtons = <>
          FieldName = 'DraffRate'
          Footers = <>
          Title.Caption = #20928#27531#20540#29575
        end
        item
          EditButtons = <>
          FieldName = 'DraffValue'
          Footers = <>
          Title.Caption = #20928#27531#20540
        end
        item
          EditButtons = <>
          FieldName = 'PeriodRate'
          Footers = <>
          Title.Caption = #26376#25240#26087#29575
          Width = 80
        end
        item
          EditButtons = <>
          FieldName = 'PeriodValue'
          Footers = <>
          Title.Caption = #26376#25240#26087#39069
        end
        item
          EditButtons = <>
          FieldName = 'UsedPeriod'
          Footers = <>
          Title.Caption = #24050#35745#25552#26376#20221
        end
        item
          EditButtons = <>
          FieldName = 'DepreciationValue'
          Footers = <>
          Title.Caption = #32047#35745#25240#26087
        end
        item
          EditButtons = <>
          FieldName = 'NetValue'
          Footers = <>
          Title.Caption = #20928#20540
        end
        item
          EditButtons = <>
          FieldName = 'Intending'
          Footers = <>
          Title.Caption = #24037#20316#24635#37327
          Width = 100
        end
        item
          EditButtons = <>