📄 drug_store.dsr
字号:
Caption = "日期"
EndProperty
BeginProperty Field3
Precision = 0
Size = 6
Scale = 0
Type = 130
Name = "药编号"
Caption = "药编号"
EndProperty
BeginProperty Field4
Precision = 3
Size = 1
Scale = 0
Type = 17
Name = "数量"
Caption = "数量"
EndProperty
NumGroups = 0
ParamCount = 0
RelationCount = 0
AggregateCount = 0
EndProperty
BeginProperty Recordset8
CommandName = "HaveStocks"
CommDispId = 1034
RsDispId = 1046
CommandText = $"Drug_Store.dsx":0000
ActiveConnectionName= "DataCon"
CommandType = 1
IsRSReturning = -1 'True
NumFields = 4
BeginProperty Field1
Precision = 0
Size = 50
Scale = 0
Type = 200
Name = "名称"
Caption = "名称"
EndProperty
BeginProperty Field2
Precision = 0
Size = 6
Scale = 0
Type = 130
Name = "编号"
Caption = "编号"
EndProperty
BeginProperty Field3
Precision = 5
Size = 2
Scale = 0
Type = 2
Name = "库存"
Caption = "库存"
EndProperty
BeginProperty Field4
Precision = 5
Size = 2
Scale = 0
Type = 2
Name = "下限"
Caption = "下限"
EndProperty
NumGroups = 0
ParamCount = 0
RelationCount = 0
AggregateCount = 0
EndProperty
BeginProperty Recordset9
CommandName = "NoStocks"
CommDispId = 1047
RsDispId = 1049
CommandText = $"Drug_Store.dsx":0067
ActiveConnectionName= "DataCon"
CommandType = 1
IsRSReturning = -1 'True
NumFields = 3
BeginProperty Field1
Precision = 0
Size = 50
Scale = 0
Type = 200
Name = "名称"
Caption = "名称"
EndProperty
BeginProperty Field2
Precision = 0
Size = 6
Scale = 0
Type = 130
Name = "编号"
Caption = "编号"
EndProperty
BeginProperty Field3
Precision = 0
Size = 10
Scale = 0
Type = 200
Name = "种类"
Caption = "种类"
EndProperty
NumGroups = 0
ParamCount = 0
RelationCount = 0
AggregateCount = 0
EndProperty
BeginProperty Recordset10
CommandName = "SalesDate"
CommDispId = 1063
RsDispId = 1075
CommandText = $"Drug_Store.dsx":00C0
ActiveConnectionName= "DataCon"
CommandType = 1
IsRSReturning = -1 'True
NumFields = 1
BeginProperty Field1
Precision = 0
Size = 11
Scale = 0
Type = 130
Name = "日期"
Caption = "日期"
EndProperty
NumGroups = 0
ParamCount = 0
RelationCount = 0
AggregateCount = 0
EndProperty
BeginProperty Recordset11
CommandName = "ItemDetails"
CommDispId = -1
RsDispId = -1
CommandText = $"Drug_Store.dsx":00E8
ActiveConnectionName= "DataCon"
CommandType = 1
Grouping = -1 'True
GroupingName = "Command1_分组"
RelateToParent = -1 'True
ParentCommandName= "SalesDate"
Expanded = -1 'True
SummaryExpanded = -1 'True
DetailExpanded = -1 'True
IsRSReturning = -1 'True
NumFields = 8
BeginProperty Field1
Precision = 0
Size = 50
Scale = 0
Type = 200
Name = "名称"
Caption = "名称"
EndProperty
BeginProperty Field2
Precision = 0
Size = 6
Scale = 0
Type = 130
Name = "编号"
Caption = "编号"
EndProperty
BeginProperty Field3
Precision = 0
Size = 10
Scale = 0
Type = 200
Name = "种类"
Caption = "种类"
EndProperty
BeginProperty Field4
Precision = 10
Size = 8
Scale = 0
Type = 6
Name = "售价"
Caption = "售价"
EndProperty
BeginProperty Field5
Precision = 3
Size = 1
Scale = 0
Type = 17
Name = "数量"
Caption = "数量"
EndProperty
BeginProperty Field6
Precision = 10
Size = 8
Scale = 0
Type = 6
Name = "销售额"
Caption = "销售额"
EndProperty
BeginProperty Field7
Precision = 10
Size = 8
Scale = 0
Type = 6
Name = "利润"
Caption = "利润"
EndProperty
BeginProperty Field8
Precision = 0
Size = 11
Scale = 0
Type = 130
Name = "日期"
Caption = "日期"
EndProperty
NumGroups = 2
BeginProperty Grouping1
Precision = 0
Size = 11
Scale = 0
Type = 130
Name = "日期"
Caption = "日期"
EndProperty
BeginProperty Grouping2
Precision = 0
Size = 10
Scale = 0
Type = 200
Name = "种类"
Caption = "种类"
EndProperty
ParamCount = 0
RelationCount = 1
BeginProperty Relation1
ParentField = "日期"
ChildField = "日期"
ParentType = 0
ChildType = 0
EndProperty
AggregateCount = 0
EndProperty
BeginProperty Recordset12
CommandName = "SalesData"
CommDispId = 1076
RsDispId = 1081
CommandText = $"Drug_Store.dsx":01D0
ActiveConnectionName= "DataCon"
CommandType = 1
IsRSReturning = -1 'True
NumFields = 8
BeginProperty Field1
Precision = 0
Size = 50
Scale = 0
Type = 200
Name = "名称"
Caption = "名称"
EndProperty
BeginProperty Field2
Precision = 0
Size = 6
Scale = 0
Type = 130
Name = "编号"
Caption = "编号"
EndProperty
BeginProperty Field3
Precision = 0
Size = 10
Scale = 0
Type = 200
Name = "种类"
Caption = "种类"
EndProperty
BeginProperty Field4
Precision = 10
Size = 8
Scale = 0
Type = 6
Name = "售价"
Caption = "售价"
EndProperty
BeginProperty Field5
Precision = 3
Size = 1
Scale = 0
Type = 17
Name = "数量"
Caption = "数量"
EndProperty
BeginProperty Field6
Precision = 10
Size = 8
Scale = 0
Type = 6
Name = "销售额"
Caption = "销售额"
EndProperty
BeginProperty Field7
Precision = 10
Size = 8
Scale = 0
Type = 6
Name = "利润"
Caption = "利润"
EndProperty
BeginProperty Field8
Precision = 0
Size = 11
Scale = 0
Type = 130
Name = "日期"
Caption = "日期"
EndProperty
NumGroups = 0
ParamCount = 0
RelationCount = 0
AggregateCount = 0
EndProperty
End
Attribute VB_Name = "Drug_Store"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub rsSalesDetail_WillChangeField(ByVal cFields As Long, ByVal Fields As Variant, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -