' This sample shows the Entry form functionality of the Racetracker
' race management application. It is written in Visual Basic .NET
' with data stored in an Access database.
Imports System.Data
Imports System.Data.OleDb
Imports System.IO
Public Class frmRacetracker
Inherits System.Windows.Forms.Form
' Current directory is the bin directory of the project. Database needs to go there.
Dim strCn As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Directory.GetCurrentDirectory & "\racetrackervs_be.mdb;"
Dim cn As New OleDbConnection(strCn)
Dim daEntryData As New OleDbDataAdapter("SELECT * FROM Entry", cn)
Dim dsEntries As New DataSet
Dim WithEvents bmb As BindingManagerBase
Dim booNewRow As Boolean = False
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeComponent()
'Add any initialization after the InitializeComponent() call
End Sub
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Friend WithEvents TabControl1 As System.Windows.Forms.TabControl
Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
Friend WithEvents btnLast As System.Windows.Forms.Button
Friend WithEvents btnNext As System.Windows.Forms.Button
Friend WithEvents btnPrev As System.Windows.Forms.Button
Friend WithEvents btnFirst As System.Windows.Forms.Button
Friend WithEvents lblPosition As System.Windows.Forms.Label
Friend WithEvents Label12 As System.Windows.Forms.Label
Friend WithEvents txtBibNumber As System.Windows.Forms.TextBox
Friend WithEvents Label10 As System.Windows.Forms.Label
Friend WithEvents txtBirthdate As System.Windows.Forms.TextBox
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents txtPhone As System.Windows.Forms.TextBox
Friend WithEvents txtEmail As System.Windows.Forms.TextBox
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents txtZip As System.Windows.Forms.TextBox
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents txtCity As System.Windows.Forms.TextBox
Friend WithEvents txtState As System.Windows.Forms.TextBox
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents txtAddress As System.Windows.Forms.TextBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents txtLName As System.Windows.Forms.TextBox
Friend WithEvents txtFName As System.Windows.Forms.TextBox
Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
Friend WithEvents TabPage3 As System.Windows.Forms.TabPage
Friend WithEvents TabPage4 As System.Windows.Forms.TabPage
Friend WithEvents cboGender As System.Windows.Forms.ComboBox
Friend WithEvents cboClass As System.Windows.Forms.ComboBox
Friend WithEvents Label9 As System.Windows.Forms.Label
Friend WithEvents Label11 As System.Windows.Forms.Label
Friend WithEvents btnDelete As System.Windows.Forms.Button
Friend WithEvents btnAdd As System.Windows.Forms.Button
Friend WithEvents Label13 As System.Windows.Forms.Label
Friend WithEvents txtID As System.Windows.Forms.TextBox
Friend WithEvents btnSave As System.Windows.Forms.Button
Friend WithEvents TabControl2 As System.Windows.Forms.TabControl
Friend WithEvents TabPage5 As System.Windows.Forms.TabPage
Friend WithEvents TabPage6 As System.Windows.Forms.TabPage
Friend WithEvents Label14 As System.Windows.Forms.Label
Friend WithEvents Label15 As System.Windows.Forms.Label
Friend WithEvents Label16 As System.Windows.Forms.Label
Friend WithEvents btnGo As System.Windows.Forms.Button
Friend WithEvents btnClearRange As System.Windows.Forms.Button
Friend WithEvents btnEditTimes As System.Windows.Forms.Button
Friend WithEvents btnViewPrint As System.Windows.Forms.Button
Friend WithEvents txtBib1 As System.Windows.Forms.TextBox
Friend WithEvents txtBib2 As System.Windows.Forms.TextBox
Friend WithEvents txtTime As System.Windows.Forms.TextBox
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.TabControl1 = New System.Windows.Forms.TabControl
Me.TabPage1 = New System.Windows.Forms.TabPage
Me.btnSave = New System.Windows.Forms.Button
Me.Label13 = New System.Windows.Forms.Label
Me.txtID = New System.Windows.Forms.TextBox
Me.btnAdd = New System.Windows.Forms.Button
Me.btnDelete = New System.Windows.Forms.Button
Me.Label11 = New System.Windows.Forms.Label
Me.Label9 = New System.Windows.Forms.Label
Me.cboClass = New System.Windows.Forms.ComboBox
Me.cboGender = New System.Windows.Forms.ComboBox
Me.btnLast = New System.Windows.Forms.Button
Me.btnNext = New System.Windows.Forms.Button
Me.btnPrev = New System.Windows.Forms.Button
Me.btnFirst = New System.Windows.Forms.Button
Me.lblPosition = New System.Windows.Forms.Label
Me.Label12 = New System.Windows.Forms.Label
Me.txtBibNumber = New System.Windows.Forms.TextBox
Me.Label10 = New System.Windows.Forms.Label
Me.txtBirthdate = New System.Windows.Forms.TextBox
Me.Label7 = New System.Windows.Forms.Label
Me.Label8 = New System.Windows.Forms.Label
Me.txtPhone = New System.Windows.Forms.TextBox
Me.txtEmail = New System.Windows.Forms.TextBox
Me.Label6 = New System.Windows.Forms.Label
Me.txtZip = New System.Windows.Forms.TextBox
Me.Label4 = New System.Windows.Forms.Label
Me.Label5 = New System.Windows.Forms.Label
Me.txtCity = New System.Windows.Forms.TextBox
Me.txtState = New System.Windows.Forms.TextBox
Me.Label3 = New System.Windows.Forms.Label
Me.txtAddress = New System.Windows.Forms.TextBox
Me.Label2 = New System.Windows.Forms.Label
Me.Label1 = New System.Windows.Forms.Label
Me.txtLName = New System.Windows.Forms.TextBox
Me.txtFName = New System.Windows.Forms.TextBox
Me.TabPage2 = New System.Windows.Forms.TabPage
Me.TabControl2 = New System.Windows.Forms.TabControl
Me.TabPage5 = New System.Windows.Forms.TabPage
Me.btnViewPrint = New System.Windows.Forms.Button
Me.btnEditTimes = New System.Windows.Forms.Button
Me.btnClearRange = New System.Windows.Forms.Button
Me.btnGo = New System.Windows.Forms.Button
Me.txtTime = New System.Windows.Forms.TextBox
Me.Label16 = New System.Windows.Forms.Label
Me.txtBib2 = New System.Windows.Forms.TextBox
Me.Label15 = New System.Windows.Forms.Label
Me.txtBib1 = New System.Windows.Forms.TextBox
Me.Label14 = New System.Windows.Forms.Label
Me.TabPage6 = New System.Windows.Forms.TabPage
Me.TabPage3 = New System.Windows.Forms.TabPage
Me.TabPage4 = New System.Windows.Forms.TabPage
Me.TabControl1.SuspendLayout()
Me.TabPage1.SuspendLayout()
Me.TabPage2.SuspendLayout()
Me.TabControl2.SuspendLayout()
Me.TabPage5.SuspendLayout()
Me.SuspendLayout()
'
'TabControl1
'
Me.TabControl1.Controls.Add(Me.TabPage1)
Me.TabControl1.Controls.Add(Me.TabPage2)
Me.TabControl1.Controls.Add(Me.TabPage3)
Me.TabControl1.Controls.Add(Me.TabPage4)
Me.TabControl1.Location = New System.Drawing.Point(40, -3)
Me.TabControl1.Name = "TabControl1"
Me.TabControl1.SelectedIndex = 0
Me.TabControl1.Size = New System.Drawing.Size(488, 267)
Me.TabControl1.TabIndex = 1
'
'TabPage1
'
Me.TabPage1.Controls.Add(Me.btnSave)
Me.TabPage1.Controls.Add(Me.Label13)
Me.TabPage1.Controls.Add(Me.txtID)
Me.TabPage1.Controls.Add(Me.btnAdd)
Me.TabPage1.Controls.Add(Me.btnDelete)
Me.TabPage1.Controls.Add(Me.Label11)
Me.TabPage1.Controls.Add(Me.Label9)
Me.TabPage1.Controls.Add(Me.cboClass)
Me.TabPage1.Controls.Add(Me.cboGender)
Me.TabPage1.Controls.Add(Me.btnLast)
Me.TabPage1.Controls.Add(Me.btnNext)
Me.TabPage1.Controls.Add(Me.btnPrev)
Me.TabPage1.Controls.Add(Me.btnFirst)
Me.TabPage1.Controls.Add(Me.lblPosition)
Me.TabPage1.Controls.Add(Me.Label12)
Me.TabPage1.Controls.Add(Me.txtBibNumber)
Me.TabPage1.Controls.Add(Me.Label10)
Me.TabPage1.Controls.Add(Me.txtBirthdate)
Me.TabPage1.Controls.Add(Me.Label7)
Me.TabPage1.Controls.Add(Me.Label8)
Me.TabPage1.Controls.Add(Me.txtPhone)
Me.TabPage1.Controls.Add(Me.txtEmail)
Me.TabPage1.Controls.Add(Me.Label6)
Me.TabPage1.Controls.Add(Me.txtZip)
Me.TabPage1.Controls.Add(Me.Label4)
Me.TabPage1.Controls.Add(Me.Label5)
Me.TabPage1.Controls.Add(Me.txtCity)
Me.TabPage1.Controls.Add(Me.txtState)
Me.TabPage1.Controls.Add(Me.Label3)
Me.TabPage1.Controls.Add(Me.txtAddress)
Me.TabPage1.Controls.Add(Me.Label2)
Me.TabPage1.Controls.Add(Me.Label1)
Me.TabPage1.Controls.Add(Me.txtLName)
Me.TabPage1.Controls.Add(Me.txtFName)
Me.TabPage1.Location = New System.Drawing.Point(4, 22)
Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Size = New System.Drawing.Size(480, 241)
Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "Enter Racers"
'
'btnSave
'
Me.btnSave.Font = New System.Drawing.Font("Comic Sans MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnSave.Location = New System.Drawing.Point(408, 160)
Me.btnSave.Name = "btnSave"
Me.btnSave.Size = New System.Drawing.Size(56, 24)
Me.btnSave.TabIndex = 41
Me.btnSave.Text = "Save"
'
'Label13
'
Me.Label13.Font = New System.Drawing.Font("Comic Sans MS", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label13.Location = New System.Drawing.Point(320, 136)
Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(96, 23)
Me.Label13.TabIndex = 40
Me.Label13.Text = "ID:"
Me.Label13.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'txtID
'
Me.txtID.BackColor = System.Drawing.SystemColors.Control
Me.txtID.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.txtID.Enabled = False
Me.txtID.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtID.Location = New System.Drawing.Point(424, 136)
Me.txtID.Name = "txtID"
Me.txtID.Size = New System.Drawing.Size(40, 13)
Me.txtID.TabIndex = 39
Me.txtID.Text = ""
Me.txtID.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'btnAdd
'
Me.btnAdd.Font = New System.Drawing.Font("Comic Sans MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnAdd.Location = New System.Drawing.Point(352, 160)
Me.btnAdd.Name = "btnAdd"
Me.btnAdd.Size = New System.Drawing.Size(56, 24)
Me.btnAdd.TabIndex = 38
Me.btnAdd.Text = "Add"
'
'btnDelete
'
Me.btnDelete.Font = New System.Drawing.Font("Comic Sans MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnDelete.Location = New System.Drawing.Point(296, 160)
Me.btnDelete.Name = "btnDelete"
Me.btnDelete.Size = New System.Drawing.Size(56, 24)
Me.btnDelete.TabIndex = 36
Me.btnDelete.Text = "Delete"
'
'Label11
'
Me.Label11.Font = New System.Drawing.Font("Comic Sans MS", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label11.Location = New System.Drawing.Point(304, 112)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(40, 23)
Me.Label11.TabIndex = 35
Me.Label11.Text = "Class:"
Me.Label11.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'Label9
'
Me.Label9.Font = New System.Drawing.Font("Comic Sans MS", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label9.Location = New System.Drawing.Point(192, 112)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(48, 23)
Me.Label9.TabIndex = 34
Me.Label9.Text = "Gender:"
Me.Label9.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'cboClass
'
Me.cboClass.Location = New System.Drawing.Point(344, 112)
Me.cboClass.Name = "cboClass"
Me.cboClass.Size = New System.Drawing.Size(120, 21)
Me.cboClass.TabIndex = 33
'
'cboGender
'
Me.cboGender.Items.AddRange(New Object() {"Female", "Male"})
Me.cboGender.Location = New System.Drawing.Point(240, 112)
Me.cboGender.Name = "cboGender"
Me.cboGender.Size = New System.Drawing.Size(64, 21)
Me.cboGender.TabIndex = 32
'
'btnLast
'
Me.btnLast.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnLast.Location = New System.Drawing.Point(264, 160)
Me.btnLast.Name = "btnLast"
Me.btnLast.Size = New System.Drawing.Size(24, 24)
Me.btnLast.TabIndex = 29
Me.btnLast.Text = ">|"
'
'btnNext
'
Me.btnNext.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnNext.Location = New System.Drawing.Point(240, 160)
Me.btnNext.Name = "btnNext"
Me.btnNext.Size = New System.Drawing.Size(24, 24)
Me.btnNext.TabIndex = 28
Me.btnNext.Text = ">"
'
'btnPrev
'
Me.btnPrev.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnPrev.Location = New System.Drawing.Point(144, 160)
Me.btnPrev.Name = "btnPrev"
Me.btnPrev.Size = New System.Drawing.Size(24, 24)
Me.btnPrev.TabIndex = 27
Me.btnPrev.Text = "<"
'
'btnFirst
'
Me.btnFirst.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnFirst.Location = New System.Drawing.Point(120, 160)
Me.btnFirst.Name = "btnFirst"
Me.btnFirst.Size = New System.Drawing.Size(24, 24)
Me.btnFirst.TabIndex = 26
Me.btnFirst.Text = "|<"
'
'lblPosition
'
Me.lblPosition.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
Me.lblPosition.Location = New System.Drawing.Point(168, 160)
Me.lblPosition.Name = "lblPosition"
Me.lblPosition.Size = New System.Drawing.Size(72, 24)
Me.lblPosition.TabIndex = 25
Me.lblPosition.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label12
'
Me.Label12.Font = New System.Drawing.Font("Comic Sans MS", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label12.Location = New System.Drawing.Point(24, 136)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(96, 23)
Me.Label12.TabIndex = 24
Me.Label12.Text = "Bib Number:"
Me.Label12.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'txtBibNumber
'
Me.txtBibNumber.Location = New System.Drawing.Point(120, 136)
Me.txtBibNumber.Name = "txtBibNumber"
Me.txtBibNumber.Size = New System.Drawing.Size(40, 20)
Me.txtBibNumber.TabIndex = 23
Me.txtBibNumber.Text = ""
'
'Label10
'
Me.Label10.Font = New System.Drawing.Font("Comic Sans MS", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label10.Location = New System.Drawing.Point(24, 112)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(96, 23)
Me.Label10.TabIndex = 20
Me.Label10.Text = "Birthdate:"
Me.Label10.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'txtBirthdate
'
Me.txtBirthdate.Location = New System.Drawing.Point(120, 112)
Me.txtBirthdate.Name = "txtBirthdate"
Me.txtBirthdate.Size = New System.Drawing.Size(72, 20)
Me.txtBirthdate.TabIndex = 18
Me.txtBirthdate.Text = ""
'
'Label7
'
Me.Label7.Font = New System.Drawing.Font("Comic Sans MS", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label7.Location = New System.Drawing.Point(24, 88)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(88, 23)
Me.Label7.TabIndex = 16
Me.Label7.Text = "Phone:"
Me.Label7.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'Label8
'
Me.Label8.Location = New System.Drawing.Point(224, 88)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(40, 23)
Me.Label8.TabIndex = 15
Me.Label8.Text = "Email:"
Me.Label8.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'txtPhone
'
Me.txtPhone.Location = New System.Drawing.Point(120, 88)
Me.txtPhone.Name = "txtPhone"
Me.txtPhone.Size = New System.Drawing.Size(88, 20)
Me.txtPhone.TabIndex = 14
Me.txtPhone.Text = ""
'
'txtEmail
'
Me.txtEmail.Location = New System.Drawing.Point(264, 88)
Me.txtEmail.Name = "txtEmail"
Me.txtEmail.Size = New System.Drawing.Size(200, 20)
Me.txtEmail.TabIndex = 13
Me.txtEmail.Text = ""
'
'Label6
'
Me.Label6.Font = New System.Drawing.Font("Comic Sans MS", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label6.Location = New System.Drawing.Point(336, 64)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(32, 23)
Me.Label6.TabIndex = 12
Me.Label6.Text = "Zip:"
Me.Label6.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'txtZip
'
Me.txtZip.Location = New System.Drawing.Point(376, 64)
Me.txtZip.Name = "txtZip"
Me.txtZip.Size = New System.Drawing.Size(88, 20)
Me.txtZip.TabIndex = 11
Me.txtZip.Text = ""
'
'Label4
'
Me.Label4.Font = New System.Drawing.Font("Comic Sans MS", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.Location = New System.Drawing.Point(24, 64)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(88, 23)
Me.Label4.TabIndex = 10
Me.Label4.Text = "City:"
Me.Label4.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'Label5
'
Me.Label5.Font = New System.Drawing.Font("Comic Sans MS", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label5.Location = New System.Drawing.Point(248, 64)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(40, 23)
Me.Label5.TabIndex = 9
Me.Label5.Text = "State:"
Me.Label5.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'txtCity
'
Me.txtCity.Location = New System.Drawing.Point(120, 64)
Me.txtCity.Name = "txtCity"
Me.txtCity.Size = New System.Drawing.Size(120, 20)
Me.txtCity.TabIndex = 8
Me.txtCity.Text = ""
'
'txtState
'
Me.txtState.Location = New System.Drawing.Point(296, 64)
Me.txtState.Name = "txtState"
Me.txtState.Size = New System.Drawing.Size(40, 20)
Me.txtState.TabIndex = 7
Me.txtState.Text = ""
'
'Label3
'
Me.Label3.Font = New System.Drawing.Font("Comic Sans MS", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.ImageAlign = System.Drawing.ContentAlignment.TopRight
Me.Label3.Location = New System.Drawing.Point(24, 40)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(96, 23)
Me.Label3.TabIndex = 6
Me.Label3.Text = "Address:"
Me.Label3.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'txtAddress
'
Me.txtAddress.Location = New System.Drawing.Point(120, 40)
Me.txtAddress.Name = "txtAddress"
Me.txtAddress.Size = New System.Drawing.Size(344, 20)
Me.txtAddress.TabIndex = 5
Me.txtAddress.Text = ""
'
'Label2
'
Me.Label2.Font = New System.Drawing.Font("Comic Sans MS", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.Location = New System.Drawing.Point(232, 16)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(64, 23)
Me.Label2.TabIndex = 4
Me.Label2.Text = "Last Name:"
Me.Label2.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'Label1
'
Me.Label1.Font = New System.Drawing.Font("Comic Sans MS", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(24, 16)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(96, 23)
Me.Label1.TabIndex = 3
Me.Label1.Text = "First Name:"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'txtLName
'
Me.txtLName.Location = New System.Drawing.Point(296, 16)
Me.txtLName.Name = "txtLName"
Me.txtLName.Size = New System.Drawing.Size(168, 20)
Me.txtLName.TabIndex = 2
Me.txtLName.Text = ""
'
'txtFName
'
Me.txtFName.Location = New System.Drawing.Point(120, 16)
Me.txtFName.Name = "txtFName"
Me.txtFName.Size = New System.Drawing.Size(104, 20)
Me.txtFName.TabIndex = 1
Me.txtFName.Text = ""
'
'TabPage2
'
Me.TabPage2.Controls.Add(Me.TabControl2)
Me.TabPage2.Location = New System.Drawing.Point(4, 22)
Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Size = New System.Drawing.Size(480, 241)
Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "Set Start Times"
Me.TabPage2.Visible = False
'
'TabControl2
'
Me.TabControl2.Controls.Add(Me.TabPage5)
Me.TabControl2.Controls.Add(Me.TabPage6)
Me.TabControl2.Location = New System.Drawing.Point(88, 8)
Me.TabControl2.Name = "TabControl2"
Me.TabControl2.SelectedIndex = 0
Me.TabControl2.Size = New System.Drawing.Size(376, 176)
Me.TabControl2.TabIndex = 0
'
'TabPage5
'
Me.TabPage5.Controls.Add(Me.btnViewPrint)
Me.TabPage5.Controls.Add(Me.btnEditTimes)
Me.TabPage5.Controls.Add(Me.btnClearRange)
Me.TabPage5.Controls.Add(Me.btnGo)
Me.TabPage5.Controls.Add(Me.txtTime)
Me.TabPage5.Controls.Add(Me.Label16)
Me.TabPage5.Controls.Add(Me.txtBib2)
Me.TabPage5.Controls.Add(Me.Label15)
Me.TabPage5.Controls.Add(Me.txtBib1)
Me.TabPage5.Controls.Add(Me.Label14)
Me.TabPage5.Font = New System.Drawing.Font("Comic Sans MS", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.TabPage5.Location = New System.Drawing.Point(4, 22)
Me.TabPage5.Name = "TabPage5"
Me.TabPage5.Size = New System.Drawing.Size(368, 150)
Me.TabPage5.TabIndex = 0
Me.TabPage5.Text = "Set By Range"
'
'btnViewPrint
'
Me.btnViewPrint.Font = New System.Drawing.Font("Comic Sans MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnViewPrint.Location = New System.Drawing.Point(208, 96)
Me.btnViewPrint.Name = "btnViewPrint"
Me.btnViewPrint.Size = New System.Drawing.Size(96, 24)
Me.btnViewPrint.TabIndex = 9
Me.btnViewPrint.Text = "View/Print"
'
'btnEditTimes
'
Me.btnEditTimes.Font = New System.Drawing.Font("Comic Sans MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnEditTimes.Location = New System.Drawing.Point(112, 96)
Me.btnEditTimes.Name = "btnEditTimes"
Me.btnEditTimes.Size = New System.Drawing.Size(96, 24)
Me.btnEditTimes.TabIndex = 8
Me.btnEditTimes.Text = "Edit Times"
'
'btnClearRange
'
Me.btnClearRange.Font = New System.Drawing.Font("Comic Sans MS", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnClearRange.Location = New System.Drawing.Point(16, 96)
Me.btnClearRange.Name = "btnClearRange"
Me.btnClearRange.Size = New System.Drawing.Size(96, 24)
Me.btnClearRange.TabIndex = 7
Me.btnClearRange.Text = "Clear Range"
'
'btnGo
'
Me.btnGo.Font = New System.Drawing.Font("Comic Sans MS", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnGo.Location = New System.Drawing.Point(232, 16)
Me.btnGo.Name = "btnGo"
Me.btnGo.Size = New System.Drawing.Size(72, 64)
Me.btnGo.TabIndex = 6
Me.btnGo.Text = "Go!"
'
'txtTime
'
Me.txtTime.Location = New System.Drawing.Point(80, 56)
Me.txtTime.Name = "txtTime"
Me.txtTime.Size = New System.Drawing.Size(96, 23)
Me.txtTime.TabIndex = 5
Me.txtTime.Text = ""
'
'Label16
'
Me.Label16.Location = New System.Drawing.Point(8, 56)
Me.Label16.Name = "Label16"
Me.Label16.Size = New System.Drawing.Size(72, 24)
Me.Label16.TabIndex = 4
Me.Label16.Text = "Start Time:"
Me.Label16.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'txtBib2
'
Me.txtBib2.Location = New System.Drawing.Point(160, 16)
Me.txtBib2.Name = "txtBib2"
Me.txtBib2.Size = New System.Drawing.Size(48, 23)
Me.txtBib2.TabIndex = 3
Me.txtBib2.Text = ""
'
'Label15
'
Me.Label15.Location = New System.Drawing.Point(136, 16)
Me.Label15.Name = "Label15"
Me.Label15.Size = New System.Drawing.Size(24, 24)
Me.Label15.TabIndex = 2
Me.Label15.Text = "to"
'
'txtBib1
'
Me.txtBib1.Location = New System.Drawing.Point(80, 16)
Me.txtBib1.Name = "txtBib1"
Me.txtBib1.Size = New System.Drawing.Size(48, 23)
Me.txtBib1.TabIndex = 1
Me.txtBib1.Text = ""
'
'Label14
'
Me.Label14.Location = New System.Drawing.Point(16, 16)
Me.Label14.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(64, 24)
Me.Label14.TabIndex = 0
Me.Label14.Text = "Bib Range:"
Me.Label14.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'TabPage6
'
Me.TabPage6.Location = New System.Drawing.Point(4, 22)
Me.TabPage6.Name = "TabPage6"
Me.TabPage6.Size = New System.Drawing.Size(368, 150)
Me.TabPage6.TabIndex = 1
Me.TabPage6.Text = "Set By Interval"
'
'TabPage3
'
Me.TabPage3.Location = New System.Drawing.Point(4, 22)
Me.TabPage3.Name = "TabPage3"
Me.TabPage3.Size = New System.Drawing.Size(480, 241)
Me.TabPage3.TabIndex = 2
Me.TabPage3.Text = "Enter Finish Times"
Me.TabPage3.Visible = False
'
'TabPage4
'
Me.TabPage4.Location = New System.Drawing.Point(4, 22)
Me.TabPage4.Name = "TabPage4"
Me.TabPage4.Size = New System.Drawing.Size(480, 241)
Me.TabPage4.TabIndex = 3
Me.TabPage4.Text = "See Results"
Me.TabPage4.Visible = False
'
'frmRacetracker
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(552, 378)
Me.Controls.Add(Me.TabControl1)
Me.Name = "frmRacetracker"
Me.Text = "Racetracker"
Me.TabControl1.ResumeLayout(False)
Me.TabPage1.ResumeLayout(False)
Me.TabPage2.ResumeLayout(False)
Me.TabControl2.ResumeLayout(False)
Me.TabPage5.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim daRunClasses As New OleDbDataAdapter("SELECT * FROM _ClassRun ORDER BY ClassOrder", cn)
Dim dsRunClasses As New DataSet
' Populate the Class combo box.
daRunClasses.Fill(dsRunClasses, "_ClassRun")
cboClass.DataSource = dsRunClasses
cboClass.DisplayMember = "_ClassRun.Class"
cboClass.ValueMember = "_ClassRun.Class"
' Bind the controls to the Entry table fields.
daEntryData.Fill(dsEntries, "Entry")
txtFName.DataBindings.Add("Text", dsEntries, "Entry.FirstName")
txtLName.DataBindings.Add("Text", dsEntries, "Entry.LastName")
txtAddress.DataBindings.Add("Text", dsEntries, "Entry.Address")
txtCity.DataBindings.Add("Text", dsEntries, "Entry.City")
txtState.DataBindings.Add("Text", dsEntries, "Entry.State")
txtZip.DataBindings.Add("Text", dsEntries, "Entry.Zip")
txtPhone.DataBindings.Add("Text", dsEntries, "Entry.Phone")
txtEmail.DataBindings.Add("Text", dsEntries, "Entry.Email")
txtBirthdate.DataBindings.Add("Text", dsEntries, "Entry.Birthdate")
cboGender.DataBindings.Add("Text", dsEntries, "Entry.Gender")
cboClass.DataBindings.Add("Text", dsEntries, "Entry.Class")
txtBibNumber.DataBindings.Add("Text", dsEntries, "Entry.BibNum")
txtID.DataBindings.Add("Text", dsEntries, "Entry.RaceKey")
bmb = Me.BindingContext(dsEntries, "Entry")
'bmb.Position = bmb.Count
bmb.Position = 0
lblPosition.Text = String.Format("{0} of {1}", bmb.Position + 1, bmb.Count)
' Format birthdate.
txtBirthdate.Text = Format(txtBirthdate.Text, "Short Date")
End Sub
Private Sub TabPage4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabPage4.Click
End Sub
Private Sub TabPage3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabPage3.Click
End Sub
Private Sub TabPage2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabPage2.Click
End Sub
Private Sub TabPage1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabPage1.Click
End Sub
Private Sub btnFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFirst.Click
bmb.Position = 0
End Sub
Private Sub btnPrev_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrev.Click
bmb.Position -= 1
End Sub
Private Sub btnNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNext.Click
bmb.Position += 1
End Sub
Private Sub btnLast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLast.Click
bmb.Position = bmb.Count - 1
End Sub
Private Sub bmb_PositionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles bmb.PositionChanged
lblPosition.Text = String.Format("{0} of {1}", bmb.Position + 1, bmb.Count)
' Format birthdate.
txtBirthdate.Text = Format(txtBirthdate.Text, "Short Date")
End Sub
Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
booNewRow = True
Me.txtFName.Text = ""
Me.txtLName.Text = ""
Me.txtAddress.Text = ""
Me.txtCity.Text = ""
Me.txtState.Text = ""
Me.txtZip.Text = ""
Me.txtPhone.Text = ""
Me.txtEmail.Text = ""
Me.txtBirthdate.Text = ""
Me.cboGender.Text = ""
Me.cboClass.Text = ""
Me.txtBibNumber.Text = ""
Me.txtID.Text = ""
End Sub
Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
Dim intPosition As Integer = bmb.Position
Dim cmdBuilder As New OleDbCommandBuilder(daEntryData)
' If this is a new entry (Add button clicked), add a new row.
' Otherwise, save the current row.
If booNewRow Then
booNewRow = False
daEntryData.InsertCommand = cmdBuilder.GetInsertCommand
Dim dr As DataRow = dsEntries.Tables("Entry").NewRow()
Dim strClass As String
' Get new key value.
Dim daMaxRaceKey As New OleDbDataAdapter("SELECT Max(RaceKey) AS LastKey FROM Entry", cn)
Dim dsRaceKey As New DataSet
Dim intNewKey As Integer
daMaxRaceKey.Fill(dsRaceKey, "Entry")
intNewKey = dsRaceKey.Tables("Entry").Rows(0)("LastKey") + 1
' Populate and add the new data row.
dr("FirstName") = Me.txtFName.Text
dr("LastName") = Me.txtLName.Text
dr("RaceKey") = intNewKey
dr("Address") = Me.txtAddress.Text
dr("City") = Me.txtCity.Text
dr("State") = Me.txtState.Text
dr("Zip") = Me.txtZip.Text
dr("Phone") = Me.txtPhone.Text
dr("Email") = Me.txtEmail.Text
If Me.txtBirthdate.Text = "" Then
dr("Birthdate") = DBNull.Value
Else
dr("Birthdate") = CDate(Me.txtBirthdate.Text)
End If
dr("Gender") = Me.cboGender.Text
dr("Class") = Me.cboClass.Text
If Me.txtBibNumber.Text = "" Then
dr("BibNum") = DBNull.Value
Else
dr("BibNum") = CInt(Me.txtBibNumber.Text)
End If
dsEntries.Tables("Entry").Rows.Add(dr)
' Update the database.
Try
daEntryData.Update(dsEntries, "Entry")
Catch ex As Exception
MsgBox(ex.Message)
End Try
' Refresh the data set.
dsEntries.Clear()
daEntryData.Fill(dsEntries, "Entry")
' Go to the new record.
bmb.Position = bmb.Count - 1
Else
' Force a refresh.
bmb.Position = intPosition
' Save combo box values.
Dim strGender As String = cboGender.Text
Dim strClass As String = cboClass.Text
daEntryData.UpdateCommand = cmdBuilder.GetUpdateCommand
dsEntries.Tables("Entry").Rows(intPosition)("FirstName") = Me.txtFName.Text
dsEntries.Tables("Entry").Rows(intPosition)("LastName") = Me.txtLName.Text
dsEntries.Tables("Entry").Rows(intPosition)("Address") = Me.txtAddress.Text
dsEntries.Tables("Entry").Rows(intPosition)("City") = Me.txtCity.Text
dsEntries.Tables("Entry").Rows(intPosition)("State") = Me.txtState.Text
dsEntries.Tables("Entry").Rows(intPosition)("Zip") = Me.txtZip.Text
dsEntries.Tables("Entry").Rows(intPosition)("Phone") = Me.txtPhone.Text
dsEntries.Tables("Entry").Rows(intPosition)("Email") = Me.txtEmail.Text
dsEntries.Tables("Entry").Rows(intPosition)("Birthdate") = Me.txtBirthdate.Text
dsEntries.Tables("Entry").Rows(intPosition)("Gender") = strGender
dsEntries.Tables("Entry").Rows(intPosition)("Class") = strClass
dsEntries.Tables("Entry").Rows(intPosition)("BibNum") = Me.txtBibNumber.Text
' Update the database.
Try
daEntryData.Update(dsEntries, "Entry")
Catch ex As Exception
MsgBox(ex.Message)
End Try
End If
' Format birthdate.
txtBirthdate.Text = Format(txtBirthdate.Text, "Short Date")
End Sub
Private Sub lblPosition_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblPosition.Click
End Sub
Private Sub TabControl1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabControl1.SelectedIndexChanged
End Sub
Private Sub btnDelete_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnDelete.Click
Dim cmdBuilder As New OleDbCommandBuilder(daEntryData)
Dim intPosition As Integer = bmb.Position
daEntryData.InsertCommand = cmdBuilder.GetDeleteCommand
dsEntries.Tables("Entry").Rows(bmb.Position).Delete()
' Update the database.
Try
daEntryData.Update(dsEntries, "Entry")
Catch ex As Exception
MsgBox(ex.Message)
End Try
bmb.Position = bmb.Count - 1
bmb.Position = intPosition
End Sub
Private Sub btnGo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGo.Click
'cn.Open()
Dim dv As New DataView(dsEntries.Tables("Entry"))
Dim daStartTimes As New OleDbDataAdapter("SELECT * FROM Start", cn)
Dim dsStartTimes As New DataSet
Dim strSQL As String
Dim cmdBuilder As New OleDbCommandBuilder(daStartTimes)
Dim i As Integer
Dim dr As DataRow = dsStartTimes.Tables("Start").NewRow()
daStartTimes.Fill(dsStartTimes, "Start")
daEntryData.InsertCommand = cmdBuilder.GetInsertCommand
dv.RowFilter = "BibNum >= " & Me.txtBib1.Text & " And BibNum <= " & Me.txtBib2.Text
dv.Sort = "BibNum"
For i = 0 To dv.Count - 1
dr("BibNum") = dv(i)
dr("StartTime") = CDate(Me.txtTime.Text)
dsStartTimes.Tables("Start").Rows.Add(dr)
' Update the database.
Try
daStartTimes.Update(dsStartTimes, "Start")
Catch ex As Exception
MsgBox(ex.Message)
End Try
' need data row.
'dsStartTimes.Tables("Start")
Next
'cn.Close()
'MsgBox(dv(0)("BibNum"))
'' Add bib range times to the Start table.
'strSQL = "INSERT INTO " & strStartTable & " (BibNum, StartTime) " & _
' "SELECT " & strBib & ", Forms!frmStartTime!txtSetRangeTime " & _
' "FROM " & strEntryTable & _
' " WHERE (((" & strBib & ")" & _
' " Between Forms!frmStartTime!txtSetRangeBib1 And Forms!frmStartTime!txtSetRangeBib2));"
'DoCmd.RunSQL(strSQL)
End Sub
End Class