📄 udminv.dfm

📁 成本系统三层结构源码开发工具：Delphi 7.0+SQLServer 2005 主要技术：Midas、COM+ 所用第三方控件： FastReport V2.47 D7 Inforp
💻 DFM
📖 第 1 页 / 共 2 页
字号:
上一页 12
      FieldName = 'Price'
    end
    object CInOutSubRemark: TStringField
      DisplayLabel = #22791#27880
      DisplayWidth = 15
      FieldName = 'Remark'
      ProviderFlags = [pfInUpdate]
      Size = 200
    end
  end
  object CCheckMas: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftDateTime
        Name = '@DateFrm'
        ParamType = ptInput
      end
      item
        DataType = ftDateTime
        Name = '@DateTo'
        ParamType = ptInput
      end>
    ProviderName = 'PCheck'
    RemoteServer = DM.SDM1
    OnNewRecord = CCheckMasNewRecord
    OnReconcileError = CCheckMasReconcileError
    Left = 88
    Top = 14
    object CCheckMasCheckNo: TStringField
      DisplayLabel = #21333#21495
      FieldName = 'CheckNo'
      Required = True
      Size = 15
    end
    object CCheckMasStatus: TStringField
      DisplayLabel = #29366#24577
      FieldName = 'Status'
      Required = True
      Visible = False
      FixedChar = True
      Size = 1
    end
    object CCheckMasCheckDate: TDateTimeField
      DisplayLabel = #26085#26399
      FieldName = 'CheckDate'
      Required = True
      OnValidate = CCheckMasCheckDateValidate
    end
    object CCheckMasStockID: TStringField
      DisplayLabel = #20179#24211#32534#21495
      FieldName = 'StockID'
      Required = True
      Visible = False
      Size = 4
    end
    object CCheckMasStockName: TStringField
      DisplayLabel = #20179#24211
      DisplayWidth = 10
      FieldKind = fkLookup
      FieldName = 'StockName'
      LookupDataSet = DMBase.CStock
      LookupKeyFields = 'StockID'
      LookupResultField = 'StockName'
      KeyFields = 'StockID'
      Lookup = True
    end
    object CCheckMasChecker: TStringField
      DisplayLabel = #30424#28857#20154
      FieldName = 'Checker'
      Required = True
      Size = 15
    end
    object CCheckMasRemark: TStringField
      DisplayLabel = #22791#27880
      DisplayWidth = 20
      FieldName = 'Remark'
      Size = 100
    end
    object CCheckMasCreater: TStringField
      DisplayLabel = #24320#21333#20154
      FieldName = 'Creater'
      Size = 15
    end
    object CCheckMasCreateDate: TDateTimeField
      DisplayLabel = #24320#21333#26085#26399
      FieldName = 'CreateDate'
    end
    object CCheckMasUpdater: TStringField
      DisplayLabel = #20462#25913#20154
      FieldName = 'Updater'
      Size = 15
    end
    object CCheckMasUpdateDate: TDateTimeField
      DisplayLabel = #20462#25913#26085#26399
      FieldName = 'UpdateDate'
    end
    object CCheckMasApprover: TStringField
      DisplayLabel = #25209#26680#20154
      FieldName = 'Approver'
      Size = 15
    end
    object CCheckMasApproveDate: TDateTimeField
      DisplayLabel = #25209#26680#26085#26399
      FieldName = 'ApproveDate'
    end
    object CCheckMasConfirmer: TStringField
      DisplayLabel = #35760#24080#20154
      FieldName = 'Confirmer'
      Size = 15
    end
    object CCheckMasConfirmDate: TDateTimeField
      DisplayLabel = #35760#24080#26085#26399
      FieldName = 'ConfirmDate'
    end
    object CCheckMasQCheckSub: TDataSetField
      DisplayLabel = '<'#30424#28857#39033#30446'>'
      FieldName = 'QCheckSub'
      Visible = False
    end
  end
  object CCheckSub: TClientDataSet
    Aggregates = <>
    DataSetField = CCheckMasQCheckSub
    Params = <>
    OnNewRecord = CCheckSubNewRecord
    Left = 88
    Top = 86
    object CCheckSubCheckNo: TStringField
      DisplayLabel = #21333#21495
      FieldName = 'CheckNo'
      Required = True
      Size = 15
    end
    object CCheckSubPartNo: TStringField
      DisplayLabel = #26009#21495
      DisplayWidth = 15
      FieldName = 'PartNo'
      Required = True
      OnChange = CCheckSubPartNoChange
      OnValidate = CCheckSubPartNoValidate
      Size = 30
    end
    object CCheckSubPartNameC: 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 CCheckSubPartNameE: 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 CCheckSubModel: 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 CCheckSubColor: 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 CCheckSubUnitID: TStringField
      DisplayLabel = #21333#20301#32534#21495
      FieldName = 'UnitID'
      Required = True
      Visible = False
      Size = 4
    end
    object CCheckSubUnitName: 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 CCheckSubQty: TBCDField
      DisplayLabel = #24080#38754#25968#37327
      FieldName = 'Qty'
      Required = True
      OnChange = CCheckSubQtyChange
      Precision = 18
      Size = 2
    end
    object CCheckSubFactQty: TBCDField
      DisplayLabel = #23454#38469#24211#23384
      FieldName = 'FactQty'
      Precision = 18
      Size = 2
    end
    object CCheckSubDifferQty: TBCDField
      DisplayLabel = #24046#24322
      FieldName = 'DifferQty'
      ReadOnly = True
      Precision = 19
      Size = 2
    end
    object CCheckSubCounter: TStringField
      DisplayLabel = #28857#25968#20154
      FieldName = 'Counter'
      Size = 15
    end
    object CCheckSubRemark: TStringField
      DisplayLabel = #22791#27880
      DisplayWidth = 20
      FieldName = 'Remark'
      Size = 1000
    end
  end
  object CInvStat: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftSmallint
        Name = '@flag'
        ParamType = ptInput
      end
      item
        DataType = ftDateTime
        Name = '@date_frm'
        ParamType = ptInput
      end
      item
        DataType = ftDateTime
        Name = '@date_to'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = '@str'
        ParamType = ptInput
      end>
    ProviderName = 'PStatINV'
    RemoteServer = DM.SDM2
    Left = 290
    Top = 86
  end
  object CMoveMas: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftDateTime
        Name = '@DateFrm'
        ParamType = ptInput
      end
      item
        DataType = ftDateTime
        Name = '@DateTo'
        ParamType = ptInput
      end>
    ProviderName = 'PMove'
    RemoteServer = DM.SDM1
    OnNewRecord = CMoveMasNewRecord
    OnReconcileError = CMoveMasReconcileError
    Left = 152
    Top = 14
    object CMoveMasMoveNo: TStringField
      DisplayLabel = #21333#21495
      FieldName = 'MoveNo'
      Required = True
      Size = 15
    end
    object CMoveMasMoveDate: TDateTimeField
      DisplayLabel = #26085#26399
      FieldName = 'MoveDate'
      Required = True
      OnValidate = CMoveMasMoveDateValidate
    end
    object CMoveMasStockID1: TStringField
      DisplayLabel = #31227#20986#20179#24211#32534#21495
      FieldName = 'StockID1'
      Required = True
      Visible = False
      Size = 4
    end
    object CMoveMasStock1Name: TStringField
      DisplayLabel = #31227#20986#20179#24211
      FieldKind = fkLookup
      FieldName = 'Stock1Name'
      LookupDataSet = DMBase.CStock
      LookupKeyFields = 'StockID'
      LookupResultField = 'StockName'
      KeyFields = 'StockID1'
      Lookup = True
    end
    object CMoveMasStockID2: TStringField
      DisplayLabel = #31227#20837#20179#24211#32534#21495
      FieldName = 'StockID2'
      Required = True
      Visible = False
      Size = 4
    end
    object CMoveMasStock2Name: TStringField
      DisplayLabel = #31227#20837#20179#24211
      FieldKind = fkLookup
      FieldName = 'Stock2Name'
      LookupDataSet = DMBase.CStock
      LookupKeyFields = 'StockID'
      LookupResultField = 'StockName'
      KeyFields = 'StockID2'
      Lookup = True
    end
    object CMoveMasStatus: TStringField
      DisplayLabel = #29366#24577
      FieldName = 'Status'
      Required = True
      Visible = False
      FixedChar = True
      Size = 1
    end
    object CMoveMasHandler: TStringField
      DisplayLabel = #32463#25163#20154
      FieldName = 'Handler'
      Size = 15
    end
    object CMoveMasRemark: TStringField
      DisplayLabel = #22791#27880
      DisplayWidth = 10
      FieldName = 'Remark'
      Size = 200
    end
    object CMoveMasCreater: TStringField
      DisplayLabel = #24320#21333#20154
      FieldName = 'Creater'
      Size = 10
    end
    object CMoveMasCreateDate: TDateTimeField
      DisplayLabel = #24320#21333#26085#26399
      FieldName = 'CreateDate'
    end
    object CMoveMasUpdater: TStringField
      DisplayLabel = #20462#25913#20154
      FieldName = 'Updater'
      Size = 10
    end
    object CMoveMasUpdateDate: TDateTimeField
      DisplayLabel = #20462#25913#26085#26399
      FieldName = 'UpdateDate'
    end
    object CMoveMasApprover: TStringField
      DisplayLabel = #25209#26680#20154
      FieldName = 'Approver'
      Size = 10
    end
    object CMoveMasApproveDate: TDateTimeField
      DisplayLabel = #25209#26680#26085#26399
      FieldName = 'ApproveDate'
    end
    object CMoveMasConfirmer: TStringField
      DisplayLabel = #35760#24080#20154
      FieldName = 'Confirmer'
      Size = 10
    end
    object CMoveMasConfirmDate: TDateTimeField
      DisplayLabel = #35760#24080#26085#26399
      FieldName = 'ConfirmDate'
    end
    object CMoveMasQMoveSub: TDataSetField
      DisplayLabel = '<'#31227#24211#39033#30446'>'
      FieldName = 'QMoveSub'
      Visible = False
    end
  end
  object CMoveSub: TClientDataSet
    Aggregates = <>
    DataSetField = CMoveMasQMoveSub
    Params = <>
    OnNewRecord = CMoveSubNewRecord
    Left = 152
    Top = 86
    object CMoveSubMoveNo: TStringField
      DisplayLabel = #21333#21495
      FieldName = 'MoveNo'
      Required = True
      Size = 15
    end
    object CMoveSubPartNo: TStringField
      DisplayLabel = #26009#21495
      DisplayWidth = 15
      FieldName = 'PartNo'
      Required = True
      OnChange = CMoveSubPartNoChange
      OnValidate = CMoveSubPartNoValidate
      Size = 30
    end
    object CMoveSubPartNameC: 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 CMoveSubPartNameE: 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 CMoveSubModel: 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 CMoveSubColor: 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 CMoveSubUnitID: TStringField
      DisplayLabel = #21333#20301#32534#21495
      FieldName = 'UnitID'
      Required = True
      Visible = False
      Size = 4
    end
    object CMoveSubUnitName: 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 CMoveSubQty: TBCDField
      DisplayLabel = #25968#37327
      FieldName = 'Qty'
      Required = True
      Precision = 18
      Size = 2
    end
    object CMoveSubRemark: TStringField
      DisplayLabel = #22791#27880
      DisplayWidth = 10
      FieldName = 'Remark'
      Size = 200
    end
  end
  object CVPO: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'PVPO'
    RemoteServer = DM.SDM1
    Left = 20
    Top = 160
    object CVPOPoNo: TStringField
      DisplayLabel = #37319#36141#21333#21495
      FieldName = 'PoNo'
      Size = 15
    end
    object CVPOVenderID: TStringField
      DisplayLabel = #20379#24212#21830#32534#21495
      FieldName = 'VenderID'
      Size = 15
    end
    object CVPOShortName: TStringField
      DisplayLabel = #31616#31216
      DisplayWidth = 10
      FieldName = 'ShortName'
    end
    object CVPOFullName: TStringField
      DisplayLabel = #20840#31216
      DisplayWidth = 20
      FieldName = 'FullName'
      Size = 100
    end
    object CVPOOrderDate: TDateTimeField
      DisplayLabel = #19979#21333#26085#26399
      FieldName = 'OrderDate'
    end
    object CVPOShipDate: TDateTimeField
      DisplayLabel = #20132#36135#26085#26399
      FieldName = 'ShipDate'
    end
    object CVPORemark: TStringField
      DisplayLabel = #22791#27880
      DisplayWidth = 20
      FieldName = 'Remark'
      Size = 100
    end
  end
end
上一页 12
⌨️ 快捷键说明

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