udmpo.dfm

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

object DMPO: TDMPO
  OldCreateOrder = False
  Left = 199
  Top = 112
  Height = 246
  Width = 442
  object CPoMas: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftDateTime
        Name = '@DateFrm'
        ParamType = ptInput
      end
      item
        DataType = ftDateTime
        Name = '@DateTo'
        ParamType = ptInput
      end>
    ProviderName = 'PPO'
    RemoteServer = DM.SDM1
    OnNewRecord = CPoMasNewRecord
    OnReconcileError = CPoMasReconcileError
    Left = 18
    Top = 11
    object CPoMasPONo: TStringField
      DisplayLabel = #21333#21495
      FieldName = 'PONo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      Size = 15
    end
    object CPoMasStatus: TStringField
      DisplayLabel = #29366#24577
      FieldName = 'Status'
      ProviderFlags = [pfInUpdate]
      Required = True
      Visible = False
      FixedChar = True
      Size = 1
    end
    object CPoMasCategory: TStringField
      DisplayLabel = #31867#21035#32534#21495
      FieldName = 'Category'
      ProviderFlags = [pfInUpdate]
      Required = True
      Visible = False
      Size = 1
    end
    object CPoMasCategoryName: TStringField
      DisplayLabel = #37319#36141#31867#21035
      DisplayWidth = 10
      FieldKind = fkLookup
      FieldName = 'CategoryName'
      LookupDataSet = CPoCategory
      LookupKeyFields = 'ItemID'
      LookupResultField = 'ItemName'
      KeyFields = 'Category'
      Size = 30
      Lookup = True
    end
    object CPoMasVersion: TSmallintField
      DisplayLabel = #29256#26412
      FieldName = 'Version'
      ProviderFlags = [pfInUpdate]
      Required = True
    end
    object CPoMasOrderDate: TDateTimeField
      DisplayLabel = #37319#36141#26085#26399
      FieldName = 'OrderDate'
      ProviderFlags = [pfInUpdate]
      Required = True
    end
    object CPoMasShipDate: TDateTimeField
      DisplayLabel = #20132#36135#26085#26399
      FieldName = 'ShipDate'
      ProviderFlags = [pfInUpdate]
      Required = True
    end
    object CPoMasFinished: TBooleanField
      DisplayLabel = #24050#39564#25910'?'
      FieldName = 'Finished'
      ReadOnly = True
    end
    object CPoMasDrawBill: TStringField
      DisplayLabel = #24320#21333#20844#21496#32534#21495
      FieldName = 'DrawBill'
      Visible = False
      Size = 10
    end
    object CPoMasCompanyFrom: TStringField
      DisplayLabel = #24320#21333#26041
      DisplayWidth = 20
      FieldKind = fkLookup
      FieldName = 'CompanyFrom'
      LookupDataSet = DMBase.CCompany
      LookupKeyFields = 'CompanyID'
      LookupResultField = 'CompanyNameC'
      KeyFields = 'DrawBill'
      Size = 50
      Lookup = True
    end
    object CPoMasDeliver: TStringField
      DisplayLabel = #36865#36135#20844#21496#32534#21495
      FieldName = 'Deliver'
      Visible = False
      Size = 10
    end
    object CPoMasCompanyTO: TStringField
      DisplayLabel = #36865#36135#22320#22336
      DisplayWidth = 20
      FieldKind = fkLookup
      FieldName = 'CompanyTo'
      LookupDataSet = DMBase.CCompany
      LookupKeyFields = 'CompanyID'
      LookupResultField = 'Address'
      KeyFields = 'Deliver'
      Visible = False
      Size = 100
      Lookup = True
    end
    object CPoMasVenderID: TStringField
      DisplayLabel = #20379#24212#21830#32534#21495
      FieldName = 'VenderID'
      ProviderFlags = [pfInUpdate]
      Required = True
      Visible = False
      Size = 15
    end
    object CPoMasVendorName: TStringField
      DisplayLabel = #20379#24212#21830
      DisplayWidth = 10
      FieldKind = fkLookup
      FieldName = 'VendorName'
      LookupDataSet = DMBase.Cvendor
      LookupKeyFields = 'VendorID'
      LookupResultField = 'ShortName'
      KeyFields = 'VenderID'
      Size = 30
      Lookup = True
    end
    object CPoMasCurrencyID: TStringField
      DisplayLabel = #36135#24065#32534#21495
      FieldName = 'CurrencyID'
      ProviderFlags = [pfInUpdate]
      Required = True
      Visible = False
      OnChange = CPoMasCurrencyIDChange
      Size = 4
    end
    object CPoMasCurrencyName: TStringField
      DisplayLabel = #36135#24065
      DisplayWidth = 6
      FieldKind = fkLookup
      FieldName = 'CurrencyName'
      LookupDataSet = DMBase.CCurrency
      LookupKeyFields = 'CurrencyID'
      LookupResultField = 'CurrNameC'
      KeyFields = 'CurrencyID'
      Lookup = True
    end
    object CPoMasRate: TFloatField
      DisplayLabel = #27719#29575
      FieldName = 'Rate'
      ProviderFlags = [pfInUpdate]
      Required = True
    end
    object CPoMasTax: TFloatField
      DisplayLabel = #31246#37329
      FieldName = 'Tax'
      ProviderFlags = [pfInUpdate]
    end
    object CPoMasShipVia: TStringField
      DisplayLabel = #36865#36135#26041#24335#32534#21495
      FieldName = 'ShipVia'
      Visible = False
      Size = 10
    end
    object CPoMasShipViaName: TStringField
      DisplayLabel = #36865#36135#26041#24335
      DisplayWidth = 10
      FieldKind = fkLookup
      FieldName = 'ShipViaName'
      LookupDataSet = CShipVia
      LookupKeyFields = 'ItemID'
      LookupResultField = 'ItemName'
      KeyFields = 'ShipVia'
      Size = 100
      Lookup = True
    end
    object CPoMasPayMode: TStringField
      DisplayLabel = #20184#27454#26041#24335#32534#21495
      FieldName = 'PayMode'
      Visible = False
      Size = 10
    end
    object CPoMasPayModeName: TStringField
      DisplayLabel = #20184#27454#26041#24335
      DisplayWidth = 20
      FieldKind = fkLookup
      FieldName = 'PayModeName'
      LookupDataSet = CPayMode
      LookupKeyFields = 'ItemID'
      LookupResultField = 'ItemName'
      KeyFields = 'PayMode'
      Size = 100
      Lookup = True
    end
    object CPoMasPayTerm: TStringField
      DisplayLabel = #20184#27454#26465#20214#32534#21495
      FieldName = 'PayTerm'
      Visible = False
      Size = 10
    end
    object CPoMasPayTermName: TStringField
      DisplayLabel = #20184#27454#26465#20214
      DisplayWidth = 20
      FieldKind = fkLookup
      FieldName = 'PayTermName'
      LookupDataSet = CPayTerm
      LookupKeyFields = 'ItemID'
      LookupResultField = 'ItemName'
      KeyFields = 'PayTerm'
      Size = 100
      Lookup = True
    end
    object CPoMasCarriage: TFloatField
      DisplayLabel = #36816#36153
      FieldName = 'Carriage'
      ProviderFlags = [pfInUpdate]
    end
    object CPoMasAdjust: TFloatField
      DisplayLabel = #35843#25972
      FieldName = 'Adjust'
      ProviderFlags = [pfInUpdate]
    end
    object CPoMasDiscount1: TFloatField
      DisplayLabel = #25240#25187
      FieldName = 'Discount1'
      ProviderFlags = [pfInUpdate]
      OnValidate = CPoMasDiscount1Validate
      DisplayFormat = '#%'
    end
    object CPoMasTotalMoney: TFloatField
      DisplayLabel = #24635#37329#39069
      FieldName = 'TotalMoney'
      ProviderFlags = [pfInUpdate]
      ReadOnly = True
    end
    object CPoMasRemark: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'Remark'
      ProviderFlags = [pfInUpdate]
      Size = 100
    end
    object CPoMasCreater: TStringField
      DisplayLabel = #24320#21333#20154
      FieldName = 'Creater'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object CPoMasCreateDate: TDateTimeField
      DisplayLabel = #24320#21333#26085#26399
      FieldName = 'CreateDate'
      ProviderFlags = [pfInUpdate]
    end
    object CPoMasUpdater: TStringField
      DisplayLabel = #20462#25913#20154
      FieldName = 'Updater'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object CPoMasUpDateDate: TDateTimeField
      DisplayLabel = #20462#25913#26085#26399
      FieldName = 'UpDateDate'
      ProviderFlags = [pfInUpdate]
    end
    object CPoMasApprover: TStringField
      DisplayLabel = #25209#26680#20154
      FieldName = 'Approver'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object CPoMasApproveDate: TDateTimeField
      DisplayLabel = #25209#26680#26085#26399
      FieldName = 'ApproveDate'
      ProviderFlags = [pfInUpdate]
    end
    object CPoMasConfirmer: TStringField
      DisplayLabel = #35760#24080#20154
      FieldName = 'Confirmer'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object CPoMasConfirmDate: TDateTimeField
      DisplayLabel = #35760#24080#26085#26399
      FieldName = 'ConfirmDate'
      ProviderFlags = [pfInUpdate]
    end
    object CPoMasPoSub: TDataSetField
      DisplayLabel = '<'#37319#36141#26126#32454'>'
      FieldName = 'PoSub'
      Visible = False
    end
  end
  object CPoSub: TClientDataSet
    Aggregates = <>
    DataSetField = CPoMasPoSub
    Params = <>
    OnNewRecord = CPoSubNewRecord
    Left = 18
    Top = 67
    object CPoSubPONo: TStringField
      DisplayLabel = #37319#36141#21333
      FieldName = 'PONo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      Visible = False
      Size = 15
    end
    object CPoSubOrderNo: TStringField
      DisplayLabel = #35746#21333#21495
      DisplayWidth = 10
      FieldName = 'OrderNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      OnValidate = CPoSubOrderNoValidate
      Size = 15
    end
    object CPoSubPartNo: TStringField
      DisplayLabel = #26009#21495
      DisplayWidth = 15
      FieldName = 'PartNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      OnChange = CPoSubPartNoChange
      OnValidate = CPoSubPartNoValidate
      Size = 30
    end
    object CPoSubPartNameC: TStringField
      DisplayLabel = #21697#21517'('#20013#25991')'
      DisplayWidth = 15
      FieldKind = fkLookup
      FieldName = 'PartNameC'
      LookupDataSet = DMBase.CVMateriel
      LookupKeyFields = 'PartNo'
      LookupResultField = 'PartNameC'
      KeyFields = 'PartNo'
      Size = 30
      Lookup = True
    end
    object CPoSubPartNameE: TStringField