udmoe.dfm

来自「成本系统三层结构源码 开发工具：Delphi 7.0+SQLServer 20」· DFM 代码 · 共 428 行

object DMOE: TDMOE
  OldCreateOrder = False
  Left = 191
  Top = 110
  Height = 291
  Width = 451
  object COrderData: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'POrderData'
    RemoteServer = DM.SDM1
    BeforeDelete = COrderDataBeforeDelete
    OnNewRecord = COrderDataNewRecord
    Left = 18
    Top = 18
    object COrderDataOrderNo: TWideStringField
      DisplayLabel = #35746#21333#21495
      FieldName = 'OrderNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      Size = 15
    end
    object COrderDataCategory: TWideStringField
      DisplayLabel = #31867#21035#32534#21495
      FieldName = 'Category'
      ProviderFlags = [pfInUpdate]
      Required = True
      Visible = False
      Size = 4
    end
    object COrderDataCategoryName: TStringField
      DisplayLabel = #31867#21035#21517#31216
      DisplayWidth = 10
      FieldKind = fkLookup
      FieldName = 'CategoryName'
      LookupDataSet = CCategoryInfo
      LookupKeyFields = 'CategoryID'
      LookupResultField = 'CategoryName'
      KeyFields = 'Category'
      ProviderFlags = [pfInUpdate]
      Lookup = True
    end
    object COrderDataStatus: TWideStringField
      DisplayLabel = #29366#24577
      FieldName = 'Status'
      ProviderFlags = [pfInUpdate]
      Visible = False
      FixedChar = True
      Size = 1
    end
    object COrderDataOrderDate: TDateTimeField
      DisplayLabel = #19979#21333#26085#26399
      FieldName = 'OrderDate'
      ProviderFlags = [pfInUpdate]
      Required = True
    end
    object COrderDataCustomerID: TWideStringField
      DisplayLabel = #23458#25143#32534#21495
      DisplayWidth = 5
      FieldName = 'CustomerID'
      ProviderFlags = [pfInUpdate]
      Required = True
      Size = 15
    end
    object COrderDataCustomerName: TStringField
      DisplayLabel = #23458#25143
      DisplayWidth = 10
      FieldKind = fkLookup
      FieldName = 'CustomerName'
      LookupDataSet = DMBase.CCustomer
      LookupKeyFields = 'CustomerID'
      LookupResultField = 'ShortName'
      KeyFields = 'CustomerID'
      ProviderFlags = [pfInUpdate]
      Size = 30
      Lookup = True
    end
    object COrderDataCurrencyID: TWideStringField
      DisplayLabel = #36135#24065#32534#21495
      FieldName = 'CurrencyID'
      ProviderFlags = [pfInUpdate]
      Required = True
      OnChange = COrderDataCurrencyIDChange
      Size = 4
    end
    object COrderDataCurrencyName: TStringField
      DisplayLabel = #36135#24065
      DisplayWidth = 6
      FieldKind = fkLookup
      FieldName = 'CurrencyName'
      LookupDataSet = DMBase.CCurrency
      LookupKeyFields = 'CurrencyID'
      LookupResultField = 'CurrNameC'
      KeyFields = 'CurrencyID'
      ProviderFlags = [pfInUpdate]
      Size = 30
      Lookup = True
    end
    object COrderDataRate: TFloatField
      DisplayLabel = #27719#29575
      FieldName = 'Rate'
      ProviderFlags = [pfInUpdate]
    end
    object COrderDataTotalMoney: TFloatField
      DisplayLabel = #24635#37329#39069
      FieldName = 'TotalMoney'
      ProviderFlags = [pfInUpdate]
      Required = True
    end
    object COrderDataPONo: TWideStringField
      DisplayLabel = #23458#25143'PO'
      DisplayWidth = 10
      FieldName = 'PONo'
      ProviderFlags = [pfInUpdate]
    end
    object COrderDataQuantity: TIntegerField
      DisplayLabel = #25968#37327
      FieldName = 'Quantity'
      ProviderFlags = [pfInUpdate]
      Required = True
    end
    object COrderDataShipDate: TDateTimeField
      DisplayLabel = #20132#36135#26085#26399
      FieldName = 'ShipDate'
      ProviderFlags = [pfInUpdate]
      Required = True
    end
    object COrderDataEngineer: TWideStringField
      DisplayLabel = #24037#31243#24072
      FieldName = 'Engineer'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object COrderDataShipedDate: TDateTimeField
      DisplayLabel = #23454#38469#20132#36135#26085#26399
      FieldName = 'ShipedDate'
      ProviderFlags = [pfInUpdate]
    end
    object COrderDataRemark: TWideStringField
      DisplayLabel = #22791#27880
      DisplayWidth = 10
      FieldName = 'Remark'
      ProviderFlags = [pfInUpdate]
      Size = 200
    end
    object COrderDataCreater: TWideStringField
      DisplayLabel = #24320#21333#20154
      FieldName = 'Creater'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object COrderDataCreateDate: TDateTimeField
      DisplayLabel = #24320#21333#26085#26399
      FieldName = 'CreateDate'
      ProviderFlags = [pfInUpdate]
    end
    object COrderDataUpdater: TWideStringField
      DisplayLabel = #26356#26032#20154
      FieldName = 'Updater'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object COrderDataUpdateDate: TDateTimeField
      DisplayLabel = #26356#26032#26085#26399
      FieldName = 'UpdateDate'
      ProviderFlags = [pfInUpdate]
    end
    object COrderDataQBOM: TDataSetField
      DisplayLabel = '<'#29289#26009#28165#21934'>'
      FieldName = 'QBOM'
      ProviderFlags = [pfInUpdate]
    end
    object COrderDataPicture: TBlobField
      DisplayLabel = #22270#29255
      FieldName = 'Picture'
      ProviderFlags = [pfInUpdate]
    end
  end
  object CDocuments: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Precision = 10
        Name = '@Id'
        ParamType = ptInput
        Size = 4
      end>
    ProviderName = 'PDocuments'
    RemoteServer = DM.SDM1
    Left = 88
    Top = 19
    object CDocumentsID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    end
    object CDocumentsCategory: TStringField
      FieldName = 'Category'
      Size = 15
    end
    object CDocumentsExt: TStringField
      FieldName = 'Ext'
      Size = 10
    end
    object CDocumentsContentS: TBlobField
      FieldName = 'ContentS'
    end
    object CDocumentsRemark: TStringField
      FieldName = 'Remark'
      Size = 100
    end
    object CDocumentsCreater: TStringField
      FieldName = 'Creater'
      Size = 15
    end
    object CDocumentsCreateDate: TDateTimeField
      FieldName = 'CreateDate'
    end
  end
  object CStatOrder: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Precision = 10
        Name = '@Flag'
        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
        Size = 2147483647
      end>
    ProviderName = 'PStatOrder'
    RemoteServer = DM.SDM2
    Left = 88
    Top = 72
  end
  object CCategoryInfo: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'POCategory'
    RemoteServer = DM.SPub_DM
    Left = 88
    Top = 128
    object CCategoryInfoCategoryID: TStringField
      DisplayLabel = #32534#21495
      FieldName = 'CategoryID'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Size = 4
    end
    object CCategoryInfoCategoryName: TStringField
      DisplayLabel = #21517#31216
      DisplayWidth = 20
      FieldName = 'CategoryName'
      Size = 100
    end
    object CCategoryInfoRemark: TStringField
      DisplayLabel = #22791#27880
      DisplayWidth = 50
      FieldName = 'Remark'
      Size = 200
    end
    object CCategoryInfoCreater: TStringField
      DisplayLabel = #21019#24314#32773
      FieldName = 'Creater'
      Size = 10
    end
    object CCategoryInfoCreateDate: TDateTimeField
      DisplayLabel = #21019#24314#26085#26399
      FieldName = 'CreateDate'
    end
    object CCategoryInfoUpdater: TStringField
      DisplayLabel = #26356#26032#32773
      FieldName = 'Updater'
      Size = 10
    end
    object CCategoryInfoUpdateDate: TDateTimeField
      DisplayLabel = #26356#26032#26085#26399
      FieldName = 'UpdateDate'
    end
  end
  object CBOM: TClientDataSet
    Aggregates = <>
    DataSetField = COrderDataQBOM
    FieldDefs = <>
    IndexDefs = <>
    Params = <>
    StoreDefs = True
    OnNewRecord = CBOMNewRecord
    Left = 16
    Top = 73
    object CBOMBOMID: TIntegerField
      DisplayLabel = 'BomID'
      FieldName = 'BOMID'
      KeyFields = 'BOMID'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object CBOMOrderNo: TWideStringField
      DisplayLabel = #35746#21333#21495
      FieldName = 'OrderNo'
      Origin = 'OrderNo'
      ProviderFlags = [pfInUpdate]
      Required = True
      Visible = False
      Size = 15
    end
    object CBOMBOMLevel: TSmallintField
      DisplayLabel = #32423#21035
      FieldName = 'BOMLevel'
      ProviderFlags = [pfInUpdate]
      Required = True
    end
    object CBOMPartNo: TWideStringField
      DisplayLabel = #29289#26009#32534#21495
      FieldName = 'PartNo'
      ProviderFlags = [pfInUpdate]
      Required = True
      Size = 30
    end
    object CBOMPartNameE: TStringField
      DisplayLabel = #21697#21517'('#33521#25991')'
      DisplayWidth = 20
      FieldKind = fkLookup
      FieldName = 'PartNameE'
      LookupDataSet = DMBase.CVMateriel
      LookupKeyFields = 'PartNo'
      LookupResultField = 'PartNameE'
      KeyFields = 'PartNo'
      ProviderFlags = [pfInUpdate]
      Size = 50
      Lookup = True
    end
    object CBOMPartNameC: TStringField
      DisplayLabel = #21697#21517'('#20013#25991')'
      DisplayWidth = 20
      FieldKind = fkLookup
      FieldName = 'PartNameC'
      LookupDataSet = DMBase.CVMateriel
      LookupKeyFields = 'PartNo'
      LookupResultField = 'PartNameC'
      KeyFields = 'PartNo'
      ProviderFlags = [pfInUpdate]
      Size = 50
      Lookup = True
    end
    object CBOMModel: TStringField
      DisplayLabel = #22411#21495
      FieldKind = fkLookup
      FieldName = 'Model'
      LookupDataSet = DMBase.CVMateriel
      LookupKeyFields = 'PartNo'
      LookupResultField = 'Model'
      KeyFields = 'PartNo'
      ProviderFlags = [pfInUpdate]
      Lookup = True
    end
    object CBOMColor: TStringField
      DisplayLabel = #39068#33394
      DisplayWidth = 10
      FieldKind = fkLookup
      FieldName = 'Color'
      LookupDataSet = DMBase.CVMateriel
      LookupKeyFields = 'PartNo'
      LookupResultField = 'Color'
      KeyFields = 'PartNo'
      ProviderFlags = [pfInUpdate]
      Lookup = True
    end
    object CBOMParentNo: TWideStringField
      DisplayLabel = #19978#32423#29289#26009
      FieldName = 'ParentNo'
      ProviderFlags = [pfInUpdate]
      Visible = False
      Size = 30
    end
    object CBOMUnitId: TWideStringField
      DisplayLabel = #21333#20301
      FieldName = 'UnitId'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object CBOMUnitName: TStringField
      DisplayLabel = #21333#20301
      FieldKind = fkLookup
      FieldName = 'UnitName'
      LookupDataSet = DMBase.CVMateriel
      LookupKeyFields = 'PartNo'
      LookupResultField = 'UnitName'
      KeyFields = 'PartNo'
      ProviderFlags = [pfInUpdate]
      Size = 10
      Lookup = True
    end
    object CBOMStartDate: TDateTimeField
      DisplayLabel = #24320#22987#26085#26399
      FieldName = 'StartDate'
      ProviderFlags = [pfInUpdate]
    end
    object CBOMEndDate: TDateTimeField
      DisplayLabel = #32467#26463#26085#26399
      FieldName = 'EndDate'
      ProviderFlags = [pfInUpdate]
    end
    object CBOMPerAssemblyQty: TFloatField
      DisplayLabel = #39044#35013#37197#25968#37327
      FieldName = 'PerAssemblyQty'
      ProviderFlags = [pfInUpdate]
    end
    object CBOMModifiedDate: TDateTimeField
      DisplayLabel = #20462#25913#26085#26399
      FieldName = 'ModifiedDate'
      ProviderFlags = [pfInUpdate]
    end
  end
end