home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 6 / mastvb6.iso / ch_code / ch17 / dentry / dentry.frm (.txt) next >
Encoding:
Visual Basic Form  |  1998-07-08  |  12.6 KB  |  402 lines
  1. VERSION 5.00
  2. Object = "{FAEEE763-117E-101B-8933-08002B2F4F5A}#1.1#0"; "DBLIST32.OCX"
  3. Begin VB.Form DataEntryForm 
  4.    Caption         =   "Data Entry Demo"
  5.    ClientHeight    =   4515
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   6840
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   4515
  11.    ScaleWidth      =   6840
  12.    StartUpPosition =   3  'Windows Default
  13.    Begin VB.TextBox txtTitle 
  14.       DataField       =   "Title"
  15.       DataSource      =   "Data1"
  16.       BeginProperty Font 
  17.          Name            =   "Tahoma"
  18.          Size            =   9.75
  19.          Charset         =   0
  20.          Weight          =   400
  21.          Underline       =   0   'False
  22.          Italic          =   0   'False
  23.          Strikethrough   =   0   'False
  24.       EndProperty
  25.       Height          =   300
  26.       Left            =   1305
  27.       TabIndex        =   14
  28.       Top             =   240
  29.       Width           =   5325
  30.    End
  31.    Begin VB.TextBox txtDescription 
  32.       DataField       =   "Description"
  33.       DataSource      =   "Data1"
  34.       BeginProperty Font 
  35.          Name            =   "Tahoma"
  36.          Size            =   9.75
  37.          Charset         =   0
  38.          Weight          =   400
  39.          Underline       =   0   'False
  40.          Italic          =   0   'False
  41.          Strikethrough   =   0   'False
  42.       EndProperty
  43.       Height          =   360
  44.       Left            =   1290
  45.       TabIndex        =   13
  46.       Top             =   1147
  47.       Width           =   5310
  48.    End
  49.    Begin VB.TextBox txtSubject 
  50.       DataField       =   "Subject"
  51.       DataSource      =   "Data1"
  52.       BeginProperty Font 
  53.          Name            =   "Tahoma"
  54.          Size            =   9.75
  55.          Charset         =   0
  56.          Weight          =   400
  57.          Underline       =   0   'False
  58.          Italic          =   0   'False
  59.          Strikethrough   =   0   'False
  60.       EndProperty
  61.       Height          =   540
  62.       Left            =   1290
  63.       TabIndex        =   12
  64.       Top             =   1623
  65.       Width           =   5310
  66.    End
  67.    Begin VB.TextBox txtComments 
  68.       DataField       =   "Comments"
  69.       DataSource      =   "Data1"
  70.       BeginProperty Font 
  71.          Name            =   "Tahoma"
  72.          Size            =   9.75
  73.          Charset         =   0
  74.          Weight          =   400
  75.          Underline       =   0   'False
  76.          Italic          =   0   'False
  77.          Strikethrough   =   0   'False
  78.       EndProperty
  79.       Height          =   1050
  80.       Left            =   1305
  81.       MultiLine       =   -1  'True
  82.       ScrollBars      =   2  'Vertical
  83.       TabIndex        =   11
  84.       Top             =   2325
  85.       Width           =   5295
  86.    End
  87.    Begin VB.CommandButton DelBttn 
  88.       Caption         =   "Delete Record"
  89.       BeginProperty Font 
  90.          Name            =   "MS Sans Serif"
  91.          Size            =   9.75
  92.          Charset         =   0
  93.          Weight          =   400
  94.          Underline       =   0   'False
  95.          Italic          =   0   'False
  96.          Strikethrough   =   0   'False
  97.       EndProperty
  98.       Height          =   420
  99.       Left            =   5160
  100.       TabIndex        =   10
  101.       Top             =   3570
  102.       Width           =   1470
  103.    End
  104.    Begin VB.Data Data2 
  105.       Caption         =   "Data2"
  106.       Connect         =   "Access"
  107.       DatabaseName    =   "C:\Program Files\Microsoft Visual Studio\VB98\Biblio.mdb"
  108.       DefaultCursorType=   0  'DefaultCursor
  109.       DefaultType     =   2  'UseODBC
  110.       Exclusive       =   0   'False
  111.       Height          =   345
  112.       Left            =   165
  113.       Options         =   0
  114.       ReadOnly        =   0   'False
  115.       RecordsetType   =   1  'Dynaset
  116.       RecordSource    =   "Publishers"
  117.       Top             =   4305
  118.       Visible         =   0   'False
  119.       Width           =   6450
  120.    End
  121.    Begin VB.CommandButton AddBttn 
  122.       Caption         =   "Add Record"
  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          =   420
  133.       Left            =   1290
  134.       TabIndex        =   6
  135.       Top             =   3570
  136.       Width           =   1410
  137.    End
  138.    Begin VB.Data Data1 
  139.       Caption         =   "BIBLIO - Titles Table"
  140.       Connect         =   "Access"
  141.       DatabaseName    =   "C:\Program Files\Microsoft Visual Studio\VB98\Biblio.mdb"
  142.       DefaultCursorType=   0  'DefaultCursor
  143.       DefaultType     =   2  'UseODBC
  144.       Exclusive       =   0   'False
  145.       Height          =   345
  146.       Left            =   120
  147.       Options         =   0
  148.       ReadOnly        =   0   'False
  149.       RecordsetType   =   1  'Dynaset
  150.       RecordSource    =   "Titles"
  151.       Top             =   4080
  152.       Width           =   6480
  153.    End
  154.    Begin VB.TextBox txtISBN 
  155.       DataField       =   "ISBN"
  156.       DataSource      =   "Data1"
  157.       BeginProperty Font 
  158.          Name            =   "Tahoma"
  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          =   300
  167.       Left            =   1290
  168.       TabIndex        =   0
  169.       Top             =   686
  170.       Width           =   1650
  171.    End
  172.    Begin VB.CommandButton OKBttn 
  173.       Caption         =   "OK"
  174.       BeginProperty Font 
  175.          Name            =   "MS Sans Serif"
  176.          Size            =   9.75
  177.          Charset         =   0
  178.          Weight          =   400
  179.          Underline       =   0   'False
  180.          Italic          =   0   'False
  181.          Strikethrough   =   0   'False
  182.       EndProperty
  183.       Height          =   420
  184.       Left            =   1290
  185.       TabIndex        =   7
  186.       Top             =   3570
  187.       Width           =   1425
  188.    End
  189.    Begin MSDBCtls.DBCombo DBCombo1 
  190.       Bindings        =   "DEntry.frx":0000
  191.       DataField       =   "PubID"
  192.       DataSource      =   "Data1"
  193.       Height          =   360
  194.       Left            =   4275
  195.       TabIndex        =   9
  196.       Top             =   675
  197.       Width           =   2340
  198.       _ExtentX        =   4128
  199.       _ExtentY        =   635
  200.       _Version        =   393216
  201.       IntegralHeight  =   0   'False
  202.       ListField       =   "Name"
  203.       BoundColumn     =   "PubID"
  204.       Text            =   ""
  205.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  206.          Name            =   "Tahoma"
  207.          Size            =   9.75
  208.          Charset         =   0
  209.          Weight          =   400
  210.          Underline       =   0   'False
  211.          Italic          =   0   'False
  212.          Strikethrough   =   0   'False
  213.       EndProperty
  214.    End
  215.    Begin VB.CommandButton CancelBttn 
  216.       Caption         =   "Cancel"
  217.       BeginProperty Font 
  218.          Name            =   "MS Sans Serif"
  219.          Size            =   9.75
  220.          Charset         =   0
  221.          Weight          =   400
  222.          Underline       =   0   'False
  223.          Italic          =   0   'False
  224.          Strikethrough   =   0   'False
  225.       EndProperty
  226.       Height          =   420
  227.       Left            =   5145
  228.       TabIndex        =   15
  229.       Top             =   3570
  230.       Width           =   1485
  231.    End
  232.    Begin VB.Label Label6 
  233.       Caption         =   "Publisher"
  234.       BeginProperty Font 
  235.          Name            =   "Tahoma"
  236.          Size            =   9.75
  237.          Charset         =   0
  238.          Weight          =   400
  239.          Underline       =   0   'False
  240.          Italic          =   0   'False
  241.          Strikethrough   =   0   'False
  242.       EndProperty
  243.       Height          =   255
  244.       Left            =   3285
  245.       TabIndex        =   8
  246.       Top             =   720
  247.       Width           =   840
  248.    End
  249.    Begin VB.Label Label5 
  250.       Caption         =   "Comments"
  251.       BeginProperty Font 
  252.          Name            =   "Tahoma"
  253.          Size            =   9.75
  254.          Charset         =   0
  255.          Weight          =   400
  256.          Underline       =   0   'False
  257.          Italic          =   0   'False
  258.          Strikethrough   =   0   'False
  259.       EndProperty
  260.       Height          =   225
  261.       Left            =   135
  262.       TabIndex        =   5
  263.       Top             =   2325
  264.       Width           =   960
  265.    End
  266.    Begin VB.Label Label4 
  267.       Caption         =   "Subject"
  268.       BeginProperty Font 
  269.          Name            =   "Tahoma"
  270.          Size            =   9.75
  271.          Charset         =   0
  272.          Weight          =   400
  273.          Underline       =   0   'False
  274.          Italic          =   0   'False
  275.          Strikethrough   =   0   'False
  276.       EndProperty
  277.       Height          =   225
  278.       Left            =   135
  279.       TabIndex        =   4
  280.       Top             =   1623
  281.       Width           =   795
  282.    End
  283.    Begin VB.Label Label3 
  284.       Caption         =   "Description"
  285.       BeginProperty Font 
  286.          Name            =   "Tahoma"
  287.          Size            =   9.75
  288.          Charset         =   0
  289.          Weight          =   400
  290.          Underline       =   0   'False
  291.          Italic          =   0   'False
  292.          Strikethrough   =   0   'False
  293.       EndProperty
  294.       Height          =   225
  295.       Left            =   135
  296.       TabIndex        =   3
  297.       Top             =   1140
  298.       Width           =   1050
  299.    End
  300.    Begin VB.Label Label2 
  301.       Caption         =   "ISBN"
  302.       BeginProperty Font 
  303.          Name            =   "Tahoma"
  304.          Size            =   9.75
  305.          Charset         =   0
  306.          Weight          =   400
  307.          Underline       =   0   'False
  308.          Italic          =   0   'False
  309.          Strikethrough   =   0   'False
  310.       EndProperty
  311.       Height          =   225
  312.       Left            =   135
  313.       TabIndex        =   2
  314.       Top             =   686
  315.       Width           =   585
  316.    End
  317.    Begin VB.Label Label1 
  318.       Caption         =   "Title"
  319.       BeginProperty Font 
  320.          Name            =   "Tahoma"
  321.          Size            =   9.75
  322.          Charset         =   0
  323.          Weight          =   400
  324.          Underline       =   0   'False
  325.          Italic          =   0   'False
  326.          Strikethrough   =   0   'False
  327.       EndProperty
  328.       Height          =   225
  329.       Left            =   135
  330.       TabIndex        =   1
  331.       Top             =   225
  332.       Width           =   675
  333.    End
  334. Attribute VB_Name = "DataEntryForm"
  335. Attribute VB_GlobalNameSpace = False
  336. Attribute VB_Creatable = False
  337. Attribute VB_PredeclaredId = True
  338. Attribute VB_Exposed = False
  339. Option Explicit
  340. Dim prevISBN
  341. Sub ShowButtons()
  342.     AddBttn.Visible = True
  343.     DelBttn.Visible = True
  344.     OKBttn.Visible = False
  345.     CancelBttn.Visible = False
  346.     Data1.Visible = True
  347. End Sub
  348. Sub HideButtons()
  349.     AddBttn.Visible = False
  350.     DelBttn.Visible = False
  351.     OKBttn.Visible = True
  352.     CancelBttn.Visible = True
  353.     Data1.Visible = False
  354. End Sub
  355. Private Sub AddBttn_Click()
  356.     HideButtons
  357.     prevISBN = Data1.Recordset.Fields("ISBN")
  358.     Data1.Recordset.AddNew
  359. End Sub
  360. Private Sub CancelBttn_Click()
  361.     Data1.Refresh
  362.     Data1.Recordset.FindFirst "Isbn='" & prevISBN & "'"
  363.     ShowButtons
  364. End Sub
  365. Private Sub Data1_Error(DataErr As Integer, Response As Integer)
  366.     MsgBox Err.Description
  367.     Response = 0
  368.     Data1.Recordset.CancelUpdate
  369. End Sub
  370. Private Sub Data1_Validate(Action As Integer, Save As Integer)
  371. Dim reply
  372.     If txtTitle.DataChanged Or txtISBN.DataChanged Or txtDescription.DataChanged Or txtSubject.DataChanged Or txtComments.DataChanged Then
  373.         reply = MsgBox("Record has been changed. Save?", vbYesNo)
  374.         If reply = vbNo Then
  375.             Save = False
  376.         End If
  377.     End If
  378. End Sub
  379. Private Sub DelBttn_Click()
  380. On Error Resume Next
  381.     Data1.Recordset.Delete
  382.     If Not Data1.Recordset.EOF Then
  383.         Data1.Recordset.MoveNext
  384.     ElseIf Not Data1.Recordset.BOF Then
  385.         Data1.Recordset.MovePrevious
  386.     Else
  387.         MsgBox "This was the last record in the table"
  388.     End If
  389.         
  390. End Sub
  391. Private Sub OKBttn_Click()
  392. On Error GoTo CancelUpdate
  393.     Data1.Recordset.Update
  394.     Data1.Recordset.MoveLast
  395.     ShowButtons
  396.     Exit Sub
  397. CancelUpdate:
  398.     MsgBox Err.Description
  399.     Data1.Recordset.CancelUpdate
  400.     ShowButtons
  401. End Sub
  402.