udmbase.dfm

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

    object CemployeeSex: TStringField
      DisplayLabel = #24615#21035
      FieldName = 'Sex'
      FixedChar = True
      Size = 1
    end
    object CemployeeEntryDate: TDateTimeField
      DisplayLabel = #20837#21378#26085#26399
      FieldName = 'EntryDate'
    end
    object CemployeePosition: TStringField
      DisplayLabel = #32844#20301
      FieldName = 'Position'
      Size = 50
    end
    object CemployeePicture: TBlobField
      DisplayLabel = #29031#29255
      FieldName = 'Picture'
    end
    object CemployeeRemark: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'Remark'
      Size = 100
    end
    object CemployeeCreater: TStringField
      DisplayLabel = #21019#24314#32773
      FieldName = 'Creater'
      Size = 15
    end
    object CemployeeCreateDate: TDateTimeField
      DisplayLabel = #21019#24314#26085#26399
      FieldName = 'CreateDate'
    end
    object CemployeeUpdater: TStringField
      DisplayLabel = #26356#26032#32773
      FieldName = 'Updater'
      Size = 15
    end
    object CemployeeUpdateDate: TDateTimeField
      DisplayLabel = #26356#26032#26085#26399
      FieldName = 'UpdateDate'
    end
  end
  object Cdept: TClientDataSet
    Aggregates = <>
    DisableStringTrim = True
    IndexName = 'DEFAULT_ORDER'
    PacketRecords = 500
    Params = <>
    ProviderName = 'Pdepartment'
    ReadOnly = True
    RemoteServer = DM.SPub_DM
    Left = 157
    Top = 14
    object CdeptDeptID: TStringField
      FieldName = 'DeptID'
      Size = 15
    end
    object CdeptDeptName: TStringField
      FieldName = 'DeptName'
      Size = 100
    end
    object CdeptParentID: TStringField
      FieldName = 'ParentID'
      Size = 15
    end
  end
  object CCustomer: TClientDataSet
    Aggregates = <>
    DisableStringTrim = True
    PacketRecords = 500
    Params = <>
    ProviderName = 'PCustomer'
    RemoteServer = DM.SPub_DM
    Left = 294
    Top = 14
    object CCustomerCustomerID: TStringField
      DisplayLabel = #32534#21495
      FieldName = 'CustomerID'
      Size = 15
    end
    object CCustomerShortName: TStringField
      DisplayLabel = #23458#25143#31616#31216
      DisplayWidth = 10
      FieldName = 'ShortName'
    end
    object CCustomerFullName: TStringField
      DisplayLabel = #23458#25143#20840#31216
      DisplayWidth = 20
      FieldName = 'FullName'
      Size = 100
    end
    object CCustomerStatus: TBooleanField
      DisplayLabel = #29366#24577
      FieldName = 'Status'
    end
    object CCustomerGrade: TStringField
      DisplayLabel = #31561#32423
      FieldName = 'Grade'
      Size = 2
    end
    object CCustomerCountry: TStringField
      DisplayLabel = #22269#23478
      DisplayWidth = 10
      FieldName = 'Country'
    end
    object CCustomerCity: TStringField
      DisplayLabel = #22478#24066
      DisplayWidth = 10
      FieldName = 'City'
    end
    object CCustomerAddress: TStringField
      DisplayLabel = #22320#22336
      DisplayWidth = 20
      FieldName = 'Address'
      Size = 200
    end
    object CCustomerPostCode: TStringField
      DisplayLabel = #37038#32534
      DisplayWidth = 6
      FieldName = 'PostCode'
    end
    object CCustomerContact: TStringField
      DisplayLabel = #32852#31995#20154
      DisplayWidth = 10
      FieldName = 'Contact'
    end
    object CCustomerTel: TStringField
      DisplayLabel = #30005#35805
      DisplayWidth = 10
      FieldName = 'Tel'
    end
    object CCustomerFax: TStringField
      DisplayLabel = #20256#30495
      DisplayWidth = 10
      FieldName = 'Fax'
    end
    object CCustomerEmail: TStringField
      DisplayWidth = 10
      FieldName = 'Email'
      Size = 50
    end
    object CCustomerWeb: TStringField
      DisplayLabel = #32593#22336
      DisplayWidth = 10
      FieldName = 'Web'
      Size = 50
    end
    object CCustomerRemark: TStringField
      DisplayLabel = #22791#27880
      DisplayWidth = 10
      FieldName = 'Remark'
      Size = 1000
    end
    object CCustomerCreator: TStringField
      DisplayLabel = #21019#24314#20154
      FieldName = 'Creator'
      Size = 10
    end
    object CCustomerCreateDate: TDateTimeField
      DisplayLabel = #21019#24314#26085#26399
      FieldName = 'CreateDate'
    end
    object CCustomerUpdator: TStringField
      DisplayLabel = #20462#25913#20154
      FieldName = 'Updator'
      Size = 10
    end
    object CCustomerUpdateDate: TDateTimeField
      DisplayLabel = #20462#25913#26085#26399
      FieldName = 'UpdateDate'
    end
  end
  object Cvendor: TClientDataSet
    Aggregates = <>
    DisableStringTrim = True
    PacketRecords = 500
    Params = <>
    ProviderName = 'Pvendor'
    RemoteServer = DM.SPub_DM
    Left = 294
    Top = 70
    object CvendorVendorID: TStringField
      DisplayLabel = #32534#21495
      FieldName = 'VendorID'
      Size = 15
    end
    object CvendorShortName: TStringField
      DisplayLabel = #20379#24212#21830#31616#31216
      DisplayWidth = 10
      FieldName = 'ShortName'
    end
    object CvendorFullName: TStringField
      DisplayLabel = #20379#24212#21830#20840#31216
      DisplayWidth = 20
      FieldName = 'FullName'
      Size = 100
    end
    object CvendorStatus: TBooleanField
      DisplayLabel = #29366#24577
      FieldName = 'Status'
    end
    object CvendorGrade: TStringField
      DisplayLabel = #31561#32423
      FieldName = 'Grade'
      Size = 2
    end
    object CvendorCountry: TStringField
      DisplayLabel = #22269#23478
      DisplayWidth = 10
      FieldName = 'Country'
    end
    object CvendorCity: TStringField
      DisplayLabel = #22478#24066
      DisplayWidth = 10
      FieldName = 'City'
    end
    object CvendorAddress: TStringField
      DisplayLabel = #22320#22336
      DisplayWidth = 20
      FieldName = 'Address'
      Size = 200
    end
    object CvendorPostCode: TStringField
      DisplayLabel = #37038#32534
      DisplayWidth = 10
      FieldName = 'PostCode'
    end
    object CvendorContact: TStringField
      DisplayLabel = #32852#31995#20154
      DisplayWidth = 10
      FieldName = 'Contact'
    end
    object CvendorTel: TStringField
      DisplayLabel = #30005#35805
      DisplayWidth = 10
      FieldName = 'Tel'
    end
    object CvendorFax: TStringField
      DisplayLabel = #20256#30495
      DisplayWidth = 10
      FieldName = 'Fax'
    end
    object CvendorEmail: TStringField
      DisplayWidth = 10
      FieldName = 'Email'
      Size = 50
    end
    object CvendorWeb: TStringField
      DisplayLabel = #32593#22336
      DisplayWidth = 10
      FieldName = 'Web'
      Size = 50
    end
    object CvendorRemark: TStringField
      DisplayLabel = #22791#27880
      DisplayWidth = 20
      FieldName = 'Remark'
      Size = 1000
    end
    object CvendorCreator: TStringField
      DisplayLabel = #21019#24314#20154
      FieldName = 'Creator'
      Size = 10
    end
    object CvendorCreateDate: TDateTimeField
      DisplayLabel = #21019#24314#26085#26399
      FieldName = 'CreateDate'
    end
    object CvendorUpdator: TStringField
      DisplayLabel = #26356#26032#20154
      FieldName = 'Updator'
      Size = 10
    end
    object CvendorUpdateDate: TDateTimeField
      DisplayLabel = #26356#26032#26085#26399
      FieldName = 'UpdateDate'
    end
  end
  object Cconvert: TClientDataSet
    Aggregates = <>
    DataSetField = CUnitSetQConvertInfo
    DisableStringTrim = True
    Params = <>
    OnNewRecord = CconvertNewRecord
    Left = 226
    Top = 70
    object CconvertUnitID1: TStringField
      DisplayLabel = #32534#21495'1'
      FieldName = 'UnitID1'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Size = 4
    end
    object CconvertUnitID2: TStringField
      DisplayLabel = #36716#25442#32534#21495
      FieldName = 'UnitID2'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Size = 4
    end
    object CconvertUnitName: TStringField
      DisplayLabel = #36716#25442#21333#20301
      FieldKind = fkLookup
      FieldName = 'UnitName'
      LookupDataSet = CUnitName
      LookupKeyFields = 'UnitID'
      LookupResultField = 'UnitName'
      KeyFields = 'UnitID2'
      Lookup = True
    end
    object CconvertScale: TBCDField
      DisplayLabel = #36716#25442#27604#29575
      DisplayWidth = 8
      FieldName = 'Scale'
      Precision = 18
    end
    object CconvertRemark: TStringField
      DisplayLabel = #22791#27880
      DisplayWidth = 10
      FieldName = 'Remark'
      Size = 100
    end
    object CconvertCreater: TStringField
      DisplayLabel = #21019#24314#20154
      FieldName = 'Creater'
      Size = 10
    end
    object CconvertCreateDate: TDateTimeField
      DisplayLabel = #21019#24314#26085#26399
      FieldName = 'CreateDate'
    end
    object CconvertUpdater: TStringField
      DisplayLabel = #26356#26032#20154
      FieldName = 'Updater'
      Size = 10
    end
    object CconvertUpdateDate: TDateTimeField
      DisplayLabel = #26356#26032#26085#26399
      FieldName = 'UpdateDate'
    end
  end
  object Cmater: TClientDataSet
    Aggregates = <>
    DisableStringTrim = True
    PacketRecords = 500
    Params = <>
    ProviderName = 'PVMateriel'
    RemoteServer = DM.SPub_DM
    Left = 157
    Top = 70
  end
  object CUnitName: TClientDataSet
    Aggregates = <>
    DisableStringTrim = True
    PacketRecords = 500
    Params = <>
    ProviderName = 'PUnitInfo'
    RemoteServer = DM.SPub_DM
    Left = 157
    Top = 127
    object CUnitNameUnitID: TStringField
      FieldName = 'UnitID'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Size = 4
    end
    object CUnitNameUnitName: TStringField
      FieldName = 'UnitName'
      Size = 10
    end
    object CUnitNameUnitLogo: TStringField
      FieldName = 'UnitLogo'
      Size = 10
    end
    object CUnitNameRemark: TStringField
      FieldName = 'Remark'
      Size = 200
    end
    object CUnitNameCreater: TStringField
      FieldName = 'Creater'
      Size = 10
    end
    object CUnitNameCreateDate: TDateTimeField
      FieldName = 'CreateDate'
    end
    object CUnitNameUpdater: TStringField
      FieldName = 'Updater'
      Size = 10
    end
    object CUnitNameUpDateDate: TDateTimeField
      FieldName = 'UpDateDate'
    end
  end
  object CStock: TClientDataSet
    Aggregates = <>
    DisableStringTrim = True
    Params = <
      item
        DataType = ftSmallint
        Name = 'ItemType'
        ParamType = ptInput
        Value = '4'
      end>
    ProviderName = 'PStockInfo'
    RemoteServer = DM.SPub_DM
    OnNewRecord = CMoneyNewRecord
    Left = 21
    Top = 127
    object CStockStockID: TStringField
      DisplayLabel = #32534#21495
      FieldName = 'StockID'
      Size = 4
    end
    object CStockStockName: TStringField
      DisplayLabel = #20179#24211#21517
      DisplayWidth = 10
      FieldName = 'StockName'
      Size = 100
    end
    object CStockAddress: TStringField
      DisplayLabel = #22320#22336
      DisplayWidth = 20
      FieldName = 'Address'
      Size = 200
    end
    object CStockPrincipal: TStringField
      DisplayLabel = #36131#20219#20154
      FieldName = 'Principal'
      Size = 10
    end
    object CStockTelephone: TStringField
      DisplayLabel = #32852#31995#30005#35805
      DisplayWidth = 10
      FieldName = 'Telephone'
    end
    object CStockRemark: TStringField
      DisplayLabel = #22791#27880
      DisplayWidth = 20
      FieldName = 'Remark'
      Size = 200
    end
    object CStockCreater: TStringField
      DisplayLabel = #21019#24314#20154
      FieldName = 'Creater'
      Size = 10
    end
    object CStockCreateDate: TDateTimeField
      DisplayLabel = #21019#24314#26085#26399
      FieldName = 'CreateDate'
    end
    object CStockUpdater: TStringField
      DisplayLabel = #20462#25913#20154
      FieldName = 'Updater'
      Size = 10
    end
    object CStockUpdateDate: TDateTimeField
      DisplayLabel = #20462#25913#26085#26399
      FieldName = 'UpdateDate'
    end
  end
  object CInvInitial: TClientDataSet
    Aggregates = <>
    DataSetField = CmaterielQInvInitial
    DisableStringTrim = True
    PacketRecords = 500
    Params = <>
    BeforePost = CInvInitialBeforePost
    OnNewRecord = CInvInitialNewRecord
    Left = 87
    Top = 127
    object CInvInitialStockID: TStringField
      DisplayLabel = #20179#24211
      FieldName = 'StockID'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      Size = 4
    end
    object CInvInitialStockName: TStringField
      DisplayLabel = #20179#24211
      DisplayWidth = 4
      FieldKind = fkLookup
      FieldName = 'StockName'
      LookupDataSet = CStock
      LookupKeyFields = 'StockID'
      LookupResultField = 'StockName'
      KeyFields = 'StockID'
      Lookup = True
    end
    object CInvInitialPartNo: TStringField
      DisplayLabel = #26009#21495
      DisplayWidth = 10
      FieldName = 'PartNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Visible = False
      Size = 30
    end
    object CInvInitialUnitID: TStringField
      DisplayLabel = #21333#20301
      FieldName = 'UnitID'
      Visible = False
      Size = 4
    end
    object CInvInitialQty: TFloatField
      DisplayLabel = #25968#37327
      FieldName = 'Qty'
    end
    object CInvInitialPrice: TFloatField
      DisplayLabel = #21333#20215
      FieldName = 'Price'
    end
    object CInvInitialTotal: TFloatField
      DisplayLabel = #37329#39069
      FieldName = 'Total'
      ReadOnly = True
      Visible = False
    end
  end
  object CCurrency: TClientDataSet
    Aggregates = <>
    DisableStringTrim = True
    Params = <
      item
        DataType = ftSmallint
        Name = 'ItemType'
        ParamType = ptInput
        Value = '7'
      end>
    ProviderName = 'PCurrency'
    RemoteServer = DM.SPub_DM
    OnNewRecord = CMoneyNewRecord