Visual Basic

Imports System.Data.OleDb
Imports System.Configuration

Public Class EmployeeView
	Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

	Private Const SELECT_STRING As String = "SELECT * FROM tblEmployees ORDER BY FirstName, LastName, Title, Region, WorkPhone"
	Private Const CONNECT_STRING As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=data.mdb "
	Private manipulatedrow As Integer

	' The DataSet that holds the data.
	Public Shared m_DataSet As DataSet
	Public myCaller As Calendar

#Region "Employee View Form Load"

	Private Sub EmployeeView_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

		Dim data_adapter As OleDbDataAdapter
		Dim oledbcommand As OleDbCommand

		' Create the SqlDataAdapter.
		data_adapter = New OleDbDataAdapter(SELECT_STRING, CONNECT_STRING)

		' Map Table to Employees.
		data_adapter.TableMappings.Add("Table", "Employees")

		' Fill the DataSet.
		m_DataSet = New DataSet
		data_adapter.Fill(m_DataSet)

		'Create a Grid Table Style. Map it to the "Employees" Table.
		Dim aGridTableStyle As New DataGridTableStyle
		aGridTableStyle.MappingName = "Employees"
		aGridTableStyle.AlternatingBackColor = Color.LightYellow

		'
		' Create GridColumnStyle objects for the grid columns 
		'
		Dim col_ID As New DataGridTextBoxColumn
		Dim col_FirstName As New DataGridTextBoxColumn
		Dim col_LastName As New DataGridTextBoxColumn
		Dim col_Title As New DataGridTextBoxColumn
		Dim col_Region As New DataGridTextBoxColumn
		Dim col_WorkPhone As New DataGridTextBoxColumn
		Dim col_HomePhone As New DataGridTextBoxColumn

		With col_ID
			.MappingName = "ID"
			.HeaderText = "ID"
			.Width = 0
		End With

		With col_FirstName
			.MappingName = "FirstName"
			.HeaderText = "First Name"
			.Width = 75
		End With

		With col_LastName
			.MappingName = "LastName"
			.HeaderText = "Last Name"
			.Width = 75
			.NullText = ""
		End With

		With col_Title
			.MappingName = "Title"
			.HeaderText = "Title"
			.Width = 100
		End With

		With col_Region
			.MappingName = "Region"
			.HeaderText = "Region"
			.Width = 46
		End With

		With col_WorkPhone
			.MappingName = "WorkPhone"
			.HeaderText = "Work Phone"
			.Width = 75
		End With

		With col_HomePhone
			.MappingName = "HomePhone"
			.HeaderText = "Home Phone"
			.Width = 0
		End With

		'Add the styles to the table
		With aGridTableStyle.GridColumnStyles
			.Add(col_ID)
			.Add(col_FirstName)
			.Add(col_LastName)
			.Add(col_Title)
			.Add(col_Region)
			.Add(col_WorkPhone)
			.Add(col_HomePhone)
		End With

		'Add the GridColumnStyles to the aGridTableStyle.
		DataGrid1.TableStyles.Add(aGridTableStyle)

		'Bind the DataGrid control to the Employees DataTable.
		DataGrid1.SetDataBinding(m_DataSet, "Employees")
		DataGrid1.Refresh()

		Dim c As DataGridTextBoxColumn
		For Each c In Me.DataGrid1.TableStyles(0).GridColumnStyles
			c.TextBox.ContextMenu = ContextMenu1
		Next

	End Sub

#End Region

	Private Sub ctxDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ctxDelete.Click, btnDelete.Click
		Dim choice As MsgBoxResult
		choice = MsgBox("Are you sure you want to delete " & DataGrid1.Item(DataGrid1.CurrentRowIndex, 1) & " " & DataGrid1.Item(DataGrid1.CurrentRowIndex, 2) & " from the database?", MsgBoxStyle.YesNo, "Delete Employee?")
		If choice = MsgBoxResult.Yes Then
			Dim data_adapter As OleDbDataAdapter

			Dim oledbcommand As OleDbCommand
			Dim oledbconnection As OleDbConnection

			Dim strSQL As String

			oledbconnection = New OleDbConnection(CONNECT_STRING)
			oledbcommand = New OleDbCommand
			oledbcommand.Connection = oledbconnection
			oledbcommand.Connection.Open()

			strSQL = "Delete from tblEmployees where ID = " & DataGrid1.Item(DataGrid1.CurrentRowIndex, 0)

			oledbcommand.CommandText = strSQL
			Try
				oledbcommand.ExecuteNonQuery()
			Catch ex As OleDbException
				MsgBox(ex.Message)
			End Try
			oledbcommand.Connection.Close()

			data_adapter = New OleDbDataAdapter(SELECT_STRING, CONNECT_STRING)

			' Map Table to Employees.
			data_adapter.TableMappings.Add("Table", "Employees")

			' Fill the DataSet.
			m_DataSet = New DataSet
			data_adapter.Fill(m_DataSet)

			' Bind the DataGrid control to the Employees DataTable.
			DataGrid1.SetDataBinding(m_DataSet, "Employees")
		End If

		DataGrid1.Refresh()
	End Sub
