home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 6 / mastvb6.iso / ch_code / ch17 / data2 / data2.frm (.txt) next >
Encoding:
Visual Basic Form  |  1998-07-05  |  9.9 KB  |  313 lines
  1. VERSION 5.00
  2. Begin VB.Form Data2Form 
  3.    Caption         =   "Data2 Example"
  4.    ClientHeight    =   4590
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   5775
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   4590
  10.    ScaleWidth      =   5775
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.CommandButton LastBttn 
  13.       Caption         =   "Last"
  14.       BeginProperty Font 
  15.          Name            =   "MS Sans Serif"
  16.          Size            =   9.75
  17.          Charset         =   0
  18.          Weight          =   400
  19.          Underline       =   0   'False
  20.          Italic          =   0   'False
  21.          Strikethrough   =   0   'False
  22.       EndProperty
  23.       Height          =   390
  24.       Left            =   4290
  25.       TabIndex        =   13
  26.       Top             =   3705
  27.       Width           =   1125
  28.    End
  29.    Begin VB.CommandButton firstBttn 
  30.       Caption         =   "First"
  31.       BeginProperty Font 
  32.          Name            =   "MS Sans Serif"
  33.          Size            =   9.75
  34.          Charset         =   0
  35.          Weight          =   400
  36.          Underline       =   0   'False
  37.          Italic          =   0   'False
  38.          Strikethrough   =   0   'False
  39.       EndProperty
  40.       Height          =   390
  41.       Left            =   135
  42.       TabIndex        =   12
  43.       Top             =   3705
  44.       Width           =   1125
  45.    End
  46.    Begin VB.CommandButton PreviousBttn 
  47.       Caption         =   "Previous"
  48.       BeginProperty Font 
  49.          Name            =   "MS Sans Serif"
  50.          Size            =   9.75
  51.          Charset         =   0
  52.          Weight          =   400
  53.          Underline       =   0   'False
  54.          Italic          =   0   'False
  55.          Strikethrough   =   0   'False
  56.       EndProperty
  57.       Height          =   390
  58.       Left            =   1515
  59.       TabIndex        =   11
  60.       Top             =   3705
  61.       Width           =   1125
  62.    End
  63.    Begin VB.CommandButton NextBttn 
  64.       Caption         =   "Next"
  65.       BeginProperty Font 
  66.          Name            =   "MS Sans Serif"
  67.          Size            =   9.75
  68.          Charset         =   0
  69.          Weight          =   400
  70.          Underline       =   0   'False
  71.          Italic          =   0   'False
  72.          Strikethrough   =   0   'False
  73.       EndProperty
  74.       Height          =   390
  75.       Left            =   2910
  76.       TabIndex        =   10
  77.       Top             =   3705
  78.       Width           =   1125
  79.    End
  80.    Begin VB.Data Data1 
  81.       Caption         =   "BIBLIO - Titles Table"
  82.       Connect         =   "Access"
  83.       DatabaseName    =   "C:\Program Files\Microsoft Visual Studio\VB98\Biblio.mdb"
  84.       DefaultCursorType=   0  'DefaultCursor
  85.       DefaultType     =   2  'UseODBC
  86.       Exclusive       =   0   'False
  87.       Height          =   345
  88.       Left            =   135
  89.       Options         =   0
  90.       ReadOnly        =   0   'False
  91.       RecordsetType   =   1  'Dynaset
  92.       RecordSource    =   "Titles"
  93.       Top             =   4155
  94.       Width           =   5280
  95.    End
  96.    Begin VB.TextBox txtComments 
  97.       DataField       =   "Comments"
  98.       DataSource      =   "Data1"
  99.       BeginProperty Font 
  100.          Name            =   "Verdana"
  101.          Size            =   8.25
  102.          Charset         =   0
  103.          Weight          =   400
  104.          Underline       =   0   'False
  105.          Italic          =   0   'False
  106.          Strikethrough   =   0   'False
  107.       EndProperty
  108.       Height          =   1050
  109.       Left            =   1290
  110.       MultiLine       =   -1  'True
  111.       ScrollBars      =   2  'Vertical
  112.       TabIndex        =   4
  113.       Top             =   2325
  114.       Width           =   4050
  115.    End
  116.    Begin VB.TextBox txtSubject 
  117.       DataField       =   "Subject"
  118.       DataSource      =   "Data1"
  119.       BeginProperty Font 
  120.          Name            =   "Verdana"
  121.          Size            =   8.25
  122.          Charset         =   0
  123.          Weight          =   400
  124.          Underline       =   0   'False
  125.          Italic          =   0   'False
  126.          Strikethrough   =   0   'False
  127.       EndProperty
  128.       Height          =   540
  129.       Left            =   1290
  130.       TabIndex        =   3
  131.       Top             =   1623
  132.       Width           =   4050
  133.    End
  134.    Begin VB.TextBox txtDescription 
  135.       DataField       =   "Description"
  136.       DataSource      =   "Data1"
  137.       BeginProperty Font 
  138.          Name            =   "Verdana"
  139.          Size            =   8.25
  140.          Charset         =   0
  141.          Weight          =   400
  142.          Underline       =   0   'False
  143.          Italic          =   0   'False
  144.          Strikethrough   =   0   'False
  145.       EndProperty
  146.       Height          =   315
  147.       Left            =   1290
  148.       TabIndex        =   2
  149.       Top             =   1147
  150.       Width           =   4050
  151.    End
  152.    Begin VB.TextBox txtISBN 
  153.       DataField       =   "ISBN"
  154.       DataSource      =   "Data1"
  155.       BeginProperty Font 
  156.          Name            =   "Verdana"
  157.          Size            =   8.25
  158.          Charset         =   0
  159.          Weight          =   400
  160.          Underline       =   0   'False
  161.          Italic          =   0   'False
  162.          Strikethrough   =   0   'False
  163.       EndProperty
  164.       Height          =   300
  165.       Left            =   1290
  166.       TabIndex        =   1
  167.       Top             =   686
  168.       Width           =   4050
  169.    End
  170.    Begin VB.TextBox txtTitle 
  171.       DataField       =   "Title"
  172.       DataSource      =   "Data1"
  173.       BeginProperty Font 
  174.          Name            =   "Verdana"
  175.          Size            =   8.25
  176.          Charset         =   0
  177.          Weight          =   400
  178.          Underline       =   0   'False
  179.          Italic          =   0   'False
  180.          Strikethrough   =   0   'False
  181.       EndProperty
  182.       Height          =   300
  183.       Left            =   1290
  184.       TabIndex        =   0
  185.       Top             =   225
  186.       Width           =   4050
  187.    End
  188.    Begin VB.Label Label5 
  189.       Caption         =   "Comments"
  190.       BeginProperty Font 
  191.          Name            =   "MS Sans Serif"
  192.          Size            =   9.75
  193.          Charset         =   0
  194.          Weight          =   400
  195.          Underline       =   0   'False
  196.          Italic          =   0   'False
  197.          Strikethrough   =   0   'False
  198.       EndProperty
  199.       Height          =   225
  200.       Left            =   135
  201.       TabIndex        =   9
  202.       Top             =   2325
  203.       Width           =   960
  204.    End
  205.    Begin VB.Label Label4 
  206.       Caption         =   "Subject"
  207.       BeginProperty Font 
  208.          Name            =   "MS Sans Serif"
  209.          Size            =   9.75
  210.          Charset         =   0
  211.          Weight          =   400
  212.          Underline       =   0   'False
  213.          Italic          =   0   'False
  214.          Strikethrough   =   0   'False
  215.       EndProperty
  216.       Height          =   225
  217.       Left            =   135
  218.       TabIndex        =   8
  219.       Top             =   1623
  220.       Width           =   795
  221.    End
  222.    Begin VB.Label Label3 
  223.       Caption         =   "Description"
  224.       BeginProperty Font 
  225.          Name            =   "MS Sans Serif"
  226.          Size            =   9.75
  227.          Charset         =   0
  228.          Weight          =   400
  229.          Underline       =   0   'False
  230.          Italic          =   0   'False
  231.          Strikethrough   =   0   'False
  232.       EndProperty
  233.       Height          =   225
  234.       Left            =   135
  235.       TabIndex        =   7
  236.       Top             =   1140
  237.       Width           =   1050
  238.    End
  239.    Begin VB.Label Label2 
  240.       Caption         =   "ISBN"
  241.       BeginProperty Font 
  242.          Name            =   "MS Sans Serif"
  243.          Size            =   9.75
  244.          Charset         =   0
  245.          Weight          =   400
  246.          Underline       =   0   'False
  247.          Italic          =   0   'False
  248.          Strikethrough   =   0   'False
  249.       EndProperty
  250.       Height          =   225
  251.       Left            =   135
  252.       TabIndex        =   6
  253.       Top             =   686
  254.       Width           =   585
  255.    End
  256.    Begin VB.Label Label1 
  257.       Caption         =   "Title"
  258.       BeginProperty Font 
  259.          Name            =   "MS Sans Serif"
  260.          Size            =   9.75
  261.          Charset         =   0
  262.          Weight          =   400
  263.          Underline       =   0   'False
  264.          Italic          =   0   'False
  265.          Strikethrough   =   0   'False
  266.       EndProperty
  267.       Height          =   225
  268.       Left            =   135
  269.       TabIndex        =   5
  270.       Top             =   225
  271.       Width           =   675
  272.    End
  273. Attribute VB_Name = "Data2Form"
  274. Attribute VB_GlobalNameSpace = False
  275. Attribute VB_Creatable = False
  276. Attribute VB_PredeclaredId = True
  277. Attribute VB_Exposed = False
  278. Option Explicit
  279. Private Sub Data1_Error(DataErr As Integer, Response As Integer)
  280.     MsgBox Err.Description
  281.     Response = 0
  282.     Data1.Recordset.CancelUpdate
  283. End Sub
  284. Private Sub Data1_Validate(Action As Integer, Save As Integer)
  285. Dim reply
  286.     If txtTitle.DataChanged Or txtISBN.DataChanged Or txtDescription.DataChanged Or txtSubject.DataChanged Or txtComments.DataChanged Then
  287.         reply = MsgBox("Record has been changed. Save?", vbYesNo)
  288.         If reply = vbNo Then
  289.             Save = False
  290.         End If
  291.     End If
  292. End Sub
  293. Private Sub firstBttn_Click()
  294.     Data1.Recordset.MoveFirst
  295. End Sub
  296. Private Sub LastBttn_Click()
  297.     Data1.Recordset.MoveLast
  298. End Sub
  299. Private Sub PreviousBttn_Click()
  300.     Data1.Recordset.MovePrevious
  301.     If Data1.Recordset.BOF Then
  302.         MsgBox "You are on the first record"
  303.         Data1.Recordset.MoveFirst
  304.     End If
  305. End Sub
  306. Private Sub NextBttn_Click()
  307.     Data1.Recordset.MoveNext
  308.     If Data1.Recordset.EOF Then
  309.         MsgBox "You are on the last record"
  310.         Data1.Recordset.MoveLast
  311.     End If
  312. End Sub
  313.