home *** CD-ROM | disk | FTP | other *** search
/ An Introduction to Progr…l Basic 6.0 (4th Edition) / An Introduction to Programming using Visual Basic 6.0.iso / PROGRAMS / CH12 / 12-3-3.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-10-06  |  4.6 KB  |  152 lines
  1. VERSION 5.00
  2. Object = "{FAEEE763-117E-101B-8933-08002B2F4F5A}#1.1#0"; "DBLIST32.OCX"
  3. Begin VB.Form frm12_3_3 
  4.    Caption         =   "Add Cities to MEGACTY2"
  5.    ClientHeight    =   3372
  6.    ClientLeft      =   60
  7.    ClientTop       =   348
  8.    ClientWidth     =   4788
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   3372
  11.    ScaleWidth      =   4788
  12.    StartUpPosition =   3  'Windows Default
  13.    Begin VB.Data datCountries 
  14.       Caption         =   "Countries"
  15.       Connect         =   "Access"
  16.       DatabaseName    =   "Megacty2.mdb"
  17.       DefaultCursorType=   0  'DefaultCursor
  18.       DefaultType     =   2  'UseODBC
  19.       Exclusive       =   0   'False
  20.       Height          =   375
  21.       Left            =   2520
  22.       Options         =   0
  23.       ReadOnly        =   0   'False
  24.       RecordsetType   =   1  'Dynaset
  25.       RecordSource    =   "Countries"
  26.       Top             =   2880
  27.       Visible         =   0   'False
  28.       Width           =   2055
  29.    End
  30.    Begin VB.Data datCities 
  31.       Caption         =   "Cities"
  32.       Connect         =   "Access"
  33.       DatabaseName    =   "D:\trash\Megacty2.mdb"
  34.       DefaultCursorType=   0  'DefaultCursor
  35.       DefaultType     =   2  'UseODBC
  36.       Exclusive       =   0   'False
  37.       Height          =   375
  38.       Left            =   240
  39.       Options         =   0
  40.       ReadOnly        =   0   'False
  41.       RecordsetType   =   1  'Dynaset
  42.       RecordSource    =   "Cities"
  43.       Top             =   2880
  44.       Visible         =   0   'False
  45.       Width           =   2055
  46.    End
  47.    Begin VB.CommandButton cmdQuit 
  48.       Caption         =   "Quit"
  49.       Height          =   375
  50.       Left            =   2520
  51.       TabIndex        =   9
  52.       Top             =   120
  53.       Width           =   1935
  54.    End
  55.    Begin MSDBCtls.DBCombo dbcCountry 
  56.       Bindings        =   "12-3-3.frx":0000
  57.       DataField       =   "country"
  58.       DataSource      =   "datCities"
  59.       Height          =   315
  60.       Left            =   1440
  61.       TabIndex        =   8
  62.       Top             =   1200
  63.       Width           =   3135
  64.       _ExtentX        =   5525
  65.       _ExtentY        =   508
  66.       _Version        =   393216
  67.       ListField       =   "country"
  68.       Text            =   ""
  69.    End
  70.    Begin VB.TextBox txtPop2015 
  71.       DataField       =   "pop2015"
  72.       DataSource      =   "datCities"
  73.       Height          =   285
  74.       Left            =   1440
  75.       TabIndex        =   7
  76.       Top             =   2400
  77.       Width           =   3135
  78.    End
  79.    Begin VB.TextBox txtPop1995 
  80.       DataField       =   "pop1995"
  81.       DataSource      =   "datCities"
  82.       Height          =   285
  83.       Left            =   1440
  84.       TabIndex        =   6
  85.       Top             =   1800
  86.       Width           =   3135
  87.    End
  88.    Begin VB.TextBox txtCity 
  89.       DataField       =   "city"
  90.       DataSource      =   "datCities"
  91.       Height          =   285
  92.       Left            =   1440
  93.       TabIndex        =   5
  94.       Top             =   720
  95.       Width           =   3135
  96.    End
  97.    Begin VB.CommandButton cmdAddNew 
  98.       Caption         =   "Add New City"
  99.       Height          =   375
  100.       Left            =   360
  101.       TabIndex        =   0
  102.       Top             =   120
  103.       Width           =   1935
  104.    End
  105.    Begin VB.Label lblPop2015 
  106.       Caption         =   "2015 Population:"
  107.       Height          =   255
  108.       Left            =   120
  109.       TabIndex        =   4
  110.       Top             =   2400
  111.       Width           =   1215
  112.    End
  113.    Begin VB.Label lblPop1995 
  114.       Caption         =   "1995 Population:"
  115.       Height          =   255
  116.       Left            =   120
  117.       TabIndex        =   3
  118.       Top             =   1800
  119.       Width           =   1215
  120.    End
  121.    Begin VB.Label lblCountry 
  122.       Caption         =   "Country:"
  123.       Height          =   255
  124.       Left            =   720
  125.       TabIndex        =   2
  126.       Top             =   1320
  127.       Width           =   615
  128.    End
  129.    Begin VB.Label lblCity 
  130.       Caption         =   "City:"
  131.       Height          =   255
  132.       Left            =   960
  133.       TabIndex        =   1
  134.       Top             =   720
  135.       Width           =   375
  136.    End
  137. Attribute VB_Name = "frm12_3_3"
  138. Attribute VB_GlobalNameSpace = False
  139. Attribute VB_Creatable = False
  140. Attribute VB_PredeclaredId = True
  141. Attribute VB_Exposed = False
  142. Private Sub Form_Load()
  143.   datCities.DatabaseName = App.Path & "\MEGACTY2.MDB"
  144.   datCountries.DatabaseName = App.Path & "\MEGACTY2.MDB"
  145. End Sub
  146. Private Sub cmdAddNew_Click()
  147.   datCities.Recordset.AddNew
  148. End Sub
  149. Private Sub cmdQuit_Click()
  150.   End
  151. End Sub
  152.