udmcost.dfm

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

    object CCostInitialYearNo: TIntegerField
      DisplayLabel = #24180#24230
      FieldName = 'YearNo'
    end
    object CCostInitialMonthNo: TIntegerField
      DisplayLabel = #26376#20221
      FieldName = 'MonthNo'
    end
    object CCostInitialCost01: TFloatField
      FieldName = 'Cost01'
    end
    object CCostInitialCost02: TFloatField
      FieldName = 'Cost02'
    end
    object CCostInitialCost03: TFloatField
      FieldName = 'Cost03'
    end
    object CCostInitialCost04: TFloatField
      FieldName = 'Cost04'
    end
    object CCostInitialCost05: TFloatField
      FieldName = 'Cost05'
    end
    object CCostInitialCost06: TFloatField
      FieldName = 'Cost06'
    end
    object CCostInitialCost07: TFloatField
      FieldName = 'Cost07'
    end
    object CCostInitialCost08: TFloatField
      FieldName = 'Cost08'
    end
    object CCostInitialCost09: TFloatField
      FieldName = 'Cost09'
    end
    object CCostInitialCost10: TFloatField
      FieldName = 'Cost10'
    end
    object CCostInitialCost11: TFloatField
      FieldName = 'Cost11'
    end
    object CCostInitialCost12: TFloatField
      FieldName = 'Cost12'
    end
    object CCostInitialCost13: TFloatField
      FieldName = 'Cost13'
    end
    object CCostInitialCost14: TFloatField
      FieldName = 'Cost14'
    end
    object CCostInitialCost15: TFloatField
      FieldName = 'Cost15'
    end
    object CCostInitialCost16: TFloatField
      FieldName = 'Cost16'
    end
    object CCostInitialCost17: TFloatField
      FieldName = 'Cost17'
    end
    object CCostInitialCost18: TFloatField
      FieldName = 'Cost18'
    end
    object CCostInitialCost19: TFloatField
      FieldName = 'Cost19'
    end
    object CCostInitialCost20: TFloatField
      FieldName = 'Cost20'
    end
    object CCostInitialCost21: TFloatField
      FieldName = 'Cost21'
    end
    object CCostInitialCost22: TFloatField
      FieldName = 'Cost22'
    end
    object CCostInitialCost23: TFloatField
      FieldName = 'Cost23'
    end
    object CCostInitialCost24: TFloatField
      FieldName = 'Cost24'
    end
    object CCostInitialCost25: TFloatField
      FieldName = 'Cost25'
    end
    object CCostInitialCost26: TFloatField
      FieldName = 'Cost26'
    end
    object CCostInitialCost27: TFloatField
      FieldName = 'Cost27'
    end
    object CCostInitialCost28: TFloatField
      FieldName = 'Cost28'
    end
    object CCostInitialCost29: TFloatField
      FieldName = 'Cost29'
    end
    object CCostInitialCost30: TFloatField
      FieldName = 'Cost30'
    end
    object CCostInitialCost31: TFloatField
      FieldName = 'Cost31'
    end
    object CCostInitialCost32: TFloatField
      FieldName = 'Cost32'
    end
    object CCostInitialCost33: TFloatField
      FieldName = 'Cost33'
    end
    object CCostInitialCost34: TFloatField
      FieldName = 'Cost34'
    end
    object CCostInitialCost35: TFloatField
      FieldName = 'Cost35'
    end
    object CCostInitialCost36: TFloatField
      FieldName = 'Cost36'
    end
    object CCostInitialCost37: TFloatField
      FieldName = 'Cost37'
    end
    object CCostInitialCost38: TFloatField
      FieldName = 'Cost38'
    end
    object CCostInitialCost39: TFloatField
      FieldName = 'Cost39'
    end
    object CCostInitialCost40: TFloatField
      FieldName = 'Cost40'
    end
    object CCostInitialTotalCost: TFloatField
      DisplayLabel = #21512#35745
      FieldName = 'TotalCost'
      ReadOnly = True
    end
    object CCostInitialLogTime: TDateTimeField
      DisplayLabel = #35760#24405#26102#38388
      FieldName = 'LogTime'
    end
    object CCostInitialLogApp: TStringField
      DisplayLabel = #39044#30041#39033
      FieldName = 'LogApp'
    end
  end
  object CCostReport: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Precision = 10
        Name = '@Flag'
        ParamType = ptInput
      end
      item
        DataType = ftDateTime
        Name = '@Date'
        ParamType = ptInput
      end>
    ProviderName = 'PCostReport'
    RemoteServer = DM.SDM2
    Left = 213
    Top = 67
  end
  object COrderFinish: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'POrderFinish'
    RemoteServer = DM.SDM1
    Left = 213
    Top = 8
    object COrderFinishOrderNo: TStringField
      DisplayLabel = #35746#21333#21495
      FieldName = 'OrderNo'
      Size = 15
    end
    object COrderFinishCustomerId: TStringField
      DisplayLabel = #23458#25143#32534#21495
      FieldName = 'CustomerId'
      Size = 15
    end
    object COrderFinishShortName: TStringField
      DisplayLabel = #23458#25143#31616#31216
      DisplayWidth = 10
      FieldName = 'ShortName'
    end
    object COrderFinishFullName: TStringField
      DisplayLabel = #23458#25143#20840#31216
      DisplayWidth = 20
      FieldName = 'FullName'
      Size = 100
    end
    object COrderFinishOrderDate: TDateTimeField
      DisplayLabel = #19979#21333#26085#26399
      FieldName = 'OrderDate'
    end
    object COrderFinishPoNo: TStringField
      DisplayLabel = #23458#25143'PO'
      DisplayWidth = 6
      FieldName = 'PoNo'
    end
    object COrderFinishStatus: TStringField
      DisplayLabel = #29366#24577
      FieldName = 'Status'
      Visible = False
      FixedChar = True
      Size = 1
    end
    object COrderFinishStatus1: TStringField
      DisplayLabel = #35746#21333#29366#24577
      FieldName = 'Status1'
      ReadOnly = True
      Size = 4
    end
    object COrderFinishShipDate: TDateTimeField
      DisplayLabel = #35745#21010#20132#36135#26085#26399
      FieldName = 'ShipDate'
    end
    object COrderFinishShipedDate: TDateTimeField
      DisplayLabel = #23454#38469#20132#36135#26085#26399
      FieldName = 'ShipedDate'
    end
  end
  object CExtraMas: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftDateTime
        Name = '@DateFrm'
        ParamType = ptInput
        Size = -1
      end
      item
        DataType = ftDateTime
        Name = '@DateTo'
        ParamType = ptInput
        Size = -1
      end>
    ProviderName = 'PExtra'
    RemoteServer = DM.SDM1
    OnNewRecord = CExtraMasNewRecord
    Left = 27
    Top = 128
    object CExtraMasExtraNo: TStringField
      DisplayLabel = #21333#21495
      DisplayWidth = 10
      FieldName = 'ExtraNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Size = 15
    end
    object CExtraMasStatus: TStringField
      DisplayLabel = #29366#24577
      FieldName = 'Status'
      Visible = False
      FixedChar = True
      Size = 1
    end
    object CExtraMasCostDate: TDateTimeField
      DisplayLabel = #25104#26412#26085#26399
      FieldName = 'CostDate'
    end
    object CExtraMasDeptID: TStringField
      DisplayLabel = #37096#38376#32534#21495
      FieldName = 'DeptID'
      Visible = False
      Size = 15
    end
    object CExtraMasDeptName: TStringField
      DisplayLabel = #37096#38376#21517#31216
      DisplayWidth = 10
      FieldKind = fkLookup
      FieldName = 'DeptName'
      LookupDataSet = DMBase.Cdept
      LookupKeyFields = 'DeptID'
      LookupResultField = 'DeptName'
      KeyFields = 'DeptID'
      Lookup = True
    end
    object CExtraMasCurrencyID: TStringField
      DisplayLabel = #36135#24065#32534#21495
      FieldName = 'CurrencyID'
      Visible = False
      Size = 4
    end
    object CExtraMasRate: TFloatField
      DisplayLabel = #27719#29575
      FieldName = 'Rate'
      Visible = False
    end
    object CExtraMasTotalMoney: TFloatField
      DisplayLabel = #24635#37329#39069
      FieldName = 'TotalMoney'
    end
    object CExtraMasRemark: TStringField
      DisplayLabel = #22791#27880
      DisplayWidth = 10
      FieldName = 'Remark'
      Size = 200
    end
    object CExtraMasCreater: TStringField
      DisplayLabel = #21019#24314#20154
      FieldName = 'Creater'
      Size = 15
    end
    object CExtraMasCreateDate: TDateTimeField
      DisplayLabel = #21019#24314#26085#26399
      FieldName = 'CreateDate'
    end
    object CExtraMasUpdater: TStringField
      DisplayLabel = #26356#26032#20154
      FieldName = 'Updater'
      Size = 15
    end
    object CExtraMasUpdateDate: TWideStringField
      DisplayLabel = #26356#26032#26085#26399
      FieldName = 'UpdateDate'
      Size = 10
    end
    object CExtraMasApprover: TStringField
      DisplayLabel = #25209#26680#20154
      FieldName = 'Approver'
      Size = 15
    end
    object CExtraMasApproveDate: TDateTimeField
      DisplayLabel = #25209#26680#26085#26399
      FieldName = 'ApproveDate'
    end
    object CExtraMasConfirmer: TStringField
      DisplayLabel = #35760#24080#20154
      FieldName = 'Confirmer'
      Size = 15
    end
    object CExtraMasConfirmDate: TDateTimeField
      DisplayLabel = #35760#24080#26085#26399
      FieldName = 'ConfirmDate'
    end
    object CExtraMasQExtraSub: TDataSetField
      DisplayLabel = '<'#26126#32454#39033'>'
      FieldName = 'QExtraSub'
      Visible = False
    end
  end
  object CExtraSub: TClientDataSet
    Aggregates = <>
    DataSetField = CExtraMasQExtraSub
    Params = <>
    OnNewRecord = CExtraSubNewRecord
    Left = 88
    Top = 128
    object CExtraSubExtraNo: TStringField
      DisplayLabel = #21333#21495
      FieldName = 'ExtraNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Visible = False
      Size = 15
    end
    object CExtraSubOrderNo: TStringField
      DisplayLabel = #35746#21333#21495
      DisplayWidth = 10
      FieldName = 'OrderNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      OnValidate = CExtraSubOrderNoValidate
      Size = 15
    end
    object CExtraSubCostType: TStringField
      DisplayLabel = #25104#26412#32534#21495
      FieldName = 'CostType'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      Visible = False
      OnValidate = CExtraSubCostTypeValidate
      Size = 15
    end
    object CExtraSubCostTypeName: TStringField
      DisplayLabel = #25104#26412#31867#22411#21517
      DisplayWidth = 20
      FieldKind = fkLookup
      FieldName = 'CostTypeName'
      LookupDataSet = CCostType
      LookupKeyFields = 'CostType'
      LookupResultField = 'TypeName'
      KeyFields = 'CostType'
      Size = 50
      Lookup = True
    end
    object CExtraSubTypeLabel: TStringField
      DisplayLabel = #25104#26412#31867#22411
      DisplayWidth = 10
      FieldKind = fkLookup
      FieldName = 'TypeLabel'
      LookupDataSet = CCostType
      LookupKeyFields = 'CostType'
      LookupResultField = 'TypeLabel'
      KeyFields = 'CostType'
      Lookup = True
    end
    object CExtraSubProject: TStringField
      DisplayLabel = #36153#29992#39033#30446
      DisplayWidth = 20
      FieldName = 'Project'
      Required = True
      OnValidate = CExtraSubProjectValidate
      Size = 100
    end
    object CExtraSubSubTotal: TFloatField
      DisplayLabel = #37329#39069
      FieldName = 'SubTotal'
      Required = True
    end
    object CExtraSubSourceNo: TStringField
      DisplayLabel = #21407#22987#21333#21495
      DisplayWidth = 10
      FieldName = 'SourceNo'
      Size = 50
    end
    object CExtraSubRemark: TStringField
      DisplayLabel = #22791#27880
      DisplayWidth = 20
      FieldName = 'Remark'
      Size = 200
    end
  end
  object CCostType: TClientDataSet
    Aggregates = <>
    DisableStringTrim = True
    Filter = 'Enabled<>False'
    Filtered = True
    PacketRecords = 500
    Params = <>
    ProviderName = 'PCostType'
    RemoteServer = DM.SPub_DM
    Left = 148
    Top = 128
    object CCostTypeCostType: TStringField
      DisplayLabel = #31995#32479#32534#21495
      DisplayWidth = 6
      FieldName = 'CostType'
      Visible = False
      Size = 15
    end
    object CCostTypeTypeLabel: TStringField
      DisplayLabel = #29992#25143#32534#21495
      DisplayWidth = 6
      FieldName = 'TypeLabel'
      Size = 15
    end
    object CCostTypeTypeName: TStringField
      DisplayLabel = #21517#31216
      DisplayWidth = 20
      FieldName = 'TypeName'
      Size = 100
    end
    object CCostTypeCategoryID: TStringField
      DisplayLabel = #20998#31867#32534#21495
      FieldName = 'CategoryID'
      Size = 15
    end
    object CCostTypeCategoryName: TStringField
      DisplayLabel = #20998#31867#21517#31216
      FieldName = 'CategoryName'
      ReadOnly = True
      Size = 8
    end
    object CCostTypeEnabled: TBooleanField
      DisplayLabel = #21551#29992'?'
      FieldName = 'Enabled'
    end
    object CCostTypeBalance: TBooleanField
      DisplayLabel = #32479#19968#20215#29575
      FieldName = 'Balance'
    end
    object CCostTypeCostRate: TFloatField
      DisplayLabel = #20215#29575
      FieldName = 'CostRate'
    end
    object CCostTypeRemark: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'Remark'
      Size = 200
    end
    object CCostTypeCreater: TStringField
      DisplayLabel = #21019#24314#32773
      FieldName = 'Creater'
      Size = 15
    end
    object CCostTypeCreateDate: TDateTimeField
      DisplayLabel = #21019#24314#26085#26399
      FieldName = 'CreateDate'
    end
    object CCostTypeUpdater: TStringField
      DisplayLabel = #26356#26032#20154
      FieldName = 'Updater'
      Size = 15
    end
    object CCostTypeUpdateDate: TDateTimeField
      DisplayLabel = #26356#26032#26085#26399
      FieldName = 'UpdateDate'
    end
  end
  object CStatExtra: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = '@Flag'
        ParamType = ptInput
        Value = '2'
      end
      item
        DataType = ftDateTime
        Name = '@StartDate'
        ParamType = ptInput
      end
      item
        DataType = ftDateTime
        Name = '@EndDate'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = '@Str'
        ParamType = ptInput
      end>
    ProviderName = 'PStatExtra'
    RemoteServer = DM.SDM2
    Left = 213
    Top = 128
  end
  object CExtraList: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'PExtraList'
    RemoteServer = DM.SPub_DM
    OnNewRecord = CExtraListNewRecord
    Left = 280
    Top = 8
    object CExtraListItemType: TSmallintField
      FieldName = 'ItemType'
      Visible = False
    end
    object CExtraListItemID: TStringField
      FieldName = 'ItemID'
      Visible = False
      Size = 10
    end
    object CExtraListItemName: TStringField
      DisplayLabel = #36153#29992#39033
      DisplayWidth = 20
      FieldName = 'ItemName'
      Size = 100
    end
    object CExtraListRemark: TStringField
      DisplayLabel = #22791#27880
      DisplayWidth = 20
      FieldName = 'Remark'
      Size = 200
    end
  end
end