uwipdm.dfm

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

object DMWIP: TDMWIP
  OldCreateOrder = False
  Left = 198
  Top = 121
  Height = 266
  Width = 441
  object CMachine: TClientDataSet
    Aggregates = <>
    DisableStringTrim = True
    Params = <
      item
        DataType = ftString
        Name = '@CategoryID'
        ParamType = ptInput
        Value = 'null'
      end>
    ProviderName = 'PMachine'
    RemoteServer = DM.SPub_DM
    OnNewRecord = CMachineNewRecord
    Left = 14
    Top = 15
    object CMachineMachineID: TStringField
      DisplayLabel = #32232#34399
      DisplayWidth = 10
      FieldName = 'MachineID'
      Size = 15
    end
    object CMachineMachineName: TStringField
      DisplayLabel = #35373#20633#21517#31281
      DisplayWidth = 10
      FieldName = 'MachineName'
      ProviderFlags = [pfInUpdate]
      Required = True
      Size = 50
    end
    object CMachineCategoryID: TStringField
      DisplayLabel = #39006#21029
      FieldName = 'CategoryID'
      ProviderFlags = [pfInUpdate]
      Visible = False
      Size = 15
    end
    object CMachineCategoryName: TStringField
      DisplayLabel = #39006#21029
      DisplayWidth = 10
      FieldKind = fkLookup
      FieldName = 'CategoryName'
      LookupDataSet = DMBase.CMCategory
      LookupKeyFields = 'CategoryID'
      LookupResultField = 'CategoryName'
      KeyFields = 'CategoryID'
      Lookup = True
    end
    object CMachineEnabled: TBooleanField
      DisplayLabel = #21855#29992'?'
      FieldName = 'Enabled'
      Required = True
    end
    object CMachineModel: TStringField
      DisplayLabel = #22411#34399
      DisplayWidth = 10
      FieldName = 'Model'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object CMachineFactoryID: TStringField
      DisplayLabel = #20986#24288#32232#34399
      DisplayWidth = 10
      FieldName = 'FactoryID'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object CMachineEntryDate: TDateTimeField
      DisplayLabel = #21855#29992#26178#38291
      FieldName = 'EntryDate'
      ProviderFlags = [pfInUpdate]
    end
    object CMachineAgent: TStringField
      DisplayLabel = #20195#29702
      DisplayWidth = 10
      FieldName = 'Agent'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object CMachineInitValue: TFloatField
      DisplayLabel = #36039#29986#21407#20540
      FieldName = 'InitValue'
      ProviderFlags = [pfInUpdate]
    end
    object CMachineDepreciateYear: TIntegerField
      DisplayLabel = #25240#33290#24180#38480
      FieldName = 'DepreciateYear'
      ProviderFlags = [pfInUpdate]
    end
    object CMachineCostType: TStringField
      DisplayLabel = #25104#26412#39006#22411
      FieldName = 'CostType'
      ProviderFlags = [pfInUpdate]
      Required = True
      Size = 15
    end
    object CMachineCostName: TStringField
      DisplayLabel = #25104#26412#39006#22411
      FieldKind = fkLookup
      FieldName = 'CostName'
      LookupDataSet = DMCost.CCostType
      LookupKeyFields = 'CostType'
      LookupResultField = 'TypeName'
      KeyFields = 'CostType'
      Lookup = True
    end
    object CMachineCostRate: TFloatField
      DisplayLabel = #25104#26412#21934#20729
      FieldName = 'CostRate'
      ProviderFlags = [pfInUpdate]
      Required = True
    end
    object CMachineRemark: TStringField
      DisplayLabel = #20633#35387
      DisplayWidth = 20
      FieldName = 'Remark'
      ProviderFlags = [pfInUpdate]
      Size = 200
    end
    object CMachineCreater: TStringField
      DisplayLabel = #21109#24314#20154
      FieldName = 'Creater'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object CMachineCreateDate: TDateTimeField
      DisplayLabel = #21109#24314#26085#26399
      FieldName = 'CreateDate'
      ProviderFlags = [pfInUpdate]
    end
    object CMachineUpdater: TStringField
      DisplayLabel = #26356#26032#32773
      FieldName = 'Updater'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object CMachineUpdateDate: TDateTimeField
      DisplayLabel = #26356#26032#26085#26399
      FieldName = 'UpdateDate'
      ProviderFlags = [pfInUpdate]
    end
  end
  object CVMachine: TClientDataSet
    Aggregates = <>
    DisableStringTrim = True
    Params = <>
    ProviderName = 'PVMachine'
    RemoteServer = DM.SPub_DM
    Left = 78
    Top = 133
    object CVMachineMachineID: TStringField
      DisplayLabel = #35373#20633#32232#34399
      DisplayWidth = 10
      FieldName = 'MachineID'
      Size = 15
    end
    object CVMachineMachineName: TStringField
      DisplayLabel = #35373#20633#21517#31281
      DisplayWidth = 20
      FieldName = 'MachineName'
      Size = 50
    end
    object CVMachineCategoryID: TStringField
      DisplayLabel = #39006#21029
      DisplayWidth = 10
      FieldName = 'CategoryID'
      Size = 15
    end
    object CVMachineCategoryName: TStringField
      DisplayLabel = #39006#21029#21517
      DisplayWidth = 10
      FieldName = 'CategoryName'
      Size = 100
    end
    object CVMachineModel: TStringField
      DisplayLabel = #22411#34399
      DisplayWidth = 10
      FieldName = 'Model'
      Size = 50
    end
    object CVMachineCosttype: TStringField
      DisplayLabel = #39006#22411#32232#34399
      FieldName = 'Costtype'
      Visible = False
      Size = 15
    end
    object CVMachineTypeLabel: TStringField
      DisplayLabel = #25104#26412#39006#22411
      FieldName = 'TypeLabel'
      Size = 15
    end
    object CVMachineCostRate: TFloatField
      DisplayLabel = #25104#26412#20729#29575
      FieldName = 'CostRate'
    end
    object CVMachineFactoryID: TStringField
      DisplayLabel = #20986#24288#32232#34399
      DisplayWidth = 10
      FieldName = 'FactoryID'
      Size = 50
    end
    object CVMachineRemark: TStringField
      DisplayLabel = #20633#35387
      DisplayWidth = 20
      FieldName = 'Remark'
      Size = 200
    end
  end
  object CSubContract: TClientDataSet
    Aggregates = <>
    DisableStringTrim = True
    Params = <
      item
        DataType = ftString
        Name = '@CategoryID'
        ParamType = ptInput
        Value = 'null'
      end>
    ProviderName = 'PSubContract'
    RemoteServer = DM.SPub_DM
    Left = 78
    Top = 15
    object CSubContractProjectID: TStringField
      DisplayLabel = #32232#34399
      DisplayWidth = 10
      FieldName = 'ProjectID'
      Required = True
      Size = 15
    end
    object CSubContractProjectName: TStringField
      DisplayLabel = #38917#30446#21517
      DisplayWidth = 20
      FieldName = 'ProjectName'
      Required = True
      Size = 200
    end
    object CSubContractCostType: TStringField
      DisplayLabel = #25104#26412#39006#22411
      DisplayWidth = 10
      FieldName = 'CostType'
      Required = True
      Size = 15
    end
    object CSubContractCostTypeName: TStringField
      DisplayLabel = #25104#26412#39006#22411
      DisplayWidth = 10
      FieldKind = fkLookup
      FieldName = 'CostTypeName'
      LookupDataSet = DMCost.CCostType
      LookupKeyFields = 'CostType'
      LookupResultField = 'TypeName'
      KeyFields = 'CostType'
      Size = 30
      Lookup = True
    end
    object CSubContractEnabled: TBooleanField
      DisplayLabel = #21855#29992'?'
      FieldName = 'Enabled'
    end
    object CSubContractUnitID: TStringField
      DisplayLabel = #21934#20301#32232#34399
      FieldName = 'UnitID'
      Required = True
      Visible = False
      Size = 4
    end
    object CSubContractUnitName: TStringField
      DisplayLabel = #35336#37327#21934#20301
      FieldKind = fkLookup
      FieldName = 'UnitName'
      LookupDataSet = DMBase.CUnitName
      LookupKeyFields = 'UnitID'
      LookupResultField = 'UnitName'
      KeyFields = 'UnitID'
      Size = 10
      Lookup = True
    end
    object CSubContractCurrencyID: TStringField
      DisplayLabel = #24163#31278#32232#34399
      FieldName = 'CurrencyID'
      Visible = False
      Size = 4
    end
    object CSubContractCurrencyName: TStringField
      DisplayLabel = #21934#20729#24163#31278
      FieldKind = fkLookup
      FieldName = 'CurrencyName'
      LookupDataSet = DMBase.CCurrency
      LookupKeyFields = 'CurrencyID'
      LookupResultField = 'CurrNameC'
      KeyFields = 'CurrencyID'
      Size = 10
      Lookup = True
    end
    object CSubContractPrice: TBCDField
      DisplayLabel = #21443#32771#20729#26684
      FieldName = 'Price'
      Precision = 18
    end
    object CSubContractRemark: TStringField
      DisplayLabel = #20633#35387
      DisplayWidth = 20
      FieldName = 'Remark'
      Size = 200
    end
    object CSubContractCreater: TStringField
      DisplayLabel = #21109#24314#20154
      FieldName = 'Creater'
      Size = 15
    end
    object CSubContractCreateDate: TDateTimeField
      DisplayLabel = #21109#24314#26178#38291
      FieldName = 'CreateDate'
    end
    object CSubContractUpdater: TStringField
      DisplayLabel = #26356#26032#32773
      DisplayWidth = 10
      FieldName = 'Updater'
      Size = 15
    end
    object CSubContractUpdateDate: TDateTimeField
      DisplayLabel = #26356#26032#26178#38291
      FieldName = 'UpdateDate'
    end
  end
  object COutMas: TClientDataSet
    Aggregates = <>
    DisableStringTrim = True
    Params = <
      item
        DataType = ftDateTime
        Name = '@DateFrm'
        ParamType = ptInput
      end
      item
        DataType = ftDateTime
        Name = '@DateTo'
        ParamType = ptInput
      end>
    ProviderName = 'POut'
    RemoteServer = DM.SDM1
    OnNewRecord = COutMasNewRecord
    OnReconcileError = COutMasReconcileError
    Left = 152
    Top = 15
    object COutMasOutNo: TStringField
      DisplayLabel = #21934#34399
      FieldName = 'OutNo'
      Size = 15
    end
    object COutMasOutDate: TDateTimeField
      DisplayLabel = #22806#30332#26085#26399
      FieldName = 'OutDate'
      Required = True
    end
    object COutMasStatus: TStringField
      DisplayLabel = #29376#24907
      FieldName = 'Status'
      Visible = False
      FixedChar = True
      Size = 1
    end
    object COutMasVendorID: TStringField
      DisplayLabel = #20379#25033#21830#32232#34399
      DisplayWidth = 10
      FieldName = 'VendorID'
      Required = True