denwind.dsr

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

VERSION 5.00
Begin {C0E45035-5775-11D0-B388-00A0C9055D8E} deNwind 
   ClientHeight    =   5865
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   5580
   _ExtentX        =   9843
   _ExtentY        =   10345
   FolderFlags     =   7
   TypeLibGuid     =   "{BC4468AF-763D-11D1-AB28-00A0C9054348}"
   TypeInfoGuid    =   "{BC4468B0-763D-11D1-AB28-00A0C9054348}"
   TypeInfoCookie  =   0
   Version         =   2
   NumConnections  =   1
   BeginProperty Connection1 
      ConnectionName  =   "Nwind"
      SourceOfData    =   3
      ConnectionSource=   "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=C:\Program Files\Microsoft Visual Studio\vb98\Nwind.mdb"
      Expanded        =   -1  'True
      QuoteChar       =   96
      SeparatorChar   =   46
   EndProperty
   NumRecordsets   =   4
   BeginProperty Recordset1 
      CommandName     =   "Customers"
      CommandText     =   "Customers"
      ActiveConnectionName=   "Nwind"
      CommandType     =   2
      dbObjectType    =   1
      Grouping        =   -1  'True
      GroupingName    =   "Customers_Grouping"
      ParentCommandName=   "Customers_Grouping"
      Expanded        =   -1  'True
      SummaryExpanded =   -1  'True
      DetailExpanded  =   -1  'True
      IsRSReturning   =   -1  'True
      NumFields       =   11
      BeginProperty Field1 
         Precision       =   255
         Size            =   5
         Scale           =   255
         Type            =   200
         Name            =   "CustomerID"
         Caption         =   "CustomerID"
      EndProperty
      BeginProperty Field2 
         Precision       =   255
         Size            =   40
         Scale           =   255
         Type            =   200
         Name            =   "CompanyName"
         Caption         =   "CompanyName"
      EndProperty
      BeginProperty Field3 
         Precision       =   255
         Size            =   30
         Scale           =   255
         Type            =   200
         Name            =   "ContactName"
         Caption         =   "ContactName"
      EndProperty
      BeginProperty Field4 
         Precision       =   255
         Size            =   30
         Scale           =   255
         Type            =   200
         Name            =   "ContactTitle"
         Caption         =   "ContactTitle"
      EndProperty
      BeginProperty Field5 
         Precision       =   255
         Size            =   60
         Scale           =   255
         Type            =   200
         Name            =   "Address"
         Caption         =   "Address"
      EndProperty
      BeginProperty Field6 
         Precision       =   255
         Size            =   15
         Scale           =   255
         Type            =   200
         Name            =   "City"
         Caption         =   "City"
      EndProperty
      BeginProperty Field7 
         Precision       =   255
         Size            =   15
         Scale           =   255
         Type            =   200
         Name            =   "Region"
         Caption         =   "Region"
      EndProperty
      BeginProperty Field8 
         Precision       =   255
         Size            =   10
         Scale           =   255
         Type            =   200
         Name            =   "PostalCode"
         Caption         =   "PostalCode"
      EndProperty
      BeginProperty Field9 
         Precision       =   255
         Size            =   15
         Scale           =   255
         Type            =   200
         Name            =   "Country"
         Caption         =   "Country"
      EndProperty
      BeginProperty Field10 
         Precision       =   255
         Size            =   24
         Scale           =   255
         Type            =   200
         Name            =   "Phone"
         Caption         =   "Phone"
      EndProperty
      BeginProperty Field11 
         Precision       =   255
         Size            =   24
         Scale           =   255
         Type            =   200
         Name            =   "Fax"
         Caption         =   "Fax"
      EndProperty
      GroupingName    =   "Customers_Grouping"
      NumGroups       =   1
      BeginProperty Grouping1 
         Precision       =   255
         Size            =   15
         Scale           =   255
         Type            =   200
         Name            =   "Country"
         Caption         =   "Country"
      EndProperty
      ParamCount      =   0
      CommandParent   =   ""
      RelationCount   =   0
      AggregateCount  =   0
   EndProperty
   BeginProperty Recordset2 
      CommandName     =   "Orders"
      CommandText     =   "Orders"
      ActiveConnectionName=   "Nwind"
      CommandType     =   2
      dbObjectType    =   1
      GroupingName    =   "Customers"
      RelateToParent  =   -1  'True
      ParentCommandName=   "Customers"
      Expanded        =   -1  'True
      IsRSReturning   =   -1  'True
      NumFields       =   14
      BeginProperty Field1 
         Precision       =   10
         Size            =   4
         Scale           =   255
         Type            =   3
         Name            =   "OrderID"
         Caption         =   "OrderID"
      EndProperty
      BeginProperty Field2 
         Precision       =   255
         Size            =   5
         Scale           =   255
         Type            =   200
         Name            =   "CustomerID"
         Caption         =   "CustomerID"
      EndProperty
      BeginProperty Field3 
         Precision       =   10
         Size            =   4
         Scale           =   255
         Type            =   3
         Name            =   "EmployeeID"
         Caption         =   "EmployeeID"
      EndProperty
      BeginProperty Field4 
         Precision       =   255
         Size            =   8
         Scale           =   255
         Type            =   7
         Name            =   "OrderDate"
         Caption         =   "OrderDate"
      EndProperty
      BeginProperty Field5 
         Precision       =   255
         Size            =   8
         Scale           =   255
         Type            =   7
         Name            =   "RequiredDate"
         Caption         =   "RequiredDate"
      EndProperty
      BeginProperty Field6 
         Precision       =   255
         Size            =   8
         Scale           =   255
         Type            =   7
         Name            =   "ShippedDate"
         Caption         =   "ShippedDate"
      EndProperty
      BeginProperty Field7 
         Precision       =   10
         Size            =   4
         Scale           =   255
         Type            =   3
         Name            =   "ShipVia"
         Caption         =   "ShipVia"
      EndProperty
      BeginProperty Field8 
         Precision       =   19
         Size            =   8
         Scale           =   255
         Type            =   6
         Name            =   "Freight"
         Caption         =   "Freight"
      EndProperty
      BeginProperty Field9 
         Precision       =   255
         Size            =   40
         Scale           =   255
         Type            =   200
         Name            =   "ShipName"
         Caption         =   "ShipName"
      EndProperty
      BeginProperty Field10 
         Precision       =   255
         Size            =   60
         Scale           =   255
         Type            =   200
         Name            =   "ShipAddress"
         Caption         =   "ShipAddress"
      EndProperty
      BeginProperty Field11 
         Precision       =   255
         Size            =   15