uwipdm.dfm

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

      Visible = False
      Size = 15
    end
    object COutMasVendorName: TStringField
      DisplayLabel = #20379#25033#21830
      FieldKind = fkLookup
      FieldName = 'VendorName'
      LookupDataSet = DMBase.Cvendor
      LookupKeyFields = 'VendorID'
      LookupResultField = 'ShortName'
      KeyFields = 'VendorID'
      Lookup = True
    end
    object COutMasCurrencyID: TStringField
      DisplayLabel = #36008#24163#32232#34399
      FieldName = 'CurrencyID'
      Visible = False
      OnChange = COutMasCurrencyIDChange
      Size = 4
    end
    object COutMasCurrencyName: TStringField
      DisplayLabel = #36008#24163
      DisplayWidth = 10
      FieldKind = fkLookup
      FieldName = 'CurrencyName'
      LookupDataSet = DMBase.CCurrency
      LookupKeyFields = 'CurrencyID'
      LookupResultField = 'CurrNameC'
      KeyFields = 'CurrencyID'
      Lookup = True
    end
    object COutMasRate: TFloatField
      DisplayLabel = #21295#29575
      FieldName = 'Rate'
    end
    object COutMasCarriage: TFloatField
      DisplayLabel = #36939#36027
      FieldName = 'Carriage'
      Visible = False
    end
    object COutMasTax: TFloatField
      DisplayLabel = #31237#37329
      FieldName = 'Tax'
      Visible = False
    end
    object COutMasAdjust: TFloatField
      DisplayLabel = #35519#25972
      FieldName = 'Adjust'
      Visible = False
    end
    object COutMasTotalMoney: TFloatField
      DisplayLabel = #32317#37329#38989
      FieldName = 'TotalMoney'
      ReadOnly = True
    end
    object COutMasRemark: TStringField
      DisplayLabel = #20633#35387
      DisplayWidth = 20
      FieldName = 'Remark'
      Size = 100
    end
    object COutMasCreater: TStringField
      DisplayLabel = #38283#21934#32773
      FieldName = 'Creater'
      Size = 15
    end
    object COutMasCreateDate: TDateTimeField
      DisplayLabel = #38283#21934#26085#26399
      FieldName = 'CreateDate'
    end
    object COutMasUpdater: TStringField
      DisplayLabel = #20462#25913#32773
      FieldName = 'Updater'
      Size = 15
    end
    object COutMasUpdateDate: TDateTimeField
      DisplayLabel = #20462#25913#26085#26399
      FieldName = 'UpdateDate'
    end
    object COutMasApprover: TStringField
      DisplayLabel = #25209#26680#20154
      DisplayWidth = 10
      FieldName = 'Approver'
      Size = 15
    end
    object COutMasApproveDate: TDateTimeField
      DisplayLabel = #25209#26680#26085#26399
      FieldName = 'ApproveDate'
    end
    object COutMasConfirmer: TStringField
      DisplayLabel = #35352#24115#20154
      FieldName = 'Confirmer'
      Size = 15
    end
    object COutMasConfirmDate: TDateTimeField
      DisplayLabel = #35352#24115#20154
      FieldName = 'ConfirmDate'
    end
    object COutMasQOutSub: TDataSetField
      DisplayLabel = '<'#21152#24037#38917#30446'>'
      FieldName = 'QOutSub'
      Visible = False
    end
  end
  object COutSub: TClientDataSet
    Aggregates = <>
    DataSetField = COutMasQOutSub
    Params = <>
    OnNewRecord = COutSubNewRecord
    Left = 152
    Top = 77
    object COutSubOutNo: TStringField
      DisplayLabel = #21934#34399
      FieldName = 'OutNo'
      Visible = False
      Size = 15
    end
    object COutSubOrderNo: TStringField
      DisplayLabel = #35330#21934#34399
      FieldName = 'OrderNo'
      Required = True
      OnValidate = COutSubOrderNoValidate
      Size = 15
    end
    object COutSubProjectId: TStringField
      DisplayLabel = #38917#30446#32232#34399
      DisplayWidth = 10
      FieldName = 'ProjectId'
      Required = True
      OnChange = COutSubProjectIdChange
      OnValidate = COutSubProjectIdValidate
      Size = 15
    end
    object COutSubProjectName: TStringField
      DisplayLabel = #21152#24037#38917#30446
      DisplayWidth = 20
      FieldKind = fkLookup
      FieldName = 'ProjectName'
      LookupDataSet = CSubContract
      LookupKeyFields = 'ProjectID'
      LookupResultField = 'ProjectName'
      KeyFields = 'ProjectId'
      Size = 50
      Lookup = True
    end
    object COutSubUnitID: TStringField
      DisplayLabel = #21934#20301#32232#34399
      FieldName = 'UnitID'
      Required = True
      Visible = False
      Size = 4
    end
    object COutSubUnitName: TStringField
      DisplayLabel = #21934#20301
      DisplayWidth = 4
      FieldKind = fkLookup
      FieldName = 'UnitName'
      LookupDataSet = DMBase.CUnitName
      LookupKeyFields = 'UnitID'
      LookupResultField = 'UnitName'
      KeyFields = 'UnitID'
      Size = 10
      Lookup = True
    end
    object COutSubQty: TBCDField
      DisplayLabel = #25976#37327
      FieldName = 'Qty'
      Precision = 18
      Size = 2
    end
    object COutSubPrice: TBCDField
      DisplayLabel = #21934#20729
      FieldName = 'Price'
      Precision = 18
    end
    object COutSubCostType: TStringField
      DisplayLabel = #25104#26412#39006#22411
      FieldName = 'CostType'
      Visible = False
      Size = 15
    end
    object COutSubRemark: TStringField
      DisplayLabel = #20633#35387
      DisplayWidth = 20
      FieldName = 'Remark'
      Size = 200
    end
  end
  object CProMas: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftString
        Name = '@ProType'
        ParamType = ptInput
        Size = -1
        Value = '0'
      end
      item
        DataType = ftDateTime
        Name = '@DateFrm'
        ParamType = ptInput
        Size = -1
        Value = '2005/1/1'
      end
      item
        DataType = ftDateTime
        Name = '@DateTo'
        ParamType = ptInput
        Size = -1
        Value = '2005/12/31'
      end>
    ProviderName = 'PPro'
    RemoteServer = DM.SDM1
    OnNewRecord = CProMasNewRecord
    OnReconcileError = CProMasReconcileError
    Left = 216
    Top = 15
    object CProMasProNo: TStringField
      DisplayLabel = #21934#34399
      DisplayWidth = 10
      FieldName = 'ProNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Size = 15
    end
    object CProMasProType: TStringField
      DisplayLabel = #21934#25818#39006#22411
      FieldName = 'ProType'
      Visible = False
      FixedChar = True
      Size = 1
    end
    object CProMasProDate: TDateTimeField
      DisplayLabel = #26085#26399
      FieldName = 'ProDate'
      ProviderFlags = [pfInUpdate]
    end
    object CProMasStatus: TStringField
      DisplayLabel = #29376#24907
      FieldName = 'Status'
      ProviderFlags = [pfInUpdate]
      Visible = False
      FixedChar = True
      Size = 1
    end
    object CProMasCurrencyID: TStringField
      FieldName = 'CurrencyID'
      ProviderFlags = [pfInUpdate]
      Visible = False
      Size = 4
    end
    object CProMasRate: TBCDField
      FieldName = 'Rate'
      ProviderFlags = [pfInUpdate]
      Visible = False
      Precision = 18
    end
    object CProMasWorkgroup: TStringField
      DisplayLabel = #29983#29986#32068#21029
      FieldName = 'Workgroup'
      ProviderFlags = [pfInUpdate]
      Visible = False
      Size = 15
    end
    object CProMasDeptname: TStringField
      DisplayLabel = #29983#29986#32068#21029
      DisplayWidth = 10
      FieldKind = fkLookup
      FieldName = 'Deptname'
      LookupDataSet = DMBase.Cdept
      LookupKeyFields = 'DeptID'
      LookupResultField = 'DeptName'
      KeyFields = 'Workgroup'
      Lookup = True
    end
    object CProMasRemark: TStringField
      DisplayLabel = #20633#35387
      DisplayWidth = 20
      FieldName = 'Remark'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object CProMasCreater: TStringField
      DisplayLabel = #38283#25812#20154
      FieldName = 'Creater'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object CProMasCreateDate: TDateTimeField
      DisplayLabel = #38283#21934#26085#26399
      FieldName = 'CreateDate'
      ProviderFlags = [pfInUpdate]
    end
    object CProMasUpdater: TStringField
      DisplayLabel = #26356#26032#20154
      FieldName = 'Updater'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object CProMasUpdateDate: TDateTimeField
      DisplayLabel = #26356#26032#26085#26399
      FieldName = 'UpdateDate'
      ProviderFlags = [pfInUpdate]
    end
    object CProMasApprover: TStringField
      DisplayLabel = #25209#26680#20154
      DisplayWidth = 10
      FieldName = 'Approver'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object CProMasApproveDate: TDateTimeField
      DisplayLabel = #25209#26680#26085#26399
      FieldName = 'ApproveDate'
      ProviderFlags = [pfInUpdate]
    end
    object CProMasConfirmer: TStringField
      DisplayLabel = #35352#24115#20154
      DisplayWidth = 10
      FieldName = 'Confirmer'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object CProMasConfirmDate: TDateTimeField
      DisplayLabel = #35352#24115#26085#26399
      FieldName = 'ConfirmDate'
      ProviderFlags = [pfInUpdate]
    end
    object CProMasQProSub: TDataSetField
      DisplayLabel = '<'#21934#25818#26126#32048'>'
      FieldName = 'QProSub'
      Visible = False
    end
  end
  object CProSub: TClientDataSet
    Aggregates = <>
    DataSetField = CProMasQProSub
    Params = <>
    BeforePost = CProSubBeforePost
    OnNewRecord = CProSubNewRecord
    Left = 216
    Top = 77
    object CProSubProNo: TStringField
      DisplayLabel = #21934#34399
      DisplayWidth = 10
      FieldName = 'ProNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Visible = False
      Size = 15
    end
    object CProSubOrderNo: TStringField
      DisplayLabel = #35330#21934#34399
      DisplayWidth = 10
      FieldName = 'OrderNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      OnValidate = CProSubOrderNoValidate
      Size = 15
    end
    object CProSubCostType: TStringField
      DisplayLabel = #25104#26412#39006#22411
      FieldName = 'CostType'
      Visible = False
      Size = 15
    end
    object CProSubCostRate: TBCDField
      DisplayLabel = #25104#26412#20729#29575
      FieldName = 'CostRate'
      Visible = False
      Precision = 18
    end
    object CProSubMachineID: TStringField
      DisplayLabel = #35373#20633#32232#34399