📄 udminv.dfm

📁 成本系统三层结构源码开发工具：Delphi 7.0+SQLServer 2005 主要技术：Midas、COM+ 所用第三方控件： FastReport V2.47 D7 Inforp
💻 DFM
📖 第 1 页 / 共 2 页
字号:
12 下一页
object DMINV: TDMINV
  OldCreateOrder = False
  Left = 215
  Top = 146
  Height = 279
  Width = 435
  object CInvMonth: TClientDataSet
    Aggregates = <>
    AutoCalcFields = False
    PacketRecords = 500
    Params = <
      item
        DataType = ftWord
        Name = '@Flag'
        ParamType = ptInput
        Value = '0'
      end
      item
        DataType = ftDateTime
        Name = '@Date'
        ParamType = ptInput
      end>
    ProviderName = 'PInvMonth'
    RemoteServer = DM.SDM2
    Left = 220
    Top = 86
  end
  object CInventory: TClientDataSet
    Aggregates = <>
    PacketRecords = 500
    Params = <>
    ProviderName = 'PInventory'
    RemoteServer = DM.SDM2
    Left = 289
    Top = 14
    object CInventoryStockId: TStringField
      DisplayLabel = #20179#24211#32534#21495
      FieldName = 'StockId'
      Visible = False
      Size = 4
    end
    object CInventoryStockName: TStringField
      DisplayLabel = #20179#24211#21517
      DisplayWidth = 6
      FieldName = 'StockName'
      Size = 100
    end
    object CInventoryCategoryId: TStringField
      DisplayLabel = #31867#21035
      DisplayWidth = 6
      FieldName = 'CategoryId'
      Visible = False
      Size = 15
    end
    object CInventoryCategoryName: TStringField
      DisplayLabel = #31867#21035#21517
      DisplayWidth = 10
      FieldName = 'CategoryName'
      Size = 100
    end
    object CInventoryPartNo: TStringField
      DisplayLabel = #26009#21495
      DisplayWidth = 10
      FieldName = 'PartNo'
      Size = 30
    end
    object CInventoryPartNameE: TStringField
      DisplayLabel = #21697#21517'('#33521#25991')'
      DisplayWidth = 10
      FieldName = 'PartNameE'
      Size = 50
    end
    object CInventoryPartNameC: TStringField
      DisplayLabel = #21697#21517'('#20013#25991')'
      DisplayWidth = 10
      FieldName = 'PartNameC'
      Size = 50
    end
    object CInventoryModel: TStringField
      DisplayLabel = #22411#21495
      DisplayWidth = 10
      FieldName = 'Model'
      Size = 30
    end
    object CInventoryColor: TStringField
      DisplayLabel = #39068#33394
      DisplayWidth = 6
      FieldName = 'Color'
      Size = 12
    end
    object CInventoryUnitId: TStringField
      DisplayLabel = #21333#20301
      FieldName = 'UnitId'
      Visible = False
      Size = 4
    end
    object CInventoryUnitName: TStringField
      DisplayLabel = #21333#20301#21517
      DisplayWidth = 4
      FieldName = 'UnitName'
      Size = 10
    end
    object CInventoryPrice: TFloatField
      DisplayLabel = #21333#20215
      FieldName = 'Price'
    end
    object CInventoryQty: TFloatField
      DisplayLabel = #25968#37327
      FieldName = 'Qty'
    end
    object CInventoryLocked: TBooleanField
      DisplayLabel = #30424#28857#20013'?'
      FieldName = 'Locked'
    end
  end
  object CInvInitial: TClientDataSet
    Aggregates = <>
    PacketRecords = 500
    Params = <>
    ProviderName = 'PInvInitial'
    RemoteServer = DM.SDM2
    Left = 220
    Top = 14
    object CInvInitialStockID: TStringField
      DisplayLabel = #20179#24211#32534#21495
      FieldName = 'StockID'
      Visible = False
      Size = 4
    end
    object CInvInitialStockName: TStringField
      DisplayLabel = #20179#24211
      FieldKind = fkLookup
      FieldName = 'StockName'
      LookupDataSet = DMBase.CStock
      LookupKeyFields = 'StockID'
      LookupResultField = 'StockName'
      KeyFields = 'StockID'
      Size = 10
      Lookup = True
    end
    object CInvInitialCategoryName: TStringField
      DisplayLabel = #31867#21035
      DisplayWidth = 10
      FieldKind = fkLookup
      FieldName = 'CategoryName'
      LookupDataSet = DMBase.CVMateriel
      LookupKeyFields = 'PartNo'
      LookupResultField = 'FullCategoryName'
      KeyFields = 'PartNo'
      Size = 30
      Lookup = True
    end
    object CInvInitialPartNo: TStringField
      DisplayLabel = #26009#21495
      DisplayWidth = 15
      FieldName = 'PartNo'
      OnChange = CInvInitialPartNoChange
      OnValidate = CInvInitialPartNoValidate
      Size = 30
    end
    object CInvInitialPartNameC: 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 CInvInitialPartNameE: TStringField
      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 CInvInitialModel: 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 CInvInitialColor: 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 CInvInitialUnitID: TStringField
      DisplayLabel = #21333#20301#32534#21495
      FieldName = 'UnitID'
      Visible = False
      Size = 4
    end
    object CInvInitialUnitName: TStringField
      DisplayLabel = #21333#20301
      DisplayWidth = 8
      FieldKind = fkLookup
      FieldName = 'UnitName'
      LookupDataSet = DMBase.CUnitName
      LookupKeyFields = 'UnitID'
      LookupResultField = 'UnitName'
      KeyFields = 'UnitID'
      Size = 10
      Lookup = True
    end
    object CInvInitialQty: TFloatField
      DisplayLabel = #25968#37327
      FieldName = 'Qty'
    end
    object CInvInitialPrice: TFloatField
      DisplayLabel = #21333#20215
      FieldName = 'Price'
    end
    object CInvInitialTotal: TFloatField
      FieldName = 'Total'
      ReadOnly = True
      Visible = False
    end
  end
  object CInOutMas: TClientDataSet
    Aggregates = <>
    DisableStringTrim = True
    Params = <
      item
        DataType = ftDateTime
        Precision = 10
        Name = '@DateFrm'
        ParamType = ptInput
        Size = 4
        Value = '2005/1/1'
      end
      item
        DataType = ftDateTime
        Precision = 10
        Name = '@DateTo'
        ParamType = ptInput
        Size = 4
        Value = '2005/12/31'
      end
      item
        DataType = ftString
        Precision = 255
        NumericScale = 255
        Name = '@InOutType'
        ParamType = ptInput
        Size = 1
        Value = '0'
      end>
    ProviderName = 'PInOut'
    RemoteServer = DM.SDM1
    OnNewRecord = CInOutMasNewRecord
    OnReconcileError = CInOutMasReconcileError
    Left = 20
    Top = 14
    object CInOutMasInOutNo: TStringField
      DisplayLabel = #21333#21495
      FieldName = 'InOutNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Size = 15
    end
    object CInOutMasInOutType: TStringField
      DisplayLabel = #31867#22411
      FieldName = 'InOutType'
      ProviderFlags = [pfInUpdate]
      Visible = False
      FixedChar = True
      Size = 1
    end
    object CInOutMasStockID: TStringField
      DisplayLabel = #20179#24211#32534#21495
      FieldName = 'StockID'
      ProviderFlags = [pfInUpdate]
      Required = True
      Visible = False
      Size = 4
    end
    object CInOutMasStockName: TStringField
      DisplayLabel = #20179#24211
      DisplayWidth = 10
      FieldKind = fkLookup
      FieldName = 'StockName'
      LookupDataSet = DMBase.CStock
      LookupKeyFields = 'StockID'
      LookupResultField = 'StockName'
      KeyFields = 'StockID'
      Size = 50
      Lookup = True
    end
    object CInOutMasStatus: TStringField
      DisplayLabel = #29366#24577
      FieldName = 'Status'
      ProviderFlags = [pfInUpdate]
      Visible = False
      FixedChar = True
      Size = 1
    end
    object CInOutMasInOutDate: TDateTimeField
      DisplayLabel = #26085#26399
      FieldName = 'InOutDate'
      ProviderFlags = [pfInUpdate]
    end
    object CInOutMasCurrencyID: TStringField
      FieldName = 'CurrencyID'
      ProviderFlags = [pfInUpdate]
      Visible = False
      Size = 4
    end
    object CInOutMasRate: TBCDField
      DisplayLabel = #27719#29575
      FieldName = 'Rate'
      ProviderFlags = [pfInUpdate]
      Visible = False
      Precision = 18
    end
    object CInOutMasVendorID: TStringField
      DisplayLabel = #20379#24212#21830#32534#21495
      FieldName = 'VendorID'
      ProviderFlags = [pfInUpdate]
      Visible = False
      Size = 15
    end
    object CInOutMasVendorName: TStringField
      DisplayLabel = #20379#24212#21830
      DisplayWidth = 10
      FieldKind = fkLookup
      FieldName = 'VendorName'
      LookupDataSet = DMBase.Cvendor
      LookupKeyFields = 'VendorID'
      LookupResultField = 'ShortName'
      KeyFields = 'VendorID'
      Lookup = True
    end
    object CInOutMasPONo: TStringField
      DisplayLabel = #37319#36141#21333#21495
      FieldName = 'PONo'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object CInOutMasDeptID: TStringField
      DisplayLabel = #37096#38376#32534#21495
      FieldName = 'DeptID'
      ProviderFlags = [pfInUpdate]
      Visible = False
      Size = 15
    end
    object CInOutMasDeptName: TStringField
      DisplayLabel = #37096#38376
      DisplayWidth = 10
      FieldKind = fkLookup
      FieldName = 'DeptName'
      LookupDataSet = DMBase.Cdept
      LookupKeyFields = 'DeptID'
      LookupResultField = 'DeptName'
      KeyFields = 'DeptID'
      Lookup = True
    end
    object CInOutMasHandler: TStringField
      DisplayLabel = #32463#25163#20154
      FieldName = 'Handler'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object CInOutMasRemark: TStringField
      DisplayLabel = #22791#27880
      DisplayWidth = 20
      FieldName = 'Remark'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object CInOutMasCreater: TStringField
      DisplayLabel = #24320#21333#20154
      FieldName = 'Creater'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object CInOutMasCreateDate: TDateTimeField
      DisplayLabel = #24320#21333#26085#26399
      FieldName = 'CreateDate'
      ProviderFlags = [pfInUpdate]
    end
    object CInOutMasUpdater: TStringField
      DisplayLabel = #26356#26032#20154
      FieldName = 'Updater'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object CInOutMasUpdateDate: TDateTimeField
      DisplayLabel = #26356#26032#26085#26399
      FieldName = 'UpdateDate'
      ProviderFlags = [pfInUpdate]
    end
    object CInOutMasApprover: TStringField
      DisplayLabel = #25209#26680#20154
      FieldName = 'Approver'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object CInOutMasApproveDate: TDateTimeField
      DisplayLabel = #25209#26680#26085#26399
      FieldName = 'ApproveDate'
      ProviderFlags = [pfInUpdate]
    end
    object CInOutMasConfirmer: TStringField
      DisplayLabel = #35760#24080#20154
      FieldName = 'Confirmer'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object CInOutMasConfirmDate: TDateTimeField
      DisplayLabel = #35760#24080#26085#26399
      FieldName = 'ConfirmDate'
      ProviderFlags = [pfInUpdate]
    end
    object CInOutMasQInOutSub: TDataSetField
      DisplayLabel = '<'#21333#25454#26126#32454'>'
      FieldName = 'QInOutSub'
      Visible = False
    end
  end
  object CInOutSub: TClientDataSet
    Aggregates = <>
    DataSetField = CInOutMasQInOutSub
    Params = <>
    OnNewRecord = CInOutSubNewRecord
    Left = 20
    Top = 86
    object CInOutSubInOutNo: TStringField
      DisplayLabel = #21333#21495
      FieldName = 'InOutNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Visible = False
      Size = 15
    end
    object CInOutSubOrderNo: TStringField
      DisplayLabel = #35746#21333#21495
      DisplayWidth = 10
      FieldName = 'OrderNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      OnValidate = CInOutSubOrderNoValidate
      Size = 15
    end
    object CInOutSubPartNo: TStringField
      DisplayLabel = #26009#21495
      DisplayWidth = 15
      FieldName = 'PartNo'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      OnChange = CInOutSubPartNoChange
      OnValidate = CInOutSubPartNoValidate
      Size = 30
    end
    object CInOutSubPartNameC: 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 CInOutSubPartNameE: TStringField
      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 CInOutSubModel: TStringField
      DisplayLabel = #22411#21495
      DisplayWidth = 10
      FieldKind = fkLookup
      FieldName = 'Model'
      LookupDataSet = DMBase.CVMateriel
      LookupKeyFields = 'PartNo'
      LookupResultField = 'Model'
      KeyFields = 'PartNo'
      Size = 30
      Lookup = True
    end
    object CInOutSubColor: TStringField
      DisplayLabel = #39068#33394
      FieldKind = fkLookup
      FieldName = 'Color'
      LookupDataSet = DMBase.CVMateriel
      LookupKeyFields = 'PartNo'
      LookupResultField = 'Color'
      KeyFields = 'PartNo'
      Size = 12
      Lookup = True
    end
    object CInOutSubUnitID: TStringField
      DisplayLabel = #21333#20301#32534#21495
      FieldName = 'UnitID'
      ProviderFlags = [pfInUpdate]
      Required = True
      Visible = False
      Size = 4
    end
    object CInOutSubUnitName: TStringField
      DisplayLabel = #21333#20301
      FieldKind = fkLookup
      FieldName = 'UnitName'
      LookupDataSet = DMBase.CUnitName
      LookupKeyFields = 'UnitID'
      LookupResultField = 'UnitName'
      KeyFields = 'UnitID'
      Size = 10
      Lookup = True
    end
    object CInOutSubQty: TFloatField
      DisplayLabel = #25968#37327
      FieldName = 'Qty'
      Required = True
    end
    object CInOutSubPrice: TFloatField
      DisplayLabel = #21333#20215
12 下一页
⌨️ 快捷键说明

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