denwind.dsr

用VB写的报表程序,看看吧.对写程序有好处的.

         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
      GroupingName    =   "Customers"
      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
         Type            =   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"
      CommandText     =   "Select OrderID, ProductID, UnitPrice, Quantity, (Quantity * UnitPrice) As Total From [Order Details]"
      ActiveConnectionName=   "Nwind"
      CommandType     =   1
      GroupingName    =   "Orders"
      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
      GroupingName    =   "Orders"
      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"
      CommandText     =   "Products"
      ActiveConnectionName=   "Nwind"
      CommandType     =   2
      dbObjectType    =   1
      GroupingName    =   "OrderDetails"
      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
      GroupingName    =   "OrderDetails"
      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