End Class

Imports System.Data.OleDb
Imports System.Configuration

Public Class TimeOff
	Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

	Private Const SELECT_STRING As String = "SELECT * FROM tblTimeOff ORDER BY TOEmployee, Start"
	Private Const CONNECT_STRING As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=data.mdb"

	Public myCaller As Calendar
	Public Shared TO_DataSet As DataSet

	Private Sub TimeOff_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
		Dim data_adapter2 As OleDbDataAdapter
		Dim oledbcommand2 As OleDbCommand

		' Create the SqlDataAdapter.
		data_adapter2 = New OleDbDataAdapter(SELECT_STRING, CONNECT_STRING)

		' Map Table to Employees.
		data_adapter2.TableMappings.Add("Table", "TimeOff")

		' Fill the DataSet.
		TO_DataSet = New DataSet
		data_adapter2.Fill(TO_DataSet)

		'Create a Grid Table Style. Map it to the "Employees" Table.
		Dim aGridTableStyle As New DataGridTableStyle
		aGridTableStyle.MappingName = "TimeOff"

		'
		' Create GridColumnStyle objects for the grid columns 
		'
		Dim col_DI As New DataGridTextBoxColumn
		Dim col_Employee As New DataGridTextBoxColumn
		Dim col_StartDate As New DataGridTextBoxColumn
		Dim col_EndDate As New DataGridTextBoxColumn

		With col_DI
			.MappingName = "DI"
			.HeaderText = "ID"
			.Width = 20
		End With

		With col_Employee
			.MappingName = "TOEmployee"
			.HeaderText = "Employee"
			.Width = 100
			.Alignment = HorizontalAlignment.Center
		End With

		With col_StartDate
			.MappingName = "Start"
			.HeaderText = "Start Date"
			.Width = 80
			.Alignment = HorizontalAlignment.Center
		End With

		With col_EndDate
			.MappingName = "End"
			.HeaderText = "End Date"
			.Width = 80
			.Alignment = HorizontalAlignment.Center
		End With

		'Add the styles to the table
		With aGridTableStyle.GridColumnStyles
			.Add(col_DI)		'0
			.Add(col_Employee)  '1
			.Add(col_StartDate) '2
			.Add(col_EndDate)   '3
		End With

		'Add the GridColumnStyles to the aGridTableStyle.
		DataGrid1.TableStyles.Add(aGridTableStyle)

		'Bind the DataGrid control to the Employees DataTable.
		Try
			DataGrid1.SetDataBinding(TO_DataSet, "TimeOff")
		Catch ex As Exception
			MsgBox(ex)
		End Try
		DataGrid1.Refresh()

		Dim c As DataGridTextBoxColumn
		For Each c In Me.DataGrid1.TableStyles(0).GridColumnStyles
			c.TextBox.ContextMenu = ContextMenu1
		Next

	End Sub

	Private Sub mnuDelEntry_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuDelEntry.Click
		Dim choice As MsgBoxResult
		Try
			choice = MsgBox("Are you sure you want to delete " & DataGrid1.Item(DataGrid1.CurrentRowIndex, 1) & ": " & DataGrid1.Item(DataGrid1.CurrentRowIndex, 2) & "-" & DataGrid1.Item(DataGrid1.CurrentRowIndex, 3) & " from the database?", MsgBoxStyle.YesNo, "Delete Employee?")
			If choice = MsgBoxResult.Yes Then
				Dim data_adapter2 As OleDbDataAdapter
				Dim oledbcommand2 As OleDbCommand
				Dim oledbconnection As OleDbConnection

				Dim strSQL As String

				oledbconnection = New OleDbConnection(CONNECT_STRING)
				oledbcommand2 = New OleDbCommand
				oledbcommand2.Connection = oledbconnection
				oledbcommand2.Connection.Open()

				strSQL = "DELETE FROM tblTimeOff WHERE DI = " & DataGrid1.Item(DataGrid1.CurrentRowIndex, 0)

				oledbcommand2.CommandText = strSQL
				Try
					oledbcommand2.ExecuteNonQuery()
				Catch ex As OleDbException
					MsgBox(ex.Message)
				End Try
				oledbcommand2.Connection.Close()

				data_adapter2 = New OleDbDataAdapter(SELECT_STRING, CONNECT_STRING)

				' Map Table to Employees.
				data_adapter2.TableMappings.Add("Table", "TimeOff")

				' Fill the DataSet.
				TO_DataSet = New DataSet
				data_adapter2.Fill(TO_DataSet)

				' Bind the DataGrid control to the Employees DataTable.
				DataGrid1.SetDataBinding(TO_DataSet, "TimeOff")
			End If

			DataGrid1.Refresh()

		Catch bigEx As Exception
			MsgBox("There is no data to delete.", MsgBoxStyle.Exclamation, "No Data")
		End Try
	End Sub
End Class