?? denwind.dsr
字號:
Precision = 255
Size = 15
Scale = 255
Type = 200
Name = "ShipCity"
Caption = "ShipCity"
EndProperty
BeginProperty Field12
Precision = 255
Size = 15
Scale = 255
Type = 200
Name = "ShipRegion"
Caption = "ShipRegion"
EndProperty
BeginProperty Field13
Precision = 255
Size = 10
Scale = 255
Type = 200
Name = "ShipPostalCode"
Caption = "ShipPostalCode"
EndProperty
BeginProperty Field14
Precision = 255
Size = 15
Scale = 255
Type = 200
Name = "ShipCountry"
Caption = "ShipCountry"
EndProperty
NumGroups = 0
ParamCount = 0
CommandParent = "Customers"
RelationCount = 1
BeginProperty Relation1
ParentField = "CustomerID"
ChildField = "CustomerID"
ParentType = 0
ChildType = 0
EndProperty
AggregateCount = 1
BeginProperty Aggregate1
Name = "ProductCount"
AggOn = "OrderDetails"
AggField = "ProductID"
AggType = 1
AggFunction = 3
Precision = 8
Size = 4
Scale = 8
Type = 3
Name = "ProductCount"
Caption = "ProductCount"
Control = "TextBox"
ControlGuid = "{0CA5C786-7C71-11D0-B223-00A0C908FB55}"
EndProperty
EndProperty
BeginProperty Recordset3
CommandName = "OrderDetails"
CommDispId = -1
RsDispId = -1
CommandText = "Select OrderID, ProductID, UnitPrice, Quantity, (Quantity * UnitPrice) As Total From [Order Details]"
ActiveConnectionName= "Nwind"
CommandType = 1
RelateToParent = -1 'True
ParentCommandName= "Orders"
Expanded = -1 'True
IsRSReturning = -1 'True
NumFields = 5
BeginProperty Field1
Precision = 10
Size = 4
Scale = 255
Type = 3
Name = "OrderID"
Caption = "OrderID"
EndProperty
BeginProperty Field2
Precision = 10
Size = 4
Scale = 255
Type = 3
Name = "ProductID"
Caption = "ProductID"
EndProperty
BeginProperty Field3
Precision = 19
Size = 8
Scale = 255
Type = 6
Name = "UnitPrice"
Caption = "UnitPrice"
EndProperty
BeginProperty Field4
Precision = 5
Size = 2
Scale = 255
Type = 2
Name = "Quantity"
Caption = "Quantity"
EndProperty
BeginProperty Field5
Precision = 19
Size = 8
Scale = 255
Type = 6
Name = "Total"
Caption = "Total"
EndProperty
NumGroups = 0
ParamCount = 0
CommandParent = "Orders"
RelationCount = 1
BeginProperty Relation1
ParentField = "OrderID"
ChildField = "OrderID"
ParentType = 0
ChildType = 0
EndProperty
AggregateCount = 0
EndProperty
BeginProperty Recordset4
CommandName = "Products"
CommDispId = -1
RsDispId = -1
CommandText = "Products"
ActiveConnectionName= "Nwind"
CommandType = 2
dbObjectType = 1
RelateToParent = -1 'True
ParentCommandName= "OrderDetails"
Expanded = -1 'True
IsRSReturning = -1 'True
NumFields = 10
BeginProperty Field1
Precision = 10
Size = 4
Scale = 255
Type = 3
Name = "ProductID"
Caption = "ProductID"
EndProperty
BeginProperty Field2
Precision = 255
Size = 40
Scale = 255
Type = 200
Name = "ProductName"
Caption = "ProductName"
EndProperty
BeginProperty Field3
Precision = 10
Size = 4
Scale = 255
Type = 3
Name = "SupplierID"
Caption = "SupplierID"
EndProperty
BeginProperty Field4
Precision = 10
Size = 4
Scale = 255
Type = 3
Name = "CategoryID"
Caption = "CategoryID"
EndProperty
BeginProperty Field5
Precision = 255
Size = 20
Scale = 255
Type = 200
Name = "QuantityPerUnit"
Caption = "QuantityPerUnit"
EndProperty
BeginProperty Field6
Precision = 19
Size = 8
Scale = 255
Type = 6
Name = "UnitPrice"
Caption = "UnitPrice"
EndProperty
BeginProperty Field7
Precision = 5
Size = 2
Scale = 255
Type = 2
Name = "UnitsInStock"
Caption = "UnitsInStock"
EndProperty
BeginProperty Field8
Precision = 5
Size = 2
Scale = 255
Type = 2
Name = "UnitsOnOrder"
Caption = "UnitsOnOrder"
EndProperty
BeginProperty Field9
Precision = 5
Size = 2
Scale = 255
Type = 2
Name = "ReorderLevel"
Caption = "ReorderLevel"
EndProperty
BeginProperty Field10
Precision = 255
Size = 2
Scale = 255
Type = 11
Name = "Discontinued"
Caption = "Discontinued"
EndProperty
NumGroups = 0
ParamCount = 0
CommandParent = "OrderDetails"
RelationCount = 1
BeginProperty Relation1
ParentField = "ProductID"
ChildField = "ProductID"
ParentType = 0
ChildType = 0
EndProperty
AggregateCount = 0
EndProperty
End
Attribute VB_Name = "deNwind"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -