home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 6 Unleashed…sional Reference Edition) / Visual_Basic_6_Unleashed_Professional_Reference_Edition_Sams_1999.iso / Source / CHAP16 / DataObj.Dsr < prev    next >
Encoding:
Visual Basic Active Designer file  |  1998-06-11  |  9.8 KB  |  305 lines
  1. VERSION 5.00
  2. Begin {C0E45035-5775-11D0-B388-00A0C9055D8E} DataEnvironment1 
  3.    ClientHeight    =   5730
  4.    ClientLeft      =   0
  5.    ClientTop       =   0
  6.    ClientWidth     =   5310
  7.    _ExtentX        =   9366
  8.    _ExtentY        =   10107
  9.    FolderFlags     =   1
  10.    TypeLibGuid     =   "{A2203BF1-0153-11D2-AEFC-86275D09263A}"
  11.    TypeInfoGuid    =   "{A2203BF2-0153-11D2-AEFC-86275D09263A}"
  12.    TypeInfoCookie  =   0
  13.    Version         =   4
  14.    NumConnections  =   1
  15.    BeginProperty Connection1 
  16.       ConnectionName  =   "Connection1"
  17.       ConnDispId      =   1001
  18.       SourceOfData    =   3
  19.       ConnectionSource=   "Provider=MSDASQL.1;Persist Security Info=False;Data Source=NWIND"
  20.       Expanded        =   -1  'True
  21.       QuoteChar       =   96
  22.       SeparatorChar   =   46
  23.    EndProperty
  24.    NumRecordsets   =   4
  25.    BeginProperty Recordset1 
  26.       CommandName     =   "Customers"
  27.       CommDispId      =   1002
  28.       RsDispId        =   1007
  29.       CommandText     =   "Customers"
  30.       ActiveConnectionName=   "Connection1"
  31.       CommandType     =   2
  32.       dbObjectType    =   1
  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  =   0
  127.    EndProperty
  128.    BeginProperty Recordset2 
  129.       CommandName     =   "OrderInfo"
  130.       CommDispId      =   1008
  131.       RsDispId        =   1014
  132.       CommandText     =   $"DataObj.dsx":0000
  133.       ActiveConnectionName=   "Connection1"
  134.       CommandType     =   1
  135.       Expanded        =   -1  'True
  136.       IsRSReturning   =   -1  'True
  137.       NumFields       =   6
  138.       BeginProperty Field1 
  139.          Precision       =   10
  140.          Size            =   4
  141.          Scale           =   0
  142.          Type            =   3
  143.          Name            =   "OrderID"
  144.          Caption         =   "OrderID"
  145.       EndProperty
  146.       BeginProperty Field2 
  147.          Precision       =   0
  148.          Size            =   5
  149.          Scale           =   0
  150.          Type            =   200
  151.          Name            =   "CustomerID"
  152.          Caption         =   "CustomerID"
  153.       EndProperty
  154.       BeginProperty Field3 
  155.          Precision       =   19
  156.          Size            =   16
  157.          Scale           =   0
  158.          Type            =   135
  159.          Name            =   "OrderDate"
  160.          Caption         =   "OrderDate"
  161.       EndProperty
  162.       BeginProperty Field4 
  163.          Precision       =   10
  164.          Size            =   4
  165.          Scale           =   0
  166.          Type            =   3
  167.          Name            =   "ProductID"
  168.          Caption         =   "ProductID"
  169.       EndProperty
  170.       BeginProperty Field5 
  171.          Precision       =   19
  172.          Size            =   8
  173.          Scale           =   0
  174.          Type            =   6
  175.          Name            =   "UnitPrice"
  176.          Caption         =   "UnitPrice"
  177.       EndProperty
  178.       BeginProperty Field6 
  179.          Precision       =   5
  180.          Size            =   2
  181.          Scale           =   0
  182.          Type            =   2
  183.          Name            =   "Quantity"
  184.          Caption         =   "Quantity"
  185.       EndProperty
  186.       NumGroups       =   0
  187.       ParamCount      =   0
  188.       RelationCount   =   0
  189.       AggregateCount  =   0
  190.    EndProperty
  191.    BeginProperty Recordset3 
  192.       CommandName     =   "Products"
  193.       CommDispId      =   1015
  194.       RsDispId        =   1020
  195.       CommandText     =   "Products"
  196.       ActiveConnectionName=   "Connection1"
  197.       CommandType     =   2
  198.       dbObjectType    =   1
  199.       IsRSReturning   =   -1  'True
  200.       NumFields       =   10
  201.       BeginProperty Field1 
  202.          Precision       =   10
  203.          Size            =   4
  204.          Scale           =   0
  205.          Type            =   3
  206.          Name            =   "ProductID"
  207.          Caption         =   "ProductID"
  208.       EndProperty
  209.       BeginProperty Field2 
  210.          Precision       =   0
  211.          Size            =   40
  212.          Scale           =   0
  213.          Type            =   200
  214.          Name            =   "ProductName"
  215.          Caption         =   "ProductName"
  216.       EndProperty
  217.       BeginProperty Field3 
  218.          Precision       =   10
  219.          Size            =   4
  220.          Scale           =   0
  221.          Type            =   3
  222.          Name            =   "SupplierID"
  223.          Caption         =   "SupplierID"
  224.       EndProperty
  225.       BeginProperty Field4 
  226.          Precision       =   10
  227.          Size            =   4
  228.          Scale           =   0
  229.          Type            =   3
  230.          Name            =   "CategoryID"
  231.          Caption         =   "CategoryID"
  232.       EndProperty
  233.       BeginProperty Field5 
  234.          Precision       =   0
  235.          Size            =   20
  236.          Scale           =   0
  237.          Type            =   200
  238.          Name            =   "QuantityPerUnit"
  239.          Caption         =   "QuantityPerUnit"
  240.       EndProperty
  241.       BeginProperty Field6 
  242.          Precision       =   19
  243.          Size            =   8
  244.          Scale           =   0
  245.          Type            =   6
  246.          Name            =   "UnitPrice"
  247.          Caption         =   "UnitPrice"
  248.       EndProperty
  249.       BeginProperty Field7 
  250.          Precision       =   5
  251.          Size            =   2
  252.          Scale           =   0
  253.          Type            =   2
  254.          Name            =   "UnitsInStock"
  255.          Caption         =   "UnitsInStock"
  256.       EndProperty
  257.       BeginProperty Field8 
  258.          Precision       =   5
  259.          Size            =   2
  260.          Scale           =   0
  261.          Type            =   2
  262.          Name            =   "UnitsOnOrder"
  263.          Caption         =   "UnitsOnOrder"
  264.       EndProperty
  265.       BeginProperty Field9 
  266.          Precision       =   5
  267.          Size            =   2
  268.          Scale           =   0
  269.          Type            =   2
  270.          Name            =   "ReorderLevel"
  271.          Caption         =   "ReorderLevel"
  272.       EndProperty
  273.       BeginProperty Field10 
  274.          Precision       =   0
  275.          Size            =   2
  276.          Scale           =   0
  277.          Type            =   11
  278.          Name            =   "Discontinued"
  279.          Caption         =   "Discontinued"
  280.       EndProperty
  281.       NumGroups       =   0
  282.       ParamCount      =   0
  283.       RelationCount   =   0
  284.       AggregateCount  =   0
  285.    EndProperty
  286.    BeginProperty Recordset4 
  287.       CommandName     =   "UpdUnitprice"
  288.       CommDispId      =   1021
  289.       RsDispId        =   -1
  290.       CommandText     =   "UPDATE `Order Details` SET UnitPrice = UnitPrice * 1.06"
  291.       ActiveConnectionName=   "Connection1"
  292.       CommandType     =   1
  293.       NumFields       =   0
  294.       NumGroups       =   0
  295.       ParamCount      =   0
  296.       RelationCount   =   0
  297.       AggregateCount  =   0
  298.    EndProperty
  299. End
  300. Attribute VB_Name = "DataEnvironment1"
  301. Attribute VB_GlobalNameSpace = False
  302. Attribute VB_Creatable = True
  303. Attribute VB_PredeclaredId = True
  304. Attribute VB_Exposed = False
  305.