myde.dsr
来自「便利店管理系统 VB+ACCESS 附上数据库和源码」· DSR 代码 · 共 1,457 行 · 第 1/4 页
DSR
1,457 行
CommandName = "rsResourceCE"
CommDispId = 1057
RsDispId = 1062
CommandText = "ResourceCE"
ActiveConnectionName= "conData"
CommandType = 2
dbObjectType = 1
IsRSReturning = -1 'True
NumFields = 6
BeginProperty Field1
Precision = 10
Size = 4
Scale = 0
Type = 3
Name = "ID"
Caption = "ID"
EndProperty
BeginProperty Field2
Precision = 10
Size = 4
Scale = 0
Type = 3
Name = "ResourceKind"
Caption = "ResourceKind"
EndProperty
BeginProperty Field3
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "ResourceID"
Caption = "ResourceID"
EndProperty
BeginProperty Field4
Precision = 0
Size = 100
Scale = 0
Type = 202
Name = "ResourceC"
Caption = "ResourceC"
EndProperty
BeginProperty Field5
Precision = 0
Size = 100
Scale = 0
Type = 202
Name = "ResourceE"
Caption = "ResourceE"
EndProperty
BeginProperty Field6
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "Remark"
Caption = "Remark"
EndProperty
NumGroups = 0
ParamCount = 0
RelationCount = 0
AggregateCount = 0
EndProperty
BeginProperty Recordset9
CommandName = "rsExPortTotal"
CommDispId = 1063
RsDispId = 1069
CommandText = "ExPortTotal"
ActiveConnectionName= "conData"
CommandType = 2
dbObjectType = 2
IsRSReturning = -1 'True
NumFields = 1
BeginProperty Field1
Precision = 15
Size = 8
Scale = 0
Type = 5
Name = "Total"
Caption = "Total"
EndProperty
NumGroups = 0
ParamCount = 0
RelationCount = 0
AggregateCount = 0
EndProperty
BeginProperty Recordset10
CommandName = "rsImPortTotal"
CommDispId = 1064
RsDispId = 1074
CommandText = "ImPortTotal"
ActiveConnectionName= "conData"
CommandType = 2
dbObjectType = 2
IsRSReturning = -1 'True
NumFields = 1
BeginProperty Field1
Precision = 15
Size = 8
Scale = 0
Type = 5
Name = "Total"
Caption = "Total"
EndProperty
NumGroups = 0
ParamCount = 0
RelationCount = 0
AggregateCount = 0
EndProperty
BeginProperty Recordset11
CommandName = "rsCustomer"
CommDispId = 1075
RsDispId = 1080
CommandText = "Customer"
ActiveConnectionName= "conData"
CommandType = 2
dbObjectType = 1
IsRSReturning = -1 'True
NumFields = 12
BeginProperty Field1
Precision = 10
Size = 4
Scale = 0
Type = 3
Name = "ID"
Caption = "ID"
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 = "Address"
Caption = "Address"
EndProperty
BeginProperty Field4
Precision = 0
Size = 20
Scale = 0
Type = 202
Name = "Zip"
Caption = "Zip"
EndProperty
BeginProperty Field5
Precision = 0
Size = 20
Scale = 0
Type = 202
Name = "LinkMan"
Caption = "LinkMan"
EndProperty
BeginProperty Field6
Precision = 0
Size = 20
Scale = 0
Type = 202
Name = "Tel"
Caption = "Tel"
EndProperty
BeginProperty Field7
Precision = 0
Size = 20
Scale = 0
Type = 202
Name = "Fax"
Caption = "Fax"
EndProperty
BeginProperty Field8
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "Email"
Caption = "Email"
EndProperty
BeginProperty Field9
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "Homepage"
Caption = "Homepage"
EndProperty
BeginProperty Field10
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "Bank"
Caption = "Bank"
EndProperty
BeginProperty Field11
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "Accounts"
Caption = "Accounts"
EndProperty
BeginProperty Field12
Precision = 0
Size = 100
Scale = 0
Type = 202
Name = "Remark"
Caption = "Remark"
EndProperty
NumGroups = 0
ParamCount = 0
RelationCount = 0
AggregateCount = 0
EndProperty
BeginProperty Recordset12
CommandName = "Command1"
CommDispId = 1081
RsDispId = -1
NumFields = 0
NumGroups = 0
ParamCount = 0
RelationCount = 0
AggregateCount = 0
EndProperty
BeginProperty Recordset13
CommandName = "rsOtherStorageChange"
CommDispId = 1083
RsDispId = 1089
CommandText = "OtherStorageChange"
ActiveConnectionName= "conData"
CommandType = 2
dbObjectType = 2
IsRSReturning = -1 'True
NumFields = 8
BeginProperty Field1
Precision = 10
Size = 4
Scale = 0
Type = 3
Name = "ID"
Caption = "ID"
EndProperty
BeginProperty Field2
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "BarCode"
Caption = "BarCode"
EndProperty
BeginProperty Field3
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "sName"
Caption = "sName"
EndProperty
BeginProperty Field4
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "Unit"
Caption = "Unit"
EndProperty
BeginProperty Field5
Precision = 19
Size = 8
Scale = 0
Type = 6
Name = "Price"
Caption = "Price"
EndProperty
BeginProperty Field6
Precision = 15
Size = 8
Scale = 0
Type = 5
Name = "Amount"
Caption = "Amount"
EndProperty
BeginProperty Field7
Precision = 15
Size = 8
Scale = 0
Type = 5
Name = "subTotal"
Caption = "subTotal"
EndProperty
BeginProperty Field8
Precision = 0
Size = 100
Scale = 0
Type = 202
Name = "Remark"
Caption = "Remark"
EndProperty
NumGroups = 0
ParamCount = 0
RelationCount = 0
AggregateCount = 0
EndProperty
BeginProperty Recordset14
CommandName = "rsOtherStorageChangeTotal"
CommDispId = 1084
RsDispId = 1094
CommandText = "OtherStorageChangeTotal"
ActiveConnectionName= "conData"
CommandType = 2
dbObjectType = 2
IsRSReturning = -1 'True
NumFields = 1
BeginProperty Field1
Precision = 15
Size = 8
Scale = 0
Type = 5
Name = "Total"
Caption = "Total"
EndProperty
NumGroups = 0
ParamCount = 0
RelationCount = 0
AggregateCount = 0
EndProperty
BeginProperty Recordset15
CommandName = "rsStorage1"
CommDispId = 1095
RsDispId = 1100
CommandText = "Storage"
ActiveConnectionName= "conData"
CommandType = 2
dbObjectType = 1
IsRSReturning = -1 'True
NumFields = 8
BeginProperty Field1
Precision = 10
Size = 4
Scale = 0
Type = 3
Name = "ID"
Caption = "ID"
EndProperty
BeginProperty Field2
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "BarCode"
Caption = "BarCode"
EndProperty
BeginProperty Field3
Precision = 0
Size = 50
Scale = 0
Type = 202
Name = "Name"
Caption = "Name"
EndProperty
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?