ad_qry_totaldpnasttypesubject.dfm

一个MRPII系统源代码版本

inherited Frm_Ad_Qry_TotalDpnAstTypeSubject: TFrm_Ad_Qry_TotalDpnAstTypeSubject
  Left = 242
  Top = 144
  Caption = '折旧计提汇总表_按资产类别费用科目'
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Caption = '折旧计提汇总表_按资产类别费用科目'
  end
  inherited Pnl_Head: TPanel
    inherited Lbl_Order: TLabel
      Width = 72
      Caption = '资产类别代码'
    end
  end
  inherited Pnl_Body: TPanel
    inherited DBGridEh: TDBGridEh
      FooterRowCount = 1
      SumList.Active = True
      Columns = <
        Item
          FieldName = 'AssetTypeCode'
          PickList.Strings = ()
          Title.Caption = '资产类别代码'
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'AssetTypeName'
          PickList.Strings = ()
          Title.Caption = '资产类别名称'
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'AssetTypeFlag'
          PickList.Strings = ()
          Title.Caption = '资产类型标识'
          Width = 164
          Footer.Color = clYellow
          Footer.ValueType = fvtStaticText
          Footer.Value = '合计'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'KMCode'
          PickList.Strings = ()
          Title.Caption = '费用科目代码'
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'KmName'
          PickList.Strings = ()
          Title.Caption = '费用科目名称'
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'KmFlag'
          PickList.Strings = ()
          Title.Caption = '费用科目标识'
          Width = 219
          Footer.Color = clYellow
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DepreciationMonth'
          PickList.Strings = ()
          Title.Caption = '月份'
          Width = 101
          Footer.Color = clYellow
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SumDepreciation'
          PickList.Strings = ()
          Title.Caption = '折旧额'
          Width = 130
          Footer.Color = clYellow
          Footer.ValueType = fvtSum
          Footer.FieldName = 'SumDepreciation'
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Main: TAdoQuery
    ConnectionString = ''
    object AdoQry_MainAssetTypeCode: TStringField
      FieldName = 'AssetTypeCode'
      Origin = 'Ad_AssetType'
      Size = 4
    end
    object AdoQry_MainAssetTypeName: TStringField
      FieldName = 'AssetTypeName'
      Origin = 'Ad_AssetType'
      Size = 60
    end
    object AdoQry_MainAssetTypeFlag: TStringField
      FieldName = 'AssetTypeFlag'
      ReadOnly = True
      Size = 65
    end
    object AdoQry_MainKMCode: TStringField
      FieldName = 'KMCode'
      Origin = 'Ad_Depreciation_Subject'
      Size = 15
    end
    object AdoQry_MainKmName: TStringField
      FieldName = 'KmName'
      Origin = 'Gl_AccountSubject'
      Size = 40
    end
    object AdoQry_MainKmFlag: TStringField
      FieldName = 'KmFlag'
      ReadOnly = True
      Size = 56
    end
    object AdoQry_MainDepreciationMonth: TStringField
      FieldName = 'DepreciationMonth'
      Origin = 'Ad_Depreciation_Subject'
      Size = 7
    end
    object AdoQry_MainSumDepreciation: TFloatField
      FieldName = 'SumDepreciation'
      ReadOnly = True
    end
  end
end