udmcost.dfm

成本系统三层结构源码 开发工具：Delphi 7.0+SQLServer 2005 主要技术：Midas、COM+ 所用第三方控件： FastReport V2.47 D7 Inforp

object DMCost: TDMCost
  OldCreateOrder = False
  Left = 200
  Top = 112
  Height = 288
  Width = 447
  object CVoucherMas: TClientDataSet
    Aggregates = <>
    PacketRecords = 500
    Params = <>
    ProviderName = 'PVoucher'
    RemoteServer = DM.SDM1
    Left = 27
    Top = 8
    object CVoucherMasYear_NO: TIntegerField
      FieldName = 'Year_NO'
    end
    object CVoucherMasMonth_NO: TIntegerField
      FieldName = 'Month_NO'
    end
    object CVoucherMasVou_ID: TStringField
      FieldName = 'Vou_ID'
      Size = 10
    end
    object CVoucherMasHand_ID: TIntegerField
      FieldName = 'Hand_ID'
      ProviderFlags = [pfInUpdate]
    end
    object CVoucherMasVen_abbr: TStringField
      FieldName = 'Ven_abbr'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object CVoucherMasOrd_No: TStringField
      FieldName = 'Ord_No'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object CVoucherMasTotal_Money: TFloatField
      FieldName = 'Total_Money'
      ProviderFlags = [pfInUpdate]
    end
    object CVoucherMasRemark: TStringField
      FieldName = 'Remark'
      ProviderFlags = [pfInUpdate]
      Size = 200
    end
    object CVoucherMasBigMoney: TStringField
      DisplayLabel = #37329#39069
      FieldKind = fkCalculated
      FieldName = 'BigMoney'
      Size = 100
      Calculated = True
    end
    object CVoucherMasQVoucherSub: TDataSetField
      FieldName = 'QVoucherSub'
    end
  end
  object CVoucherSub: TClientDataSet
    Aggregates = <
      item
        AggregateName = 'total_Debit_Money'
        Expression = 'sum(Debit_Money)'
        Visible = False
      end
      item
        AggregateName = 'total_Credit_Money'
        Expression = 'sum(Credit_Money)'
        Visible = False
      end>
    AggregatesActive = True
    DataSetField = CVoucherMasQVoucherSub
    FieldDefs = <
      item
        Name = 'Year_NO'
        DataType = ftInteger
      end
      item
        Name = 'Month_NO'
        DataType = ftInteger
      end
      item
        Name = 'Vou_ID'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'FS_NO'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'AC_Name'
        DataType = ftString
        Size = 100
      end
      item
        Name = 'Debit_Or_Credit'
        DataType = ftBoolean
      end
      item
        Name = 'Debit_Money'
        DataType = ftFloat
      end
      item
        Name = 'Credit_Money'
        DataType = ftFloat
      end
      item
        Name = 'remark'
        DataType = ftString
        Size = 200
      end>
    IndexDefs = <>
    PacketRecords = 500
    Params = <>
    StoreDefs = True
    Left = 27
    Top = 67
    object CVoucherSubRecNo: TIntegerField
      DisplayLabel = #24207#21495
      DisplayWidth = 4
      FieldKind = fkCalculated
      FieldName = 'RecNo'
      Calculated = True
    end
    object CVoucherSubYear_NO: TIntegerField
      DisplayLabel = #24180#24230
      DisplayWidth = 4
      FieldName = 'Year_NO'
      Visible = False
      DisplayFormat = '#'#24180
    end
    object CVoucherSubMonth_NO: TIntegerField
      DisplayLabel = #26376#20221
      DisplayWidth = 2
      FieldName = 'Month_NO'
      Visible = False
      DisplayFormat = '#'#26376
    end
    object CVoucherSubVou_ID: TStringField
      DisplayLabel = #20973#35777#21495
      DisplayWidth = 4
      FieldName = 'Vou_ID'
      Visible = False
      Size = 10
    end
    object CVoucherSubFS_NO: TStringField
      DisplayLabel = #31185#30446#20195#30721
      DisplayWidth = 10
      FieldName = 'FS_NO'
      Size = 30
    end
    object CVoucherSubFS_Name: TStringField
      DisplayLabel = #31185#30446#21517#31216
      DisplayWidth = 14
      FieldName = 'Ac_Name'
      ProviderFlags = []
      Size = 100
    end
    object CVoucherSubDebit_Or_Credit: TBooleanField
      DisplayLabel = #20511#36151#26631#24535
      FieldName = 'Debit_Or_Credit'
      ProviderFlags = [pfInUpdate]
      Visible = False
    end
    object CVoucherSubDebit_Money: TFloatField
      DisplayLabel = #20511#26041#37329#39069
      FieldName = 'Debit_Money'
      ProviderFlags = [pfInUpdate]
      DisplayFormat = '#,###'
    end
    object CVoucherSubCredit_Money: TFloatField
      DisplayLabel = #36151#26041#37329#39069
      FieldName = 'Credit_Money'
      ProviderFlags = [pfInUpdate]
      DisplayFormat = '#,###'
    end
    object CVoucherSubremark: TStringField
      DisplayLabel = #22791#27880
      DisplayWidth = 4
      FieldName = 'remark'
      ProviderFlags = [pfInUpdate]
      Visible = False
      Size = 200
    end
    object CVoucherSubPageNo: TIntegerField
      FieldKind = fkCalculated
      FieldName = 'PageNo'
      Calculated = True
    end
    object CVoucherSubPageCount: TIntegerField
      FieldKind = fkCalculated
      FieldName = 'PageCount'
      Calculated = True
    end
    object CVoucherSubAction: TStringField
      FieldKind = fkCalculated
      FieldName = 'Action'
      Size = 10
      Calculated = True
    end
    object CVoucherSubAmount1: TAggregateField
      AutoGenerateValue = arDefault
      FieldName = 'Amount1'
      Active = True
      Expression = 'Sum(Debit_Money) '
    end
    object CVoucherSubAmount2: TAggregateField
      FieldName = 'Amount2'
      Active = True
      Expression = 'Sum(Credit_Money)'
    end
  end
  object CFinance: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'PFinanceLock'
    RemoteServer = DM.SDM2
    OnCalcFields = CFinanceCalcFields
    Left = 88
    Top = 9
    object CFinanceCostMonth: TIntegerField
      DisplayLabel = #20250#35745#26399#38388
      FieldKind = fkCalculated
      FieldName = 'CostMonth'
      ProviderFlags = []
      DisplayFormat = #31532'#'#26399
      Calculated = True
    end
    object CFinanceYearNo: TSmallintField
      DisplayLabel = #24180#24230
      FieldName = 'YearNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Visible = False
    end
    object CFinanceMonthNo: TSmallintField
      DisplayLabel = #26376#20221
      FieldName = 'MonthNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Visible = False
    end
    object CFinanceStatus: TBooleanField
      DisplayLabel = #38145#23450
      FieldName = 'Status'
      ProviderFlags = [pfInUpdate]
    end
    object CFinanceFinished: TBooleanField
      DisplayLabel = #23436#25104
      FieldName = 'Finished'
      ProviderFlags = [pfInUpdate]
    end
    object CFinanceConfirmer: TStringField
      DisplayLabel = #35760#24080#32773
      FieldName = 'Confirmer'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object CFinanceConfirmDate: TDateTimeField
      DisplayLabel = #35760#24080#26085#26399
      FieldName = 'ConfirmDate'
      ProviderFlags = [pfInUpdate]
    end
    object CFinanceRemark: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'Remark'
      ProviderFlags = [pfInUpdate]
      Size = 100
    end
  end
  object CCostDetail: TClientDataSet
    Aggregates = <>
    AutoCalcFields = False
    FieldDefs = <>
    IndexDefs = <>
    Params = <
      item
        DataType = ftDateTime
        Name = '@Date'
        ParamType = ptInput
        Size = -1
      end
      item
        DataType = ftString
        Name = '@OrderNo'
        ParamType = ptInput
        Size = 8000
      end>
    ProviderName = 'PCostDetail'
    RemoteServer = DM.SDM2
    StoreDefs = True
    Left = 148
    Top = 67
  end
  object CStatCost: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftDateTime
        Name = '@Date'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = '@OrderNo'
        ParamType = ptInput
      end>
    ProviderName = 'PStatCost'
    RemoteServer = DM.SDM2
    Left = 88
    Top = 67
    object CStatCostOrderNo: TWideStringField
      DisplayLabel = #35746#21333#21495
      FieldName = 'OrderNo'
      Size = 15
    end
    object CStatCostODStatus: TStringField
      DisplayLabel = #29366#24577
      FieldName = 'ODStatus'
      ReadOnly = True
      Size = 4
    end
    object CStatCostCost01: TFloatField
      FieldName = 'Cost01'
      ReadOnly = True
      DisplayFormat = '#,###,###,###.##'
    end
    object CStatCostCost02: TFloatField
      FieldName = 'Cost02'
      ReadOnly = True
      DisplayFormat = '#,###,###,###.##'
    end
    object CStatCostCost03: TFloatField
      FieldName = 'Cost03'
      ReadOnly = True
      DisplayFormat = '#,###,###,###.##'
    end
    object CStatCostCost04: TFloatField
      FieldName = 'Cost04'
      ReadOnly = True
      DisplayFormat = '#,###,###,###.##'
    end
    object CStatCostCost05: TFloatField
      FieldName = 'Cost05'
      ReadOnly = True
      DisplayFormat = '#,###,###,###.##'
    end
    object CStatCostCost06: TFloatField
      FieldName = 'Cost06'
      ReadOnly = True
      DisplayFormat = '#,###,###,###.##'
    end
    object CStatCostCost07: TFloatField
      FieldName = 'Cost07'
      ReadOnly = True
      DisplayFormat = '#,###,###,###.##'
    end
    object CStatCostCost08: TFloatField
      FieldName = 'Cost08'
      ReadOnly = True
      DisplayFormat = '#,###,###,###.##'
    end
    object CStatCostCost09: TFloatField
      FieldName = 'Cost09'
      ReadOnly = True
      DisplayFormat = '#,###,###,###.##'
    end
    object CStatCostCost10: TFloatField
      FieldName = 'Cost10'
      ReadOnly = True
      DisplayFormat = '#,###,###,###.##'
    end
    object CStatCostCost11: TFloatField
      FieldName = 'Cost11'
      ReadOnly = True
      DisplayFormat = '#,###,###,###.##'
    end
    object CStatCostCost12: TFloatField
      FieldName = 'Cost12'
      ReadOnly = True
      DisplayFormat = '#,###,###,###.##'
    end
    object CStatCostCost13: TFloatField
      FieldName = 'Cost13'
      ReadOnly = True
      DisplayFormat = '#,###,###,###.##'
    end
    object CStatCostCost14: TFloatField
      FieldName = 'Cost14'
      ReadOnly = True
      DisplayFormat = '#,###,###,###.##'
    end
    object CStatCostCost15: TFloatField
      FieldName = 'Cost15'
      ReadOnly = True
      DisplayFormat = '#,###,###,###.##'
    end
    object CStatCostCost16: TFloatField
      FieldName = 'Cost16'
      ReadOnly = True
      DisplayFormat = '#,###,###,###.##'
    end
    object CStatCostCost17: TFloatField
      FieldName = 'Cost17'
      ReadOnly = True
      DisplayFormat = '#,###,###,###.##'
    end
    object CStatCostCost18: TFloatField
      FieldName = 'Cost18'
      ReadOnly = True
      DisplayFormat = '#,###,###,###.##'
    end
    object CStatCostCost19: TFloatField
      FieldName = 'Cost19'
      ReadOnly = True
      DisplayFormat = '#,###,###,###.##'
    end
    object CStatCostCost20: TFloatField
      FieldName = 'Cost20'
      ReadOnly = True
      DisplayFormat = '#,###,###,###.##'
    end
    object CStatCostCost21: TFloatField
      FieldName = 'Cost21'
      ReadOnly = True
      DisplayFormat = '#,###,###,###.##'
    end
    object CStatCostCost22: TFloatField
      FieldName = 'Cost22'
      ReadOnly = True
      DisplayFormat = '#,###,###,###.##'
    end
    object CStatCostCost23: TFloatField
      FieldName = 'Cost23'
      ReadOnly = True
      DisplayFormat = '#,###,###,###.##'
    end
    object CStatCostCost24: TFloatField
      FieldName = 'Cost24'
      ReadOnly = True
      DisplayFormat = '#,###,###,###.##'
    end
    object CStatCostCost25: TFloatField
      FieldName = 'Cost25'
      ReadOnly = True
      DisplayFormat = '#,###,###,###.##'
    end
    object CStatCostCost26: TFloatField
      FieldName = 'Cost26'
      ReadOnly = True
      DisplayFormat = '#,###,###,###.##'
    end
    object CStatCostCost27: TFloatField
      FieldName = 'Cost27'
      ReadOnly = True
      DisplayFormat = '#,###,###,###.##'
    end
    object CStatCostCost28: TFloatField
      FieldName = 'Cost28'
      ReadOnly = True
      DisplayFormat = '#,###,###,###.##'
    end
    object CStatCostCost29: TFloatField
      FieldName = 'Cost29'
      ReadOnly = True
      DisplayFormat = '#,###,###,###.##'
    end
    object CStatCostCost30: TFloatField
      FieldName = 'Cost30'
      ReadOnly = True
      DisplayFormat = '#,###,###,###.##'
    end
    object CStatCostCost31: TFloatField
      FieldName = 'Cost31'
      ReadOnly = True
      DisplayFormat = '#,###,###,###.##'
    end
    object CStatCostCost32: TFloatField
      FieldName = 'Cost32'
      ReadOnly = True
      DisplayFormat = '#,###,###,###.##'
    end
    object CStatCostCost33: TFloatField
      FieldName = 'Cost33'
      ReadOnly = True
      DisplayFormat = '#,###,###,###.##'
    end
    object CStatCostCost34: TFloatField
      FieldName = 'Cost34'
      ReadOnly = True
      DisplayFormat = '#,###,###,###.##'
    end
    object CStatCostCost35: TFloatField
      FieldName = 'Cost35'
      ReadOnly = True
      DisplayFormat = '#,###,###,###.##'
    end
    object CStatCostCost36: TFloatField
      FieldName = 'Cost36'
      ReadOnly = True
      DisplayFormat = '#,###,###,###.##'
    end
    object CStatCostCost37: TFloatField
      FieldName = 'Cost37'
      ReadOnly = True
      DisplayFormat = '#,###,###,###.##'
    end
    object CStatCostCost38: TFloatField
      FieldName = 'Cost38'
      ReadOnly = True
      DisplayFormat = '#,###,###,###.##'
    end
    object CStatCostCost39: TFloatField
      FieldName = 'Cost39'
      ReadOnly = True
      DisplayFormat = '#,###,###,###.##'
    end
    object CStatCostCost40: TFloatField
      FieldName = 'Cost40'
      ReadOnly = True
      DisplayFormat = '#,###,###,###.##'
    end
    object CStatCostYearNo: TIntegerField
      DisplayLabel = #24180#24230
      FieldName = 'YearNo'
      ReadOnly = True
      Visible = False
    end
    object CStatCostMonthNo: TIntegerField
      DisplayLabel = #26376#20221
      FieldName = 'MonthNo'
      ReadOnly = True
      Visible = False
    end
    object CStatCostTotalCost: TFloatField
      DisplayLabel = #21512#35745#37329#39069
      FieldName = 'TotalCost'
      ReadOnly = True
      DisplayFormat = '#,###,###,###.##'
    end
  end
  object CCostInitial: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftDateTime
        Name = '@StartDate'
        ParamType = ptInput
        Size = -1
      end>
    ProviderName = 'PCostInitial'
    RemoteServer = DM.SDM2
    Left = 148
    Top = 8
    object CCostInitialOrderNO: TStringField
      DisplayLabel = #35746#21333#21495
      FieldName = 'OrderNO'
      Size = 15
    end