udmbase.dfm

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

    Left = 21
    Top = 181
    object CCurrencyCurrencyID: TStringField
      DisplayLabel = #32534#21495
      FieldName = 'CurrencyID'
      Size = 4
    end
    object CCurrencyCurrNameC: TStringField
      DisplayLabel = #36135#24065#21517'('#20013#25991')'
      DisplayWidth = 6
      FieldName = 'CurrNameC'
      Size = 10
    end
    object CCurrencyCurrNameE: TStringField
      DisplayLabel = #36135#24065#21517'('#33521#25991')'
      DisplayWidth = 6
      FieldName = 'CurrNameE'
      Size = 10
    end
    object CCurrencyStandard: TBooleanField
      DisplayLabel = #26412#20301#24065
      FieldName = 'Standard'
    end
    object CCurrencyRate: TBCDField
      DisplayLabel = #27719#29575
      FieldName = 'Rate'
      Precision = 18
    end
    object CCurrencyRemark: TStringField
      DisplayLabel = #22791#27880
      DisplayWidth = 20
      FieldName = 'Remark'
      Size = 100
    end
    object CCurrencyCreater: TStringField
      DisplayLabel = #21019#24314#20154
      FieldName = 'Creater'
      Size = 15
    end
    object CCurrencyCreateDate: TDateTimeField
      DisplayLabel = #21019#24314#26085#26399
      FieldName = 'CreateDate'
    end
    object CCurrencyUpdater: TStringField
      DisplayLabel = #26356#26032#20154
      FieldName = 'Updater'
      Size = 15
    end
    object CCurrencyUPdateDate: TDateTimeField
      DisplayLabel = #26356#26032#26085#26399
      FieldName = 'UPdateDate'
    end
  end
  object CCostType: TClientDataSet
    Aggregates = <>
    DisableStringTrim = True
    PacketRecords = 500
    Params = <>
    ProviderName = 'PCostType'
    RemoteServer = DM.SPub_DM
    Left = 226
    Top = 127
    object CCostTypeCostType: TStringField
      DisplayLabel = #31995#32479#32534#21495
      DisplayWidth = 6
      FieldName = 'CostType'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      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'
      Visible = False
    end
    object CCostTypeCostRate: TFloatField
      DisplayLabel = #20215#29575
      FieldName = 'CostRate'
      Visible = False
    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 CCategory1: TClientDataSet
    Aggregates = <>
    DisableStringTrim = True
    FieldDefs = <
      item
        Name = 'CategoryID'
        DataType = ftString
        Size = 15
      end
      item
        Name = 'CategoryName'
        DataType = ftString
        Size = 100
      end
      item
        Name = 'ParentID'
        DataType = ftString
        Size = 15
      end
      item
        Name = 'Remark'
        DataType = ftString
        Size = 200
      end
      item
        Name = 'Creater'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'CreateDate'
        DataType = ftDateTime
      end
      item
        Name = 'Updater'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'UpdateDate'
        DataType = ftDateTime
      end>
    IndexDefs = <>
    PacketRecords = 500
    Params = <>
    ProviderName = 'PCategory'
    RemoteServer = DM.SPub_DM
    StoreDefs = True
    Left = 87
    Top = 181
    object CCategory1CategoryID: TStringField
      FieldName = 'CategoryID'
      Size = 15
    end
    object CCategory1CategoryName: TStringField
      FieldName = 'CategoryName'
      Size = 100
    end
    object CCategory1ParentID: TStringField
      FieldName = 'ParentID'
      Size = 15
    end
  end
  object CMCategory: TClientDataSet
    Aggregates = <>
    DisableStringTrim = True
    PacketRecords = 500
    Params = <>
    ProviderName = 'PMCategory'
    RemoteServer = DM.SPub_DM
    Left = 226
    Top = 181
    object CMCategoryCategoryID: TStringField
      DisplayLabel = #32534#21495
      DisplayWidth = 10
      FieldName = 'CategoryID'
      Size = 15
    end
    object CMCategoryCategoryName: TStringField
      DisplayLabel = #21517#31216
      DisplayWidth = 20
      FieldName = 'CategoryName'
      Size = 100
    end
    object CMCategoryParentID: TStringField
      DisplayLabel = #19978#32423#32534#21495
      DisplayWidth = 10
      FieldName = 'ParentID'
      Size = 15
    end
    object CMCategoryRemark: TStringField
      DisplayLabel = #22791#27880
      DisplayWidth = 20
      FieldName = 'Remark'
      Size = 200
    end
    object CMCategoryCreater: TStringField
      DisplayLabel = #21019#24314#32773
      FieldName = 'Creater'
      Size = 10
    end
    object CMCategoryCreateDate: TDateTimeField
      DisplayLabel = #21019#24314#26085#26399
      FieldName = 'CreateDate'
    end
    object CMCategoryUpdater: TStringField
      DisplayLabel = #26356#26032#32773
      FieldName = 'Updater'
      Size = 10
    end
    object CMCategoryUpdateDate: TDateTimeField
      DisplayLabel = #26356#26032#26085#26399
      FieldName = 'UpdateDate'
    end
  end
  object CVMateriel: TClientDataSet
    Aggregates = <>
    DisableStringTrim = True
    Params = <>
    ProviderName = 'PVMateriel'
    RemoteServer = DM.SPub_DM
    Left = 157
    Top = 181
    object CVMaterielPartNo: TStringField
      DisplayLabel = #26009#21495
      DisplayWidth = 10
      FieldName = 'PartNo'
      Size = 30
    end
    object CVMaterielPartNameC: TStringField
      DisplayLabel = #21697#21517'('#20013#25991')'
      DisplayWidth = 10
      FieldName = 'PartNameC'
      Size = 50
    end
    object CVMaterielPartNameE: TStringField
      DisplayLabel = #21697#21517'('#33521#25991')'
      DisplayWidth = 10
      FieldName = 'PartNameE'
      Size = 50
    end
    object CVMaterielZjm: TWideStringField
      DisplayLabel = #21161#35760#30721
      DisplayWidth = 10
      FieldName = 'Zjm'
      ReadOnly = True
    end
    object CVMaterielModel: TStringField
      DisplayLabel = #22411#21495
      DisplayWidth = 10
      FieldName = 'Model'
      Size = 30
    end
    object CVMaterielColor: TStringField
      DisplayLabel = #39068#33394
      DisplayWidth = 6
      FieldName = 'Color'
      Size = 12
    end
    object CVMaterielCategoryID: TStringField
      DisplayLabel = #31867#21035#32534#21495
      DisplayWidth = 10
      FieldName = 'CategoryID'
      Size = 15
    end
    object CVMaterielFullCategoryName: TWideStringField
      DisplayLabel = #31867#21035
      DisplayWidth = 10
      FieldName = 'FullCategoryName'
      ReadOnly = True
      Size = 4000
    end
    object CVMaterielUnitID: TStringField
      DisplayLabel = #21333#20301#32534#21495
      FieldName = 'UnitID'
      Size = 4
    end
    object CVMaterielUnitName: TStringField
      DisplayLabel = #21333#20301
      FieldName = 'UnitName'
      Size = 10
    end
    object CVMaterielTotalQty: TFloatField
      DisplayLabel = #24635#24211#23384
      FieldName = 'TotalQty'
      ReadOnly = True
    end
    object CVMaterielRemark: TStringField
      DisplayLabel = #22791#27880
      DisplayWidth = 10
      FieldName = 'Remark'
      Size = 200
    end
  end
  object CMCategory1: TClientDataSet
    Aggregates = <>
    DisableStringTrim = True
    PacketRecords = 500
    Params = <>
    ProviderName = 'PMCategory'
    RemoteServer = DM.SPub_DM
    Left = 294
    Top = 127
    object StringField1: TStringField
      FieldName = 'CategoryID'
      Size = 15
    end
    object StringField2: TStringField
      FieldName = 'CategoryName'
      Size = 100
    end
    object StringField3: TStringField
      FieldName = 'ParentID'
      Size = 15
    end
    object StringField4: TStringField
      FieldName = 'Remark'
      Size = 200
    end
    object StringField5: TStringField
      FieldName = 'Creater'
      Size = 10
    end
    object DateTimeField1: TDateTimeField
      FieldName = 'CreateDate'
    end
    object StringField6: TStringField
      FieldName = 'Updater'
      Size = 10
    end
    object DateTimeField2: TDateTimeField
      FieldName = 'UpdateDate'
    end
  end
  object CVOrderData: TClientDataSet
    Aggregates = <>
    DisableStringTrim = True
    Params = <>
    ProviderName = 'PVOrderData'
    RemoteServer = DM.SPub_DM
    Left = 294
    Top = 181
    object CVOrderDataOrderNo: TStringField
      DisplayLabel = #35746#21333#21495
      DisplayWidth = 10
      FieldName = 'OrderNo'
      Size = 15
    end
    object CVOrderDataStatus: TStringField
      DisplayLabel = #29366#24577
      FieldName = 'Status'
      FixedChar = True
      Size = 1
    end
    object CVOrderDataCustomerID: TStringField
      DisplayLabel = #23458#25143#32534#21495
      FieldName = 'CustomerID'
      Size = 15
    end
    object CVOrderDataShortname: TStringField
      DisplayLabel = #31616#31216
      DisplayWidth = 10
      FieldName = 'Shortname'
    end
    object CVOrderDataZjm: TWideStringField
      DisplayLabel = #21161#35760#30721
      DisplayWidth = 10
      FieldName = 'Zjm'
      ReadOnly = True
      Size = 4000
    end
    object CVOrderDataFullName: TStringField
      DisplayLabel = #23458#25143#20840#31216
      DisplayWidth = 20
      FieldName = 'FullName'
      Size = 100
    end
    object CVOrderDataShipDate: TDateTimeField
      DisplayLabel = #20132#36135#26085#26399
      FieldName = 'ShipDate'
    end
    object CVOrderDataRemark: TStringField
      DisplayLabel = #22791#27880
      DisplayWidth = 20
      FieldName = 'Remark'
      Size = 200
    end
  end
  object CCompany: TClientDataSet
    Aggregates = <>
    DisableStringTrim = True
    PacketRecords = 500
    Params = <>
    ProviderName = 'PCompany'
    RemoteServer = DM.SPub_DM
    Left = 367
    Top = 14
    object CCompanyCompanyID: TStringField
      DisplayLabel = #32534#21495
      DisplayWidth = 6
      FieldName = 'CompanyID'
      Size = 10
    end
    object CCompanyCompanyNameC: TStringField
      DisplayLabel = #20844#21496#21517'('#20013#25991')'
      DisplayWidth = 20
      FieldName = 'CompanyNameC'
      Size = 200
    end
    object CCompanyCompanyNameE: TStringField
      DisplayLabel = #20844#21496#21517'('#33521#25991')'
      DisplayWidth = 10
      FieldName = 'CompanyNameE'
      Size = 200
    end
    object CCompanyNonce: TBooleanField
      DisplayLabel = #40664#35748
      FieldName = 'Nonce'
    end
    object CCompanyAddress: TStringField
      DisplayLabel = #22320#22336
      DisplayWidth = 20
      FieldName = 'Address'
      Required = True
      Size = 200
    end
    object CCompanyPostalCode: TStringField
      DisplayLabel = #37038#32534
      DisplayWidth = 6
      FieldName = 'PostalCode'
    end
    object CCompanyTelephone: TStringField
      DisplayLabel = #32852#31995#30005#35805
      DisplayWidth = 10
      FieldName = 'Telephone'
    end
    object CCompanyFax: TStringField
      DisplayLabel = #20256#30495
      DisplayWidth = 10
      FieldName = 'Fax'
    end
    object CCompanyWeb: TStringField
      DisplayLabel = #32593#31449
      DisplayWidth = 10
      FieldName = 'Web'
      Size = 50
    end
    object CCompanyEmail: TStringField
      DisplayWidth = 10
      FieldName = 'Email'
      Size = 50
    end
    object CCompanyLinkMan: TStringField
      DisplayLabel = #32852#31995#20154
      DisplayWidth = 10
      FieldName = 'LinkMan'
    end
    object CCompanyLogo: TBlobField
      DisplayLabel = 'Logo'#26631#24535
      FieldName = 'Logo'
    end
    object CCompanyRemark: TStringField
      DisplayLabel = #22791#27880
      DisplayWidth = 10
      FieldName = 'Remark'
      Size = 200
    end
  end
  object CInvCurrent: TClientDataSet
    Aggregates = <>
    DataSetField = CmaterielQInvCurrent
    Params = <>
    Left = 368
    Top = 68
    object CInvCurrentStockName: TStringField
      DisplayLabel = #20179#24211
      DisplayWidth = 10
      FieldName = 'StockName'
      Size = 100
    end
    object CInvCurrentUnitName: TStringField
      DisplayLabel = #21333#20301
      FieldName = 'UnitName'
      Visible = False
      Size = 10
    end
    object CInvCurrentPrice: TFloatField
      DisplayLabel = #21333#20215
      FieldName = 'Price'
    end
    object CInvCurrentQty: TFloatField
      DisplayLabel = #25968#37327
      FieldName = 'Qty'
    end
  end
end