udmbase.dfm

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

object DMBase: TDMBase
  OldCreateOrder = False
  Left = 207
  Top = 107
  Height = 367
  Width = 489
  object CDepartment: TClientDataSet
    Aggregates = <>
    DisableStringTrim = True
    IndexName = 'DEFAULT_ORDER'
    PacketRecords = 500
    Params = <>
    ProviderName = 'Pdepartment'
    RemoteServer = DM.SPub_DM
    Left = 21
    Top = 13
    object CDepartmentDeptID: TStringField
      DisplayLabel = #32534#21495
      FieldName = 'DeptID'
      Size = 15
    end
    object CDepartmentDeptName: TStringField
      DisplayLabel = #21517#31216
      FieldName = 'DeptName'
      Size = 100
    end
    object CDepartmentParentID: TStringField
      DisplayLabel = #19978#32423#32534#21495
      FieldName = 'ParentID'
      Size = 15
    end
    object CDepartmentIsWork: TBooleanField
      DisplayLabel = #29983#20135#37096#38376'?'
      FieldName = 'IsWork'
    end
    object CDepartmentRemark: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'Remark'
      Size = 200
    end
    object CDepartmentCreater: TStringField
      DisplayLabel = #21019#24314#32773
      FieldName = 'Creater'
      Size = 15
    end
    object CDepartmentCreateDate: TDateTimeField
      DisplayLabel = #21019#24314#26085#26399
      FieldName = 'CreateDate'
    end
    object CDepartmentUpdater: TStringField
      DisplayLabel = #26356#26032#32773
      FieldName = 'Updater'
      Size = 15
    end
    object CDepartmentupdateDate: TDateTimeField
      DisplayLabel = #26356#26032#26085#26399
      FieldName = 'updateDate'
    end
  end
  object CUnitSet: TClientDataSet
    Aggregates = <>
    DisableStringTrim = True
    PacketRecords = 500
    Params = <>
    ProviderName = 'PUnitInfo'
    RemoteServer = DM.SPub_DM
    Left = 226
    Top = 14
    object CUnitSetUnitID: TStringField
      DisplayLabel = #32534#21495
      FieldName = 'UnitID'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Size = 4
    end
    object CUnitSetUnitName: TStringField
      DisplayLabel = #21517#31216
      DisplayWidth = 4
      FieldName = 'UnitName'
      Size = 10
    end
    object CUnitSetUnitLogo: TStringField
      DisplayLabel = #26174#31034
      DisplayWidth = 4
      FieldName = 'UnitLogo'
      Size = 10
    end
    object CUnitSetRemark: TStringField
      DisplayLabel = #22791#27880
      DisplayWidth = 20
      FieldName = 'Remark'
      Size = 200
    end
    object CUnitSetCreater: TStringField
      DisplayLabel = #21019#24314#20154
      FieldName = 'Creater'
      Size = 10
    end
    object CUnitSetCreateDate: TDateTimeField
      DisplayLabel = #21019#24314#26085#26399
      FieldName = 'CreateDate'
    end
    object CUnitSetUpdater: TStringField
      DisplayLabel = #26356#26032#20154
      FieldName = 'Updater'
      Size = 10
    end
    object CUnitSetUpDateDate: TDateTimeField
      DisplayLabel = #26356#26032#26085#26399
      FieldName = 'UpDateDate'
    end
    object CUnitSetQConvertInfo: TDataSetField
      DisplayLabel = '<'#21333#20301#36716#25442'>'
      FieldName = 'QConvertInfo'
      Visible = False
    end
  end
  object Cmateriel: TClientDataSet
    Aggregates = <>
    DisableStringTrim = True
    FieldDefs = <
      item
        Name = 'PartNo'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'CategoryID'
        DataType = ftString
        Size = 15
      end
      item
        Name = 'PartNameC'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'PartNameE'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'Zjm'
        Attributes = [faReadonly]
        DataType = ftWideString
        Size = 20
      end
      item
        Name = 'Model'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'Color'
        DataType = ftString
        Size = 12
      end
      item
        Name = 'UnitID'
        DataType = ftString
        Size = 4
      end
      item
        Name = 'Status'
        DataType = ftBoolean
      end
      item
        Name = 'PriceType'
        DataType = ftBoolean
      end
      item
        Name = 'CostType'
        DataType = ftString
        Size = 15
      end
      item
        Name = 'ABCType'
        Attributes = [faFixed]
        DataType = ftString
        Size = 1
      end
      item
        Name = 'DefaultStock'
        DataType = ftString
        Size = 4
      end
      item
        Name = 'TotalQty'
        Attributes = [faReadonly]
        DataType = ftFloat
      end
      item
        Name = 'SafeQty'
        DataType = ftFloat
      end
      item
        Name = 'Remark'
        DataType = ftString
        Size = 200
      end
      item
        Name = 'Creater'
        DataType = ftString
        Size = 15
      end
      item
        Name = 'CreateDate'
        DataType = ftDateTime
      end
      item
        Name = 'Updater'
        DataType = ftString
        Size = 15
      end
      item
        Name = 'UpdateDate'
        DataType = ftDateTime
      end
      item
        Name = 'QInvCurrent'
        DataType = ftDataSet
      end
      item
        Name = 'QInvInitial'
        DataType = ftDataSet
      end>
    IndexDefs = <
      item
        Name = 'DEFAULT_ORDER'
      end
      item
        Name = 'CHANGEINDEX'
      end>
    PacketRecords = 500
    Params = <
      item
        DataType = ftString
        Name = '@CategoryID'
        ParamType = ptInput
        Value = Null
      end>
    ProviderName = 'Pmaterial'
    RemoteServer = DM.SPub_DM
    StoreDefs = True
    OnNewRecord = CmaterielNewRecord
    Left = 88
    Top = 70
    object CmaterielPartNo: TStringField
      DisplayLabel = #26009#21495
      DisplayWidth = 20
      FieldName = 'PartNo'
      Required = True
      Size = 30
    end
    object CmaterielCategoryID: TStringField
      DisplayLabel = #31867#21035#32534#21495
      DisplayWidth = 10
      FieldName = 'CategoryID'
      Required = True
      Size = 15
    end
    object CmaterielCategoryName: TStringField
      DisplayLabel = #31867#21035
      DisplayWidth = 10
      FieldKind = fkLookup
      FieldName = 'CategoryName'
      LookupDataSet = CCategory
      LookupKeyFields = 'CategoryID'
      LookupResultField = 'CategoryName'
      KeyFields = 'CategoryID'
      Size = 50
      Lookup = True
    end
    object CmaterielPartNameC: TStringField
      DisplayLabel = #21697#21517'('#20013#25991')'
      DisplayWidth = 10
      FieldName = 'PartNameC'
      Size = 50
    end
    object CmaterielPartNameE: TStringField
      DisplayLabel = #21697#21517'('#33521#25991')'
      DisplayWidth = 20
      FieldName = 'PartNameE'
      Size = 50
    end
    object CmaterielZjm: TWideStringField
      DisplayLabel = #21161#35760#30721
      DisplayWidth = 10
      FieldName = 'Zjm'
      ReadOnly = True
    end
    object CmaterielModel: TStringField
      DisplayLabel = #22411#21495
      DisplayWidth = 20
      FieldName = 'Model'
      Size = 30
    end
    object CmaterielColor: TStringField
      DisplayLabel = #39068#33394
      FieldName = 'Color'
      Size = 12
    end
    object CmaterielUnitID: TStringField
      DisplayLabel = #21333#20301
      FieldName = 'UnitID'
      Required = True
      Visible = False
      Size = 4
    end
    object CmaterielUnitName: TStringField
      DisplayLabel = #23384#20179#21333#20301
      FieldKind = fkLookup
      FieldName = 'UnitName'
      LookupDataSet = CUnitSet
      LookupKeyFields = 'UnitID'
      LookupResultField = 'UnitName'
      KeyFields = 'UnitID'
      Lookup = True
    end
    object CmaterielStatus: TBooleanField
      DisplayLabel = #29366#24577
      FieldName = 'Status'
    end
    object CmaterielPriceType: TBooleanField
      DisplayLabel = #35745#20215#26041#24335
      FieldName = 'PriceType'
      Required = True
      OnChange = CmaterielPriceTypeChange
      DisplayValues = #20808#36827#20808#20986';'#31227#21160#24179#22343
    end
    object CmaterielCostType: TStringField
      DisplayLabel = #25104#26412#31867#22411#32534#21495
      FieldName = 'CostType'
      Required = True
      Visible = False
      Size = 15
    end
    object CmaterielTypeLabel: TStringField
      DisplayLabel = #25104#26412#31867#22411
      FieldKind = fkLookup
      FieldName = 'TypeLabel'
      LookupDataSet = CCostType
      LookupKeyFields = 'CostType'
      LookupResultField = 'TypeLabel'
      KeyFields = 'CostType'
      Lookup = True
    end
    object CmaterielCostTypeName: TStringField
      DisplayLabel = #25104#26412#31867#22411#35828#26126
      DisplayWidth = 20
      FieldKind = fkLookup
      FieldName = 'CostTypeName'
      LookupDataSet = DMCost.CCostType
      LookupKeyFields = 'CostType'
      LookupResultField = 'TypeName'
      KeyFields = 'CostType'
      Size = 30
      Lookup = True
    end
    object CmaterielABCType: TStringField
      DisplayLabel = 'ABC'#30721
      FieldName = 'ABCType'
      FixedChar = True
      Size = 1
    end
    object CmaterielDefaultStock: TStringField
      DisplayLabel = #23384#20179#32534#21495
      FieldName = 'DefaultStock'
      Required = True
      Visible = False
      Size = 4
    end
    object CmaterielStockName: TStringField
      DisplayLabel = #40664#35748#23384#20179
      DisplayWidth = 10
      FieldKind = fkLookup
      FieldName = 'StockName'
      LookupDataSet = CStock
      LookupKeyFields = 'StockID'
      LookupResultField = 'StockName'
      KeyFields = 'DefaultStock'
      Size = 30
      Lookup = True
    end
    object CmaterielTotalQty: TFloatField
      DisplayLabel = #24635#24211#23384
      FieldName = 'TotalQty'
      ReadOnly = True
    end
    object CmaterielSafeQty: TFloatField
      DisplayLabel = #23433#20840#24211#23384
      FieldName = 'SafeQty'
    end
    object CmaterielRemark: TStringField
      DisplayLabel = #22791#27880
      DisplayWidth = 20
      FieldName = 'Remark'
      Size = 200
    end
    object CmaterielCreater: TStringField
      DisplayLabel = #21019#24314#20154
      FieldName = 'Creater'
      Size = 15
    end
    object CmaterielCreateDate: TDateTimeField
      DisplayLabel = #21019#24314#26085#26399
      FieldName = 'CreateDate'
    end
    object CmaterielUpdater: TStringField
      DisplayLabel = #20462#25913#20154
      FieldName = 'Updater'
      Size = 15
    end
    object CmaterielUpdateDate: TDateTimeField
      DisplayLabel = #20462#25913#26085#26399
      FieldName = 'UpdateDate'
    end
    object CmaterielQInvInitial: TDataSetField
      DisplayLabel = '<'#26399#21021#24211#23384'>'
      FieldName = 'QInvInitial'
      Visible = False
    end
    object CmaterielQInvCurrent: TDataSetField
      DisplayLabel = '<'#24403#21069#24211#23384'>'
      FieldName = 'QInvCurrent'
      ReadOnly = True
      Visible = False
    end
  end
  object CCategory: TClientDataSet
    Aggregates = <>
    DisableStringTrim = True
    PacketRecords = 500
    Params = <>
    ProviderName = 'PCategory'
    RemoteServer = DM.SPub_DM
    Left = 87
    Top = 14
    object CCategoryCategoryID: TStringField
      DisplayLabel = #32534#21495
      DisplayWidth = 6
      FieldName = 'CategoryID'
      Size = 15
    end
    object CCategoryCategoryName: TStringField
      DisplayLabel = #31867#21035#21517
      DisplayWidth = 20
      FieldName = 'CategoryName'
      Size = 100
    end
    object CCategoryParentID: TStringField
      DisplayLabel = #19978#32423#31867#21035
      DisplayWidth = 6
      FieldName = 'ParentID'
      Size = 15
    end
    object CCategoryRemark: TStringField
      DisplayLabel = #35828#26126
      DisplayWidth = 20
      FieldName = 'Remark'
      Size = 200
    end
    object CCategoryCreater: TStringField
      DisplayLabel = #21019#24314#20154
      FieldName = 'Creater'
      Size = 10
    end
    object CCategoryCreateDate: TDateTimeField
      DisplayLabel = #21019#24314#26085#26399
      FieldName = 'CreateDate'
    end
    object CCategoryUpdater: TStringField
      DisplayLabel = #20462#25913#20154
      FieldName = 'Updater'
      Size = 10
    end
    object CCategoryUpdateDate: TDateTimeField
      DisplayLabel = #20462#25913#26085#26399
      FieldName = 'UpdateDate'
    end
  end
  object Cemployee: TClientDataSet
    Aggregates = <>
    DisableStringTrim = True
    FetchOnDemand = False
    PacketRecords = 500
    Params = <
      item
        DataType = ftString
        Name = '@DeptID'
        ParamType = ptInput
      end>
    ProviderName = 'Pemployee'
    RemoteServer = DM.SPub_DM
    Left = 21
    Top = 69
    object CemployeeEmployeeID: TStringField
      DisplayLabel = #24037#21495
      FieldName = 'EmployeeID'
      FixedChar = True
      Size = 15
    end
    object CemployeeEmployeeE: TStringField
      DisplayLabel = #33521#25991#21517
      FieldName = 'EmployeeE'
      FixedChar = True
    end
    object CemployeeEmployeeC: TStringField
      DisplayLabel = #20013#25991#21517
      FieldName = 'EmployeeC'
      FixedChar = True
      Size = 10
    end
    object CemployeeDeptID: TStringField
      DisplayLabel = #37096#38376#32534#21495
      FieldName = 'DeptID'
      Size = 15
    end
    object CemployeeDeptName: TStringField
      DisplayLabel = #37096#38376#21517#31216
      DisplayWidth = 10
      FieldKind = fkLookup
      FieldName = 'DeptName'
      LookupDataSet = CDepartment
      LookupKeyFields = 'DeptID'
      LookupResultField = 'DeptName'
      KeyFields = 'DeptID'
      Lookup = True
    end