dataenvironmentitem.dsr
来自「ERP工程管理子系统,用于ERP编程者参考.」· DSR 代码 · 共 791 行 · 第 1/2 页
DSR
791 行
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "Item"
Caption = "Item"
EndProperty
NumGroups = 0
ParamCount = 0
RelationCount = 1
BeginProperty Relation1
ParentField = "ParentItem"
ChildField = "ParentItem"
ParentType = 0
ChildType = 0
EndProperty
AggregateCount = 0
EndProperty
BeginProperty Recordset4
CommandName = "CmdSBOMP"
CommDispId = 1015
RsDispId = 1019
CommandText = $"DataEnvironmentItem.dsx":0175
ActiveConnectionName= "Item"
CommandType = 1
Expanded = -1 'True
IsRSReturning = -1 'True
NumFields = 6
BeginProperty Field1
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "ParentItem"
Caption = "ParentItem"
EndProperty
BeginProperty Field2
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "Name"
Caption = "Name"
EndProperty
BeginProperty Field3
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "Specification"
Caption = "Specification"
EndProperty
BeginProperty Field4
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "Color"
Caption = "Color"
EndProperty
BeginProperty Field5
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "Unit"
Caption = "Unit"
EndProperty
BeginProperty Field6
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "Item"
Caption = "Item"
EndProperty
NumGroups = 0
ParamCount = 1
BeginProperty P1
RealName = "?"
UserName = "ParentItem"
Direction = 1
Precision = 0
Scale = 0
Size = 510
DataType = 202
HostType = 8
Required = -1 'True
EndProperty
RelationCount = 0
AggregateCount = 0
EndProperty
BeginProperty Recordset5
CommandName = "CmdSBOMC"
CommDispId = -1
RsDispId = -1
CommandText = $"DataEnvironmentItem.dsx":021F
ActiveConnectionName= "Item"
CommandType = 1
RelateToParent = -1 'True
ParentCommandName= "CmdSBOMP"
Expanded = -1 'True
IsRSReturning = -1 'True
NumFields = 13
BeginProperty Field1
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "ParentItem"
Caption = "ParentItem"
EndProperty
BeginProperty Field2
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "CT"
Caption = "CT"
EndProperty
BeginProperty Field3
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "ChildItem"
Caption = "ChildItem"
EndProperty
BeginProperty Field4
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "Qty"
Caption = "Qty"
EndProperty
BeginProperty Field5
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "QT"
Caption = "QT"
EndProperty
BeginProperty Field6
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "Scrap"
Caption = "Scrap"
EndProperty
BeginProperty Field7
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "Offset"
Caption = "Offset"
EndProperty
BeginProperty Field8
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "Remark"
Caption = "Remark"
EndProperty
BeginProperty Field9
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "Drawing"
Caption = "Drawing"
EndProperty
BeginProperty Field10
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "Name"
Caption = "Name"
EndProperty
BeginProperty Field11
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "Specification"
Caption = "Specification"
EndProperty
BeginProperty Field12
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "Color"
Caption = "Color"
EndProperty
BeginProperty Field13
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "Item"
Caption = "Item"
EndProperty
NumGroups = 0
ParamCount = 0
RelationCount = 1
BeginProperty Relation1
ParentField = "ParentItem"
ChildField = "ParentItem"
ParentType = 0
ChildType = 0
EndProperty
AggregateCount = 0
EndProperty
BeginProperty Recordset6
CommandName = "CmdItemUseC"
CommDispId = 1020
RsDispId = 1033
CommandText = $"DataEnvironmentItem.dsx":0332
ActiveConnectionName= "Item"
CommandType = 1
Expanded = -1 'True
IsRSReturning = -1 'True
NumFields = 7
BeginProperty Field1
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "ChildItem"
Caption = "ChildItem"
EndProperty
BeginProperty Field2
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "ParentItem"
Caption = "ParentItem"
EndProperty
BeginProperty Field3
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "Item"
Caption = "Item"
EndProperty
BeginProperty Field4
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "Name"
Caption = "Name"
EndProperty
BeginProperty Field5
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "Specification"
Caption = "Specification"
EndProperty
BeginProperty Field6
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "Color"
Caption = "Color"
EndProperty
BeginProperty Field7
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "Unit"
Caption = "Unit"
EndProperty
NumGroups = 0
ParamCount = 1
BeginProperty P1
RealName = "Param1"
Direction = 1
Precision = 255
Scale = 255
Size = 50
DataType = 202
HostType = 8
Required = -1 'True
EndProperty
RelationCount = 0
AggregateCount = 0
EndProperty
BeginProperty Recordset7
CommandName = "CmdItemUseP"
CommDispId = -1
RsDispId = -1
CommandText = $"DataEnvironmentItem.dsx":03E3
ActiveConnectionName= "Item"
CommandType = 1
RelateToParent = -1 'True
ParentCommandName= "CmdItemUseC"
Expanded = -1 'True
IsRSReturning = -1 'True
NumFields = 8
BeginProperty Field1
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "Item"
Caption = "Item"
EndProperty
BeginProperty Field2
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "Name"
Caption = "Name"
EndProperty
BeginProperty Field3
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "Specification"
Caption = "Specification"
EndProperty
BeginProperty Field4
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "Color"
Caption = "Color"
EndProperty
BeginProperty Field5
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "Unit"
Caption = "Unit"
EndProperty
BeginProperty Field6
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "Qty"
Caption = "Qty"
EndProperty
BeginProperty Field7
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "ParentItem"
Caption = "ParentItem"
EndProperty
BeginProperty Field8
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "ChildItem"
Caption = "ChildItem"
EndProperty
NumGroups = 0
ParamCount = 0
RelationCount = 1
BeginProperty Relation1
ParentField = "ChildItem"
ChildField = "ChildItem"
ParentType = 0
ChildType = 0
EndProperty
AggregateCount = 0
EndProperty
End
Attribute VB_Name = "DataEnvironmentItem"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?