home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 6 / mastvb6.iso / ch_code / ch17 / data1 / data1.frm (.txt) next >
Encoding:
Visual Basic Form  |  1998-06-29  |  5.6 KB  |  178 lines
  1. VERSION 5.00
  2. Begin VB.Form Data1Form 
  3.    Caption         =   "Data1 Example"
  4.    ClientHeight    =   3180
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   5790
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   3180
  10.    ScaleWidth      =   5790
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.TextBox Text4 
  13.       DataField       =   "Fax"
  14.       DataSource      =   "Data1"
  15.       BeginProperty Font 
  16.          Name            =   "MS Sans Serif"
  17.          Size            =   9.75
  18.          Charset         =   0
  19.          Weight          =   400
  20.          Underline       =   0   'False
  21.          Italic          =   0   'False
  22.          Strikethrough   =   0   'False
  23.       EndProperty
  24.       Height          =   345
  25.       Left            =   1620
  26.       TabIndex        =   3
  27.       Text            =   "Text4"
  28.       Top             =   1733
  29.       Width           =   1380
  30.    End
  31.    Begin VB.Data Data1 
  32.       Caption         =   "Data1"
  33.       Connect         =   "Access"
  34.       DatabaseName    =   "C:\Program Files\Microsoft Visual Studio\VB98\Nwind.mdb"
  35.       DefaultCursorType=   0  'DefaultCursor
  36.       DefaultType     =   2  'UseODBC
  37.       Exclusive       =   0   'False
  38.       Height          =   300
  39.       Left            =   210
  40.       Options         =   0
  41.       ReadOnly        =   0   'False
  42.       RecordsetType   =   1  'Dynaset
  43.       RecordSource    =   "Customers"
  44.       Top             =   2730
  45.       Width           =   5430
  46.    End
  47.    Begin VB.TextBox Text3 
  48.       DataField       =   "Phone"
  49.       DataSource      =   "Data1"
  50.       BeginProperty Font 
  51.          Name            =   "MS Sans Serif"
  52.          Size            =   9.75
  53.          Charset         =   0
  54.          Weight          =   400
  55.          Underline       =   0   'False
  56.          Italic          =   0   'False
  57.          Strikethrough   =   0   'False
  58.       EndProperty
  59.       Height          =   330
  60.       Left            =   1620
  61.       TabIndex        =   2
  62.       Text            =   "Text3"
  63.       Top             =   1265
  64.       Width           =   1410
  65.    End
  66.    Begin VB.TextBox Text2 
  67.       DataField       =   "Country"
  68.       DataSource      =   "Data1"
  69.       BeginProperty Font 
  70.          Name            =   "MS Sans Serif"
  71.          Size            =   9.75
  72.          Charset         =   0
  73.          Weight          =   400
  74.          Underline       =   0   'False
  75.          Italic          =   0   'False
  76.          Strikethrough   =   0   'False
  77.       EndProperty
  78.       Height          =   345
  79.       Left            =   1620
  80.       TabIndex        =   1
  81.       Text            =   "Text2"
  82.       Top             =   738
  83.       Width           =   1875
  84.    End
  85.    Begin VB.TextBox Text1 
  86.       DataField       =   "CompanyName"
  87.       DataSource      =   "Data1"
  88.       BeginProperty Font 
  89.          Name            =   "MS Sans Serif"
  90.          Size            =   9.75
  91.          Charset         =   0
  92.          Weight          =   400
  93.          Underline       =   0   'False
  94.          Italic          =   0   'False
  95.          Strikethrough   =   0   'False
  96.       EndProperty
  97.       Height          =   330
  98.       Left            =   1620
  99.       TabIndex        =   0
  100.       Text            =   "Text1"
  101.       Top             =   210
  102.       Width           =   3000
  103.    End
  104.    Begin VB.Label Label4 
  105.       Caption         =   "Fax"
  106.       BeginProperty Font 
  107.          Name            =   "MS Sans Serif"
  108.          Size            =   9.75
  109.          Charset         =   0
  110.          Weight          =   400
  111.          Underline       =   0   'False
  112.          Italic          =   0   'False
  113.          Strikethrough   =   0   'False
  114.       EndProperty
  115.       Height          =   210
  116.       Left            =   150
  117.       TabIndex        =   7
  118.       Top             =   1800
  119.       Width           =   930
  120.    End
  121.    Begin VB.Label Label3 
  122.       Caption         =   "Phone"
  123.       BeginProperty Font 
  124.          Name            =   "MS Sans Serif"
  125.          Size            =   9.75
  126.          Charset         =   0
  127.          Weight          =   400
  128.          Underline       =   0   'False
  129.          Italic          =   0   'False
  130.          Strikethrough   =   0   'False
  131.       EndProperty
  132.       Height          =   240
  133.       Left            =   150
  134.       TabIndex        =   6
  135.       Top             =   1310
  136.       Width           =   780
  137.    End
  138.    Begin VB.Label Label2 
  139.       Caption         =   "Country"
  140.       BeginProperty Font 
  141.          Name            =   "MS Sans Serif"
  142.          Size            =   9.75
  143.          Charset         =   0
  144.          Weight          =   400
  145.          Underline       =   0   'False
  146.          Italic          =   0   'False
  147.          Strikethrough   =   0   'False
  148.       EndProperty
  149.       Height          =   300
  150.       Left            =   150
  151.       TabIndex        =   5
  152.       Top             =   760
  153.       Width           =   945
  154.    End
  155.    Begin VB.Label Label1 
  156.       Caption         =   "Company Name"
  157.       BeginProperty Font 
  158.          Name            =   "MS Sans Serif"
  159.          Size            =   9.75
  160.          Charset         =   0
  161.          Weight          =   400
  162.          Underline       =   0   'False
  163.          Italic          =   0   'False
  164.          Strikethrough   =   0   'False
  165.       EndProperty
  166.       Height          =   240
  167.       Left            =   150
  168.       TabIndex        =   4
  169.       Top             =   255
  170.       Width           =   1185
  171.    End
  172. Attribute VB_Name = "Data1Form"
  173. Attribute VB_GlobalNameSpace = False
  174. Attribute VB_Creatable = False
  175. Attribute VB_PredeclaredId = True
  176. Attribute VB_Exposed = False
  177. Option Explicit
  178.