home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 6 / mastvb6.iso / ch_code / ch18 / adodc / adodc.frm (.txt) next >
Encoding:
Visual Basic Form  |  1998-07-14  |  7.3 KB  |  232 lines
  1. VERSION 5.00
  2. Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
  3. Object = "{F0D2F211-CCB0-11D0-A316-00AA00688B10}#1.0#0"; "MSDATLST.OCX"
  4. Begin VB.Form ADODCForm 
  5.    Caption         =   "ADO Data Control Demo"
  6.    ClientHeight    =   3840
  7.    ClientLeft      =   60
  8.    ClientTop       =   348
  9.    ClientWidth     =   5760
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   3840
  12.    ScaleWidth      =   5760
  13.    StartUpPosition =   3  'Windows Default
  14.    Begin VB.CommandButton cmdExit 
  15.       Caption         =   "E X I T"
  16.       BeginProperty Font 
  17.          Name            =   "Verdana"
  18.          Size            =   10.2
  19.          Charset         =   0
  20.          Weight          =   400
  21.          Underline       =   0   'False
  22.          Italic          =   0   'False
  23.          Strikethrough   =   0   'False
  24.       EndProperty
  25.       Height          =   348
  26.       Left            =   4440
  27.       TabIndex        =   8
  28.       Top             =   3372
  29.       Width           =   1188
  30.    End
  31.    Begin VB.TextBox Text3 
  32.       DataField       =   "ContactTitle"
  33.       DataSource      =   "Adodc1"
  34.       BeginProperty Font 
  35.          Name            =   "Verdana"
  36.          Size            =   9
  37.          Charset         =   0
  38.          Weight          =   400
  39.          Underline       =   0   'False
  40.          Italic          =   0   'False
  41.          Strikethrough   =   0   'False
  42.       EndProperty
  43.       Height          =   288
  44.       Left            =   1368
  45.       TabIndex        =   5
  46.       Top             =   936
  47.       Width           =   3012
  48.    End
  49.    Begin VB.TextBox Text2 
  50.       DataField       =   "ContactName"
  51.       DataSource      =   "Adodc1"
  52.       BeginProperty Font 
  53.          Name            =   "Verdana"
  54.          Size            =   9
  55.          Charset         =   0
  56.          Weight          =   400
  57.          Underline       =   0   'False
  58.          Italic          =   0   'False
  59.          Strikethrough   =   0   'False
  60.       EndProperty
  61.       Height          =   288
  62.       Left            =   1368
  63.       TabIndex        =   3
  64.       Top             =   540
  65.       Width           =   1932
  66.    End
  67.    Begin MSDataListLib.DataList DataList1 
  68.       Bindings        =   "ADODC.frx":0000
  69.       Height          =   1344
  70.       Left            =   144
  71.       TabIndex        =   2
  72.       Top             =   2376
  73.       Width           =   2772
  74.       _ExtentX        =   4890
  75.       _ExtentY        =   2371
  76.       _Version        =   393216
  77.       ListField       =   "CompanyName"
  78.       BoundColumn     =   "CustomerID"
  79.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  80.          Name            =   "Verdana"
  81.          Size            =   9
  82.          Charset         =   0
  83.          Weight          =   400
  84.          Underline       =   0   'False
  85.          Italic          =   0   'False
  86.          Strikethrough   =   0   'False
  87.       EndProperty
  88.    End
  89.    Begin VB.TextBox Text1 
  90.       DataField       =   "CompanyName"
  91.       DataSource      =   "Adodc1"
  92.       BeginProperty Font 
  93.          Name            =   "Verdana"
  94.          Size            =   9
  95.          Charset         =   0
  96.          Weight          =   400
  97.          Underline       =   0   'False
  98.          Italic          =   0   'False
  99.          Strikethrough   =   0   'False
  100.       EndProperty
  101.       Height          =   288
  102.       Left            =   1368
  103.       TabIndex        =   1
  104.       Top             =   144
  105.       Width           =   4164
  106.    End
  107.    Begin MSAdodcLib.Adodc Adodc1 
  108.       Height          =   312
  109.       Left            =   168
  110.       Top             =   1536
  111.       Width           =   5460
  112.       _ExtentX        =   9631
  113.       _ExtentY        =   550
  114.       ConnectMode     =   0
  115.       CursorLocation  =   3
  116.       IsolationLevel  =   -1
  117.       ConnectionTimeout=   15
  118.       CommandTimeout  =   30
  119.       CursorType      =   3
  120.       LockType        =   3
  121.       CommandType     =   2
  122.       CursorOptions   =   0
  123.       CacheSize       =   50
  124.       MaxRecords      =   0
  125.       BOFAction       =   0
  126.       EOFAction       =   0
  127.       ConnectStringType=   3
  128.       Appearance      =   1
  129.       BackColor       =   -2147483643
  130.       ForeColor       =   -2147483640
  131.       Orientation     =   0
  132.       Enabled         =   -1
  133.       Connect         =   "DSN=NWINDDB"
  134.       OLEDBString     =   ""
  135.       OLEDBFile       =   ""
  136.       DataSourceName  =   "NWINDDB"
  137.       OtherAttributes =   ""
  138.       UserName        =   ""
  139.       Password        =   ""
  140.       RecordSource    =   "Customers"
  141.       Caption         =   "Adodc1"
  142.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  143.          Name            =   "MS Sans Serif"
  144.          Size            =   7.8
  145.          Charset         =   0
  146.          Weight          =   400
  147.          Underline       =   0   'False
  148.          Italic          =   0   'False
  149.          Strikethrough   =   0   'False
  150.       EndProperty
  151.       _Version        =   393216
  152.    End
  153.    Begin VB.Label Label4 
  154.       Caption         =   "Select Company Name"
  155.       BeginProperty Font 
  156.          Name            =   "Verdana"
  157.          Size            =   9
  158.          Charset         =   0
  159.          Weight          =   400
  160.          Underline       =   0   'False
  161.          Italic          =   0   'False
  162.          Strikethrough   =   0   'False
  163.       EndProperty
  164.       Height          =   252
  165.       Left            =   132
  166.       TabIndex        =   7
  167.       Top             =   2064
  168.       Width           =   1932
  169.    End
  170.    Begin VB.Label Label3 
  171.       Caption         =   "Contact Title"
  172.       BeginProperty Font 
  173.          Name            =   "Verdana"
  174.          Size            =   9
  175.          Charset         =   0
  176.          Weight          =   400
  177.          Underline       =   0   'False
  178.          Italic          =   0   'False
  179.          Strikethrough   =   0   'False
  180.       EndProperty
  181.       Height          =   204
  182.       Left            =   120
  183.       TabIndex        =   6
  184.       Top             =   960
  185.       Width           =   1092
  186.    End
  187.    Begin VB.Label Label2 
  188.       Caption         =   "Contact"
  189.       BeginProperty Font 
  190.          Name            =   "Verdana"
  191.          Size            =   9
  192.          Charset         =   0
  193.          Weight          =   400
  194.          Underline       =   0   'False
  195.          Italic          =   0   'False
  196.          Strikethrough   =   0   'False
  197.       EndProperty
  198.       Height          =   204
  199.       Left            =   120
  200.       TabIndex        =   4
  201.       Top             =   564
  202.       Width           =   1092
  203.    End
  204.    Begin VB.Label Label1 
  205.       Caption         =   "Company"
  206.       BeginProperty Font 
  207.          Name            =   "Verdana"
  208.          Size            =   9
  209.          Charset         =   0
  210.          Weight          =   400
  211.          Underline       =   0   'False
  212.          Italic          =   0   'False
  213.          Strikethrough   =   0   'False
  214.       EndProperty
  215.       Height          =   204
  216.       Left            =   120
  217.       TabIndex        =   0
  218.       Top             =   168
  219.       Width           =   1092
  220.    End
  221. Attribute VB_Name = "ADODCForm"
  222. Attribute VB_GlobalNameSpace = False
  223. Attribute VB_Creatable = False
  224. Attribute VB_PredeclaredId = True
  225. Attribute VB_Exposed = False
  226. Private Sub cmdExit_Click()
  227.     End
  228. End Sub
  229. Private Sub DataList1_Click()
  230.     Adodc1.Recordset.Bookmark = DataList1.SelectedItem
  231. End Sub
  232.