📄 udmpo.dfm

📁 成本系统三层结构源码开发工具：Delphi 7.0+SQLServer 2005 主要技术：Midas、COM+ 所用第三方控件： FastReport V2.47 D7 Inforp
💻 DFM
📖 第 1 页 / 共 2 页
字号:
上一页 12
      DisplayLabel = #21697#21517'('#33521#25991')'
      DisplayWidth = 15
      FieldKind = fkLookup
      FieldName = 'PartNameE'
      LookupDataSet = DMBase.CVMateriel
      LookupKeyFields = 'PartNo'
      LookupResultField = 'PartNameE'
      KeyFields = 'PartNo'
      Size = 30
      Lookup = True
    end
    object CPoSubModel: TStringField
      DisplayLabel = #22411#21495'/'#35268#26684
      DisplayWidth = 15
      FieldKind = fkLookup
      FieldName = 'Model'
      LookupDataSet = DMBase.CVMateriel
      LookupKeyFields = 'PartNo'
      LookupResultField = 'Model'
      KeyFields = 'PartNo'
      Size = 30
      Lookup = True
    end
    object CPoSubColor: TStringField
      DisplayLabel = #39068#33394
      DisplayWidth = 15
      FieldKind = fkLookup
      FieldName = 'Color'
      LookupDataSet = DMBase.CVMateriel
      LookupKeyFields = 'PartNo'
      LookupResultField = 'Color'
      KeyFields = 'PartNo'
      Size = 30
      Lookup = True
    end
    object CPoSubUnitID: TStringField
      DisplayLabel = #21333#20301#32534#21495
      FieldName = 'UnitID'
      ProviderFlags = [pfInUpdate]
      Required = True
      Size = 4
    end
    object CPoSubUnitName: TStringField
      DisplayLabel = #21333#20301
      DisplayWidth = 4
      FieldKind = fkLookup
      FieldName = 'UnitName'
      LookupDataSet = DMBase.CUnitName
      LookupKeyFields = 'UnitID'
      LookupResultField = 'UnitName'
      KeyFields = 'UnitID'
      Size = 10
      Lookup = True
    end
    object CPoSubQty: TFloatField
      DisplayLabel = #37319#36141#25968#37327
      FieldName = 'Qty'
      ProviderFlags = [pfInUpdate]
      Required = True
    end
    object CPoSubPrice: TFloatField
      DisplayLabel = #21333#20215
      FieldName = 'Price'
      ProviderFlags = [pfInUpdate]
      Required = True
    end
    object CPoSubArriveQty: TFloatField
      DisplayLabel = #25910#36135#25968#37327
      FieldName = 'ArriveQty'
      ProviderFlags = [pfInUpdate]
    end
    object CPoSubBackQty: TFloatField
      DisplayLabel = #36864#36135#25968#37327
      FieldName = 'BackQty'
      ProviderFlags = [pfInUpdate]
    end
    object CPoSubDifferQty: TFloatField
      DisplayLabel = #27424#25968
      FieldName = 'DifferQty'
      ReadOnly = True
    end
    object CPoSubArriveDate: TDateTimeField
      DisplayLabel = #36865#36135#26085#26399
      FieldName = 'ArriveDate'
      ProviderFlags = [pfInUpdate]
    end
    object CPoSubShipDate: TDateTimeField
      DisplayLabel = #20132#36135#26085#26399
      FieldName = 'ShipDate'
      ProviderFlags = [pfInUpdate]
    end
    object CPoSubRemark: TMemoField
      DisplayLabel = #22791#27880
      FieldName = 'Remark'
      ProviderFlags = [pfInUpdate]
      BlobType = ftMemo
    end
    object CPoSubDiscount: TFloatField
      DisplayLabel = #25240#25187
      FieldName = 'Discount'
      ProviderFlags = [pfInUpdate]
      OnValidate = CPoSubDiscountValidate
      DisplayFormat = '#%'
    end
    object CPoSubSubtotal: TFloatField
      DisplayLabel = #37329#39069
      FieldName = 'Subtotal'
      ProviderFlags = [pfInUpdate]
      ReadOnly = True
    end
  end
  object CShipVia: TClientDataSet
    Aggregates = <>
    DisableStringTrim = True
    PacketRecords = 500
    Params = <
      item
        DataType = ftSmallint
        Name = 'ItemType'
        ParamType = ptInput
        Value = '2'
      end>
    ProviderName = 'PBaseInfo'
    RemoteServer = DM.SPub_DM
    Left = 151
    Top = 11
    object CShipViaItemType: TSmallintField
      DisplayLabel = #31867#21035
      DisplayWidth = 4
      FieldName = 'ItemType'
      Visible = False
    end
    object CShipViaItemID: TStringField
      DisplayLabel = #32534#21495
      DisplayWidth = 4
      FieldName = 'ItemID'
      Size = 10
    end
    object CShipViaItemName: TStringField
      DisplayLabel = #20869#23481
      DisplayWidth = 20
      FieldName = 'ItemName'
      ProviderFlags = [pfInUpdate]
      Size = 100
    end
    object CShipViaRemark: TStringField
      DisplayLabel = #22791#27880
      DisplayWidth = 20
      FieldName = 'Remark'
      ProviderFlags = [pfInUpdate]
      Size = 200
    end
  end
  object CPayMode: TClientDataSet
    Aggregates = <>
    DisableStringTrim = True
    PacketRecords = 500
    Params = <
      item
        DataType = ftSmallint
        Name = 'ItemType'
        ParamType = ptInput
        Value = '3'
      end>
    ProviderName = 'PBaseInfo'
    RemoteServer = DM.SPub_DM
    Left = 221
    Top = 11
    object CPayModeItemType: TSmallintField
      DisplayLabel = #31867#21035
      DisplayWidth = 4
      FieldName = 'ItemType'
      Visible = False
    end
    object CPayModeItemID: TStringField
      DisplayLabel = #32534#21495
      DisplayWidth = 4
      FieldName = 'ItemID'
      Size = 10
    end
    object CPayModeItemName: TStringField
      DisplayLabel = #20869#23481
      DisplayWidth = 20
      FieldName = 'ItemName'
      ProviderFlags = [pfInUpdate]
      Size = 100
    end
    object CPayModeRemark: TStringField
      DisplayLabel = #22791#27880
      DisplayWidth = 20
      FieldName = 'Remark'
      ProviderFlags = [pfInUpdate]
      Size = 200
    end
  end
  object CPayTerm: TClientDataSet
    Aggregates = <>
    DisableStringTrim = True
    PacketRecords = 500
    Params = <
      item
        DataType = ftSmallint
        Name = 'ItemType'
        ParamType = ptInput
        Value = '4'
      end>
    ProviderName = 'PBaseInfo'
    RemoteServer = DM.SPub_DM
    Left = 290
    Top = 11
    object CPayTermItemType: TSmallintField
      DisplayLabel = #31867#21035
      DisplayWidth = 4
      FieldName = 'ItemType'
      Visible = False
    end
    object CPayTermItemID: TStringField
      DisplayLabel = #32534#21495
      DisplayWidth = 4
      FieldName = 'ItemID'
      Size = 10
    end
    object CPayTermItemName: TStringField
      DisplayLabel = #20869#23481
      DisplayWidth = 20
      FieldName = 'ItemName'
      ProviderFlags = [pfInUpdate]
      Size = 100
    end
    object CPayTermRemark: TStringField
      DisplayLabel = #22791#27880
      DisplayWidth = 20
      FieldName = 'Remark'
      ProviderFlags = [pfInUpdate]
      Size = 200
    end
  end
  object CPoCategory: TClientDataSet
    Aggregates = <>
    DisableStringTrim = True
    PacketRecords = 500
    Params = <
      item
        DataType = ftSmallint
        Name = 'ItemType'
        ParamType = ptInput
        Value = '1'
      end>
    ProviderName = 'PBaseInfo'
    RemoteServer = DM.SPub_DM
    Left = 85
    Top = 11
    object SmallintField1: TSmallintField
      DisplayLabel = #31867#21035
      DisplayWidth = 4
      FieldName = 'ItemType'
      Visible = False
    end
    object StringField7: TStringField
      DisplayLabel = #32534#21495
      DisplayWidth = 4
      FieldName = 'ItemID'
      Size = 10
    end
    object StringField8: TStringField
      DisplayLabel = #20869#23481
      DisplayWidth = 20
      FieldName = 'ItemName'
      ProviderFlags = [pfInUpdate]
      Size = 100
    end
    object StringField9: TStringField
      DisplayLabel = #22791#27880
      DisplayWidth = 20
      FieldName = 'Remark'
      ProviderFlags = [pfInUpdate]
      Size = 200
    end
  end
  object CPoBase: TClientDataSet
    Aggregates = <>
    DisableStringTrim = True
    PacketRecords = 500
    Params = <
      item
        DataType = ftSmallint
        Name = 'ItemType'
        ParamType = ptInput
      end>
    ProviderName = 'PBaseInfo'
    RemoteServer = DM.SPub_DM
    OnNewRecord = CPoBaseNewRecord
    Left = 358
    Top = 11
    object SmallintField2: TSmallintField
      DisplayLabel = #31867#21035
      DisplayWidth = 4
      FieldName = 'ItemType'
      Visible = False
    end
    object StringField10: TStringField
      DisplayLabel = #32534#21495
      DisplayWidth = 4
      FieldName = 'ItemID'
      Size = 10
    end
    object StringField11: TStringField
      DisplayLabel = #20869#23481
      DisplayWidth = 20
      FieldName = 'ItemName'
      Size = 100
    end
    object StringField12: TStringField
      DisplayLabel = #22791#27880
      DisplayWidth = 20
      FieldName = 'Remark'
      Size = 200
    end
  end
  object CStatPo: 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 = 'PStatPO'
    RemoteServer = DM.SDM2
    Left = 85
    Top = 67
  end
end
上一页 12
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -