home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 6 / mastvb6.iso / ch_code / ch18 / report / datenv.dsr < prev    next >
Encoding:
Visual Basic Active Designer file  |  1998-07-14  |  11.5 KB  |  353 lines

  1. VERSION 5.00
  2. Begin {C0E45035-5775-11D0-B388-00A0C9055D8E} DataEnvironment1 
  3.    ClientHeight    =   6312
  4.    ClientLeft      =   0
  5.    ClientTop       =   0
  6.    ClientWidth     =   5136
  7.    _ExtentX        =   9059
  8.    _ExtentY        =   11134
  9.    FolderFlags     =   7
  10.    TypeLibGuid     =   "{FEC1D55B-1781-11D2-856D-444553540000}"
  11.    TypeInfoGuid    =   "{FEC1D55C-1781-11D2-856D-444553540000}"
  12.    TypeInfoCookie  =   0
  13.    Version         =   4
  14.    NumConnections  =   1
  15.    BeginProperty Connection1 
  16.       ConnectionName  =   "Connection1"
  17.       ConnDispId      =   1001
  18.       SourceOfData    =   3
  19.       ConnectionSource=   "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=C:\Program Files\Microsoft Visual Studio\VB98\Nwind.mdb"
  20.       QuoteChar       =   96
  21.       SeparatorChar   =   46
  22.    EndProperty
  23.    NumRecordsets   =   3
  24.    BeginProperty Recordset1 
  25.       CommandName     =   "Command1"
  26.       CommDispId      =   1002
  27.       RsDispId        =   1005
  28.       CommandText     =   "Customers"
  29.       ActiveConnectionName=   "Connection1"
  30.       CommandType     =   2
  31.       dbObjectType    =   1
  32.       Expanded        =   -1  'True
  33.       IsRSReturning   =   -1  'True
  34.       NumFields       =   11
  35.       BeginProperty Field1 
  36.          Precision       =   0
  37.          Size            =   5
  38.          Scale           =   0
  39.          Type            =   200
  40.          Name            =   "CustomerID"
  41.          Caption         =   "CustomerID"
  42.       EndProperty
  43.       BeginProperty Field2 
  44.          Precision       =   0
  45.          Size            =   40
  46.          Scale           =   0
  47.          Type            =   200
  48.          Name            =   "CompanyName"
  49.          Caption         =   "CompanyName"
  50.       EndProperty
  51.       BeginProperty Field3 
  52.          Precision       =   0
  53.          Size            =   30
  54.          Scale           =   0
  55.          Type            =   200
  56.          Name            =   "ContactName"
  57.          Caption         =   "ContactName"
  58.       EndProperty
  59.       BeginProperty Field4 
  60.          Precision       =   0
  61.          Size            =   30
  62.          Scale           =   0
  63.          Type            =   200
  64.          Name            =   "ContactTitle"
  65.          Caption         =   "ContactTitle"
  66.       EndProperty
  67.       BeginProperty Field5 
  68.          Precision       =   0
  69.          Size            =   60
  70.          Scale           =   0
  71.          Type            =   200
  72.          Name            =   "Address"
  73.          Caption         =   "Address"
  74.       EndProperty
  75.       BeginProperty Field6 
  76.          Precision       =   0
  77.          Size            =   15
  78.          Scale           =   0
  79.          Type            =   200
  80.          Name            =   "City"
  81.          Caption         =   "City"
  82.       EndProperty
  83.       BeginProperty Field7 
  84.          Precision       =   0
  85.          Size            =   15
  86.          Scale           =   0
  87.          Type            =   200
  88.          Name            =   "Region"
  89.          Caption         =   "Region"
  90.       EndProperty
  91.       BeginProperty Field8 
  92.          Precision       =   0
  93.          Size            =   10
  94.          Scale           =   0
  95.          Type            =   200
  96.          Name            =   "PostalCode"
  97.          Caption         =   "PostalCode"
  98.       EndProperty
  99.       BeginProperty Field9 
  100.          Precision       =   0
  101.          Size            =   15
  102.          Scale           =   0
  103.          Type            =   200
  104.          Name            =   "Country"
  105.          Caption         =   "Country"
  106.       EndProperty
  107.       BeginProperty Field10 
  108.          Precision       =   0
  109.          Size            =   24
  110.          Scale           =   0
  111.          Type            =   200
  112.          Name            =   "Phone"
  113.          Caption         =   "Phone"
  114.       EndProperty
  115.       BeginProperty Field11 
  116.          Precision       =   0
  117.          Size            =   24
  118.          Scale           =   0
  119.          Type            =   200
  120.          Name            =   "Fax"
  121.          Caption         =   "Fax"
  122.       EndProperty
  123.       NumGroups       =   0
  124.       ParamCount      =   0
  125.       RelationCount   =   0
  126.       AggregateCount  =   2
  127.       BeginProperty Aggregate1 
  128.          Name            =   "TotalOrders"
  129.          AggOn           =   "Command2"
  130.          AggField        =   "OrderID"
  131.          AggType         =   1
  132.          AggFunction     =   3
  133.          Precision       =   8
  134.          Size            =   4
  135.          Scale           =   8
  136.          Type            =   131
  137.          Name            =   "TotalOrders"
  138.          Caption         =   "TotalOrders"
  139.       EndProperty
  140.       BeginProperty Aggregate2 
  141.          Name            =   "CustomerTotal"
  142.          AggOn           =   "Command2"
  143.          AggField        =   "OrderTotal"
  144.          AggType         =   1
  145.          AggFunction     =   7
  146.          Precision       =   8
  147.          Size            =   4
  148.          Scale           =   8
  149.          Type            =   131
  150.          Name            =   "CustomerTotal"
  151.          Caption         =   "CustomerTotal"
  152.          Control         =   "TextBox"
  153.          ControlGuid     =   "{0CA5C786-7C71-11D0-B223-00A0C908FB55}"
  154.       EndProperty
  155.    EndProperty
  156.    BeginProperty Recordset2 
  157.       CommandName     =   "Command2"
  158.       CommDispId      =   -1
  159.       RsDispId        =   -1
  160.       CommandText     =   "Orders"
  161.       ActiveConnectionName=   "Connection1"
  162.       CommandType     =   2
  163.       dbObjectType    =   1
  164.       RelateToParent  =   -1  'True
  165.       ParentCommandName=   "Command1"
  166.       Expanded        =   -1  'True
  167.       IsRSReturning   =   -1  'True
  168.       NumFields       =   14
  169.       BeginProperty Field1 
  170.          Precision       =   10
  171.          Size            =   4
  172.          Scale           =   0
  173.          Type            =   3
  174.          Name            =   "OrderID"
  175.          Caption         =   "OrderID"
  176.       EndProperty
  177.       BeginProperty Field2 
  178.          Precision       =   0
  179.          Size            =   5
  180.          Scale           =   0
  181.          Type            =   200
  182.          Name            =   "CustomerID"
  183.          Caption         =   "CustomerID"
  184.       EndProperty
  185.       BeginProperty Field3 
  186.          Precision       =   10
  187.          Size            =   4
  188.          Scale           =   0
  189.          Type            =   3
  190.          Name            =   "EmployeeID"
  191.          Caption         =   "EmployeeID"
  192.       EndProperty
  193.       BeginProperty Field4 
  194.          Precision       =   0
  195.          Size            =   8
  196.          Scale           =   0
  197.          Type            =   7
  198.          Name            =   "OrderDate"
  199.          Caption         =   "OrderDate"
  200.       EndProperty
  201.       BeginProperty Field5 
  202.          Precision       =   0
  203.          Size            =   8
  204.          Scale           =   0
  205.          Type            =   7
  206.          Name            =   "RequiredDate"
  207.          Caption         =   "RequiredDate"
  208.       EndProperty
  209.       BeginProperty Field6 
  210.          Precision       =   0
  211.          Size            =   8
  212.          Scale           =   0
  213.          Type            =   7
  214.          Name            =   "ShippedDate"
  215.          Caption         =   "ShippedDate"
  216.       EndProperty
  217.       BeginProperty Field7 
  218.          Precision       =   10
  219.          Size            =   4
  220.          Scale           =   0
  221.          Type            =   3
  222.          Name            =   "ShipVia"
  223.          Caption         =   "ShipVia"
  224.       EndProperty
  225.       BeginProperty Field8 
  226.          Precision       =   19
  227.          Size            =   8
  228.          Scale           =   0
  229.          Type            =   6
  230.          Name            =   "Freight"
  231.          Caption         =   "Freight"
  232.       EndProperty
  233.       BeginProperty Field9 
  234.          Precision       =   0
  235.          Size            =   40
  236.          Scale           =   0
  237.          Type            =   200
  238.          Name            =   "ShipName"
  239.          Caption         =   "ShipName"
  240.       EndProperty
  241.       BeginProperty Field10 
  242.          Precision       =   0
  243.          Size            =   60
  244.          Scale           =   0
  245.          Type            =   200
  246.          Name            =   "ShipAddress"
  247.          Caption         =   "ShipAddress"
  248.       EndProperty
  249.       BeginProperty Field11 
  250.          Precision       =   0
  251.          Size            =   15
  252.          Scale           =   0
  253.          Type            =   200
  254.          Name            =   "ShipCity"
  255.          Caption         =   "ShipCity"
  256.       EndProperty
  257.       BeginProperty Field12 
  258.          Precision       =   0
  259.          Size            =   15
  260.          Scale           =   0
  261.          Type            =   200
  262.          Name            =   "ShipRegion"
  263.          Caption         =   "ShipRegion"
  264.       EndProperty
  265.       BeginProperty Field13 
  266.          Precision       =   0
  267.          Size            =   10
  268.          Scale           =   0
  269.          Type            =   200
  270.          Name            =   "ShipPostalCode"
  271.          Caption         =   "ShipPostalCode"
  272.       EndProperty
  273.       BeginProperty Field14 
  274.          Precision       =   0
  275.          Size            =   15
  276.          Scale           =   0
  277.          Type            =   200
  278.          Name            =   "ShipCountry"
  279.          Caption         =   "ShipCountry"
  280.       EndProperty
  281.       NumGroups       =   0
  282.       ParamCount      =   0
  283.       RelationCount   =   1
  284.       BeginProperty Relation1 
  285.          ParentField     =   "CustomerID"
  286.          ChildField      =   "CustomerID"
  287.          ParentType      =   0
  288.          ChildType       =   0
  289.       EndProperty
  290.       AggregateCount  =   1
  291.       BeginProperty Aggregate1 
  292.          Name            =   "OrderTotal"
  293.          AggOn           =   "Command3"
  294.          AggField        =   "Subtotal"
  295.          AggType         =   1
  296.          AggFunction     =   7
  297.          Precision       =   8
  298.          Size            =   4
  299.          Scale           =   8
  300.          Type            =   131
  301.          Name            =   "OrderTotal"
  302.          Caption         =   "OrderTotal"
  303.          Control         =   "TextBox"
  304.          ControlGuid     =   "{0CA5C786-7C71-11D0-B223-00A0C908FB55}"
  305.       EndProperty
  306.    EndProperty
  307.    BeginProperty Recordset3 
  308.       CommandName     =   "Command3"
  309.       CommDispId      =   -1
  310.       RsDispId        =   -1
  311.       CommandText     =   "Order Subtotals"
  312.       ActiveConnectionName=   "Connection1"
  313.       CommandType     =   2
  314.       dbObjectType    =   2
  315.       RelateToParent  =   -1  'True
  316.       ParentCommandName=   "Command2"
  317.       Expanded        =   -1  'True
  318.       IsRSReturning   =   -1  'True
  319.       NumFields       =   2
  320.       BeginProperty Field1 
  321.          Precision       =   10
  322.          Size            =   4
  323.          Scale           =   0
  324.          Type            =   3
  325.          Name            =   "OrderID"
  326.          Caption         =   "OrderID"
  327.       EndProperty
  328.       BeginProperty Field2 
  329.          Precision       =   19
  330.          Size            =   8
  331.          Scale           =   0
  332.          Type            =   6
  333.          Name            =   "Subtotal"
  334.          Caption         =   "Subtotal"
  335.       EndProperty
  336.       NumGroups       =   0
  337.       ParamCount      =   0
  338.       RelationCount   =   1
  339.       BeginProperty Relation1 
  340.          ParentField     =   "OrderID"
  341.          ChildField      =   "OrderID"
  342.          ParentType      =   0
  343.          ChildType       =   0
  344.       EndProperty
  345.       AggregateCount  =   0
  346.    EndProperty
  347. End
  348. Attribute VB_Name = "DataEnvironment1"
  349. Attribute VB_GlobalNameSpace = False
  350. Attribute VB_Creatable = True
  351. Attribute VB_PredeclaredId = True
  352. Attribute VB_Exposed = False
  353.