uwipdm.dfm

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

      FieldName = 'MachineID'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      OnChange = CProSubMachineIDChange
      OnValidate = CProSubMachineIDValidate
      Size = 15
    end
    object CProSubMachineName: TStringField
      DisplayLabel = #35373#20633#21517#31281
      FieldKind = fkLookup
      FieldName = 'MachineName'
      LookupDataSet = CVMachine
      LookupKeyFields = 'MachineID'
      LookupResultField = 'MachineName'
      KeyFields = 'MachineID'
      Lookup = True
    end
    object CProSubActionID: TStringField
      DisplayLabel = #24037#20316#32232#34399
      DisplayWidth = 6
      FieldName = 'ActionID'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      OnChange = CProSubActionIDChange
      OnValidate = CProSubActionIDValidate
      Size = 15
    end
    object CProSubActionName: TStringField
      DisplayLabel = #24037#20316#21517#31281
      FieldKind = fkLookup
      FieldName = 'ActionName'
      LookupDataSet = CWorkAction
      LookupKeyFields = 'ActionID'
      LookupResultField = 'ActionName'
      KeyFields = 'ActionID'
      Lookup = True
    end
    object CProSubEmployeeID: TStringField
      DisplayLabel = #25805#20316#21729
      FieldName = 'EmployeeID'
      Size = 15
    end
    object CProSubReadyTime: TBCDField
      DisplayLabel = #36628#21161#26178#38291'('#20998#37912')'
      FieldName = 'ReadyTime'
      Precision = 18
      Size = 0
    end
    object CProSubStartTime: TStringField
      DisplayLabel = #38283#22987#26178#38291
      FieldName = 'StartTime'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      OnValidate = CProSubStartTimeValidate
      Size = 5
    end
    object CProSubEndTime: TStringField
      DisplayLabel = #32080#26463#26178#38291
      FieldName = 'EndTime'
      OnValidate = CProSubStartTimeValidate
      Size = 5
    end
    object CProSubTotalTime: TBCDField
      DisplayLabel = #29992#24037#26178#38291
      FieldName = 'TotalTime'
      Precision = 18
      Size = 2
    end
    object CProSubRemark: TStringField
      DisplayLabel = #20633#35387
      DisplayWidth = 20
      FieldName = 'Remark'
      Size = 200
    end
    object CProSubReserved1: TStringField
      DisplayLabel = #38928#30041#38917
      DisplayWidth = 4
      FieldName = 'Reserved1'
      Visible = False
      Size = 50
    end
    object CProSubReserved2: TFloatField
      DisplayLabel = #38928#30041#38917
      FieldName = 'Reserved2'
      Visible = False
    end
    object CProSubTypeFlag: TStringField
      DisplayLabel = #38928#30041#38917
      FieldName = 'TypeFlag'
      Visible = False
      FixedChar = True
      Size = 1
    end
  end
  object CUseRate: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftDateTime
        Name = '@enddate'
        ParamType = ptInput
        Value = '2005-01-01'
      end>
    ProviderName = 'PUseRate'
    RemoteServer = DM.SDM2
    Left = 280
    Top = 15
  end
  object CStatWip: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftString
        Name = '@BillID'
        ParamType = ptInput
      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 = 'PStatPro'
    RemoteServer = DM.SDM2
    Left = 280
    Top = 77
  end
  object CWorkBill: TClientDataSet
    Aggregates = <>
    DisableStringTrim = True
    Params = <>
    ProviderName = 'PWorkBill'
    RemoteServer = DM.SPub_DM
    BeforeDelete = CWorkBillBeforeDelete
    OnNewRecord = CWorkBillNewRecord
    Left = 14
    Top = 77
    object CWorkBillBillID: TStringField
      DisplayLabel = #21934#25818#32232#34399
      FieldName = 'BillID'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      Size = 1
    end
    object CWorkBillBillName: TStringField
      DisplayLabel = #21934#25818#21517#31281
      DisplayWidth = 10
      FieldName = 'BillName'
      Required = True
      Size = 50
    end
    object CWorkBillEnabled: TBooleanField
      DisplayLabel = #21855#29992'?'
      FieldName = 'Enabled'
      Required = True
    end
    object CWorkBillAutoNo: TBooleanField
      DisplayLabel = #31995#32113#29983#25104#21934#34399
      FieldName = 'AutoNo'
      Required = True
    end
    object CWorkBillPrefix: TStringField
      DisplayLabel = #21934#25818#21069#32180
      FieldName = 'Prefix'
      Size = 2
    end
    object CWorkBillLength: TIntegerField
      DisplayLabel = #38263#24230
      DisplayWidth = 6
      FieldName = 'Length'
    end
    object CWorkBillByMachine: TBooleanField
      DisplayLabel = #35352#37636#27231#24202
      FieldName = 'ByMachine'
      Required = True
    end
    object CWorkBillReserved1: TStringField
      DisplayLabel = #38928#30041#38917'1'
      DisplayWidth = 10
      FieldName = 'Reserved1'
      Size = 50
    end
    object CWorkBillReserved2: TStringField
      DisplayLabel = #38928#30041#38917'2'
      DisplayWidth = 10
      FieldName = 'Reserved2'
      Size = 50
    end
    object CWorkBillRemark: TStringField
      DisplayLabel = #20633#35387
      DisplayWidth = 20
      FieldName = 'Remark'
      Size = 200
    end
    object CWorkBillCreater: TStringField
      DisplayLabel = #21109#24314#20154
      FieldName = 'Creater'
      Size = 15
    end
    object CWorkBillCreateDate: TDateTimeField
      DisplayLabel = #21109#24314#26085#26399
      FieldName = 'CreateDate'
    end
    object CWorkBillUpdater: TStringField
      DisplayLabel = #20462#25913#20154
      FieldName = 'Updater'
      Size = 15
    end
    object CWorkBillUpdateDate: TDateTimeField
      DisplayLabel = #20462#25913#26085#26399
      FieldName = 'UpdateDate'
    end
    object CWorkBillQBillAction: TDataSetField
      DisplayLabel = '<'#21934#25818#26126#32048'>'
      FieldName = 'QBillAction'
      Visible = False
    end
  end
  object CBillAction: TClientDataSet
    Aggregates = <>
    DataSetField = CWorkBillQBillAction
    Params = <>
    OnNewRecord = CBillActionNewRecord
    Left = 14
    Top = 133
    object CBillActionBillID: TStringField
      DisplayLabel = #21934#25818#32232#34399
      FieldName = 'BillID'
      Visible = False
      FixedChar = True
      Size = 1
    end
    object CBillActionActionID: TStringField
      DisplayLabel = #24037#20316#32232#30908
      FieldName = 'ActionID'
      Size = 15
    end
    object CBillActionActionName: TStringField
      DisplayLabel = #24037#20316#21517#31281
      FieldKind = fkLookup
      FieldName = 'ActionName'
      LookupDataSet = CWorkAction
      LookupKeyFields = 'ActionID'
      LookupResultField = 'ActionName'
      KeyFields = 'ActionID'
      Size = 10
      Lookup = True
    end
    object CBillActionCostTypeName: TStringField
      DisplayLabel = #25104#26412#39006#22411
      DisplayWidth = 10
      FieldKind = fkLookup
      FieldName = 'CostTypeName'
      LookupDataSet = CWorkAction
      LookupKeyFields = 'ActionID'
      LookupResultField = 'CostTypeName'
      KeyFields = 'ActionID'
      Lookup = True
    end
  end
  object CWorkAction: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'PWorkAction'
    RemoteServer = DM.SPub_DM
    Left = 78
    Top = 77
    object CWorkActionActionID: TStringField
      DisplayLabel = #32232#34399
      DisplayWidth = 6
      FieldName = 'ActionID'
      Size = 15
    end
    object CWorkActionActionName: TStringField
      DisplayLabel = #21517#31281
      DisplayWidth = 20
      FieldName = 'ActionName'
      Size = 200
    end
    object CWorkActionEnabled: TBooleanField
      DisplayLabel = #21855#29992'?'
      FieldName = 'Enabled'
    end
    object CWorkActionCostType: TStringField
      DisplayLabel = #25104#26412#39006#22411
      DisplayWidth = 6
      FieldName = 'CostType'
      Visible = False
      Size = 15
    end
    object CWorkActionCostTypeName: TStringField
      DisplayLabel = #25104#26412#39006#22411
      DisplayWidth = 10
      FieldKind = fkLookup
      FieldName = 'CostTypeName'
      LookupDataSet = DMCost.CCostType
      LookupKeyFields = 'CostType'
      LookupResultField = 'TypeName'
      KeyFields = 'CostType'
      Size = 50
      Lookup = True
    end
    object CWorkActionCostRate: TBCDField
      DisplayLabel = #25104#26412#20729#29575
      FieldName = 'CostRate'
      Precision = 18
      Size = 2
    end
    object CWorkActionRemark: TStringField
      DisplayLabel = #20633#35387
      DisplayWidth = 20
      FieldName = 'Remark'
      Size = 500
    end
    object CWorkActionCreater: TStringField
      DisplayLabel = #21109#24314#20154
      FieldName = 'Creater'
      Size = 15
    end
    object CWorkActionCreatedate: TDateTimeField
      DisplayLabel = #21109#24314#26085#26399
      FieldName = 'Createdate'
    end
    object CWorkActionUpdater: TStringField
      DisplayLabel = #26356#26032#20154
      FieldName = 'Updater'
      Size = 15
    end
    object CWorkActionUpdatedate: TDateTimeField
      DisplayLabel = #26356#26032#26085#26399
      FieldName = 'Updatedate'
    end
  end
  object CStatOut: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = '@Flag'
        ParamType = ptInput
        Value = '1'
      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 = 'PStatOut'
    RemoteServer = DM.SDM2
    Left = 153
    Top = 133
  end
end