I'm completely stuck.............

Aaron Smith · Dec 28, 2004

I post a message about this, but noone responded.. Well, I've played
around as much as I can and I'm completely stuck and out of ideas.

This should be a really simple task, but it seems that it is beyond me
why this has to be so hard to do.

I have two tables, the ID is an Autonumber in Table 1. Table two is the
child to the previous table. Table 2 is in a grid. I enter information
in table 1, then I go to the grid and enter a row there. Then I do to
save, which does the Update, and it fails on table one saying that an
object hasn't been instantied, but it still saves the record, but also
creates another record, with a new ID from the SQL server. The previous
record still has 0 in the ID, and has the table 2 record related to it.
The new record in table 1 has no child records. If I just simply hit
save again, it comes up with this Foreign Key constraint error that says
that parent records must exist for this child record.

I've tried removing the ID in the insert and update statments for the
child, I've tried saving the parent before entering the grid. (I'm doing
an EndCurrentEdit right now) Nothing seems to fix it. A lot of changes
make it worse.

How the heck are you supposed to do this? It seems like a simple task,
but it's becoming a severe head ache.

Nick Malik [Microsoft] · Dec 28, 2004

My advice:

don't use Identity columns as primary keys. Use GUIDs.
Your app can generate the primary key value without any help from SQL Server
(no need for a round trip).

So, when a user wants to add a parent row, create the guid and associate it
with the new data.
When the user wants to add a child row, use the Guid as the foreign key.

Save to the database. SQL doesn't autogenerate the Guids, so there's no
conflict, and no need for a round trip.

--
--- Nick Malik [Microsoft]
MCSD, CFPS, Certified Scrummaster
http://blogs.msdn.com/nickmalik

Disclaimer: Opinions expressed in this forum are my own, and not
representative of my employer.
I do not answer questions on behalf of my employer. I'm just a
programmer helping programmers.

Aaron Smith · Dec 28, 2004

Nick said:
My advice:

don't use Identity columns as primary keys. Use GUIDs.
Your app can generate the primary key value without any help from SQL Server
(no need for a round trip).

So, when a user wants to add a parent row, create the guid and associate it
with the new data.
When the user wants to add a child row, use the Guid as the foreign key.

Save to the database. SQL doesn't autogenerate the Guids, so there's no
conflict, and no need for a round trip.

Took your advice. Started to use Guids. The error messages have gone
away. One problem... No child records are being saved to the SQL Server
now. Even if I create a parent, save, close the program and open it,
then add child records. No errors. No children in the server. It does an
update, the DataSet.HasChanges() returns false. Look at the table on the
server, no children.

Nick Malik [Microsoft] · Dec 29, 2004

fascinating.

Code would help. It's probably a minor oversight somewhere.

--
--- Nick Malik [Microsoft]
MCSD, CFPS, Certified Scrummaster
http://blogs.msdn.com/nickmalik

Disclaimer: Opinions expressed in this forum are my own, and not
representative of my employer.
I do not answer questions on behalf of my employer. I'm just a
programmer helping programmers.
--

Aaron Smith · Dec 29, 2004

Nick said:
fascinating.

Code would help. It's probably a minor oversight somewhere.

This is really fascinating, because no matter what I have tried, it
still doesn't work. I can send the whole form if you wish, but it may
not help without the structure of the data on the server. Should I try
to recreate it with northwind?

Here is the code anyway:

Imports System.Data.OleDb

Public Class Course
Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

Public Sub New()
MyBase.New()

'This call is required by the Windows Form Designer.
InitializeComponent()

Dim dr As DataRow = GendersDS1.Tables.Item("Genders").NewRow()
dr.Item("GenderName") = "Co-Ed"
GendersDS1.Tables.Item("Genders").Rows.Add(dr)
dr = GendersDS1.Tables("Genders").NewRow()
dr.Item("GenderName") = "Female"
GendersDS1.Tables.Item("Genders").Rows.Add(dr)
dr = GendersDS1.Tables("Genders").NewRow()
dr.Item("GenderName") = "Male"
GendersDS1.Tables.Item("Genders").Rows.Add(dr)

dr = PayTypeDS1.Tables("PayType").NewRow()
dr.Item("PayType") = "H"
dr.Item("Desc") = "Hourly"
PayTypeDS1.Tables("PayType").Rows.Add(dr)
dr = PayTypeDS1.Tables("PayType").NewRow()
dr.Item("PayType") = "P"
dr.Item("Desc") = "Percentage"
PayTypeDS1.Tables("PayType").Rows.Add(dr)
dr = PayTypeDS1.Tables("PayType").NewRow()
dr.Item("PayType") = "F"
dr.Item("Desc") = "Flat Amount"
PayTypeDS1.Tables("PayType").Rows.Add(dr)
dr = PayTypeDS1.Tables("PayType").NewRow()
dr.Item("PayType") = "A"
dr.Item("Desc") = "Amount Per Student"
PayTypeDS1.Tables("PayType").Rows.Add(dr)

CoursesDS1.InstClasses.Primary_InstColumn.DefaultValue = 0
'CoursesDS1.Courses.IDColumn.AutoIncrement = True
'CoursesDS1.Courses.IDColumn.AutoIncrementSeed = 0
'CoursesDS1.Courses.IDColumn.AutoIncrementStep = -1

CoursesDS1.Courses.SundayColumn.DefaultValue = 0
CoursesDS1.Courses.MondayColumn.DefaultValue = 0
CoursesDS1.Courses.TuesdayColumn.DefaultValue = 0
CoursesDS1.Courses.WednesdayColumn.DefaultValue = 0
CoursesDS1.Courses.ThursdayColumn.DefaultValue = 0
CoursesDS1.Courses.FridayColumn.DefaultValue = 0
CoursesDS1.Courses.SaturdayColumn.DefaultValue = 0

CoursesDS1.Courses.Begin_DateColumn.DefaultValue = Date.Today()
CoursesDS1.Courses.End_DateColumn.DefaultValue = Date.Today()
CoursesDS1.Courses.Beginning_TimeColumn.DefaultValue = "12:00 AM"
CoursesDS1.Courses.Ending_TimeColumn.DefaultValue = "12:00 AM"
CoursesDS1.Courses.Reserve_Begin_TimeColumn.DefaultValue =
"12:00 AM"
CoursesDS1.Courses.Reserve_End_TimeColumn.DefaultValue = "12:00 AM"
CoursesDS1.Courses.Registratin_DeadlineColumn.DefaultValue =
Date.Today()
Try
SQLConn.ConnectionString = Misc.ConnectionString()
SeasonsDA.Fill(SeasonsDS1, "Seasons")
CourseDA.Fill(CoursesDS1, "Courses")
InstructorsDA.Fill(CoursesDS1, "Instructors")
InstClassDA.Fill(CoursesDS1, "InstClasses")
CourseCatsDA.Fill(CategoriesDS1, "CourseCats")
PayTypeColumn.ComboBox.DataBindings.Add(New
System.Windows.Forms.Binding("SelectedValue", Me.CoursesDS1,
"Courses.CoursesInstClasses.Pay_Type"))
PayTypeColumn.ComboBox.DataSource = Me.PayTypeDS1
PayTypeColumn.ComboBox.DisplayMember = "PayType.Desc"
PayTypeColumn.ComboBox.ValueMember = "PayType.PayType"
PayTypeColumn.ComboBox.DropDownStyle =
ComboBoxStyle.DropDownList
'Dim dc As New DataColumn("Full_Name", GetType(String),
"Parent(InstructorsInstClasses).First_Name + ' ' +
Parent(InstructorsInstClasses).Last_Name")
'Dim dc As New DataColumn("Full_Name", GetType(String))

'CoursesDS1.InstClasses.Columns.Add(dc)
With Me.BindingContext(CoursesDS1, "Courses")
If .Count = 0 Then
.AddNew()
Else
.Position = 0
End If
End With
Catch ex As Exception
Misc.ShowError(ex.Message())
End Try
AddHandler Me.InstructorNameColumn.TextBox.KeyPress, AddressOf
InstNameKeyDump
AddHandler InstructorIDColumn.TextBox.Leave, AddressOf LeaveIDCol
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.
Public WithEvents Navigation As System.Windows.Forms.ImageList
Public WithEvents ToolBarCommandHolder As
C1.Win.C1Command.C1CommandHolder
Friend WithEvents cmdFirst As C1.Win.C1Command.C1Command
Friend WithEvents cmdPrevious As C1.Win.C1Command.C1Command
Friend WithEvents cmdNext As C1.Win.C1Command.C1Command
Friend WithEvents cmdLast As C1.Win.C1Command.C1Command
Friend WithEvents cmdSave As C1.Win.C1Command.C1Command
Friend WithEvents cmdDelete As C1.Win.C1Command.C1Command
Friend WithEvents cmdNew As C1.Win.C1Command.C1Command
Public WithEvents cmdCancel As C1.Win.C1Command.C1Command
Friend WithEvents cmdCancelAll As C1.Win.C1Command.C1Command
Friend WithEvents CourseDA As System.Data.OleDb.OleDbDataAdapter
Friend WithEvents SQLConn As System.Data.OleDb.OleDbConnection
Public WithEvents MainToolbar As C1.Win.C1Command.C1ToolBar
Public WithEvents C1CommandLink1 As C1.Win.C1Command.C1CommandLink
Public WithEvents C1CommandLink2 As C1.Win.C1Command.C1CommandLink
Public WithEvents C1CommandLink3 As C1.Win.C1Command.C1CommandLink
Public WithEvents btnLast As C1.Win.C1Command.C1CommandLink
Public WithEvents btnNew As C1.Win.C1Command.C1CommandLink
Public WithEvents C1CommandLink4 As C1.Win.C1Command.C1CommandLink
Public WithEvents btnDelete As C1.Win.C1Command.C1CommandLink
Public WithEvents C1CommandLink5 As C1.Win.C1Command.C1CommandLink
Public WithEvents C1CommandLink6 As C1.Win.C1Command.C1CommandLink
Friend WithEvents pnlHeader As System.Windows.Forms.Panel
Friend WithEvents TabControl1 As System.Windows.Forms.TabControl
Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents editYear As RecPro.NumericMaskedTextBox
Friend WithEvents editNumber As System.Windows.Forms.TextBox
Friend WithEvents editTitle As System.Windows.Forms.TextBox
Friend WithEvents SeasonsDA As System.Data.OleDb.OleDbDataAdapter
Friend WithEvents OleDbSelectCommand2 As System.Data.OleDb.OleDbCommand
Friend WithEvents OleDbInsertCommand2 As System.Data.OleDb.OleDbCommand
Friend WithEvents OleDbUpdateCommand2 As System.Data.OleDb.OleDbCommand
Friend WithEvents OleDbDeleteCommand2 As System.Data.OleDb.OleDbCommand
Friend WithEvents SeasonsDS1 As RecPro.SeasonsDS
Friend WithEvents cmbSeason As System.Windows.Forms.ComboBox
Friend WithEvents editDescription As System.Windows.Forms.TextBox
Friend WithEvents editNotes As System.Windows.Forms.TextBox
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents grpPrice As System.Windows.Forms.GroupBox
Friend WithEvents grpCharacter As System.Windows.Forms.GroupBox
Friend WithEvents editResidentFee As RecPro.CurrencyMaskedTextBox
Friend WithEvents editNonResidentFee As RecPro.CurrencyMaskedTextBox
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents editEndAge As RecPro.NumericMaskedTextBox
Friend WithEvents editStartAge As RecPro.NumericMaskedTextBox
Friend WithEvents editCurrEnroll As RecPro.NumericMaskedTextBox
Friend WithEvents editMaxEnroll As RecPro.NumericMaskedTextBox
Friend WithEvents editMinEnroll As RecPro.NumericMaskedTextBox
Friend WithEvents Label9 As System.Windows.Forms.Label
Friend WithEvents Label11 As System.Windows.Forms.Label
Friend WithEvents Label12 As System.Windows.Forms.Label
Friend WithEvents Label13 As System.Windows.Forms.Label
Friend WithEvents Label14 As System.Windows.Forms.Label
Friend WithEvents Label10 As System.Windows.Forms.Label
Friend WithEvents cmbGender As System.Windows.Forms.ComboBox
Friend WithEvents GendersDS1 As System.Data.DataSet
Friend WithEvents Genders As System.Data.DataTable
Friend WithEvents GenderNameColumn As System.Data.DataColumn
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents Label15 As System.Windows.Forms.Label
Friend WithEvents InstClassDA As System.Data.OleDb.OleDbDataAdapter
Friend WithEvents CoursesDS1 As RecPro.CoursesDS
Friend WithEvents grdInst As ExtendedDataGrid
Friend WithEvents InstClassTable As
System.Windows.Forms.DataGridTableStyle
Friend WithEvents InstructorIDColumn As ExtendedButtonColumn
Friend WithEvents InstructorNameColumn As
System.Windows.Forms.DataGridTextBoxColumn
Friend WithEvents InstructorsDA As System.Data.OleDb.OleDbDataAdapter
Friend WithEvents PrimaryColumn As
System.Windows.Forms.DataGridBoolColumn
Friend WithEvents OleDbSelectCommand4 As System.Data.OleDb.OleDbCommand
Friend WithEvents OleDbInsertCommand4 As System.Data.OleDb.OleDbCommand
Friend WithEvents OleDbUpdateCommand4 As System.Data.OleDb.OleDbCommand
Friend WithEvents OleDbDeleteCommand4 As System.Data.OleDb.OleDbCommand
Friend WithEvents PayTypeColumn As DataGridComboBoxColumn
Friend WithEvents AmountColumn As ExtendedNumericColumn
Friend WithEvents PayTypeDS1 As System.Data.DataSet
Friend WithEvents PayTypeTable As System.Data.DataTable
Friend WithEvents PTCol As System.Data.DataColumn
Friend WithEvents PTDesc As System.Data.DataColumn
Friend WithEvents TP_Sched As System.Windows.Forms.TabPage
Friend WithEvents grpLoc As System.Windows.Forms.GroupBox
Friend WithEvents editFacility As PromptTextBox
Friend WithEvents Label16 As System.Windows.Forms.Label
Friend WithEvents editRoom As PromptTextBox
Friend WithEvents Label17 As System.Windows.Forms.Label
Friend WithEvents editFacNotes As System.Windows.Forms.TextBox
Friend WithEvents editRoomNotes As System.Windows.Forms.TextBox
Friend WithEvents Label18 As System.Windows.Forms.Label
Friend WithEvents Label19 As System.Windows.Forms.Label
Friend WithEvents grpSched As System.Windows.Forms.GroupBox
Friend WithEvents editBegDate As C1.Win.C1Input.C1DateEdit
Friend WithEvents Label20 As System.Windows.Forms.Label
Friend WithEvents Label21 As System.Windows.Forms.Label
Friend WithEvents editEndDate As C1.Win.C1Input.C1DateEdit
Friend WithEvents Label22 As System.Windows.Forms.Label
Friend WithEvents editDeadline As C1.Win.C1Input.C1DateEdit
Friend WithEvents editResEndTime As C1.Win.C1Input.C1DateEdit
Friend WithEvents editResBegTime As C1.Win.C1Input.C1DateEdit
Friend WithEvents editActEndTime As C1.Win.C1Input.C1DateEdit
Friend WithEvents editActBegTime As C1.Win.C1Input.C1DateEdit
Friend WithEvents Label23 As System.Windows.Forms.Label
Friend WithEvents Label24 As System.Windows.Forms.Label
Friend WithEvents Label25 As System.Windows.Forms.Label
Friend WithEvents Label26 As System.Windows.Forms.Label
Friend WithEvents chkSunday As System.Windows.Forms.CheckBox
Friend WithEvents chkMonday As System.Windows.Forms.CheckBox
Friend WithEvents chkTuesday As System.Windows.Forms.CheckBox
Friend WithEvents chkWednesday As System.Windows.Forms.CheckBox
Friend WithEvents chkThursday As System.Windows.Forms.CheckBox
Friend WithEvents chkFriday As System.Windows.Forms.CheckBox
Friend WithEvents chkSaturday As System.Windows.Forms.CheckBox
Friend WithEvents editSessions As C1.Win.C1Input.C1NumericEdit
Friend WithEvents Label27 As System.Windows.Forms.Label
Friend WithEvents grdSched As System.Windows.Forms.DataGrid
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents FacilitiesDA As System.Data.OleDb.OleDbDataAdapter
Friend WithEvents RoomsDA As System.Data.OleDb.OleDbDataAdapter
Friend WithEvents OleDbSelectCommand6 As System.Data.OleDb.OleDbCommand
Friend WithEvents OleDbInsertCommand6 As System.Data.OleDb.OleDbCommand
Friend WithEvents OleDbUpdateCommand6 As System.Data.OleDb.OleDbCommand
Friend WithEvents OleDbDeleteCommand6 As System.Data.OleDb.OleDbCommand
Friend WithEvents FacilitiesDS1 As RecPro.FacilitiesDS
Friend WithEvents OleDbSelectCommand5 As System.Data.OleDb.OleDbCommand
Friend WithEvents OleDbInsertCommand5 As System.Data.OleDb.OleDbCommand
Friend WithEvents OleDbUpdateCommand5 As System.Data.OleDb.OleDbCommand
Friend WithEvents OleDbDeleteCommand5 As System.Data.OleDb.OleDbCommand
Friend WithEvents FromGrade As System.Windows.Forms.ComboBox
Friend WithEvents Label28 As System.Windows.Forms.Label
Friend WithEvents Label29 As System.Windows.Forms.Label
Friend WithEvents ThruGrade As System.Windows.Forms.ComboBox
Friend WithEvents editSubCat As System.Windows.Forms.TextBox
Friend WithEvents editCat As System.Windows.Forms.TextBox
Friend WithEvents Label30 As System.Windows.Forms.Label
Friend WithEvents Label31 As System.Windows.Forms.Label
Friend WithEvents CourseCatsDA As System.Data.OleDb.OleDbDataAdapter
Friend WithEvents CategoriesDS1 As RecPro.CategoriesDS
Friend WithEvents OleDbSelectCommand7 As System.Data.OleDb.OleDbCommand
Friend WithEvents OleDbSelectCommand3 As System.Data.OleDb.OleDbCommand
Friend WithEvents OleDbInsertCommand3 As System.Data.OleDb.OleDbCommand
Friend WithEvents OleDbUpdateCommand3 As System.Data.OleDb.OleDbCommand
Friend WithEvents OleDbDeleteCommand3 As System.Data.OleDb.OleDbCommand
Friend WithEvents OleDbSelectCommand1 As System.Data.OleDb.OleDbCommand
Friend WithEvents OleDbInsertCommand1 As System.Data.OleDb.OleDbCommand
Friend WithEvents OleDbUpdateCommand1 As System.Data.OleDb.OleDbCommand
Friend WithEvents OleDbDeleteCommand1 As System.Data.OleDb.OleDbCommand
<System.Diagnostics.DebuggerStepThrough()> Private Sub
InitializeComponent()
Me.components = New System.ComponentModel.Container
Dim resources As System.Resources.ResourceManager = New
System.Resources.ResourceManager(GetType(Course))
Me.CourseDA = New System.Data.OleDb.OleDbDataAdapter
Me.SQLConn = New System.Data.OleDb.OleDbConnection
Me.Navigation = New System.Windows.Forms.ImageList(Me.components)
Me.ToolBarCommandHolder = New C1.Win.C1Command.C1CommandHolder
Me.cmdFirst = New C1.Win.C1Command.C1Command
Me.cmdPrevious = New C1.Win.C1Command.C1Command
Me.cmdNext = New C1.Win.C1Command.C1Command
Me.cmdLast = New C1.Win.C1Command.C1Command
Me.cmdSave = New C1.Win.C1Command.C1Command
Me.cmdDelete = New C1.Win.C1Command.C1Command
Me.cmdNew = New C1.Win.C1Command.C1Command
Me.cmdCancel = New C1.Win.C1Command.C1Command
Me.cmdCancelAll = New C1.Win.C1Command.C1Command
Me.MainToolbar = New C1.Win.C1Command.C1ToolBar
Me.C1CommandLink1 = New C1.Win.C1Command.C1CommandLink
Me.C1CommandLink2 = New C1.Win.C1Command.C1CommandLink
Me.C1CommandLink3 = New C1.Win.C1Command.C1CommandLink
Me.btnLast = New C1.Win.C1Command.C1CommandLink
Me.btnNew = New C1.Win.C1Command.C1CommandLink
Me.C1CommandLink4 = New C1.Win.C1Command.C1CommandLink
Me.btnDelete = New C1.Win.C1Command.C1CommandLink
Me.C1CommandLink5 = New C1.Win.C1Command.C1CommandLink
Me.C1CommandLink6 = New C1.Win.C1Command.C1CommandLink
Me.pnlHeader = New System.Windows.Forms.Panel
Me.Label31 = New System.Windows.Forms.Label
Me.Label30 = New System.Windows.Forms.Label
Me.editCat = New System.Windows.Forms.TextBox
Me.CoursesDS1 = New RecPro.CoursesDS
Me.editSubCat = New System.Windows.Forms.TextBox
Me.editTitle = New System.Windows.Forms.TextBox
Me.Label4 = New System.Windows.Forms.Label
Me.Label3 = New System.Windows.Forms.Label
Me.Label2 = New System.Windows.Forms.Label
Me.Label1 = New System.Windows.Forms.Label
Me.editNumber = New System.Windows.Forms.TextBox
Me.editYear = New RecPro.NumericMaskedTextBox
Me.cmbSeason = New System.Windows.Forms.ComboBox
Me.SeasonsDS1 = New RecPro.SeasonsDS
Me.TabControl1 = New System.Windows.Forms.TabControl
Me.TabPage1 = New System.Windows.Forms.TabPage
Me.grdInst = New RecPro.ExtendedDataGrid
Me.InstClassTable = New System.Windows.Forms.DataGridTableStyle
Me.InstructorIDColumn = New RecPro.ExtendedButtonColumn
Me.InstructorNameColumn = New
System.Windows.Forms.DataGridTextBoxColumn
Me.PayTypeColumn = New RecPro.DataGridComboBoxColumn
Me.AmountColumn = New RecPro.ExtendedNumericColumn
Me.PrimaryColumn = New System.Windows.Forms.DataGridBoolColumn
Me.grpCharacter = New System.Windows.Forms.GroupBox
Me.Label29 = New System.Windows.Forms.Label
Me.ThruGrade = New System.Windows.Forms.ComboBox
Me.Label28 = New System.Windows.Forms.Label
Me.FromGrade = New System.Windows.Forms.ComboBox
Me.Label15 = New System.Windows.Forms.Label
Me.TextBox1 = New System.Windows.Forms.TextBox
Me.cmbGender = New System.Windows.Forms.ComboBox
Me.GendersDS1 = New System.Data.DataSet
Me.Genders = New System.Data.DataTable
Me.GenderNameColumn = New System.Data.DataColumn
Me.Label10 = New System.Windows.Forms.Label
Me.Label14 = New System.Windows.Forms.Label
Me.Label13 = New System.Windows.Forms.Label
Me.Label12 = New System.Windows.Forms.Label
Me.Label11 = New System.Windows.Forms.Label
Me.Label9 = New System.Windows.Forms.Label
Me.editMinEnroll = New RecPro.NumericMaskedTextBox
Me.editMaxEnroll = New RecPro.NumericMaskedTextBox
Me.editCurrEnroll = New RecPro.NumericMaskedTextBox
Me.editStartAge = New RecPro.NumericMaskedTextBox
Me.editEndAge = New RecPro.NumericMaskedTextBox
Me.grpPrice = New System.Windows.Forms.GroupBox
Me.Label8 = New System.Windows.Forms.Label
Me.Label7 = New System.Windows.Forms.Label
Me.editNonResidentFee = New RecPro.CurrencyMaskedTextBox
Me.editResidentFee = New RecPro.CurrencyMaskedTextBox
Me.Label6 = New System.Windows.Forms.Label
Me.Label5 = New System.Windows.Forms.Label
Me.editNotes = New System.Windows.Forms.TextBox
Me.editDescription = New System.Windows.Forms.TextBox
Me.TP_Sched = New System.Windows.Forms.TabPage
Me.Button2 = New System.Windows.Forms.Button
Me.Button1 = New System.Windows.Forms.Button
Me.grdSched = New System.Windows.Forms.DataGrid
Me.grpSched = New System.Windows.Forms.GroupBox
Me.Label27 = New System.Windows.Forms.Label
Me.editSessions = New C1.Win.C1Input.C1NumericEdit
Me.chkSaturday = New System.Windows.Forms.CheckBox
Me.chkFriday = New System.Windows.Forms.CheckBox
Me.chkThursday = New System.Windows.Forms.CheckBox
Me.chkWednesday = New System.Windows.Forms.CheckBox
Me.chkTuesday = New System.Windows.Forms.CheckBox
Me.chkMonday = New System.Windows.Forms.CheckBox
Me.chkSunday = New System.Windows.Forms.CheckBox
Me.Label26 = New System.Windows.Forms.Label
Me.Label25 = New System.Windows.Forms.Label
Me.Label24 = New System.Windows.Forms.Label
Me.Label23 = New System.Windows.Forms.Label
Me.editResEndTime = New C1.Win.C1Input.C1DateEdit
Me.editResBegTime = New C1.Win.C1Input.C1DateEdit
Me.editActEndTime = New C1.Win.C1Input.C1DateEdit
Me.editActBegTime = New C1.Win.C1Input.C1DateEdit
Me.editDeadline = New C1.Win.C1Input.C1DateEdit
Me.Label22 = New System.Windows.Forms.Label
Me.editEndDate = New C1.Win.C1Input.C1DateEdit
Me.Label21 = New System.Windows.Forms.Label
Me.editBegDate = New C1.Win.C1Input.C1DateEdit
Me.Label20 = New System.Windows.Forms.Label
Me.grpLoc = New System.Windows.Forms.GroupBox
Me.Label19 = New System.Windows.Forms.Label
Me.Label18 = New System.Windows.Forms.Label
Me.editRoomNotes = New System.Windows.Forms.TextBox
Me.editFacNotes = New System.Windows.Forms.TextBox
Me.Label17 = New System.Windows.Forms.Label
Me.editRoom = New RecPro.PromptTextBox
Me.Label16 = New System.Windows.Forms.Label
Me.editFacility = New RecPro.PromptTextBox
Me.PayTypeDS1 = New System.Data.DataSet
Me.PayTypeTable = New System.Data.DataTable
Me.PTCol = New System.Data.DataColumn
Me.PTDesc = New System.Data.DataColumn
Me.SeasonsDA = New System.Data.OleDb.OleDbDataAdapter
Me.OleDbDeleteCommand2 = New System.Data.OleDb.OleDbCommand
Me.OleDbInsertCommand2 = New System.Data.OleDb.OleDbCommand
Me.OleDbSelectCommand2 = New System.Data.OleDb.OleDbCommand
Me.OleDbUpdateCommand2 = New System.Data.OleDb.OleDbCommand
Me.InstClassDA = New System.Data.OleDb.OleDbDataAdapter
Me.OleDbDeleteCommand3 = New System.Data.OleDb.OleDbCommand
Me.OleDbInsertCommand3 = New System.Data.OleDb.OleDbCommand
Me.OleDbSelectCommand3 = New System.Data.OleDb.OleDbCommand
Me.OleDbUpdateCommand3 = New System.Data.OleDb.OleDbCommand
Me.InstructorsDA = New System.Data.OleDb.OleDbDataAdapter
Me.OleDbDeleteCommand4 = New System.Data.OleDb.OleDbCommand
Me.OleDbInsertCommand4 = New System.Data.OleDb.OleDbCommand
Me.OleDbSelectCommand4 = New System.Data.OleDb.OleDbCommand
Me.OleDbUpdateCommand4 = New System.Data.OleDb.OleDbCommand
Me.FacilitiesDA = New System.Data.OleDb.OleDbDataAdapter
Me.OleDbDeleteCommand5 = New System.Data.OleDb.OleDbCommand
Me.OleDbInsertCommand5 = New System.Data.OleDb.OleDbCommand
Me.OleDbSelectCommand5 = New System.Data.OleDb.OleDbCommand
Me.OleDbUpdateCommand5 = New System.Data.OleDb.OleDbCommand
Me.RoomsDA = New System.Data.OleDb.OleDbDataAdapter
Me.OleDbDeleteCommand6 = New System.Data.OleDb.OleDbCommand
Me.OleDbInsertCommand6 = New System.Data.OleDb.OleDbCommand
Me.OleDbSelectCommand6 = New System.Data.OleDb.OleDbCommand
Me.OleDbUpdateCommand6 = New System.Data.OleDb.OleDbCommand
Me.FacilitiesDS1 = New RecPro.FacilitiesDS
Me.CourseCatsDA = New System.Data.OleDb.OleDbDataAdapter
Me.OleDbSelectCommand7 = New System.Data.OleDb.OleDbCommand
Me.CategoriesDS1 = New RecPro.CategoriesDS
Me.OleDbSelectCommand1 = New System.Data.OleDb.OleDbCommand
Me.OleDbInsertCommand1 = New System.Data.OleDb.OleDbCommand
Me.OleDbUpdateCommand1 = New System.Data.OleDb.OleDbCommand
Me.OleDbDeleteCommand1 = New System.Data.OleDb.OleDbCommand
CType(Me.ToolBarCommandHolder,
System.ComponentModel.ISupportInitialize).BeginInit()
Me.pnlHeader.SuspendLayout()
CType(Me.CoursesDS1,
System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.SeasonsDS1,
System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabControl1.SuspendLayout()
Me.TabPage1.SuspendLayout()
CType(Me.grdInst,
System.ComponentModel.ISupportInitialize).BeginInit()
Me.grpCharacter.SuspendLayout()
CType(Me.GendersDS1,
System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.Genders,
System.ComponentModel.ISupportInitialize).BeginInit()
Me.grpPrice.SuspendLayout()
Me.TP_Sched.SuspendLayout()
CType(Me.grdSched,
System.ComponentModel.ISupportInitialize).BeginInit()
Me.grpSched.SuspendLayout()
CType(Me.editSessions,
System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.editResEndTime,
System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.editResBegTime,
System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.editActEndTime,
System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.editActBegTime,
System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.editDeadline,
System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.editEndDate,
System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.editBegDate,
System.ComponentModel.ISupportInitialize).BeginInit()
Me.grpLoc.SuspendLayout()
CType(Me.PayTypeDS1,
System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PayTypeTable,
System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.FacilitiesDS1,
System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.CategoriesDS1,
System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'CourseDA
'
Me.CourseDA.DeleteCommand = Me.OleDbDeleteCommand1
Me.CourseDA.InsertCommand = Me.OleDbInsertCommand1
Me.CourseDA.SelectCommand = Me.OleDbSelectCommand1
Me.CourseDA.TableMappings.AddRange(New
System.Data.Common.DataTableMapping() {New
System.Data.Common.DataTableMapping("Table", "Courses", New
System.Data.Common.DataColumnMapping() {New
System.Data.Common.DataColumnMapping("ID", "ID"), New
System.Data.Common.DataColumnMapping("Season", "Season"), New
System.Data.Common.DataColumnMapping("Year", "Year"), New
System.Data.Common.DataColumnMapping("Number", "Number"), New
System.Data.Common.DataColumnMapping("Title", "Title"), New
System.Data.Common.DataColumnMapping("Begin_Date", "Begin_Date"), New
System.Data.Common.DataColumnMapping("End_Date", "End_Date"), New
System.Data.Common.DataColumnMapping("Sunday", "Sunday"), New
System.Data.Common.DataColumnMapping("Monday", "Monday"), New
System.Data.Common.DataColumnMapping("Tuesday", "Tuesday"), New
System.Data.Common.DataColumnMapping("Wednesday", "Wednesday"), New
System.Data.Common.DataColumnMapping("Thursday", "Thursday"), New
System.Data.Common.DataColumnMapping("Friday", "Friday"), New
System.Data.Common.DataColumnMapping("Saturday", "Saturday"), New
System.Data.Common.DataColumnMapping("Resident_Fee", "Resident_Fee"),
New System.Data.Common.DataColumnMapping("Non_Resident_Fee",
"Non_Resident_Fee"), New
System.Data.Common.DataColumnMapping("Facility", "Facility"), New
System.Data.Common.DataColumnMapping("Room", "Room"), New
System.Data.Common.DataColumnMapping("Number_Sessions",
"Number_Sessions"), New
System.Data.Common.DataColumnMapping("Min_Enroll", "Min_Enroll"), New
System.Data.Common.DataColumnMapping("Max_Enroll", "Max_Enroll"), New
System.Data.Common.DataColumnMapping("Current_Enroll",
"Current_Enroll"), New System.Data.Common.DataColumnMapping("TShirt",
"TShirt"), New System.Data.Common.DataColumnMapping("Special_Equipment",
"Special_Equipment"), New System.Data.Common.DataColumnMapping("Income",
"Income"), New System.Data.Common.DataColumnMapping("Description",
"Description"), New System.Data.Common.DataColumnMapping("Salary",
"Salary"), New System.Data.Common.DataColumnMapping("Material",
"Material"), New System.Data.Common.DataColumnMapping("Shopping_Cart",
"Shopping_Cart"), New System.Data.Common.DataColumnMapping("Notes",
"Notes"), New System.Data.Common.DataColumnMapping("Beginning_Time",
"Beginning_Time"), New
System.Data.Common.DataColumnMapping("Ending_Time", "Ending_Time"), New
System.Data.Common.DataColumnMapping("Reserve_Begin_Time",
"Reserve_Begin_Time"), New
System.Data.Common.DataColumnMapping("Reserve_End_Time",
"Reserve_End_Time"), New
System.Data.Common.DataColumnMapping("Registratin_Deadline",
"Registratin_Deadline"), New
System.Data.Common.DataColumnMapping("Gender", "Gender"), New
System.Data.Common.DataColumnMapping("Member_Discount",
"Member_Discount"), New
System.Data.Common.DataColumnMapping("Senior_Discount",
"Senior_Discount"), New System.Data.Common.DataColumnMapping("From_Age",
"From_Age"), New System.Data.Common.DataColumnMapping("Thru_Age",
"Thru_Age"), New System.Data.Common.DataColumnMapping("Booked",
"Booked"), New System.Data.Common.DataColumnMapping("Facility_Notes",
"Facility_Notes"), New
System.Data.Common.DataColumnMapping("Room_Notes", "Room_Notes"), New
System.Data.Common.DataColumnMapping("FromGrade", "FromGrade"), New
System.Data.Common.DataColumnMapping("ThruGrade", "ThruGrade"), New
System.Data.Common.DataColumnMapping("Category", "Category"), New
System.Data.Common.DataColumnMapping("SubCategory", "SubCategory")})})
Me.CourseDA.UpdateCommand = Me.OleDbUpdateCommand1
'
'SQLConn
'
Me.SQLConn.ConnectionString = "User ID=sa;Tag with column
collation when possible=False;Data Source=PROG1;Passwo" & _
"rd=rcs;Initial Catalog=RecPro;Use Procedure for Prepare=1;Auto
Translate=True;Pe" & _
"rsist Security Info=True;Provider=""SQLOLEDB.1"";Workstation
ID=PROG1;Use Encrypti" & _
"on for Data=False;Packet Size=4096"
'
'Navigation
'
Me.Navigation.ImageSize = New System.Drawing.Size(16, 16)
Me.Navigation.ImageStream =
CType(resources.GetObject("Navigation.ImageStream"),
System.Windows.Forms.ImageListStreamer)
Me.Navigation.TransparentColor = System.Drawing.Color.Transparent
'
'ToolBarCommandHolder
'
Me.ToolBarCommandHolder.Commands.Add(Me.cmdFirst)
Me.ToolBarCommandHolder.Commands.Add(Me.cmdPrevious)
Me.ToolBarCommandHolder.Commands.Add(Me.cmdNext)
Me.ToolBarCommandHolder.Commands.Add(Me.cmdLast)
Me.ToolBarCommandHolder.Commands.Add(Me.cmdSave)
Me.ToolBarCommandHolder.Commands.Add(Me.cmdDelete)
Me.ToolBarCommandHolder.Commands.Add(Me.cmdNew)
Me.ToolBarCommandHolder.Commands.Add(Me.cmdCancel)
Me.ToolBarCommandHolder.Commands.Add(Me.cmdCancelAll)
Me.ToolBarCommandHolder.ImageList = Me.Navigation
Me.ToolBarCommandHolder.Owner = Me
'
'cmdFirst
'
Me.cmdFirst.ImageIndex = 0
Me.cmdFirst.Name = "cmdFirst"
Me.cmdFirst.Text = "First"
Me.cmdFirst.ToolTipText = "First Record"
'
'cmdPrevious
'
Me.cmdPrevious.ImageIndex = 1
Me.cmdPrevious.Name = "cmdPrevious"
Me.cmdPrevious.Text = "Previous"
Me.cmdPrevious.ToolTipText = "Previous Record"
'
'cmdNext
'
Me.cmdNext.ImageIndex = 2
Me.cmdNext.Name = "cmdNext"
Me.cmdNext.Text = "Next"
Me.cmdNext.ToolTipText = "Next Record"
'
'cmdLast
'
Me.cmdLast.ImageIndex = 3
Me.cmdLast.Name = "cmdLast"
Me.cmdLast.Text = "Last"
Me.cmdLast.ToolTipText = "Last Record"
'
'cmdSave
'
Me.cmdSave.ImageIndex = 4
Me.cmdSave.Name = "cmdSave"
Me.cmdSave.Text = "Save"
Me.cmdSave.ToolTipText = "Save All"
'
'cmdDelete
'
Me.cmdDelete.ImageIndex = 5
Me.cmdDelete.Name = "cmdDelete"
Me.cmdDelete.Text = "Delete"
Me.cmdDelete.ToolTipText = "Delete Record"
'
'cmdNew
'
Me.cmdNew.ImageIndex = 6
Me.cmdNew.Name = "cmdNew"
Me.cmdNew.Text = "New"
Me.cmdNew.ToolTipText = "New Record"
'
'cmdCancel
'
Me.cmdCancel.ImageIndex = 7
Me.cmdCancel.Name = "cmdCancel"
Me.cmdCancel.Text = "Cancel"
Me.cmdCancel.ToolTipText = "Cancel"
'
'cmdCancelAll
'
Me.cmdCancelAll.ImageIndex = 8
Me.cmdCancelAll.Name = "cmdCancelAll"
Me.cmdCancelAll.Text = "Cancel All"
Me.cmdCancelAll.ToolTipText = "Cancel All Changes"
'
'MainToolbar
'
Me.MainToolbar.AutoSize = False
Me.MainToolbar.BackgroundImage =
CType(resources.GetObject("MainToolbar.BackgroundImage"),
System.Drawing.Image)
Me.MainToolbar.CommandHolder = Me.ToolBarCommandHolder
Me.MainToolbar.CommandLinks.Add(Me.C1CommandLink1)
Me.MainToolbar.CommandLinks.Add(Me.C1CommandLink2)
Me.MainToolbar.CommandLinks.Add(Me.C1CommandLink3)
Me.MainToolbar.CommandLinks.Add(Me.btnLast)
Me.MainToolbar.CommandLinks.Add(Me.btnNew)
Me.MainToolbar.CommandLinks.Add(Me.C1CommandLink4)
Me.MainToolbar.CommandLinks.Add(Me.btnDelete)
Me.MainToolbar.CommandLinks.Add(Me.C1CommandLink5)
Me.MainToolbar.CommandLinks.Add(Me.C1CommandLink6)
Me.MainToolbar.Dock = System.Windows.Forms.DockStyle.Top
Me.MainToolbar.Location = New System.Drawing.Point(0, 0)
Me.MainToolbar.Name = "MainToolbar"
Me.MainToolbar.Size = New System.Drawing.Size(712, 24)
Me.MainToolbar.Text = "C1ToolBar1"
'
'C1CommandLink1
'
Me.C1CommandLink1.ButtonLook =
C1.Win.C1Command.ButtonLookFlags.TextAndImage
Me.C1CommandLink1.Command = Me.cmdFirst
'
'C1CommandLink2
'
Me.C1CommandLink2.ButtonLook =
C1.Win.C1Command.ButtonLookFlags.TextAndImage
Me.C1CommandLink2.Command = Me.cmdPrevious
'
'C1CommandLink3
'
Me.C1CommandLink3.ButtonLook =
C1.Win.C1Command.ButtonLookFlags.TextAndImage
Me.C1CommandLink3.Command = Me.cmdNext
'
'btnLast
'
Me.btnLast.ButtonLook =
C1.Win.C1Command.ButtonLookFlags.TextAndImage
Me.btnLast.Command = Me.cmdLast
'
'btnNew
'
Me.btnNew.ButtonLook =
C1.Win.C1Command.ButtonLookFlags.TextAndImage
Me.btnNew.Command = Me.cmdNew
Me.btnNew.Delimiter = True
'
'C1CommandLink4
'
Me.C1CommandLink4.ButtonLook =
C1.Win.C1Command.ButtonLookFlags.TextAndImage
Me.C1CommandLink4.Command = Me.cmdSave
'
'btnDelete
'
Me.btnDelete.ButtonLook =
C1.Win.C1Command.ButtonLookFlags.TextAndImage
Me.btnDelete.Command = Me.cmdDelete
'
'C1CommandLink5
'
Me.C1CommandLink5.ButtonLook =
C1.Win.C1Command.ButtonLookFlags.TextAndImage
Me.C1CommandLink5.Command = Me.cmdCancel
'
'C1CommandLink6
'
Me.C1CommandLink6.ButtonLook =
C1.Win.C1Command.ButtonLookFlags.TextAndImage
Me.C1CommandLink6.Command = Me.cmdCancelAll
'
'pnlHeader
'
Me.pnlHeader.Anchor =
CType(((System.Windows.Forms.AnchorStyles.Top Or
System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right),
System.Windows.Forms.AnchorStyles)
Me.pnlHeader.Controls.Add(Me.Label31)
Me.pnlHeader.Controls.Add(Me.Label30)
Me.pnlHeader.Controls.Add(Me.editCat)
Me.pnlHeader.Controls.Add(Me.editSubCat)
Me.pnlHeader.Controls.Add(Me.editTitle)
Me.pnlHeader.Controls.Add(Me.Label4)
Me.pnlHeader.Controls.Add(Me.Label3)
Me.pnlHeader.Controls.Add(Me.Label2)
Me.pnlHeader.Controls.Add(Me.Label1)
Me.pnlHeader.Controls.Add(Me.editNumber)
Me.pnlHeader.Controls.Add(Me.editYear)
Me.pnlHeader.Controls.Add(Me.cmbSeason)
Me.pnlHeader.Location = New System.Drawing.Point(0, 24)
Me.pnlHeader.Name = "pnlHeader"
Me.pnlHeader.Size = New System.Drawing.Size(1096, 56)
Me.pnlHeader.TabIndex = 0
'
'Label31
'
Me.Label31.Location = New System.Drawing.Point(304, 32)
Me.Label31.Name = "Label31"
Me.Label31.Size = New System.Drawing.Size(80, 21)
Me.Label31.TabIndex = 10
Me.Label31.Text = "Sub-Category:"
Me.Label31.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label30
'
Me.Label30.Location = New System.Drawing.Point(0, 32)
Me.Label30.Name = "Label30"
Me.Label30.Size = New System.Drawing.Size(56, 21)
Me.Label30.TabIndex = 8
Me.Label30.Text = "Category:"
Me.Label30.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'editCat
'
Me.editCat.DataBindings.Add(New
System.Windows.Forms.Binding("Text", Me.CoursesDS1, "Courses.Category"))
Me.editCat.Enabled = False
Me.editCat.Location = New System.Drawing.Point(56, 32)
Me.editCat.MaxLength = 30
Me.editCat.Name = "editCat"
Me.editCat.Size = New System.Drawing.Size(232, 20)
Me.editCat.TabIndex = 9
Me.editCat.Text = ""
'
'CoursesDS1
'
Me.CoursesDS1.DataSetName = "CoursesDS"
Me.CoursesDS1.Locale = New
System.Globalization.CultureInfo("en-US")
'
'editSubCat
'
Me.editSubCat.DataBindings.Add(New
System.Windows.Forms.Binding("Text", Me.CoursesDS1, "Courses.SubCategory"))
Me.editSubCat.Enabled = False
Me.editSubCat.Location = New System.Drawing.Point(384, 32)
Me.editSubCat.MaxLength = 30
Me.editSubCat.Name = "editSubCat"
Me.editSubCat.Size = New System.Drawing.Size(232, 20)
Me.editSubCat.TabIndex = 11
Me.editSubCat.Text = ""
'
'editTitle
'
Me.editTitle.Anchor =
CType(((System.Windows.Forms.AnchorStyles.Top Or
System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right),
System.Windows.Forms.AnchorStyles)
Me.editTitle.DataBindings.Add(New
System.Windows.Forms.Binding("Text", Me.CoursesDS1, "Courses.Title"))
Me.editTitle.Location = New System.Drawing.Point(384, 8)
Me.editTitle.MaxLength = 40
Me.editTitle.Name = "editTitle"
Me.editTitle.Size = New System.Drawing.Size(320, 20)
Me.editTitle.TabIndex = 7
Me.editTitle.Text = ""
'
'Label4
'
Me.Label4.Location = New System.Drawing.Point(352, 8)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(32, 20)
Me.Label4.TabIndex = 6
Me.Label4.Text = "Title:"
Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label3
'
Me.Label3.Location = New System.Drawing.Point(240, 8)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(48, 20)
Me.Label3.TabIndex = 4
Me.Label3.Text = "Number:"
Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label2
'
Me.Label2.Location = New System.Drawing.Point(152, 8)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(32, 20)
Me.Label2.TabIndex = 2
Me.Label2.Text = "Year:"
Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label1
'
Me.Label1.Location = New System.Drawing.Point(8, 8)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(48, 21)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Season:"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'editNumber
'
Me.editNumber.DataBindings.Add(New
System.Windows.Forms.Binding("Text", Me.CoursesDS1, "Courses.Number"))
Me.editNumber.Location = New System.Drawing.Point(288, 8)
Me.editNumber.MaxLength = 10
Me.editNumber.Name = "editNumber"
Me.editNumber.Size = New System.Drawing.Size(56, 20)
Me.editNumber.TabIndex = 5
Me.editNumber.Text = ""
'
'editYear
'
Me.editYear.DataBindings.Add(New
System.Windows.Forms.Binding("Text", Me.CoursesDS1, "Courses.Year"))
Me.editYear.DecimalsAllowed = False
Me.editYear.LeftOfDecimal = 4
Me.editYear.Location = New System.Drawing.Point(184, 8)
Me.editYear.Name = "editYear"
Me.editYear.RightOfDecimal = 0
Me.editYear.ShowPercentage = False
Me.editYear.Size = New System.Drawing.Size(48, 20)
Me.editYear.TabIndex = 3
Me.editYear.Text = ""
Me.editYear.TextAlign =
System.Windows.Forms.HorizontalAlignment.Right
Me.editYear.ThousandsSeperator = False
'
'cmbSeason
'
Me.cmbSeason.DataBindings.Add(New
System.Windows.Forms.Binding("SelectedValue", Me.CoursesDS1,
"Courses.Season"))
Me.cmbSeason.DataSource = Me.SeasonsDS1.Seasons
Me.cmbSeason.DisplayMember = "Season"
Me.cmbSeason.DropDownStyle =
System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbSeason.Location = New System.Drawing.Point(56, 8)
Me.cmbSeason.Name = "cmbSeason"
Me.cmbSeason.Size = New System.Drawing.Size(88, 21)
Me.cmbSeason.TabIndex = 1
Me.cmbSeason.ValueMember = "Season"
'
'SeasonsDS1
'
Me.SeasonsDS1.DataSetName = "SeasonsDS"
Me.SeasonsDS1.Locale = New
System.Globalization.CultureInfo("en-US")
'
'TabControl1
'
Me.TabControl1.Anchor =
CType((((System.Windows.Forms.AnchorStyles.Top Or
System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right),
System.Windows.Forms.AnchorStyles)
Me.TabControl1.Controls.Add(Me.TabPage1)
Me.TabControl1.Controls.Add(Me.TP_Sched)
Me.TabControl1.Location = New System.Drawing.Point(8, 88)
Me.TabControl1.Name = "TabControl1"
Me.TabControl1.SelectedIndex = 0
Me.TabControl1.Size = New System.Drawing.Size(696, 344)
Me.TabControl1.TabIndex = 1
'
'TabPage1
'
Me.TabPage1.Controls.Add(Me.grdInst)
Me.TabPage1.Controls.Add(Me.grpCharacter)
Me.TabPage1.Controls.Add(Me.grpPrice)
Me.TabPage1.Controls.Add(Me.Label6)
Me.TabPage1.Controls.Add(Me.Label5)
Me.TabPage1.Controls.Add(Me.editNotes)
Me.TabPage1.Controls.Add(Me.editDescription)
Me.TabPage1.Location = New System.Drawing.Point(4, 22)
Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Size = New System.Drawing.Size(688, 318)
Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "Course Details"
'
'grdInst
'
Me.grdInst.AllowNavigation = False
Me.grdInst.Anchor =
CType(((System.Windows.Forms.AnchorStyles.Top Or
System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left),
System.Windows.Forms.AnchorStyles)
Me.grdInst.CaptionVisible = False
Me.grdInst.DataMember = "Courses.CoursesInstClasses"
Me.grdInst.DataSource = Me.CoursesDS1
Me.grdInst.HeaderForeColor =
System.Drawing.SystemColors.ControlText
Me.grdInst.Location = New System.Drawing.Point(104, 224)
Me.grdInst.Name = "grdInst"
Me.grdInst.RowHeaderWidth = 30
Me.grdInst.Size = New System.Drawing.Size(576, 80)
Me.grdInst.TabIndex = 6
Me.grdInst.TableStyles.AddRange(New
System.Windows.Forms.DataGridTableStyle() {Me.InstClassTable})
'
'InstClassTable
'
Me.InstClassTable.DataGrid = Me.grdInst
Me.InstClassTable.GridColumnStyles.AddRange(New
System.Windows.Forms.DataGridColumnStyle() {Me.InstructorIDColumn,
Me.InstructorNameColumn, Me.PayTypeColumn, Me.AmountColumn,
Me.PrimaryColumn})
Me.InstClassTable.HeaderForeColor =
System.Drawing.SystemColors.ControlText
Me.InstClassTable.MappingName = "InstClasses"
Me.InstClassTable.RowHeaderWidth = 30
'
'InstructorIDColumn
'
Me.InstructorIDColumn.Format = ""
Me.InstructorIDColumn.FormatInfo = Nothing
Me.InstructorIDColumn.HeaderText = "Instructor ID"
Me.InstructorIDColumn.MappingName = "Instructor_ID"
Me.InstructorIDColumn.MaxLength = 0
Me.InstructorIDColumn.NullText = ""
Me.InstructorIDColumn.TextCharacterCasing =
System.Windows.Forms.CharacterCasing.Normal
Me.InstructorIDColumn.Width = 70
'
'InstructorNameColumn
'
Me.InstructorNameColumn.Format = ""
Me.InstructorNameColumn.FormatInfo = Nothing
Me.InstructorNameColumn.HeaderText = "Instructor Name"
Me.InstructorNameColumn.MappingName = "Full_Name"
Me.InstructorNameColumn.NullText = ""
Me.InstructorNameColumn.Width = 200
'
'PayTypeColumn
'
Me.PayTypeColumn.Format = ""
Me.PayTypeColumn.FormatInfo = Nothing
Me.PayTypeColumn.HeaderText = "Pay Type"
Me.PayTypeColumn.MappingName = "Pay_Type"
Me.PayTypeColumn.NullText = ""
Me.PayTypeColumn.Width = 130
'
'AmountColumn
'
Me.AmountColumn.Alignment =
System.Windows.Forms.HorizontalAlignment.Right
Me.AmountColumn.DecimalsAllowed = True
Me.AmountColumn.Format = ""
Me.AmountColumn.FormatCurrency = True
Me.AmountColumn.FormatInfo = Nothing
Me.AmountColumn.HeaderText = "Amount |"
Me.AmountColumn.LeftOfDecimal = 8
Me.AmountColumn.MappingName = "Amount"
Me.AmountColumn.NullText = ""
Me.AmountColumn.RightOfDecimal = 2
Me.AmountColumn.ThousandsSeperator = False
Me.AmountColumn.Width = 75
'
'PrimaryColumn
'
Me.PrimaryColumn.AllowNull = False
Me.PrimaryColumn.FalseValue = False
Me.PrimaryColumn.HeaderText = "Primary"
Me.PrimaryColumn.MappingName = "Primary_Inst"
Me.PrimaryColumn.NullText = ""
Me.PrimaryColumn.NullValue =
CType(resources.GetObject("PrimaryColumn.NullValue"), Object)
Me.PrimaryColumn.TrueValue = True
Me.PrimaryColumn.Width = 50
'
'grpCharacter
'
Me.grpCharacter.Controls.Add(Me.Label29)
Me.grpCharacter.Controls.Add(Me.ThruGrade)
Me.grpCharacter.Controls.Add(Me.Label28)
Me.grpCharacter.Controls.Add(Me.FromGrade)
Me.grpCharacter.Controls.Add(Me.Label15)
Me.grpCharacter.Controls.Add(Me.TextBox1)
Me.grpCharacter.Controls.Add(Me.cmbGender)
Me.grpCharacter.Controls.Add(Me.Label10)
Me.grpCharacter.Controls.Add(Me.Label14)
Me.grpCharacter.Controls.Add(Me.Label13)
Me.grpCharacter.Controls.Add(Me.Label12)
Me.grpCharacter.Controls.Add(Me.Label11)
Me.grpCharacter.Controls.Add(Me.Label9)
Me.grpCharacter.Controls.Add(Me.editMinEnroll)
Me.grpCharacter.Controls.Add(Me.editMaxEnroll)
Me.grpCharacter.Controls.Add(Me.editCurrEnroll)
Me.grpCharacter.Controls.Add(Me.editStartAge)
Me.grpCharacter.Controls.Add(Me.editEndAge)
Me.grpCharacter.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.grpCharacter.Location = New System.Drawing.Point(216, 96)
Me.grpCharacter.Name = "grpCharacter"
Me.grpCharacter.Size = New System.Drawing.Size(464, 120)
Me.grpCharacter.TabIndex = 5
Me.grpCharacter.TabStop = False
Me.grpCharacter.Text = "Characteristics:"
'
'Label29
'
Me.Label29.Location = New System.Drawing.Point(280, 40)
Me.Label29.Name = "Label29"
Me.Label29.Size = New System.Drawing.Size(72, 20)
Me.Label29.TabIndex = 14
Me.Label29.Text = "Thru Grade:"
Me.Label29.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'ThruGrade
'
Me.ThruGrade.DataBindings.Add(New
System.Windows.Forms.Binding("SelectedValue", Me.CoursesDS1,
"Courses.ThruGrade"))
Me.ThruGrade.DropDownStyle =
System.Windows.Forms.ComboBoxStyle.DropDownList
Me.ThruGrade.Items.AddRange(New Object() {"Pre-K", "K", "1",
"2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12"})
Me.ThruGrade.Location = New System.Drawing.Point(352, 40)
Me.ThruGrade.Name = "ThruGrade"
Me.ThruGrade.Size = New System.Drawing.Size(56, 21)
Me.ThruGrade.TabIndex = 15
'
'Label28
'
Me.Label28.Location = New System.Drawing.Point(280, 16)
Me.Label28.Name = "Label28"
Me.Label28.Size = New System.Drawing.Size(72, 20)
Me.Label28.TabIndex = 12
Me.Label28.Text = "From Grade:"
Me.Label28.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'FromGrade
'
Me.FromGrade.DataBindings.Add(New
System.Windows.Forms.Binding("SelectedValue", Me.CoursesDS1,
"Courses.FromGrade"))
Me.FromGrade.DropDownStyle =
System.Windows.Forms.ComboBoxStyle.DropDownList
Me.FromGrade.Items.AddRange(New Object() {"Pre-K", "K", "1",
"2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12"})
Me.FromGrade.Location = New System.Drawing.Point(352, 16)
Me.FromGrade.Name = "FromGrade"
Me.FromGrade.Size = New System.Drawing.Size(56, 21)
Me.FromGrade.TabIndex = 13
'
'Label15
'
Me.Label15.Location = New System.Drawing.Point(8, 88)
Me.Label15.Name = "Label15"
Me.Label15.Size = New System.Drawing.Size(104, 20)
Me.Label15.TabIndex = 16
Me.Label15.Text = "Special Equipment:"
Me.Label15.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'TextBox1
'
Me.TextBox1.Anchor =
CType(((System.Windows.Forms.AnchorStyles.Top Or
System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right),
System.Windows.Forms.AnchorStyles)
Me.TextBox1.DataBindings.Add(New
System.Windows.Forms.Binding("Text", Me.CoursesDS1,
"Courses.Special_Equipment"))
Me.TextBox1.Location = New System.Drawing.Point(112, 88)
Me.TextBox1.MaxLength = 40
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(344, 20)
Me.TextBox1.TabIndex = 17
Me.TextBox1.Text = ""
'
'cmbGender
'
Me.cmbGender.DataBindings.Add(New
System.Windows.Forms.Binding("SelectedValue", Me.CoursesDS1,
"Courses.Gender"))
Me.cmbGender.DataSource = Me.GendersDS1
Me.cmbGender.DisplayMember = "Genders.GenderName"
Me.cmbGender.DropDownStyle =
System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbGender.Location = New System.Drawing.Point(224, 64)
Me.cmbGender.Name = "cmbGender"
Me.cmbGender.Size = New System.Drawing.Size(72, 21)
Me.cmbGender.TabIndex = 11
Me.cmbGender.ValueMember = "Genders.GenderName"
'
'GendersDS1
'
Me.GendersDS1.DataSetName = "GendersDS"
Me.GendersDS1.Locale = New
System.Globalization.CultureInfo("en-US")
Me.GendersDS1.Tables.AddRange(New System.Data.DataTable()
{Me.Genders})
'
'Genders
'
Me.Genders.Columns.AddRange(New System.Data.DataColumn()
{Me.GenderNameColumn})
Me.Genders.TableName = "Genders"
'
'GenderNameColumn
'
Me.GenderNameColumn.Caption = "Gender Name"
Me.GenderNameColumn.ColumnName = "GenderName"
Me.GenderNameColumn.DefaultValue = ""
'
'Label10
'
Me.Label10.Location = New System.Drawing.Point(168, 64)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(56, 20)
Me.Label10.TabIndex = 10
Me.Label10.Text = "Gender:"
Me.Label10.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label14
'
Me.Label14.Location = New System.Drawing.Point(16, 40)
Me.Label14.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(96, 20)
Me.Label14.TabIndex = 2
Me.Label14.Text = "Maximum Enroll:"
Me.Label14.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label13
'
Me.Label13.Location = New System.Drawing.Point(16, 64)
Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(96, 20)
Me.Label13.TabIndex = 4
Me.Label13.Text = "Current Enroll:"
Me.Label13.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label12
'
Me.Label12.Location = New System.Drawing.Point(168, 16)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(56, 20)
Me.Label12.TabIndex = 6
Me.Label12.Text = "Start Age:"
Me.Label12.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label11
'
Me.Label11.Location = New System.Drawing.Point(168, 40)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(56, 20)
Me.Label11.TabIndex = 8
Me.Label11.Text = "End Age:"
Me.Label11.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label9
'
Me.Label9.Location = New System.Drawing.Point(16, 16)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(96, 20)
Me.Label9.TabIndex = 0
Me.Label9.Text = "Minimum Enroll:"
Me.Label9.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'editMinEnroll
'
Me.editMinEnroll.DataBindings.Add(New
System.Windows.Forms.Binding("Text", Me.CoursesDS1, "Courses.Min_Enroll"))
Me.editMinEnroll.DecimalsAllowed = False
Me.editMinEnroll.LeftOfDecimal = 4
Me.editMinEnroll.Location = New System.Drawing.Point(112, 16)
Me.editMinEnroll.Name = "editMinEnroll"
Me.editMinEnroll.RightOfDecimal = 0
Me.editMinEnroll.ShowPercentage = False
Me.editMinEnroll.Size = New System.Drawing.Size(48, 20)
Me.editMinEnroll.TabIndex = 1
Me.editMinEnroll.Text = ""
Me.editMinEnroll.TextAlign =
System.Windows.Forms.HorizontalAlignment.Right
Me.editMinEnroll.ThousandsSeperator = False
'
'editMaxEnroll
'
Me.editMaxEnroll.DataBindings.Add(New
System.Windows.Forms.Binding("Text", Me.CoursesDS1, "Courses.Max_Enroll"))
Me.editMaxEnroll.DecimalsAllowed = False
Me.editMaxEnroll.LeftOfDecimal = 4
Me.editMaxEnroll.Location = New System.Drawing.Point(112, 40)
Me.editMaxEnroll.Name = "editMaxEnroll"
Me.editMaxEnroll.RightOfDecimal = 0
Me.editMaxEnroll.ShowPercentage = False
Me.editMaxEnroll.Size = New System.Drawing.Size(48, 20)
Me.editMaxEnroll.TabIndex = 3
Me.editMaxEnroll.Text = ""
Me.editMaxEnroll.TextAlign =
System.Windows.Forms.HorizontalAlignment.Right
Me.editMaxEnroll.ThousandsSeperator = False
'
'editCurrEnroll
'
Me.editCurrEnroll.DataBindings.Add(New
System.Windows.Forms.Binding("Text", Me.CoursesDS1,
"Courses.Current_Enroll"))
Me.editCurrEnroll.DecimalsAllowed = False
Me.editCurrEnroll.Enabled = False
Me.editCurrEnroll.LeftOfDecimal = 4
Me.editCurrEnroll.Location = New System.Drawing.Point(112, 64)
Me.editCurrEnroll.Name = "editCurrEnroll"
Me.editCurrEnroll.RightOfDecimal = 0
Me.editCurrEnroll.ShowPercentage = False
Me.editCurrEnroll.Size = New System.Drawing.Size(48, 20)
Me.editCurrEnroll.TabIndex = 5
Me.editCurrEnroll.Text = ""
Me.editCurrEnroll.TextAlign =
System.Windows.Forms.HorizontalAlignment.Right
Me.editCurrEnroll.ThousandsSeperator = False
'
'editStartAge
'
Me.editStartAge.DataBindings.Add(New
System.Windows.Forms.Binding("Text", Me.CoursesDS1, "Courses.From_Age"))
Me.editStartAge.DecimalsAllowed = False
Me.editStartAge.LeftOfDecimal = 2
Me.editStartAge.Location = New System.Drawing.Point(224, 16)
Me.editStartAge.Name = "editStartAge"
Me.editStartAge.RightOfDecimal = 0
Me.editStartAge.ShowPercentage = False
Me.editStartAge.Size = New System.Drawing.Size(48, 20)
Me.editStartAge.TabIndex = 7
Me.editStartAge.Text = ""
Me.editStartAge.TextAlign =
System.Windows.Forms.HorizontalAlignment.Right
Me.editStartAge.ThousandsSeperator = False
'
'editEndAge
'
Me.editEndAge.DataBindings.Add(New
System.Windows.Forms.Binding("Text", Me.CoursesDS1, "Courses.Thru_Age"))
Me.editEndAge.DecimalsAllowed = False
Me.editEndAge.LeftOfDecimal = 2
Me.editEndAge.Location = New System.Drawing.Point(224, 40)
Me.editEndAge.Name = "editEndAge"
Me.editEndAge.RightOfDecimal = 0
Me.editEndAge.ShowPercentage = False
Me.editEndAge.Size = New System.Drawing.Size(48, 20)
Me.editEndAge.TabIndex = 9
Me.editEndAge.Text = ""
Me.editEndAge.TextAlign =
System.Windows.Forms.HorizontalAlignment.Right
Me.editEndAge.ThousandsSeperator = False
'
'grpPrice
'
Me.grpPrice.Controls.Add(Me.Label8)
Me.grpPrice.Controls.Add(Me.Label7)
Me.grpPrice.Controls.Add(Me.editNonResidentFee)
Me.grpPrice.Controls.Add(Me.editResidentFee)
Me.grpPrice.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.grpPrice.Location = New System.Drawing.Point(8, 96)
Me.grpPrice.Name = "grpPrice"
Me.grpPrice.Size = New System.Drawing.Size(200, 120)
Me.grpPrice.TabIndex = 4
Me.grpPrice.TabStop = False
Me.grpPrice.Text = "Price:"
'
'Label8
'
Me.Label8.Location = New System.Drawing.Point(8, 40)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(104, 20)
Me.Label8.TabIndex = 2
Me.Label8.Text = "Non Resident Fee:"
Me.Label8.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label7
'
Me.Label7.Location = New System.Drawing.Point(8, 16)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(104, 20)
Me.Label7.TabIndex = 0
Me.Label7.Text = "Resident Fee:"
Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'editNonResidentFee
'
Me.editNonResidentFee.DataBindings.Add(New
System.Windows.Forms.Binding("Text", Me.CoursesDS1,
"Courses.Non_Resident_Fee"))
Me.editNonResidentFee.LeftOfDecimal = 8
Me.editNonResidentFee.Location = New System.Drawing.Point(112, 40)
Me.editNonResidentFee.Name = "editNonResidentFee"
Me.editNonResidentFee.RightOfDecimal = 2
Me.editNonResidentFee.Size = New System.Drawing.Size(80, 20)
Me.editNonResidentFee.TabIndex = 3
Me.editNonResidentFee.Text = ""
Me.editNonResidentFee.TextAlign =
System.Windows.Forms.HorizontalAlignment.Right
Me.editNonResidentFee.ThousandsSeperator = False
'
'editResidentFee
'
Me.editResidentFee.DataBindings.Add(New
System.Windows.Forms.Binding("Text", Me.CoursesDS1, "Courses.Resident_Fee"))
Me.editResidentFee.LeftOfDecimal = 8
Me.editResidentFee.Location = New System.Drawing.Point(112, 16)
Me.editResidentFee.Name = "editResidentFee"
Me.editResidentFee.RightOfDecimal = 2
Me.editResidentFee.Size = New System.Drawing.Size(80, 20)
Me.editResidentFee.TabIndex = 1
Me.editResidentFee.Text = ""
Me.editResidentFee.TextAlign =
System.Windows.Forms.HorizontalAlignment.Right
Me.editResidentFee.ThousandsSeperator = False
'
'Label6
'
Me.Label6.Location = New System.Drawing.Point(448, 8)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(64, 21)
Me.Label6.TabIndex = 2
Me.Label6.Text = "Notes:"
Me.Label6.TextAlign = System.Drawing.ContentAlignment.BottomLeft
'
'Label5
'
Me.Label5.Location = New System.Drawing.Point(8, 8)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(64, 21)
Me.Label5.TabIndex = 0
Me.Label5.Text = "Description:"
Me.Label5.TextAlign = System.Drawing.ContentAlignment.BottomLeft
'
'editNotes
'
Me.editNotes.Anchor =
CType((System.Windows.Forms.AnchorStyles.Top Or
System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.editNotes.DataBindings.Add(New
System.Windows.Forms.Binding("Text", Me.CoursesDS1, "Courses.Notes"))
Me.editNotes.Location = New System.Drawing.Point(448, 32)
Me.editNotes.Multiline = True
Me.editNotes.Name = "editNotes"
Me.editNotes.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
Me.editNotes.Size = New System.Drawing.Size(232, 56)
Me.editNotes.TabIndex = 3
Me.editNotes.Text = ""
'
'editDescription
'
Me.editDescription.Anchor =
CType(((System.Windows.Forms.AnchorStyles.Top Or
System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right),
System.Windows.Forms.AnchorStyles)
Me.editDescription.DataBindings.Add(New
System.Windows.Forms.Binding("Text", Me.CoursesDS1, "Courses.Description"))
Me.editDescription.Location = New System.Drawing.Point(8, 32)
Me.editDescription.Multiline = True
Me.editDescription.Name = "editDescription"
Me.editDescription.ScrollBars =
System.Windows.Forms.ScrollBars.Vertical
Me.editDescription.Size = New System.Drawing.Size(432, 56)
Me.editDescription.TabIndex = 1
Me.editDescription.Text = ""
'
'TP_Sched
'
Me.TP_Sched.Controls.Add(Me.Button2)
Me.TP_Sched.Controls.Add(Me.Button1)
Me.TP_Sched.Controls.Add(Me.grdSched)
Me.TP_Sched.Controls.Add(Me.grpSched)
Me.TP_Sched.Controls.Add(Me.grpLoc)
Me.TP_Sched.Location = New System.Drawing.Point(4, 22)
Me.TP_Sched.Name = "TP_Sched"
Me.TP_Sched.Size = New System.Drawing.Size(688, 318)
Me.TP_Sched.TabIndex = 1
Me.TP_Sched.Text = "Course Schedule"
'
'Button2
'
Me.Button2.Anchor =
CType((System.Windows.Forms.AnchorStyles.Bottom Or
System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.Button2.Location = New System.Drawing.Point(584, 288)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(96, 23)
Me.Button2.TabIndex = 2
Me.Button2.Text = "Unbook Course"
'
'Button1
'
Me.Button1.Anchor =
CType((System.Windows.Forms.AnchorStyles.Bottom Or
System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.Button1.Location = New System.Drawing.Point(360, 288)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(96, 23)
Me.Button1.TabIndex = 1
Me.Button1.Text = "Book Course"
'
'grdSched
'
Me.grdSched.Anchor =
CType((((System.Windows.Forms.AnchorStyles.Top Or
System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right),
System.Windows.Forms.AnchorStyles)
Me.grdSched.CaptionText = "This is where the schedule will be."
Me.grdSched.DataMember = ""
Me.grdSched.HeaderForeColor =
System.Drawing.SystemColors.ControlText
Me.grdSched.Location = New System.Drawing.Point(360, 96)
Me.grdSched.Name = "grdSched"
Me.grdSched.Size = New System.Drawing.Size(320, 184)
Me.grdSched.TabIndex = 0
'
'grpSched
'
Me.grpSched.Controls.Add(Me.Label27)
Me.grpSched.Controls.Add(Me.editSessions)
Me.grpSched.Controls.Add(Me.chkSaturday)
Me.grpSched.Controls.Add(Me.chkFriday)
Me.grpSched.Controls.Add(Me.chkThursday)
Me.grpSched.Controls.Add(Me.chkWednesday)
Me.grpSched.Controls.Add(Me.chkTuesday)
Me.grpSched.Controls.Add(Me.chkMonday)
Me.grpSched.Controls.Add(Me.chkSunday)
Me.grpSched.Controls.Add(Me.Label26)
Me.grpSched.Controls.Add(Me.Label25)
Me.grpSched.Controls.Add(Me.Label24)
Me.grpSched.Controls.Add(Me.Label23)
Me.grpSched.Controls.Add(Me.editResEndTime)
Me.grpSched.Controls.Add(Me.editResBegTime)
Me.grpSched.Controls.Add(Me.editActEndTime)
Me.grpSched.Controls.Add(Me.editActBegTime)
Me.grpSched.Controls.Add(Me.editDeadline)
Me.grpSched.Controls.Add(Me.Label22)
Me.grpSched.Controls.Add(Me.editEndDate)
Me.grpSched.Controls.Add(Me.Label21)
Me.grpSched.Controls.Add(Me.editBegDate)
Me.grpSched.Controls.Add(Me.Label20)
Me.grpSched.Location = New System.Drawing.Point(8, 88)
Me.grpSched.Name = "grpSched"
Me.grpSched.Size = New System.Drawing.Size(344, 232)
Me.grpSched.TabIndex = 1
Me.grpSched.TabStop = False
Me.grpSched.Text = "Course Schedule:"
'
'Label27
'
Me.Label27.Location = New System.Drawing.Point(8, 208)
Me.Label27.Name = "Label27"
Me.Label27.Size = New System.Drawing.Size(120, 20)
Me.Label27.TabIndex = 29
Me.Label27.Text = "Number of Sessions:"
Me.Label27.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'editSessions
'
Me.editSessions.AllowDbNull = False
'
'editSessions.Calculator
'
Me.editSessions.Calculator.ButtonFlatStyle =
System.Windows.Forms.FlatStyle.System
Me.editSessions.Calculator.FormatOnClose = False
Me.editSessions.DataBindings.Add(New
System.Windows.Forms.Binding("Value", Me.CoursesDS1,
"Courses.Number_Sessions"))
Me.editSessions.DataType = GetType(System.Int32)
Me.editSessions.Enabled = False
Me.editSessions.FormatType = C1.Win.C1Input.FormatTypeEnum.Integer
Me.editSessions.Location = New System.Drawing.Point(128, 208)
Me.editSessions.MaxLength = 3
Me.editSessions.Name = "editSessions"
Me.editSessions.NumericInputKeys =
CType((((C1.Win.C1Input.NumericInputKeyFlags.F9 Or
C1.Win.C1Input.NumericInputKeyFlags.Minus) _
Or C1.Win.C1Input.NumericInputKeyFlags.Plus) _
Or C1.Win.C1Input.NumericInputKeyFlags.X),
C1.Win.C1Input.NumericInputKeyFlags)
Me.editSessions.ParseInfo.NumberStyle =
CType((C1.Win.C1Input.NumberStyleFlags.AllowLeadingWhite Or
C1.Win.C1Input.NumberStyleFlags.AllowTrailingWhite),
C1.Win.C1Input.NumberStyleFlags)
Me.editSessions.PostValidation.Intervals.AddRange(New
C1.Win.C1Input.ValueInterval() {New
C1.Win.C1Input.ValueInterval(CType(0, Long), CType(999, Long), True, True)})
Me.editSessions.Size = New System.Drawing.Size(40, 20)
Me.editSessions.TabIndex = 28
Me.editSessions.Tag = Nothing
Me.editSessions.TextAlign =
System.Windows.Forms.HorizontalAlignment.Right
Me.editSessions.VisibleButtons =
C1.Win.C1Input.DropDownControlButtonFlags.None
'
'chkSaturday
'
Me.chkSaturday.DataBindings.Add(New
System.Windows.Forms.Binding("Checked", Me.CoursesDS1, "Courses.Saturday"))
Me.chkSaturday.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.chkSaturday.Location = New System.Drawing.Point(248, 160)
Me.chkSaturday.Name = "chkSaturday"
Me.chkSaturday.Size = New System.Drawing.Size(88, 24)
Me.chkSaturday.TabIndex = 13
Me.chkSaturday.Text = "Saturday"
'
'chkFriday
'
Me.chkFriday.DataBindings.Add(New
System.Windows.Forms.Binding("Checked", Me.CoursesDS1, "Courses.Friday"))
Me.chkFriday.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.chkFriday.Location = New System.Drawing.Point(248, 136)
Me.chkFriday.Name = "chkFriday"
Me.chkFriday.Size = New System.Drawing.Size(88, 24)
Me.chkFriday.TabIndex = 12
Me.chkFriday.Text = "Friday"
'
'chkThursday
'
Me.chkThursday.DataBindings.Add(New
System.Windows.Forms.Binding("Checked", Me.CoursesDS1, "Courses.Thursday"))
Me.chkThursday.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.chkThursday.Location = New System.Drawing.Point(248, 112)
Me.chkThursday.Name = "chkThursday"
Me.chkThursday.Size = New System.Drawing.Size(88, 24)
Me.chkThursday.TabIndex = 11
Me.chkThursday.Text = "Thursday"
'
'chkWednesday
'
Me.chkWednesday.DataBindings.Add(New
System.Windows.Forms.Binding("Checked", Me.CoursesDS1, "Courses.Wednesday"))
Me.chkWednesday.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.chkWednesday.Location = New System.Drawing.Point(248, 88)
Me.chkWednesday.Name = "chkWednesday"
Me.chkWednesday.Size = New System.Drawing.Size(88, 24)
Me.chkWednesday.TabIndex = 10
Me.chkWednesday.Text = "Wednesday"
'
'chkTuesday
'
Me.chkTuesday.DataBindings.Add(New
System.Windows.Forms.Binding("Checked", Me.CoursesDS1, "Courses.Tuesday"))
Me.chkTuesday.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.chkTuesday.Location = New System.Drawing.Point(248, 64)
Me.chkTuesday.Name = "chkTuesday"
Me.chkTuesday.Size = New System.Drawing.Size(88, 24)
Me.chkTuesday.TabIndex = 9
Me.chkTuesday.Text = "Tuesday"
'
'chkMonday
'
Me.chkMonday.DataBindings.Add(New
System.Windows.Forms.Binding("Checked", Me.CoursesDS1, "Courses.Monday"))
Me.chkMonday.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.chkMonday.Location = New System.Drawing.Point(248, 40)
Me.chkMonday.Name = "chkMonday"
Me.chkMonday.Size = New System.Drawing.Size(88, 24)
Me.chkMonday.TabIndex = 8
Me.chkMonday.Text = "Monday"
'
'chkSunday
'
Me.chkSunday.DataBindings.Add(New
System.Windows.Forms.Binding("Checked", Me.CoursesDS1, "Courses.Sunday"))
Me.chkSunday.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.chkSunday.Location = New System.Drawing.Point(248, 16)
Me.chkSunday.Name = "chkSunday"
Me.chkSunday.Size = New System.Drawing.Size(88, 24)
Me.chkSunday.TabIndex = 7
Me.chkSunday.Text = "Sunday"
'
'Label26
'
Me.Label26.Location = New System.Drawing.Point(8, 176)
Me.Label26.Name = "Label26"
Me.Label26.Size = New System.Drawing.Size(120, 20)
Me.Label26.TabIndex = 20
Me.Label26.Text = "Reserve End Time:"
Me.Label26.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label25
'
Me.Label25.Location = New System.Drawing.Point(8, 152)
Me.Label25.Name = "Label25"
Me.Label25.Size = New System.Drawing.Size(120, 20)
Me.Label25.TabIndex = 19
Me.Label25.Text = "Reserve Start Time:"
Me.Label25.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label24
'
Me.Label24.Location = New System.Drawing.Point(8, 120)
Me.Label24.Name = "Label24"
Me.Label24.Size = New System.Drawing.Size(120, 20)
Me.Label24.TabIndex = 18
Me.Label24.Text = "Activity End Time:"
Me.Label24.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label23
'
Me.Label23.Location = New System.Drawing.Point(8, 96)
Me.Label23.Name = "Label23"
Me.Label23.Size = New System.Drawing.Size(120, 20)
Me.Label23.TabIndex = 17
Me.Label23.Text = "Activity Start Time:"
Me.Label23.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'editResEndTime
'
Me.editResEndTime.DataBindings.Add(New
System.Windows.Forms.Binding("Value", Me.CoursesDS1,
"Courses.Reserve_End_Time"))
Me.editResEndTime.FormatType =
C1.Win.C1Input.FormatTypeEnum.ShortTime
Me.editResEndTime.Location = New System.Drawing.Point(128, 176)
Me.editResEndTime.Name = "editResEndTime"
Me.editResEndTime.Size = New System.Drawing.Size(72, 20)
Me.editResEndTime.TabIndex = 6
Me.editResEndTime.Tag = Nothing
Me.editResEndTime.VisibleButtons =
C1.Win.C1Input.DropDownControlButtonFlags.UpDown
'
'editResBegTime
'
Me.editResBegTime.DataBindings.Add(New
System.Windows.Forms.Binding("Value", Me.CoursesDS1,
"Courses.Reserve_Begin_Time"))
Me.editResBegTime.FormatType =
C1.Win.C1Input.FormatTypeEnum.ShortTime
Me.editResBegTime.Location = New System.Drawing.Point(128, 152)
Me.editResBegTime.Name = "editResBegTime"
Me.editResBegTime.Size = New System.Drawing.Size(72, 20)
Me.editResBegTime.TabIndex = 5
Me.editResBegTime.Tag = Nothing
Me.editResBegTime.VisibleButtons =
C1.Win.C1Input.DropDownControlButtonFlags.UpDown
'
'editActEndTime
'
Me.editActEndTime.DataBindings.Add(New
System.Windows.Forms.Binding("Value", Me.CoursesDS1, "Courses.Ending_Time"))
Me.editActEndTime.FormatType =
C1.Win.C1Input.FormatTypeEnum.ShortTime
Me.editActEndTime.Location = New System.Drawing.Point(128, 120)
Me.editActEndTime.Name = "editActEndTime"
Me.editActEndTime.Size = New System.Drawing.Size(72, 20)
Me.editActEndTime.TabIndex = 4
Me.editActEndTime.Tag = Nothing
Me.editActEndTime.VisibleButtons =
C1.Win.C1Input.DropDownControlButtonFlags.UpDown
'
'editActBegTime
'
Me.editActBegTime.DataBindings.Add(New
System.Windows.Forms.Binding("Value", Me.CoursesDS1,
"Courses.Beginning_Time"))
Me.editActBegTime.FormatType =
C1.Win.C1Input.FormatTypeEnum.ShortTime
Me.editActBegTime.Location = New System.Drawing.Point(128, 96)
Me.editActBegTime.Name = "editActBegTime"
Me.editActBegTime.Size = New System.Drawing.Size(72, 20)
Me.editActBegTime.TabIndex = 3
Me.editActBegTime.Tag = Nothing
Me.editActBegTime.VisibleButtons =
C1.Win.C1Input.DropDownControlButtonFlags.UpDown
'
'editDeadline
'
Me.editDeadline.DataBindings.Add(New
System.Windows.Forms.Binding("Value", Me.CoursesDS1,
"Courses.Registratin_Deadline"))
Me.editDeadline.FormatType =
C1.Win.C1Input.FormatTypeEnum.ShortDate
Me.editDeadline.Location = New System.Drawing.Point(128, 64)
Me.editDeadline.Name = "editDeadline"
Me.editDeadline.Size = New System.Drawing.Size(104, 20)
Me.editDeadline.TabIndex = 2
Me.editDeadline.Tag = Nothing
'
'Label22
'
Me.Label22.Location = New System.Drawing.Point(8, 64)
Me.Label22.Name = "Label22"
Me.Label22.Size = New System.Drawing.Size(120, 20)
Me.Label22.TabIndex = 11
Me.Label22.Text = "Registration Deadline:"
Me.Label22.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'editEndDate
'
Me.editEndDate.DataBindings.Add(New
System.Windows.Forms.Binding("Value", Me.CoursesDS1, "Courses.End_Date"))
Me.editEndDate.FormatType = C1.Win.C1Input.FormatTypeEnum.ShortDate
Me.editEndDate.Location = New System.Drawing.Point(128, 40)
Me.editEndDate.Name = "editEndDate"
Me.editEndDate.Size = New System.Drawing.Size(104, 20)
Me.editEndDate.TabIndex = 1
Me.editEndDate.Tag = Nothing
'
'Label21
'
Me.Label21.Location = New System.Drawing.Point(56, 40)
Me.Label21.Name = "Label21"
Me.Label21.Size = New System.Drawing.Size(72, 20)
Me.Label21.TabIndex = 9
Me.Label21.Text = "End Date:"
Me.Label21.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'editBegDate
'
Me.editBegDate.DataBindings.Add(New
System.Windows.Forms.Binding("Value", Me.CoursesDS1, "Courses.Begin_Date"))
Me.editBegDate.FormatType = C1.Win.C1Input.FormatTypeEnum.ShortDate
Me.editBegDate.Location = New System.Drawing.Point(128, 16)
Me.editBegDate.Name = "editBegDate"
Me.editBegDate.Size = New System.Drawing.Size(104, 20)
Me.editBegDate.TabIndex = 0
Me.editBegDate.Tag = Nothing
'
'Label20
'
Me.Label20.Location = New System.Drawing.Point(56, 16)
Me.Label20.Name = "Label20"
Me.Label20.Size = New System.Drawing.Size(72, 20)
Me.Label20.TabIndex = 8
Me.Label20.Text = "Start Date:"
Me.Label20.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'grpLoc
'
Me.grpLoc.Anchor =
CType(((System.Windows.Forms.AnchorStyles.Top Or
System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right),
System.Windows.Forms.AnchorStyles)
Me.grpLoc.Controls.Add(Me.Label19)
Me.grpLoc.Controls.Add(Me.Label18)
Me.grpLoc.Controls.Add(Me.editRoomNotes)
Me.grpLoc.Controls.Add(Me.editFacNotes)
Me.grpLoc.Controls.Add(Me.Label17)
Me.grpLoc.Controls.Add(Me.editRoom)
Me.grpLoc.Controls.Add(Me.Label16)
Me.grpLoc.Controls.Add(Me.editFacility)
Me.grpLoc.Location = New System.Drawing.Point(8, 8)
Me.grpLoc.Name = "grpLoc"
Me.grpLoc.Size = New System.Drawing.Size(672, 72)
Me.grpLoc.TabIndex = 0
Me.grpLoc.TabStop = False
Me.grpLoc.Text = "Location:"
'
'Label19
'
Me.Label19.Location = New System.Drawing.Point(272, 40)
Me.Label19.Name = "Label19"
Me.Label19.Size = New System.Drawing.Size(80, 20)
Me.Label19.TabIndex = 7
Me.Label19.Text = "Room Notes:"
Me.Label19.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label18
'
Me.Label18.Location = New System.Drawing.Point(272, 16)
Me.Label18.Name = "Label18"
Me.Label18.Size = New System.Drawing.Size(80, 20)
Me.Label18.TabIndex = 6
Me.Label18.Text = "Facility Notes:"
Me.Label18.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'editRoomNotes
'
Me.editRoomNotes.Anchor =
CType(((System.Windows.Forms.AnchorStyles.Top Or
System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right),
System.Windows.Forms.AnchorStyles)
Me.editRoomNotes.DataBindings.Add(New
System.Windows.Forms.Binding("Text", Me.CoursesDS1, "Courses.Room_Notes"))
Me.editRoomNotes.Location = New System.Drawing.Point(352, 40)
Me.editRoomNotes.Multiline = True
Me.editRoomNotes.Name = "editRoomNotes"
Me.editRoomNotes.ScrollBars =
System.Windows.Forms.ScrollBars.Vertical
Me.editRoomNotes.Size = New System.Drawing.Size(312, 20)
Me.editRoomNotes.TabIndex = 3
Me.editRoomNotes.Text = ""
'
'editFacNotes
'
Me.editFacNotes.Anchor =
CType(((System.Windows.Forms.AnchorStyles.Top Or
System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right),
System.Windows.Forms.AnchorStyles)
Me.editFacNotes.DataBindings.Add(New
System.Windows.Forms.Binding("Text", Me.CoursesDS1,
"Courses.Facility_Notes"))
Me.editFacNotes.Location = New System.Drawing.Point(352, 16)
Me.editFacNotes.Multiline = True
Me.editFacNotes.Name = "editFacNotes"
Me.editFacNotes.ScrollBars =
System.Windows.Forms.ScrollBars.Vertical
Me.editFacNotes.Size = New System.Drawing.Size(312, 20)
Me.editFacNotes.TabIndex = 1
Me.editFacNotes.Text = ""
'
'Label17
'
Me.Label17.Location = New System.Drawing.Point(8, 40)
Me.Label17.Name = "Label17"
Me.Label17.Size = New System.Drawing.Size(48, 20)
Me.Label17.TabIndex = 3
Me.Label17.Text = "Room:"
Me.Label17.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'editRoom
'
Me.editRoom.DataBindings.Add(New
System.Windows.Forms.Binding("Text", Me.CoursesDS1, "Courses.Room"))
Me.editRoom.Location = New System.Drawing.Point(56, 40)
Me.editRoom.MaxLength = 20
Me.editRoom.Name = "editRoom"
Me.editRoom.Size = New System.Drawing.Size(208, 20)
Me.editRoom.TabIndex = 2
Me.editRoom.Text = ""
'
'Label16
'
Me.Label16.Location = New System.Drawing.Point(8, 16)
Me.Label16.Name = "Label16"
Me.Label16.Size = New System.Drawing.Size(48, 20)
Me.Label16.TabIndex = 1
Me.Label16.Text = "Facility:"
Me.Label16.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'editFacility
'
Me.editFacility.DataBindings.Add(New
System.Windows.Forms.Binding("Text", Me.CoursesDS1, "Courses.Facility"))
Me.editFacility.Location = New System.Drawing.Point(56, 16)
Me.editFacility.MaxLength = 30
Me.editFacility.Name = "editFacility"
Me.editFacility.Size = New System.Drawing.Size(208, 20)
Me.editFacility.TabIndex = 0
Me.editFacility.Text = ""
'
'PayTypeDS1
'
Me.PayTypeDS1.DataSetName = "PayTypeDS"
Me.PayTypeDS1.Locale = New
System.Globalization.CultureInfo("en-US")
Me.PayTypeDS1.Tables.AddRange(New System.Data.DataTable()
{Me.PayTypeTable})
'
'PayTypeTable
'
Me.PayTypeTable.Columns.AddRange(New System.Data.DataColumn()
{Me.PTCol, Me.PTDesc})
Me.PayTypeTable.TableName = "PayType"
'
'PTCol
'
Me.PTCol.Caption = "Pay Type"
Me.PTCol.ColumnName = "PayType"
Me.PTCol.DefaultValue = ""
'
'PTDesc
'
Me.PTDesc.Caption = "Description"
Me.PTDesc.ColumnName = "Desc"
Me.PTDesc.DefaultValue = ""
'
'SeasonsDA
'
Me.SeasonsDA.DeleteCommand = Me.OleDbDeleteCommand2
Me.SeasonsDA.InsertCommand = Me.OleDbInsertCommand2
Me.SeasonsDA.SelectCommand = Me.OleDbSelectCommand2
Me.SeasonsDA.TableMappings.AddRange(New
System.Data.Common.DataTableMapping() {New
System.Data.Common.DataTableMapping("Table", "Seasons", New
System.Data.Common.DataColumnMapping() {New
System.Data.Common.DataColumnMapping("Season", "Season")})})
Me.SeasonsDA.UpdateCommand = Me.OleDbUpdateCommand2
'
'OleDbDeleteCommand2
'
Me.OleDbDeleteCommand2.CommandText = "DELETE FROM Seasons WHERE
(Season = ?)"
Me.OleDbDeleteCommand2.Connection = Me.SQLConn
Me.OleDbDeleteCommand2.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Season",
System.Data.OleDb.OleDbType.VarChar, 40,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Season", System.Data.DataRowVersion.Original, Nothing))
'
'OleDbInsertCommand2
'
Me.OleDbInsertCommand2.CommandText = "INSERT INTO
Seasons(Season) VALUES (?); SELECT Season FROM Seasons WHERE (Season " & _
"= ?)"
Me.OleDbInsertCommand2.Connection = Me.SQLConn
Me.OleDbInsertCommand2.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Season",
System.Data.OleDb.OleDbType.VarChar, 40, "Season"))
Me.OleDbInsertCommand2.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Select_Season",
System.Data.OleDb.OleDbType.VarChar, 40, "Season"))
'
'OleDbSelectCommand2
'
Me.OleDbSelectCommand2.CommandText = "SELECT Season FROM Seasons"
Me.OleDbSelectCommand2.Connection = Me.SQLConn
'
'OleDbUpdateCommand2
'
Me.OleDbUpdateCommand2.CommandText = "UPDATE Seasons SET Season
= ? WHERE (Season = ?); SELECT Season FROM Seasons WHER" & _
"E (Season = ?)"
Me.OleDbUpdateCommand2.Connection = Me.SQLConn
Me.OleDbUpdateCommand2.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Season",
System.Data.OleDb.OleDbType.VarChar, 40, "Season"))
Me.OleDbUpdateCommand2.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Season",
System.Data.OleDb.OleDbType.VarChar, 40,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Season", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand2.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Select_Season",
System.Data.OleDb.OleDbType.VarChar, 40, "Season"))
'
'InstClassDA
'
Me.InstClassDA.DeleteCommand = Me.OleDbDeleteCommand3
Me.InstClassDA.InsertCommand = Me.OleDbInsertCommand3
Me.InstClassDA.SelectCommand = Me.OleDbSelectCommand3
Me.InstClassDA.TableMappings.AddRange(New
System.Data.Common.DataTableMapping() {New
System.Data.Common.DataTableMapping("Table", "InstClasses", New
System.Data.Common.DataColumnMapping() {New
System.Data.Common.DataColumnMapping("Instructor_ID", "Instructor_ID"),
New System.Data.Common.DataColumnMapping("Course_ID", "Course_ID"), New
System.Data.Common.DataColumnMapping("Pay_Type", "Pay_Type"), New
System.Data.Common.DataColumnMapping("Amount", "Amount"), New
System.Data.Common.DataColumnMapping("Primary_Inst", "Primary_Inst"),
New System.Data.Common.DataColumnMapping("Full_Name", "Full_Name")})})
Me.InstClassDA.UpdateCommand = Me.OleDbUpdateCommand3
'
'OleDbDeleteCommand3
'
Me.OleDbDeleteCommand3.CommandText = "DELETE FROM InstClasses
WHERE (Course_ID = ?) AND (Instructor_ID = ?) AND (Amount" & _
" = ?) AND (Full_Name = ?) AND (Pay_Type = ?) AND (Primary_Inst
= ?)"
Me.OleDbDeleteCommand3.Connection = Me.SQLConn
Me.OleDbDeleteCommand3.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Course_ID",
System.Data.OleDb.OleDbType.Guid, 16,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Course_ID", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand3.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Instructor_ID",
System.Data.OleDb.OleDbType.Decimal, 5,
System.Data.ParameterDirection.Input, False, CType(8, Byte), CType(0,
Byte), "Instructor_ID", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand3.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Amount",
System.Data.OleDb.OleDbType.Currency, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Amount", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand3.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Full_Name",
System.Data.OleDb.OleDbType.VarChar, 100,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Full_Name", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand3.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Pay_Type",
System.Data.OleDb.OleDbType.VarChar, 1,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Pay_Type", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand3.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Primary_Inst",
System.Data.OleDb.OleDbType.Boolean, 1,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Primary_Inst", System.Data.DataRowVersion.Original, Nothing))
'
'OleDbInsertCommand3
'
Me.OleDbInsertCommand3.CommandText = "INSERT INTO
InstClasses(Instructor_ID, Course_ID, Pay_Type, Amount, Primary_Inst," & _
" Full_Name) VALUES (?, ?, ?, ?, ?, ?); SELECT Instructor_ID,
Course_ID, Pay_Type" & _
", Amount, Primary_Inst, Full_Name FROM InstClasses WHERE
(Course_ID = ?) AND (In" & _
"structor_ID = ?)"
Me.OleDbInsertCommand3.Connection = Me.SQLConn
Me.OleDbInsertCommand3.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Instructor_ID",
System.Data.OleDb.OleDbType.Decimal, 5,
System.Data.ParameterDirection.Input, False, CType(8, Byte), CType(0,
Byte), "Instructor_ID", System.Data.DataRowVersion.Current, Nothing))
Me.OleDbInsertCommand3.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Course_ID",
System.Data.OleDb.OleDbType.Guid, 16, "Course_ID"))
Me.OleDbInsertCommand3.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Pay_Type",
System.Data.OleDb.OleDbType.VarChar, 1, "Pay_Type"))
Me.OleDbInsertCommand3.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Amount",
System.Data.OleDb.OleDbType.Currency, 8, "Amount"))
Me.OleDbInsertCommand3.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Primary_Inst",
System.Data.OleDb.OleDbType.Boolean, 1, "Primary_Inst"))
Me.OleDbInsertCommand3.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Full_Name",
System.Data.OleDb.OleDbType.VarChar, 100, "Full_Name"))
Me.OleDbInsertCommand3.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Select_Course_ID",
System.Data.OleDb.OleDbType.Guid, 16, "Course_ID"))
Me.OleDbInsertCommand3.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Select_Instructor_ID",
System.Data.OleDb.OleDbType.Decimal, 5,
System.Data.ParameterDirection.Input, False, CType(8, Byte), CType(0,
Byte), "Instructor_ID", System.Data.DataRowVersion.Current, Nothing))
'
'OleDbSelectCommand3
'
Me.OleDbSelectCommand3.CommandText = "SELECT Instructor_ID,
Course_ID, Pay_Type, Amount, Primary_Inst, Full_Name FROM I" & _
"nstClasses"
Me.OleDbSelectCommand3.Connection = Me.SQLConn
'
'OleDbUpdateCommand3
'
Me.OleDbUpdateCommand3.CommandText = "UPDATE InstClasses SET
Instructor_ID = ?, Pay_Type = ?, Amount = ?, Primary_Inst " & _
"= ?, Full_Name = ? WHERE (Course_ID = ?) AND (Instructor_ID =
?) AND (Amount = ?" & _
") AND (Full_Name = ?) AND (Pay_Type = ?) AND (Primary_Inst =
?); SELECT Instruct" & _
"or_ID, Course_ID, Pay_Type, Amount, Primary_Inst, Full_Name
FROM InstClasses WHE" & _
"RE (Course_ID = ?) AND (Instructor_ID = ?)"
Me.OleDbUpdateCommand3.Connection = Me.SQLConn
Me.OleDbUpdateCommand3.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Instructor_ID",
System.Data.OleDb.OleDbType.Decimal, 5,
System.Data.ParameterDirection.Input, False, CType(8, Byte), CType(0,
Byte), "Instructor_ID", System.Data.DataRowVersion.Current, Nothing))
Me.OleDbUpdateCommand3.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Pay_Type",
System.Data.OleDb.OleDbType.VarChar, 1, "Pay_Type"))
Me.OleDbUpdateCommand3.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Amount",
System.Data.OleDb.OleDbType.Currency, 8, "Amount"))
Me.OleDbUpdateCommand3.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Primary_Inst",
System.Data.OleDb.OleDbType.Boolean, 1, "Primary_Inst"))
Me.OleDbUpdateCommand3.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Full_Name",
System.Data.OleDb.OleDbType.VarChar, 100, "Full_Name"))
Me.OleDbUpdateCommand3.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Course_ID",
System.Data.OleDb.OleDbType.Guid, 16,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Course_ID", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand3.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Instructor_ID",
System.Data.OleDb.OleDbType.Decimal, 5,
System.Data.ParameterDirection.Input, False, CType(8, Byte), CType(0,
Byte), "Instructor_ID", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand3.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Amount",
System.Data.OleDb.OleDbType.Currency, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Amount", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand3.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Full_Name",
System.Data.OleDb.OleDbType.VarChar, 100,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Full_Name", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand3.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Pay_Type",
System.Data.OleDb.OleDbType.VarChar, 1,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Pay_Type", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand3.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Primary_Inst",
System.Data.OleDb.OleDbType.Boolean, 1,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Primary_Inst", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand3.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Select_Course_ID",
System.Data.OleDb.OleDbType.Guid, 16, "Course_ID"))
Me.OleDbUpdateCommand3.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Select_Instructor_ID",
System.Data.OleDb.OleDbType.Decimal, 5,
System.Data.ParameterDirection.Input, False, CType(8, Byte), CType(0,
Byte), "Instructor_ID", System.Data.DataRowVersion.Current, Nothing))
'
'InstructorsDA
'
Me.InstructorsDA.DeleteCommand = Me.OleDbDeleteCommand4
Me.InstructorsDA.InsertCommand = Me.OleDbInsertCommand4
Me.InstructorsDA.SelectCommand = Me.OleDbSelectCommand4
Me.InstructorsDA.TableMappings.AddRange(New
System.Data.Common.DataTableMapping() {New
System.Data.Common.DataTableMapping("Table", "Instructors", New
System.Data.Common.DataColumnMapping() {New
System.Data.Common.DataColumnMapping("ID", "ID"), New
System.Data.Common.DataColumnMapping("Last_Name", "Last_Name"), New
System.Data.Common.DataColumnMapping("First_Name", "First_Name"), New
System.Data.Common.DataColumnMapping("Company_Name", "Company_Name"),
New System.Data.Common.DataColumnMapping("Address1", "Address1"), New
System.Data.Common.DataColumnMapping("Address2", "Address2"), New
System.Data.Common.DataColumnMapping("City", "City"), New
System.Data.Common.DataColumnMapping("State", "State"), New
System.Data.Common.DataColumnMapping("Zip_Code", "Zip_Code"), New
System.Data.Common.DataColumnMapping("Home_Phone", "Home_Phone"), New
System.Data.Common.DataColumnMapping("Cell_Phone", "Cell_Phone"), New
System.Data.Common.DataColumnMapping("Work_Phone", "Work_Phone"), New
System.Data.Common.DataColumnMapping("Fax", "Fax"), New
System.Data.Common.DataColumnMapping("SSN", "SSN"), New
System.Data.Common.DataColumnMapping("EMail", "EMail"), New
System.Data.Common.DataColumnMapping("Last_Semester", "Last_Semester"),
New System.Data.Common.DataColumnMapping("Notes", "Notes"), New
System.Data.Common.DataColumnMapping("Work_Ext", "Work_Ext")})})
Me.InstructorsDA.UpdateCommand = Me.OleDbUpdateCommand4
'
'OleDbDeleteCommand4
'
Me.OleDbDeleteCommand4.CommandText = "DELETE FROM Instructors
WHERE (ID = ?) AND (Address1 = ?) AND (Address2 = ? OR ? " & _
"IS NULL AND Address2 IS NULL) AND (Cell_Phone = ? OR ? IS NULL
AND Cell_Phone IS" & _
" NULL) AND (City = ?) AND (Company_Name = ? OR ? IS NULL AND
Company_Name IS NUL" & _
"L) AND (EMail = ? OR ? IS NULL AND EMail IS NULL) AND (Fax = ?
OR ? IS NULL AND " & _
"Fax IS NULL) AND (First_Name = ?) AND (Home_Phone = ? OR ? IS
NULL AND Home_Phon" & _
"e IS NULL) AND (Last_Name = ?) AND (Last_Semester = ? OR ? IS
NULL AND Last_Seme" & _
"ster IS NULL) AND (SSN = ? OR ? IS NULL AND SSN IS NULL) AND
(State = ?) AND (Wo" & _
"rk_Ext = ? OR ? IS NULL AND Work_Ext IS NULL) AND (Work_Phone
= ? OR ? IS NULL A" & _
"ND Work_Phone IS NULL) AND (Zip_Code = ?)"
Me.OleDbDeleteCommand4.Connection = Me.SQLConn
Me.OleDbDeleteCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_ID",
System.Data.OleDb.OleDbType.Decimal, 5,
System.Data.ParameterDirection.Input, False, CType(8, Byte), CType(0,
Byte), "ID", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Address1",
System.Data.OleDb.OleDbType.VarChar, 30,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Address1", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Address2",
System.Data.OleDb.OleDbType.VarChar, 30,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Address2", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Address21",
System.Data.OleDb.OleDbType.VarChar, 30,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Address2", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Cell_Phone",
System.Data.OleDb.OleDbType.VarChar, 20,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Cell_Phone", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Cell_Phone1",
System.Data.OleDb.OleDbType.VarChar, 20,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Cell_Phone", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_City",
System.Data.OleDb.OleDbType.VarChar, 25,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "City", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Company_Name",
System.Data.OleDb.OleDbType.VarChar, 30,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Company_Name", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Company_Name1",
System.Data.OleDb.OleDbType.VarChar, 30,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Company_Name", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_EMail",
System.Data.OleDb.OleDbType.VarChar, 40,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "EMail", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_EMail1",
System.Data.OleDb.OleDbType.VarChar, 40,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "EMail", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Fax",
System.Data.OleDb.OleDbType.VarChar, 20,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Fax", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Fax1",
System.Data.OleDb.OleDbType.VarChar, 20,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Fax", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_First_Name",
System.Data.OleDb.OleDbType.VarChar, 20,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "First_Name", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Home_Phone",
System.Data.OleDb.OleDbType.VarChar, 20,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Home_Phone", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Home_Phone1",
System.Data.OleDb.OleDbType.VarChar, 20,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Home_Phone", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Last_Name",
System.Data.OleDb.OleDbType.VarChar, 25,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Last_Name", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Last_Semester",
System.Data.OleDb.OleDbType.VarChar, 5,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Last_Semester", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Last_Semester1",
System.Data.OleDb.OleDbType.VarChar, 5,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Last_Semester", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_SSN",
System.Data.OleDb.OleDbType.VarChar, 11,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "SSN", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_SSN1",
System.Data.OleDb.OleDbType.VarChar, 11,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "SSN", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_State",
System.Data.OleDb.OleDbType.VarChar, 2,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "State", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Work_Ext",
System.Data.OleDb.OleDbType.VarChar, 4,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Work_Ext", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Work_Ext1",
System.Data.OleDb.OleDbType.VarChar, 4,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Work_Ext", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Work_Phone",
System.Data.OleDb.OleDbType.VarChar, 20,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Work_Phone", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Work_Phone1",
System.Data.OleDb.OleDbType.VarChar, 20,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Work_Phone", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Zip_Code",
System.Data.OleDb.OleDbType.VarChar, 10,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Zip_Code", System.Data.DataRowVersion.Original, Nothing))
'
'OleDbInsertCommand4
'
Me.OleDbInsertCommand4.CommandText = "INSERT INTO
Instructors(Last_Name, First_Name, Company_Name, Address1, Address2, " & _
"City, State, Zip_Code, Home_Phone, Cell_Phone, Work_Phone,
Fax, SSN, EMail, Last" & _
"_Semester, Notes, Work_Ext) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?,
?, ?, ?, ?, ?, ?," & _
" ?, ?); SELECT ID, Last_Name, First_Name, Company_Name,
Address1, Address2, City" & _
", State, Zip_Code, Home_Phone, Cell_Phone, Work_Phone, Fax,
SSN, EMail, Last_Sem" & _
"ester, Notes, Work_Ext FROM Instructors WHERE (ID = @@IDENTITY)"
Me.OleDbInsertCommand4.Connection = Me.SQLConn
Me.OleDbInsertCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Last_Name",
System.Data.OleDb.OleDbType.VarChar, 25, "Last_Name"))
Me.OleDbInsertCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("First_Name",
System.Data.OleDb.OleDbType.VarChar, 20, "First_Name"))
Me.OleDbInsertCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Company_Name",
System.Data.OleDb.OleDbType.VarChar, 30, "Company_Name"))
Me.OleDbInsertCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Address1",
System.Data.OleDb.OleDbType.VarChar, 30, "Address1"))
Me.OleDbInsertCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Address2",
System.Data.OleDb.OleDbType.VarChar, 30, "Address2"))
Me.OleDbInsertCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("City",
System.Data.OleDb.OleDbType.VarChar, 25, "City"))
Me.OleDbInsertCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("State",
System.Data.OleDb.OleDbType.VarChar, 2, "State"))
Me.OleDbInsertCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Zip_Code",
System.Data.OleDb.OleDbType.VarChar, 10, "Zip_Code"))
Me.OleDbInsertCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Home_Phone",
System.Data.OleDb.OleDbType.VarChar, 20, "Home_Phone"))
Me.OleDbInsertCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Cell_Phone",
System.Data.OleDb.OleDbType.VarChar, 20, "Cell_Phone"))
Me.OleDbInsertCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Work_Phone",
System.Data.OleDb.OleDbType.VarChar, 20, "Work_Phone"))
Me.OleDbInsertCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Fax",
System.Data.OleDb.OleDbType.VarChar, 20, "Fax"))
Me.OleDbInsertCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("SSN",
System.Data.OleDb.OleDbType.VarChar, 11, "SSN"))
Me.OleDbInsertCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("EMail",
System.Data.OleDb.OleDbType.VarChar, 40, "EMail"))
Me.OleDbInsertCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Last_Semester",
System.Data.OleDb.OleDbType.VarChar, 5, "Last_Semester"))
Me.OleDbInsertCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Notes",
System.Data.OleDb.OleDbType.VarChar, 2147483647, "Notes"))
Me.OleDbInsertCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Work_Ext",
System.Data.OleDb.OleDbType.VarChar, 4, "Work_Ext"))
'
'OleDbSelectCommand4
'
Me.OleDbSelectCommand4.CommandText = "SELECT ID, Last_Name,
First_Name, Company_Name, Address1, Address2, City, State, " & _
"Zip_Code, Home_Phone, Cell_Phone, Work_Phone, Fax, SSN, EMail,
Last_Semester, No" & _
"tes, Work_Ext FROM Instructors"
Me.OleDbSelectCommand4.Connection = Me.SQLConn
'
'OleDbUpdateCommand4
'
Me.OleDbUpdateCommand4.CommandText = "UPDATE Instructors SET
Last_Name = ?, First_Name = ?, Company_Name = ?, Address1 " & _
"= ?, Address2 = ?, City = ?, State = ?, Zip_Code = ?,
Home_Phone = ?, Cell_Phone" & _
" = ?, Work_Phone = ?, Fax = ?, SSN = ?, EMail = ?,
Last_Semester = ?, Notes = ?," & _
" Work_Ext = ? WHERE (ID = ?) AND (Address1 = ?) AND (Address2
= ? OR ? IS NULL A" & _
"ND Address2 IS NULL) AND (Cell_Phone = ? OR ? IS NULL AND
Cell_Phone IS NULL) AN" & _
"D (City = ?) AND (Company_Name = ? OR ? IS NULL AND
Company_Name IS NULL) AND (E" & _
"Mail = ? OR ? IS NULL AND EMail IS NULL) AND (Fax = ? OR ? IS
NULL AND Fax IS NU" & _
"LL) AND (First_Name = ?) AND (Home_Phone = ? OR ? IS NULL AND
Home_Phone IS NULL" & _
") AND (Last_Name = ?) AND (Last_Semester = ? OR ? IS NULL AND
Last_Semester IS N" & _
"ULL) AND (SSN = ? OR ? IS NULL AND SSN IS NULL) AND (State =
?) AND (Work_Ext = " & _
"? OR ? IS NULL AND Work_Ext IS NULL) AND (Work_Phone = ? OR ?
IS NULL AND Work_P" & _
"hone IS NULL) AND (Zip_Code = ?); SELECT ID, Last_Name,
First_Name, Company_Name" & _
", Address1, Address2, City, State, Zip_Code, Home_Phone,
Cell_Phone, Work_Phone," & _
" Fax, SSN, EMail, Last_Semester, Notes, Work_Ext FROM
Instructors WHERE (ID = ?)" & _
""
Me.OleDbUpdateCommand4.Connection = Me.SQLConn
Me.OleDbUpdateCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Last_Name",
System.Data.OleDb.OleDbType.VarChar, 25, "Last_Name"))
Me.OleDbUpdateCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("First_Name",
System.Data.OleDb.OleDbType.VarChar, 20, "First_Name"))
Me.OleDbUpdateCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Company_Name",
System.Data.OleDb.OleDbType.VarChar, 30, "Company_Name"))
Me.OleDbUpdateCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Address1",
System.Data.OleDb.OleDbType.VarChar, 30, "Address1"))
Me.OleDbUpdateCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Address2",
System.Data.OleDb.OleDbType.VarChar, 30, "Address2"))
Me.OleDbUpdateCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("City",
System.Data.OleDb.OleDbType.VarChar, 25, "City"))
Me.OleDbUpdateCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("State",
System.Data.OleDb.OleDbType.VarChar, 2, "State"))
Me.OleDbUpdateCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Zip_Code",
System.Data.OleDb.OleDbType.VarChar, 10, "Zip_Code"))
Me.OleDbUpdateCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Home_Phone",
System.Data.OleDb.OleDbType.VarChar, 20, "Home_Phone"))
Me.OleDbUpdateCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Cell_Phone",
System.Data.OleDb.OleDbType.VarChar, 20, "Cell_Phone"))
Me.OleDbUpdateCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Work_Phone",
System.Data.OleDb.OleDbType.VarChar, 20, "Work_Phone"))
Me.OleDbUpdateCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Fax",
System.Data.OleDb.OleDbType.VarChar, 20, "Fax"))
Me.OleDbUpdateCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("SSN",
System.Data.OleDb.OleDbType.VarChar, 11, "SSN"))
Me.OleDbUpdateCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("EMail",
System.Data.OleDb.OleDbType.VarChar, 40, "EMail"))
Me.OleDbUpdateCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Last_Semester",
System.Data.OleDb.OleDbType.VarChar, 5, "Last_Semester"))
Me.OleDbUpdateCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Notes",
System.Data.OleDb.OleDbType.VarChar, 2147483647, "Notes"))
Me.OleDbUpdateCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Work_Ext",
System.Data.OleDb.OleDbType.VarChar, 4, "Work_Ext"))
Me.OleDbUpdateCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_ID",
System.Data.OleDb.OleDbType.Decimal, 5,
System.Data.ParameterDirection.Input, False, CType(8, Byte), CType(0,
Byte), "ID", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Address1",
System.Data.OleDb.OleDbType.VarChar, 30,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Address1", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Address2",
System.Data.OleDb.OleDbType.VarChar, 30,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Address2", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Address21",
System.Data.OleDb.OleDbType.VarChar, 30,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Address2", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Cell_Phone",
System.Data.OleDb.OleDbType.VarChar, 20,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Cell_Phone", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Cell_Phone1",
System.Data.OleDb.OleDbType.VarChar, 20,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Cell_Phone", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_City",
System.Data.OleDb.OleDbType.VarChar, 25,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "City", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Company_Name",
System.Data.OleDb.OleDbType.VarChar, 30,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Company_Name", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Company_Name1",
System.Data.OleDb.OleDbType.VarChar, 30,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Company_Name", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_EMail",
System.Data.OleDb.OleDbType.VarChar, 40,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "EMail", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_EMail1",
System.Data.OleDb.OleDbType.VarChar, 40,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "EMail", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Fax",
System.Data.OleDb.OleDbType.VarChar, 20,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Fax", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Fax1",
System.Data.OleDb.OleDbType.VarChar, 20,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Fax", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_First_Name",
System.Data.OleDb.OleDbType.VarChar, 20,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "First_Name", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Home_Phone",
System.Data.OleDb.OleDbType.VarChar, 20,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Home_Phone", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Home_Phone1",
System.Data.OleDb.OleDbType.VarChar, 20,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Home_Phone", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Last_Name",
System.Data.OleDb.OleDbType.VarChar, 25,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Last_Name", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Last_Semester",
System.Data.OleDb.OleDbType.VarChar, 5,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Last_Semester", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Last_Semester1",
System.Data.OleDb.OleDbType.VarChar, 5,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Last_Semester", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_SSN",
System.Data.OleDb.OleDbType.VarChar, 11,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "SSN", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_SSN1",
System.Data.OleDb.OleDbType.VarChar, 11,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "SSN", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_State",
System.Data.OleDb.OleDbType.VarChar, 2,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "State", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Work_Ext",
System.Data.OleDb.OleDbType.VarChar, 4,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Work_Ext", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Work_Ext1",
System.Data.OleDb.OleDbType.VarChar, 4,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Work_Ext", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Work_Phone",
System.Data.OleDb.OleDbType.VarChar, 20,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Work_Phone", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Work_Phone1",
System.Data.OleDb.OleDbType.VarChar, 20,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Work_Phone", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Zip_Code",
System.Data.OleDb.OleDbType.VarChar, 10,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Zip_Code", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand4.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Select_ID",
System.Data.OleDb.OleDbType.Decimal, 5,
System.Data.ParameterDirection.Input, False, CType(8, Byte), CType(0,
Byte), "ID", System.Data.DataRowVersion.Current, Nothing))
'
'FacilitiesDA
'
Me.FacilitiesDA.DeleteCommand = Me.OleDbDeleteCommand5
Me.FacilitiesDA.InsertCommand = Me.OleDbInsertCommand5
Me.FacilitiesDA.SelectCommand = Me.OleDbSelectCommand5
Me.FacilitiesDA.TableMappings.AddRange(New
System.Data.Common.DataTableMapping() {New
System.Data.Common.DataTableMapping("Table", "Facilities", New
System.Data.Common.DataColumnMapping() {New
System.Data.Common.DataColumnMapping("ID", "ID"), New
System.Data.Common.DataColumnMapping("Name", "Name"), New
System.Data.Common.DataColumnMapping("Address1", "Address1"), New
System.Data.Common.DataColumnMapping("Address2", "Address2"), New
System.Data.Common.DataColumnMapping("City", "City"), New
System.Data.Common.DataColumnMapping("State", "State"), New
System.Data.Common.DataColumnMapping("Zip_Code", "Zip_Code"), New
System.Data.Common.DataColumnMapping("Contact_Name", "Contact_Name"),
New System.Data.Common.DataColumnMapping("Primary_Phone",
"Primary_Phone"), New
System.Data.Common.DataColumnMapping("Secondary_Phone",
"Secondary_Phone"), New System.Data.Common.DataColumnMapping("Fax",
"Fax"), New System.Data.Common.DataColumnMapping("EMail", "EMail"), New
System.Data.Common.DataColumnMapping("Notes", "Notes"), New
System.Data.Common.DataColumnMapping("Sun_Beg_Time", "Sun_Beg_Time"),
New System.Data.Common.DataColumnMapping("Sun_End_Time",
"Sun_End_Time"), New
System.Data.Common.DataColumnMapping("Mon_Beg_Time", "Mon_Beg_Time"),
New System.Data.Common.DataColumnMapping("Mon_End_Time",
"Mon_End_Time"), New
System.Data.Common.DataColumnMapping("Tue_Beg_Time", "Tue_Beg_Time"),
New System.Data.Common.DataColumnMapping("Tue_End_Time",
"Tue_End_Time"), New
System.Data.Common.DataColumnMapping("Wed_Beg_Time", "Wed_Beg_Time"),
New System.Data.Common.DataColumnMapping("Wed_End_Time",
"Wed_End_Time"), New
System.Data.Common.DataColumnMapping("Thu_Beg_Time", "Thu_Beg_Time"),
New System.Data.Common.DataColumnMapping("Thu_End_Time",
"Thu_End_Time"), New
System.Data.Common.DataColumnMapping("Fri_Beg_Time", "Fri_Beg_Time"),
New System.Data.Common.DataColumnMapping("Fri_End_Time",
"Fri_End_Time"), New
System.Data.Common.DataColumnMapping("Sat_Beg_Time", "Sat_Beg_Time"),
New System.Data.Common.DataColumnMapping("Sat_End_Time",
"Sat_End_Time"), New
System.Data.Common.DataColumnMapping("Next_Room_ID", "Next_Room_ID"),
New System.Data.Common.DataColumnMapping("Inactive", "Inactive"), New
System.Data.Common.DataColumnMapping("Primary_Ext", "Primary_Ext")})})
Me.FacilitiesDA.UpdateCommand = Me.OleDbUpdateCommand5
'
'OleDbDeleteCommand5
'
Me.OleDbDeleteCommand5.CommandText = "DELETE FROM Facilities
WHERE (ID = ?) AND (Address1 = ?) AND (Address2 = ? OR ? I" & _
"S NULL AND Address2 IS NULL) AND (City = ?) AND (Contact_Name
= ? OR ? IS NULL A" & _
"ND Contact_Name IS NULL) AND (EMail = ? OR ? IS NULL AND EMail
IS NULL) AND (Fax" & _
" = ? OR ? IS NULL AND Fax IS NULL) AND (Fri_Beg_Time = ?) AND
(Fri_End_Time = ?)" & _
" AND (Inactive = ?) AND (Mon_Beg_Time = ?) AND (Mon_End_Time =
?) AND (Name = ?)" & _
" AND (Next_Room_ID = ?) AND (Primary_Ext = ? OR ? IS NULL AND
Primary_Ext IS NUL" & _
"L) AND (Primary_Phone = ? OR ? IS NULL AND Primary_Phone IS
NULL) AND (Sat_Beg_T" & _
"ime = ?) AND (Sat_End_Time = ?) AND (Secondary_Phone = ? OR ?
IS NULL AND Second" & _
"ary_Phone IS NULL) AND (State = ?) AND (Sun_Beg_Time = ?) AND
(Sun_End_Time = ?)" & _
" AND (Thu_Beg_Time = ?) AND (Thu_End_Time = ?) AND
(Tue_Beg_Time = ?) AND (Tue_E" & _
"nd_Time = ?) AND (Wed_Beg_Time = ?) AND (Wed_End_Time = ?) AND
(Zip_Code = ?)"
Me.OleDbDeleteCommand5.Connection = Me.SQLConn
Me.OleDbDeleteCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_ID",
System.Data.OleDb.OleDbType.Decimal, 5,
System.Data.ParameterDirection.Input, False, CType(6, Byte), CType(0,
Byte), "ID", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Address1",
System.Data.OleDb.OleDbType.VarChar, 30,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Address1", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Address2",
System.Data.OleDb.OleDbType.VarChar, 30,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Address2", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Address21",
System.Data.OleDb.OleDbType.VarChar, 30,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Address2", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_City",
System.Data.OleDb.OleDbType.VarChar, 25,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "City", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Contact_Name",
System.Data.OleDb.OleDbType.VarChar, 40,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Contact_Name", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Contact_Name1",
System.Data.OleDb.OleDbType.VarChar, 40,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Contact_Name", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_EMail",
System.Data.OleDb.OleDbType.VarChar, 40,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "EMail", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_EMail1",
System.Data.OleDb.OleDbType.VarChar, 40,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "EMail", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Fax",
System.Data.OleDb.OleDbType.VarChar, 20,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Fax", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Fax1",
System.Data.OleDb.OleDbType.VarChar, 20,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Fax", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Fri_Beg_Time",
System.Data.OleDb.OleDbType.VarChar, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Fri_Beg_Time", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Fri_End_Time",
System.Data.OleDb.OleDbType.VarChar, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Fri_End_Time", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Inactive",
System.Data.OleDb.OleDbType.Boolean, 1,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Inactive", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Mon_Beg_Time",
System.Data.OleDb.OleDbType.VarChar, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Mon_Beg_Time", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Mon_End_Time",
System.Data.OleDb.OleDbType.VarChar, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Mon_End_Time", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Name",
System.Data.OleDb.OleDbType.VarChar, 30,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Name", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Next_Room_ID",
System.Data.OleDb.OleDbType.Decimal, 5,
System.Data.ParameterDirection.Input, False, CType(4, Byte), CType(0,
Byte), "Next_Room_ID", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Primary_Ext",
System.Data.OleDb.OleDbType.VarChar, 4,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Primary_Ext", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Primary_Ext1",
System.Data.OleDb.OleDbType.VarChar, 4,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Primary_Ext", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Primary_Phone",
System.Data.OleDb.OleDbType.VarChar, 20,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Primary_Phone", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Primary_Phone1",
System.Data.OleDb.OleDbType.VarChar, 20,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Primary_Phone", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Sat_Beg_Time",
System.Data.OleDb.OleDbType.VarChar, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Sat_Beg_Time", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Sat_End_Time",
System.Data.OleDb.OleDbType.VarChar, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Sat_End_Time", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Secondary_Phone",
System.Data.OleDb.OleDbType.VarChar, 20,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Secondary_Phone", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Secondary_Phone1",
System.Data.OleDb.OleDbType.VarChar, 20,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Secondary_Phone", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_State",
System.Data.OleDb.OleDbType.VarChar, 2,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "State", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Sun_Beg_Time",
System.Data.OleDb.OleDbType.VarChar, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Sun_Beg_Time", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Sun_End_Time",
System.Data.OleDb.OleDbType.VarChar, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Sun_End_Time", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Thu_Beg_Time",
System.Data.OleDb.OleDbType.VarChar, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Thu_Beg_Time", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Thu_End_Time",
System.Data.OleDb.OleDbType.VarChar, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Thu_End_Time", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Tue_Beg_Time",
System.Data.OleDb.OleDbType.VarChar, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Tue_Beg_Time", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Tue_End_Time",
System.Data.OleDb.OleDbType.VarChar, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Tue_End_Time", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Wed_Beg_Time",
System.Data.OleDb.OleDbType.VarChar, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Wed_Beg_Time", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Wed_End_Time",
System.Data.OleDb.OleDbType.VarChar, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Wed_End_Time", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Zip_Code",
System.Data.OleDb.OleDbType.VarChar, 10,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Zip_Code", System.Data.DataRowVersion.Original, Nothing))
'
'OleDbInsertCommand5
'
Me.OleDbInsertCommand5.CommandText = "INSERT INTO
Facilities(Name, Address1, Address2, City, State, Zip_Code, Contact_N" & _
"ame, Primary_Phone, Secondary_Phone, Fax, EMail, Notes,
Sun_Beg_Time, Sun_End_Ti" & _
"me, Mon_Beg_Time, Mon_End_Time, Tue_Beg_Time, Tue_End_Time,
Wed_Beg_Time, Wed_En" & _
"d_Time, Thu_Beg_Time, Thu_End_Time, Fri_Beg_Time,
Fri_End_Time, Sat_Beg_Time, Sa" & _
"t_End_Time, Next_Room_ID, Inactive, Primary_Ext) VALUES (?, ?,
?, ?, ?, ?, ?, ?," & _
" ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?,
?); SELECT ID, Name" & _
", Address1, Address2, City, State, Zip_Code, Contact_Name,
Primary_Phone, Second" & _
"ary_Phone, Fax, EMail, Notes, Sun_Beg_Time, Sun_End_Time,
Mon_Beg_Time, Mon_End_" & _
"Time, Tue_Beg_Time, Tue_End_Time, Wed_Beg_Time, Wed_End_Time,
Thu_Beg_Time, Thu_" & _
"End_Time, Fri_Beg_Time, Fri_End_Time, Sat_Beg_Time,
Sat_End_Time, Next_Room_ID, " & _
"Inactive, Primary_Ext FROM Facilities WHERE (ID = @@IDENTITY)"
Me.OleDbInsertCommand5.Connection = Me.SQLConn
Me.OleDbInsertCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Name",
System.Data.OleDb.OleDbType.VarChar, 30, "Name"))
Me.OleDbInsertCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Address1",
System.Data.OleDb.OleDbType.VarChar, 30, "Address1"))
Me.OleDbInsertCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Address2",
System.Data.OleDb.OleDbType.VarChar, 30, "Address2"))
Me.OleDbInsertCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("City",
System.Data.OleDb.OleDbType.VarChar, 25, "City"))
Me.OleDbInsertCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("State",
System.Data.OleDb.OleDbType.VarChar, 2, "State"))
Me.OleDbInsertCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Zip_Code",
System.Data.OleDb.OleDbType.VarChar, 10, "Zip_Code"))
Me.OleDbInsertCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Contact_Name",
System.Data.OleDb.OleDbType.VarChar, 40, "Contact_Name"))
Me.OleDbInsertCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Primary_Phone",
System.Data.OleDb.OleDbType.VarChar, 20, "Primary_Phone"))
Me.OleDbInsertCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Secondary_Phone",
System.Data.OleDb.OleDbType.VarChar, 20, "Secondary_Phone"))
Me.OleDbInsertCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Fax",
System.Data.OleDb.OleDbType.VarChar, 20, "Fax"))
Me.OleDbInsertCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("EMail",
System.Data.OleDb.OleDbType.VarChar, 40, "EMail"))
Me.OleDbInsertCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Notes",
System.Data.OleDb.OleDbType.VarChar, 2147483647, "Notes"))
Me.OleDbInsertCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Sun_Beg_Time",
System.Data.OleDb.OleDbType.VarChar, 8, "Sun_Beg_Time"))
Me.OleDbInsertCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Sun_End_Time",
System.Data.OleDb.OleDbType.VarChar, 8, "Sun_End_Time"))
Me.OleDbInsertCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Mon_Beg_Time",
System.Data.OleDb.OleDbType.VarChar, 8, "Mon_Beg_Time"))
Me.OleDbInsertCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Mon_End_Time",
System.Data.OleDb.OleDbType.VarChar, 8, "Mon_End_Time"))
Me.OleDbInsertCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Tue_Beg_Time",
System.Data.OleDb.OleDbType.VarChar, 8, "Tue_Beg_Time"))
Me.OleDbInsertCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Tue_End_Time",
System.Data.OleDb.OleDbType.VarChar, 8, "Tue_End_Time"))
Me.OleDbInsertCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Wed_Beg_Time",
System.Data.OleDb.OleDbType.VarChar, 8, "Wed_Beg_Time"))
Me.OleDbInsertCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Wed_End_Time",
System.Data.OleDb.OleDbType.VarChar, 8, "Wed_End_Time"))
Me.OleDbInsertCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Thu_Beg_Time",
System.Data.OleDb.OleDbType.VarChar, 8, "Thu_Beg_Time"))
Me.OleDbInsertCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Thu_End_Time",
System.Data.OleDb.OleDbType.VarChar, 8, "Thu_End_Time"))
Me.OleDbInsertCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Fri_Beg_Time",
System.Data.OleDb.OleDbType.VarChar, 8, "Fri_Beg_Time"))
Me.OleDbInsertCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Fri_End_Time",
System.Data.OleDb.OleDbType.VarChar, 8, "Fri_End_Time"))
Me.OleDbInsertCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Sat_Beg_Time",
System.Data.OleDb.OleDbType.VarChar, 8, "Sat_Beg_Time"))
Me.OleDbInsertCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Sat_End_Time",
System.Data.OleDb.OleDbType.VarChar, 8, "Sat_End_Time"))
Me.OleDbInsertCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Next_Room_ID",
System.Data.OleDb.OleDbType.Decimal, 5,
System.Data.ParameterDirection.Input, False, CType(4, Byte), CType(0,
Byte), "Next_Room_ID", System.Data.DataRowVersion.Current, Nothing))
Me.OleDbInsertCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Inactive",
System.Data.OleDb.OleDbType.Boolean, 1, "Inactive"))
Me.OleDbInsertCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Primary_Ext",
System.Data.OleDb.OleDbType.VarChar, 4, "Primary_Ext"))
'
'OleDbSelectCommand5
'
Me.OleDbSelectCommand5.CommandText = "SELECT ID, Name,
Address1, Address2, City, State, Zip_Code, Contact_Name, Primary" & _
"_Phone, Secondary_Phone, Fax, EMail, Notes, Sun_Beg_Time,
Sun_End_Time, Mon_Beg_" & _
"Time, Mon_End_Time, Tue_Beg_Time, Tue_End_Time, Wed_Beg_Time,
Wed_End_Time, Thu_" & _
"Beg_Time, Thu_End_Time, Fri_Beg_Time, Fri_End_Time,
Sat_Beg_Time, Sat_End_Time, " & _
"Next_Room_ID, Inactive, Primary_Ext FROM Facilities"
Me.OleDbSelectCommand5.Connection = Me.SQLConn
'
'OleDbUpdateCommand5
'
Me.OleDbUpdateCommand5.CommandText = "UPDATE Facilities SET
Name = ?, Address1 = ?, Address2 = ?, City = ?, State = ?, " & _
"Zip_Code = ?, Contact_Name = ?, Primary_Phone = ?,
Secondary_Phone = ?, Fax = ?," & _
" EMail = ?, Notes = ?, Sun_Beg_Time = ?, Sun_End_Time = ?,
Mon_Beg_Time = ?, Mon" & _
"_End_Time = ?, Tue_Beg_Time = ?, Tue_End_Time = ?,
Wed_Beg_Time = ?, Wed_End_Tim" & _
"e = ?, Thu_Beg_Time = ?, Thu_End_Time = ?, Fri_Beg_Time = ?,
Fri_End_Time = ?, S" & _
"at_Beg_Time = ?, Sat_End_Time = ?, Next_Room_ID = ?, Inactive
= ?, Primary_Ext =" & _
" ? WHERE (ID = ?) AND (Address1 = ?) AND (Address2 = ? OR ? IS
NULL AND Address2" & _
" IS NULL) AND (City = ?) AND (Contact_Name = ? OR ? IS NULL
AND Contact_Name IS " & _
"NULL) AND (EMail = ? OR ? IS NULL AND EMail IS NULL) AND (Fax
= ? OR ? IS NULL A" & _
"ND Fax IS NULL) AND (Fri_Beg_Time = ?) AND (Fri_End_Time = ?)
AND (Inactive = ?)" & _
" AND (Mon_Beg_Time = ?) AND (Mon_End_Time = ?) AND (Name = ?)
AND (Next_Room_ID " & _
"= ?) AND (Primary_Ext = ? OR ? IS NULL AND Primary_Ext IS
NULL) AND (Primary_Pho" & _
"ne = ? OR ? IS NULL AND Primary_Phone IS NULL) AND
(Sat_Beg_Time = ?) AND (Sat_E" & _
"nd_Time = ?) AND (Secondary_Phone = ? OR ? IS NULL AND
Secondary_Phone IS NULL) " & _
"AND (State = ?) AND (Sun_Beg_Time = ?) AND (Sun_End_Time = ?)
AND (Thu_Beg_Time " & _
"= ?) AND (Thu_End_Time = ?) AND (Tue_Beg_Time = ?) AND
(Tue_End_Time = ?) AND (W" & _
"ed_Beg_Time = ?) AND (Wed_End_Time = ?) AND (Zip_Code = ?);
SELECT ID, Name, Add" & _
"ress1, Address2, City, State, Zip_Code, Contact_Name,
Primary_Phone, Secondary_P" & _
"hone, Fax, EMail, Notes, Sun_Beg_Time, Sun_End_Time,
Mon_Beg_Time, Mon_End_Time," & _
" Tue_Beg_Time, Tue_End_Time, Wed_Beg_Time, Wed_End_Time,
Thu_Beg_Time, Thu_End_T" & _
"ime, Fri_Beg_Time, Fri_End_Time, Sat_Beg_Time, Sat_End_Time,
Next_Room_ID, Inact" & _
"ive, Primary_Ext FROM Facilities WHERE (ID = ?)"
Me.OleDbUpdateCommand5.Connection = Me.SQLConn
Me.OleDbUpdateCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Name",
System.Data.OleDb.OleDbType.VarChar, 30, "Name"))
Me.OleDbUpdateCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Address1",
System.Data.OleDb.OleDbType.VarChar, 30, "Address1"))
Me.OleDbUpdateCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Address2",
System.Data.OleDb.OleDbType.VarChar, 30, "Address2"))
Me.OleDbUpdateCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("City",
System.Data.OleDb.OleDbType.VarChar, 25, "City"))
Me.OleDbUpdateCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("State",
System.Data.OleDb.OleDbType.VarChar, 2, "State"))
Me.OleDbUpdateCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Zip_Code",
System.Data.OleDb.OleDbType.VarChar, 10, "Zip_Code"))
Me.OleDbUpdateCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Contact_Name",
System.Data.OleDb.OleDbType.VarChar, 40, "Contact_Name"))
Me.OleDbUpdateCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Primary_Phone",
System.Data.OleDb.OleDbType.VarChar, 20, "Primary_Phone"))
Me.OleDbUpdateCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Secondary_Phone",
System.Data.OleDb.OleDbType.VarChar, 20, "Secondary_Phone"))
Me.OleDbUpdateCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Fax",
System.Data.OleDb.OleDbType.VarChar, 20, "Fax"))
Me.OleDbUpdateCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("EMail",
System.Data.OleDb.OleDbType.VarChar, 40, "EMail"))
Me.OleDbUpdateCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Notes",
System.Data.OleDb.OleDbType.VarChar, 2147483647, "Notes"))
Me.OleDbUpdateCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Sun_Beg_Time",
System.Data.OleDb.OleDbType.VarChar, 8, "Sun_Beg_Time"))
Me.OleDbUpdateCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Sun_End_Time",
System.Data.OleDb.OleDbType.VarChar, 8, "Sun_End_Time"))
Me.OleDbUpdateCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Mon_Beg_Time",
System.Data.OleDb.OleDbType.VarChar, 8, "Mon_Beg_Time"))
Me.OleDbUpdateCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Mon_End_Time",
System.Data.OleDb.OleDbType.VarChar, 8, "Mon_End_Time"))
Me.OleDbUpdateCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Tue_Beg_Time",
System.Data.OleDb.OleDbType.VarChar, 8, "Tue_Beg_Time"))
Me.OleDbUpdateCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Tue_End_Time",
System.Data.OleDb.OleDbType.VarChar, 8, "Tue_End_Time"))
Me.OleDbUpdateCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Wed_Beg_Time",
System.Data.OleDb.OleDbType.VarChar, 8, "Wed_Beg_Time"))
Me.OleDbUpdateCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Wed_End_Time",
System.Data.OleDb.OleDbType.VarChar, 8, "Wed_End_Time"))
Me.OleDbUpdateCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Thu_Beg_Time",
System.Data.OleDb.OleDbType.VarChar, 8, "Thu_Beg_Time"))
Me.OleDbUpdateCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Thu_End_Time",
System.Data.OleDb.OleDbType.VarChar, 8, "Thu_End_Time"))
Me.OleDbUpdateCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Fri_Beg_Time",
System.Data.OleDb.OleDbType.VarChar, 8, "Fri_Beg_Time"))
Me.OleDbUpdateCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Fri_End_Time",
System.Data.OleDb.OleDbType.VarChar, 8, "Fri_End_Time"))
Me.OleDbUpdateCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Sat_Beg_Time",
System.Data.OleDb.OleDbType.VarChar, 8, "Sat_Beg_Time"))
Me.OleDbUpdateCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Sat_End_Time",
System.Data.OleDb.OleDbType.VarChar, 8, "Sat_End_Time"))
Me.OleDbUpdateCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Next_Room_ID",
System.Data.OleDb.OleDbType.Decimal, 5,
System.Data.ParameterDirection.Input, False, CType(4, Byte), CType(0,
Byte), "Next_Room_ID", System.Data.DataRowVersion.Current, Nothing))
Me.OleDbUpdateCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Inactive",
System.Data.OleDb.OleDbType.Boolean, 1, "Inactive"))
Me.OleDbUpdateCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Primary_Ext",
System.Data.OleDb.OleDbType.VarChar, 4, "Primary_Ext"))
Me.OleDbUpdateCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_ID",
System.Data.OleDb.OleDbType.Decimal, 5,
System.Data.ParameterDirection.Input, False, CType(6, Byte), CType(0,
Byte), "ID", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Address1",
System.Data.OleDb.OleDbType.VarChar, 30,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Address1", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Address2",
System.Data.OleDb.OleDbType.VarChar, 30,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Address2", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Address21",
System.Data.OleDb.OleDbType.VarChar, 30,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Address2", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_City",
System.Data.OleDb.OleDbType.VarChar, 25,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "City", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Contact_Name",
System.Data.OleDb.OleDbType.VarChar, 40,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Contact_Name", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Contact_Name1",
System.Data.OleDb.OleDbType.VarChar, 40,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Contact_Name", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_EMail",
System.Data.OleDb.OleDbType.VarChar, 40,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "EMail", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_EMail1",
System.Data.OleDb.OleDbType.VarChar, 40,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "EMail", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Fax",
System.Data.OleDb.OleDbType.VarChar, 20,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Fax", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Fax1",
System.Data.OleDb.OleDbType.VarChar, 20,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Fax", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Fri_Beg_Time",
System.Data.OleDb.OleDbType.VarChar, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Fri_Beg_Time", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Fri_End_Time",
System.Data.OleDb.OleDbType.VarChar, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Fri_End_Time", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Inactive",
System.Data.OleDb.OleDbType.Boolean, 1,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Inactive", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Mon_Beg_Time",
System.Data.OleDb.OleDbType.VarChar, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Mon_Beg_Time", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Mon_End_Time",
System.Data.OleDb.OleDbType.VarChar, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Mon_End_Time", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Name",
System.Data.OleDb.OleDbType.VarChar, 30,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Name", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Next_Room_ID",
System.Data.OleDb.OleDbType.Decimal, 5,
System.Data.ParameterDirection.Input, False, CType(4, Byte), CType(0,
Byte), "Next_Room_ID", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Primary_Ext",
System.Data.OleDb.OleDbType.VarChar, 4,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Primary_Ext", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Primary_Ext1",
System.Data.OleDb.OleDbType.VarChar, 4,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Primary_Ext", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Primary_Phone",
System.Data.OleDb.OleDbType.VarChar, 20,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Primary_Phone", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Primary_Phone1",
System.Data.OleDb.OleDbType.VarChar, 20,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Primary_Phone", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Sat_Beg_Time",
System.Data.OleDb.OleDbType.VarChar, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Sat_Beg_Time", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Sat_End_Time",
System.Data.OleDb.OleDbType.VarChar, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Sat_End_Time", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Secondary_Phone",
System.Data.OleDb.OleDbType.VarChar, 20,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Secondary_Phone", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Secondary_Phone1",
System.Data.OleDb.OleDbType.VarChar, 20,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Secondary_Phone", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_State",
System.Data.OleDb.OleDbType.VarChar, 2,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "State", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Sun_Beg_Time",
System.Data.OleDb.OleDbType.VarChar, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Sun_Beg_Time", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Sun_End_Time",
System.Data.OleDb.OleDbType.VarChar, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Sun_End_Time", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Thu_Beg_Time",
System.Data.OleDb.OleDbType.VarChar, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Thu_Beg_Time", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Thu_End_Time",
System.Data.OleDb.OleDbType.VarChar, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Thu_End_Time", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Tue_Beg_Time",
System.Data.OleDb.OleDbType.VarChar, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Tue_Beg_Time", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Tue_End_Time",
System.Data.OleDb.OleDbType.VarChar, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Tue_End_Time", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Wed_Beg_Time",
System.Data.OleDb.OleDbType.VarChar, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Wed_Beg_Time", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Wed_End_Time",
System.Data.OleDb.OleDbType.VarChar, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Wed_End_Time", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Zip_Code",
System.Data.OleDb.OleDbType.VarChar, 10,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Zip_Code", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand5.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Select_ID",
System.Data.OleDb.OleDbType.Decimal, 5,
System.Data.ParameterDirection.Input, False, CType(6, Byte), CType(0,
Byte), "ID", System.Data.DataRowVersion.Current, Nothing))
'
'RoomsDA
'
Me.RoomsDA.DeleteCommand = Me.OleDbDeleteCommand6
Me.RoomsDA.InsertCommand = Me.OleDbInsertCommand6
Me.RoomsDA.SelectCommand = Me.OleDbSelectCommand6
Me.RoomsDA.TableMappings.AddRange(New
System.Data.Common.DataTableMapping() {New
System.Data.Common.DataTableMapping("Table", "Rooms", New
System.Data.Common.DataColumnMapping() {New
System.Data.Common.DataColumnMapping("Facility_ID", "Facility_ID"), New
System.Data.Common.DataColumnMapping("ID", "ID"), New
System.Data.Common.DataColumnMapping("Name", "Name"), New
System.Data.Common.DataColumnMapping("Capacity", "Capacity"), New
System.Data.Common.DataColumnMapping("Notes", "Notes"), New
System.Data.Common.DataColumnMapping("Sun_Beg", "Sun_Beg"), New
System.Data.Common.DataColumnMapping("Sun_End", "Sun_End"), New
System.Data.Common.DataColumnMapping("Mon_Beg", "Mon_Beg"), New
System.Data.Common.DataColumnMapping("Mon_End", "Mon_End"), New
System.Data.Common.DataColumnMapping("Tue_Beg", "Tue_Beg"), New
System.Data.Common.DataColumnMapping("Tue_End", "Tue_End"), New
System.Data.Common.DataColumnMapping("Wed_Beg", "Wed_Beg"), New
System.Data.Common.DataColumnMapping("Wed_End", "Wed_End"), New
System.Data.Common.DataColumnMapping("Thu_Beg", "Thu_Beg"), New
System.Data.Common.DataColumnMapping("Thu_End", "Thu_End"), New
System.Data.Common.DataColumnMapping("Fri_Beg", "Fri_Beg"), New
System.Data.Common.DataColumnMapping("Fri_End", "Fri_End"), New
System.Data.Common.DataColumnMapping("Sat_Beg", "Sat_Beg"), New
System.Data.Common.DataColumnMapping("Sat_End", "Sat_End")})})
Me.RoomsDA.UpdateCommand = Me.OleDbUpdateCommand6
'
'OleDbDeleteCommand6
'
Me.OleDbDeleteCommand6.CommandText = "DELETE FROM Rooms WHERE
(Facility_ID = ?) AND (ID = ?) AND (Capacity = ?) AND (Fr" & _
"i_Beg = ?) AND (Fri_End = ?) AND (Mon_Beg = ?) AND (Mon_End =
?) AND (Name = ?) " & _
"AND (Sat_Beg = ?) AND (Sat_End = ?) AND (Sun_Beg = ?) AND
(Sun_End = ?) AND (Thu" & _
"_Beg = ?) AND (Thu_End = ?) AND (Tue_Beg = ?) AND (Tue_End =
?) AND (Wed_Beg = ?" & _
") AND (Wed_End = ?)"
Me.OleDbDeleteCommand6.Connection = Me.SQLConn
Me.OleDbDeleteCommand6.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Facility_ID",
System.Data.OleDb.OleDbType.Decimal, 5,
System.Data.ParameterDirection.Input, False, CType(6, Byte), CType(0,
Byte), "Facility_ID", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand6.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_ID",
System.Data.OleDb.OleDbType.Decimal, 5,
System.Data.ParameterDirection.Input, False, CType(6, Byte), CType(0,
Byte), "ID", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand6.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Capacity",
System.Data.OleDb.OleDbType.Decimal, 5,
System.Data.ParameterDirection.Input, False, CType(4, Byte), CType(0,
Byte), "Capacity", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand6.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Fri_Beg",
System.Data.OleDb.OleDbType.VarChar, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Fri_Beg", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand6.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Fri_End",
System.Data.OleDb.OleDbType.VarChar, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Fri_End", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand6.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Mon_Beg",
System.Data.OleDb.OleDbType.VarChar, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Mon_Beg", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand6.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Mon_End",
System.Data.OleDb.OleDbType.VarChar, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Mon_End", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand6.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Name",
System.Data.OleDb.OleDbType.VarChar, 30,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Name", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand6.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Sat_Beg",
System.Data.OleDb.OleDbType.VarChar, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Sat_Beg", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand6.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Sat_End",
System.Data.OleDb.OleDbType.VarChar, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Sat_End", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand6.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Sun_Beg",
System.Data.OleDb.OleDbType.VarChar, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Sun_Beg", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand6.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Sun_End",
System.Data.OleDb.OleDbType.VarChar, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Sun_End", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand6.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Thu_Beg",
System.Data.OleDb.OleDbType.VarChar, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Thu_Beg", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand6.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Thu_End",
System.Data.OleDb.OleDbType.VarChar, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Thu_End", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand6.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Tue_Beg",
System.Data.OleDb.OleDbType.VarChar, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Tue_Beg", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand6.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Tue_End",
System.Data.OleDb.OleDbType.VarChar, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Tue_End", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand6.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Wed_Beg",
System.Data.OleDb.OleDbType.VarChar, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Wed_Beg", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand6.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Wed_End",
System.Data.OleDb.OleDbType.VarChar, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Wed_End", System.Data.DataRowVersion.Original, Nothing))
'
'OleDbInsertCommand6
'
Me.OleDbInsertCommand6.CommandText = "INSERT INTO
Rooms(Facility_ID, Name, Capacity, Notes, Sun_Beg, Sun_End, Mon_Beg, " & _
"Mon_End, Tue_Beg, Tue_End, Wed_Beg, Wed_End, Thu_Beg, Thu_End,
Fri_Beg, Fri_End," & _
" Sat_Beg, Sat_End) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?,
?, ?, ?, ?, ?, ?)" & _
"; SELECT Facility_ID, ID, Name, Capacity, Notes, Sun_Beg,
Sun_End, Mon_Beg, Mon_" & _
"End, Tue_Beg, Tue_End, Wed_Beg, Wed_End, Thu_Beg, Thu_End,
Fri_Beg, Fri_End, Sat" & _
"_Beg, Sat_End FROM Rooms WHERE (Facility_ID = ?) AND (ID =
@@IDENTITY)"
Me.OleDbInsertCommand6.Connection = Me.SQLConn
Me.OleDbInsertCommand6.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Facility_ID",
System.Data.OleDb.OleDbType.Decimal, 5,
System.Data.ParameterDirection.Input, False, CType(6, Byte), CType(0,
Byte), "Facility_ID", System.Data.DataRowVersion.Current, Nothing))
Me.OleDbInsertCommand6.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Name",
System.Data.OleDb.OleDbType.VarChar, 30, "Name"))
Me.OleDbInsertCommand6.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Capacity",
System.Data.OleDb.OleDbType.Decimal, 5,
System.Data.ParameterDirection.Input, False, CType(4, Byte), CType(0,
Byte), "Capacity", System.Data.DataRowVersion.Current, Nothing))
Me.OleDbInsertCommand6.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Notes",
System.Data.OleDb.OleDbType.VarChar, 2147483647, "Notes"))
Me.OleDbInsertCommand6.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Sun_Beg",
System.Data.OleDb.OleDbType.VarChar, 8, "Sun_Beg"))
Me.OleDbInsertCommand6.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Sun_End",
System.Data.OleDb.OleDbType.VarChar, 8, "Sun_End"))
Me.OleDbInsertCommand6.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Mon_Beg",
System.Data.OleDb.OleDbType.VarChar, 8, "Mon_Beg"))
Me.OleDbInsertCommand6.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Mon_End",
System.Data.OleDb.OleDbType.VarChar, 8, "Mon_End"))
Me.OleDbInsertCommand6.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Tue_Beg",
System.Data.OleDb.OleDbType.VarChar, 8, "Tue_Beg"))
Me.OleDbInsertCommand6.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Tue_End",
System.Data.OleDb.OleDbType.VarChar, 8, "Tue_End"))
Me.OleDbInsertCommand6.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Wed_Beg",
System.Data.OleDb.OleDbType.VarChar, 8, "Wed_Beg"))
Me.OleDbInsertCommand6.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Wed_End",
System.Data.OleDb.OleDbType.VarChar, 8, "Wed_End"))
Me.OleDbInsertCommand6.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Thu_Beg",
System.Data.OleDb.OleDbType.VarChar, 8, "Thu_Beg"))
Me.OleDbInsertCommand6.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Thu_End",
System.Data.OleDb.OleDbType.VarChar, 8, "Thu_End"))
Me.OleDbInsertCommand6.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Fri_Beg",
System.Data.OleDb.OleDbType.VarChar, 8, "Fri_Beg"))
Me.OleDbInsertCommand6.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Fri_End",
System.Data.OleDb.OleDbType.VarChar, 8, "Fri_End"))
Me.OleDbInsertCommand6.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Sat_Beg",
System.Data.OleDb.OleDbType.VarChar, 8, "Sat_Beg"))
Me.OleDbInsertCommand6.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Sat_End",
System.Data.OleDb.OleDbType.VarChar, 8, "Sat_End"))
Me.OleDbInsertCommand6.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Select_Facility_ID",
System.Data.OleDb.OleDbType.Decimal, 5,
System.Data.ParameterDirection.Input, False, CType(6, Byte), CType(0,
Byte), "Facility_ID", System.Data.DataRowVersion.Current, Nothing))
'
'OleDbSelectCommand6
'
Me.OleDbSelectCommand6.CommandText = "SELECT Facility_ID, ID,
Name, Capacity, Notes, Sun_Beg, Sun_End, Mon_Beg, Mon_End" & _
", Tue_Beg, Tue_End, Wed_Beg, Wed_End, Thu_Beg, Thu_End,
Fri_Beg, Fri_End, Sat_Be" & _
"g, Sat_End FROM Rooms"
Me.OleDbSelectCommand6.Connection = Me.SQLConn
'
'OleDbUpdateCommand6
'
Me.OleDbUpdateCommand6.CommandText = "UPDATE Rooms SET
Facility_ID = ?, Name = ?, Capacity = ?, Notes = ?, Sun_Beg = ?," & _
" Sun_End = ?, Mon_Beg = ?, Mon_End = ?, Tue_Beg = ?, Tue_End =
?, Wed_Beg = ?, W" & _
"ed_End = ?, Thu_Beg = ?, Thu_End = ?, Fri_Beg = ?, Fri_End =
?, Sat_Beg = ?, Sat" & _
"_End = ? WHERE (Facility_ID = ?) AND (ID = ?) AND (Capacity =
?) AND (Fri_Beg = " & _
"?) AND (Fri_End = ?) AND (Mon_Beg = ?) AND (Mon_End = ?) AND
(Name = ?) AND (Sat" & _
"_Beg = ?) AND (Sat_End = ?) AND (Sun_Beg = ?) AND (Sun_End =
?) AND (Thu_Beg = ?" & _
") AND (Thu_End = ?) AND (Tue_Beg = ?) AND (Tue_End = ?) AND
(Wed_Beg = ?) AND (W" & _
"ed_End = ?); SELECT Facility_ID, ID, Name, Capacity, Notes,
Sun_Beg, Sun_End, Mo" & _
"n_Beg, Mon_End, Tue_Beg, Tue_End, Wed_Beg, Wed_End, Thu_Beg,
Thu_End, Fri_Beg, F" & _
"ri_End, Sat_Beg, Sat_End FROM Rooms WHERE (Facility_ID = ?)
AND (ID = ?)"
Me.OleDbUpdateCommand6.Connection = Me.SQLConn
Me.OleDbUpdateCommand6.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Facility_ID",
System.Data.OleDb.OleDbType.Decimal, 5,
System.Data.ParameterDirection.Input, False, CType(6, Byte), CType(0,
Byte), "Facility_ID", System.Data.DataRowVersion.Current, Nothing))
Me.OleDbUpdateCommand6.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Name",
System.Data.OleDb.OleDbType.VarChar, 30, "Name"))
Me.OleDbUpdateCommand6.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Capacity",
System.Data.OleDb.OleDbType.Decimal, 5,
System.Data.ParameterDirection.Input, False, CType(4, Byte), CType(0,
Byte), "Capacity", System.Data.DataRowVersion.Current, Nothing))
Me.OleDbUpdateCommand6.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Notes",
System.Data.OleDb.OleDbType.VarChar, 2147483647, "Notes"))
Me.OleDbUpdateCommand6.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Sun_Beg",
System.Data.OleDb.OleDbType.VarChar, 8, "Sun_Beg"))
Me.OleDbUpdateCommand6.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Sun_End",
System.Data.OleDb.OleDbType.VarChar, 8, "Sun_End"))
Me.OleDbUpdateCommand6.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Mon_Beg",
System.Data.OleDb.OleDbType.VarChar, 8, "Mon_Beg"))
Me.OleDbUpdateCommand6.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Mon_End",
System.Data.OleDb.OleDbType.VarChar, 8, "Mon_End"))
Me.OleDbUpdateCommand6.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Tue_Beg",
System.Data.OleDb.OleDbType.VarChar, 8, "Tue_Beg"))
Me.OleDbUpdateCommand6.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Tue_End",
System.Data.OleDb.OleDbType.VarChar, 8, "Tue_End"))
Me.OleDbUpdateCommand6.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Wed_Beg",
System.Data.OleDb.OleDbType.VarChar, 8, "Wed_Beg"))
Me.OleDbUpdateCommand6.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Wed_End",
System.Data.OleDb.OleDbType.VarChar, 8, "Wed_End"))
Me.OleDbUpdateCommand6.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Thu_Beg",
System.Data.OleDb.OleDbType.VarChar, 8, "Thu_Beg"))
Me.OleDbUpdateCommand6.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Thu_End",
System.Data.OleDb.OleDbType.VarChar, 8, "Thu_End"))
Me.OleDbUpdateCommand6.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Fri_Beg",
System.Data.OleDb.OleDbType.VarChar, 8, "Fri_Beg"))
Me.OleDbUpdateCommand6.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Fri_End",
System.Data.OleDb.OleDbType.VarChar, 8, "Fri_End"))
Me.OleDbUpdateCommand6.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Sat_Beg",
System.Data.OleDb.OleDbType.VarChar, 8, "Sat_Beg"))
Me.OleDbUpdateCommand6.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Sat_End",
System.Data.OleDb.OleDbType.VarChar, 8, "Sat_End"))
Me.OleDbUpdateCommand6.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Facility_ID",
System.Data.OleDb.OleDbType.Decimal, 5,
System.Data.ParameterDirection.Input, False, CType(6, Byte), CType(0,
Byte), "Facility_ID", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand6.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_ID",
System.Data.OleDb.OleDbType.Decimal, 5,
System.Data.ParameterDirection.Input, False, CType(6, Byte), CType(0,
Byte), "ID", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand6.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Capacity",
System.Data.OleDb.OleDbType.Decimal, 5,
System.Data.ParameterDirection.Input, False, CType(4, Byte), CType(0,
Byte), "Capacity", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand6.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Fri_Beg",
System.Data.OleDb.OleDbType.VarChar, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Fri_Beg", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand6.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Fri_End",
System.Data.OleDb.OleDbType.VarChar, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Fri_End", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand6.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Mon_Beg",
System.Data.OleDb.OleDbType.VarChar, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Mon_Beg", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand6.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Mon_End",
System.Data.OleDb.OleDbType.VarChar, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Mon_End", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand6.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Name",
System.Data.OleDb.OleDbType.VarChar, 30,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Name", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand6.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Sat_Beg",
System.Data.OleDb.OleDbType.VarChar, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Sat_Beg", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand6.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Sat_End",
System.Data.OleDb.OleDbType.VarChar, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Sat_End", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand6.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Sun_Beg",
System.Data.OleDb.OleDbType.VarChar, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Sun_Beg", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand6.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Sun_End",
System.Data.OleDb.OleDbType.VarChar, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Sun_End", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand6.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Thu_Beg",
System.Data.OleDb.OleDbType.VarChar, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Thu_Beg", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand6.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Thu_End",
System.Data.OleDb.OleDbType.VarChar, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Thu_End", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand6.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Tue_Beg",
System.Data.OleDb.OleDbType.VarChar, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Tue_Beg", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand6.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Tue_End",
System.Data.OleDb.OleDbType.VarChar, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Tue_End", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand6.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Wed_Beg",
System.Data.OleDb.OleDbType.VarChar, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Wed_Beg", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand6.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Wed_End",
System.Data.OleDb.OleDbType.VarChar, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Wed_End", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand6.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Select_Facility_ID",
System.Data.OleDb.OleDbType.Decimal, 5,
System.Data.ParameterDirection.Input, False, CType(6, Byte), CType(0,
Byte), "Facility_ID", System.Data.DataRowVersion.Current, Nothing))
Me.OleDbUpdateCommand6.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Select_ID",
System.Data.OleDb.OleDbType.Decimal, 5,
System.Data.ParameterDirection.Input, False, CType(6, Byte), CType(0,
Byte), "ID", System.Data.DataRowVersion.Current, Nothing))
'
'FacilitiesDS1
'
Me.FacilitiesDS1.DataSetName = "FacilitiesDS"
Me.FacilitiesDS1.Locale = New
System.Globalization.CultureInfo("en-US")
'
'CourseCatsDA
'
Me.CourseCatsDA.SelectCommand = Me.OleDbSelectCommand7
Me.CourseCatsDA.TableMappings.AddRange(New
System.Data.Common.DataTableMapping() {New
System.Data.Common.DataTableMapping("Table", "CourseCats", New
System.Data.Common.DataColumnMapping() {New
System.Data.Common.DataColumnMapping("CatDescription",
"CatDescription"), New
System.Data.Common.DataColumnMapping("Description", "Description"), New
System.Data.Common.DataColumnMapping("From_Course", "From_Course"), New
System.Data.Common.DataColumnMapping("Thru_Course", "Thru_Course"), New
System.Data.Common.DataColumnMapping("Expr1", "Expr1"), New
System.Data.Common.DataColumnMapping("GL_Acct#", "GL_Acct#")})})
'
'OleDbSelectCommand7
'
Me.OleDbSelectCommand7.CommandText = "SELECT
CourseSubCats.CatDescription, CourseSubCats.Description,
CourseSubCats.Fro" & _
"m_Course, CourseSubCats.Thru_Course, CourseCats.Description AS
Expr1, CourseSubC" & _
"ats.GL_Acct# FROM CourseCats INNER JOIN CourseSubCats ON
CourseCats.Description " & _
"= CourseSubCats.CatDescription ORDER BY
CourseSubCats.From_Course, CourseSubCats" & _
".Thru_Course"
Me.OleDbSelectCommand7.Connection = Me.SQLConn
'
'CategoriesDS1
'
Me.CategoriesDS1.DataSetName = "CategoriesDS"
Me.CategoriesDS1.Locale = New
System.Globalization.CultureInfo("en-US")
'
'OleDbSelectCommand1
'
Me.OleDbSelectCommand1.CommandText = "SELECT ID, Season, Year,
Number, Title, Begin_Date, End_Date, Sunday, Monday, Tue" & _
"sday, Wednesday, Thursday, Friday, Saturday, Resident_Fee,
Non_Resident_Fee, Fac" & _
"ility, Room, Number_Sessions, Min_Enroll, Max_Enroll,
Current_Enroll, TShirt, Sp" & _
"ecial_Equipment, Income, Description, Salary, Material,
Shopping_Cart, Notes, Be" & _
"ginning_Time, Ending_Time, Reserve_Begin_Time,
Reserve_End_Time, Registratin_Dea" & _
"dline, Gender, Member_Discount, Senior_Discount, From_Age,
Thru_Age, Booked, Fac" & _
"ility_Notes, Room_Notes, FromGrade, ThruGrade, Category,
SubCategory FROM Course" & _
"s"
Me.OleDbSelectCommand1.Connection = Me.SQLConn
'
'OleDbInsertCommand1
'
Me.OleDbInsertCommand1.CommandText = "INSERT INTO Courses(ID,
Season, Year, Number, Title, Begin_Date, End_Date, Sunday" & _
", Monday, Tuesday, Wednesday, Thursday, Friday, Saturday,
Resident_Fee, Non_Resi" & _
"dent_Fee, Facility, Room, Number_Sessions, Min_Enroll,
Max_Enroll, Current_Enrol" & _
"l, TShirt, Special_Equipment, Income, Description, Salary,
Material, Shopping_Ca" & _
"rt, Notes, Beginning_Time, Ending_Time, Reserve_Begin_Time,
Reserve_End_Time, Re" & _
"gistratin_Deadline, Gender, Member_Discount, Senior_Discount,
From_Age, Thru_Age" & _
", Booked, Facility_Notes, Room_Notes, FromGrade, ThruGrade,
Category, SubCategor" & _
"y) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?,
?, ?, ?, ?, ?, ?, " & _
"?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?,
?, ?, ?); SELECT " & _
"ID, Season, Year, Number, Title, Begin_Date, End_Date, Sunday,
Monday, Tuesday, " & _
"Wednesday, Thursday, Friday, Saturday, Resident_Fee,
Non_Resident_Fee, Facility," & _
" Room, Number_Sessions, Min_Enroll, Max_Enroll,
Current_Enroll, TShirt, Special_" & _
"Equipment, Income, Description, Salary, Material,
Shopping_Cart, Notes, Beginnin" & _
"g_Time, Ending_Time, Reserve_Begin_Time, Reserve_End_Time,
Registratin_Deadline," & _
" Gender, Member_Discount, Senior_Discount, From_Age, Thru_Age,
Booked, Facility_" & _
"Notes, Room_Notes, FromGrade, ThruGrade, Category, SubCategory
FROM Courses WHER" & _
"E (ID = ?)"
Me.OleDbInsertCommand1.Connection = Me.SQLConn
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("ID", System.Data.OleDb.OleDbType.Guid,
16, "ID"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Season",
System.Data.OleDb.OleDbType.VarChar, 40, "Season"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Year",
System.Data.OleDb.OleDbType.Integer, 4, "Year"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Number",
System.Data.OleDb.OleDbType.VarChar, 10, "Number"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Title",
System.Data.OleDb.OleDbType.VarChar, 50, "Title"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Begin_Date",
System.Data.OleDb.OleDbType.DBTimeStamp, 8, "Begin_Date"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("End_Date",
System.Data.OleDb.OleDbType.DBTimeStamp, 8, "End_Date"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Sunday",
System.Data.OleDb.OleDbType.Boolean, 1, "Sunday"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Monday",
System.Data.OleDb.OleDbType.Boolean, 1, "Monday"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Tuesday",
System.Data.OleDb.OleDbType.Boolean, 1, "Tuesday"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Wednesday",
System.Data.OleDb.OleDbType.Boolean, 1, "Wednesday"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Thursday",
System.Data.OleDb.OleDbType.Boolean, 1, "Thursday"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Friday",
System.Data.OleDb.OleDbType.Boolean, 1, "Friday"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Saturday",
System.Data.OleDb.OleDbType.Boolean, 1, "Saturday"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Resident_Fee",
System.Data.OleDb.OleDbType.Currency, 8, "Resident_Fee"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Non_Resident_Fee",
System.Data.OleDb.OleDbType.Currency, 8, "Non_Resident_Fee"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Facility",
System.Data.OleDb.OleDbType.VarChar, 30, "Facility"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Room",
System.Data.OleDb.OleDbType.VarChar, 20, "Room"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Number_Sessions",
System.Data.OleDb.OleDbType.Integer, 4, "Number_Sessions"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Min_Enroll",
System.Data.OleDb.OleDbType.Integer, 4, "Min_Enroll"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Max_Enroll",
System.Data.OleDb.OleDbType.Integer, 4, "Max_Enroll"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Current_Enroll",
System.Data.OleDb.OleDbType.Integer, 4, "Current_Enroll"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("TShirt",
System.Data.OleDb.OleDbType.Boolean, 1, "TShirt"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Special_Equipment",
System.Data.OleDb.OleDbType.VarChar, 50, "Special_Equipment"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Income",
System.Data.OleDb.OleDbType.Currency, 8, "Income"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Description",
System.Data.OleDb.OleDbType.VarChar, 2147483647, "Description"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Salary",
System.Data.OleDb.OleDbType.Currency, 8, "Salary"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Material",
System.Data.OleDb.OleDbType.Currency, 8, "Material"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Shopping_Cart",
System.Data.OleDb.OleDbType.Boolean, 1, "Shopping_Cart"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Notes",
System.Data.OleDb.OleDbType.VarChar, 2147483647, "Notes"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Beginning_Time",
System.Data.OleDb.OleDbType.DBTimeStamp, 8, "Beginning_Time"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Ending_Time",
System.Data.OleDb.OleDbType.DBTimeStamp, 8, "Ending_Time"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Reserve_Begin_Time",
System.Data.OleDb.OleDbType.DBTimeStamp, 8, "Reserve_Begin_Time"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Reserve_End_Time",
System.Data.OleDb.OleDbType.DBTimeStamp, 8, "Reserve_End_Time"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Registratin_Deadline",
System.Data.OleDb.OleDbType.DBTimeStamp, 8, "Registratin_Deadline"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Gender",
System.Data.OleDb.OleDbType.VarChar, 10, "Gender"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Member_Discount",
System.Data.OleDb.OleDbType.Decimal, 9,
System.Data.ParameterDirection.Input, False, CType(19, Byte), CType(4,
Byte), "Member_Discount", System.Data.DataRowVersion.Current, Nothing))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Senior_Discount",
System.Data.OleDb.OleDbType.Decimal, 9,
System.Data.ParameterDirection.Input, False, CType(19, Byte), CType(4,
Byte), "Senior_Discount", System.Data.DataRowVersion.Current, Nothing))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("From_Age",
System.Data.OleDb.OleDbType.Integer, 4, "From_Age"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Thru_Age",
System.Data.OleDb.OleDbType.Integer, 4, "Thru_Age"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Booked",
System.Data.OleDb.OleDbType.Boolean, 1, "Booked"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Facility_Notes",
System.Data.OleDb.OleDbType.VarChar, 2147483647, "Facility_Notes"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Room_Notes",
System.Data.OleDb.OleDbType.VarChar, 2147483647, "Room_Notes"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("FromGrade",
System.Data.OleDb.OleDbType.VarChar, 30, "FromGrade"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("ThruGrade",
System.Data.OleDb.OleDbType.VarChar, 30, "ThruGrade"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Category",
System.Data.OleDb.OleDbType.VarChar, 30, "Category"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("SubCategory",
System.Data.OleDb.OleDbType.VarChar, 30, "SubCategory"))
Me.OleDbInsertCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Select_ID",
System.Data.OleDb.OleDbType.Guid, 16, "ID"))
'
'OleDbUpdateCommand1
'
Me.OleDbUpdateCommand1.CommandText = "UPDATE Courses SET Season
= ?, Year = ?, Number = ?, Title = ?, Begin_Dat" & _
"e = ?, End_Date = ?, Sunday = ?, Monday = ?, Tuesday = ?,
Wednesday = ?, Thursda" & _
"y = ?, Friday = ?, Saturday = ?, Resident_Fee = ?,
Non_Resident_Fee = ?, Facilit" & _
"y = ?, Room = ?, Number_Sessions = ?, Min_Enroll = ?,
Max_Enroll = ?, Current_En" & _
"roll = ?, TShirt = ?, Special_Equipment = ?, Income = ?,
Description = ?, Salary" & _
" = ?, Material = ?, Shopping_Cart = ?, Notes = ?,
Beginning_Time = ?, Ending_Tim" & _
"e = ?, Reserve_Begin_Time = ?, Reserve_End_Time = ?,
Registratin_Deadline = ?, G" & _
"ender = ?, Member_Discount = ?, Senior_Discount = ?, From_Age
= ?, Thru_Age = ?," & _
" Booked = ?, Facility_Notes = ?, Room_Notes = ?, FromGrade =
?, ThruGrade = ?, C" & _
"ategory = ?, SubCategory = ? WHERE (ID = ?) AND (Begin_Date =
?) AND (Beginning_" & _
"Time = ?) AND (Booked = ? OR ? IS NULL AND Booked IS NULL) AND
(Category = ? OR " & _
"? IS NULL AND Category IS NULL) AND (Current_Enroll = ? OR ?
IS NULL AND Current" & _
"_Enroll IS NULL) AND (End_Date = ?) AND (Ending_Time = ?) AND
(Facility = ? OR ?" & _
" IS NULL AND Facility IS NULL) AND (Friday = ?) AND (FromGrade
= ? OR ? IS NULL " & _
"AND FromGrade IS NULL) AND (From_Age = ? OR ? IS NULL AND
From_Age IS NULL) AND " & _
"(Gender = ? OR ? IS NULL AND Gender IS NULL) AND (Income = ?
OR ? IS NULL AND In" & _
"come IS NULL) AND (Material = ? OR ? IS NULL AND Material IS
NULL) AND (Max_Enro" & _
"ll = ? OR ? IS NULL AND Max_Enroll IS NULL) AND
(Member_Discount = ? OR ? IS NUL" & _
"L AND Member_Discount IS NULL) AND (Min_Enroll = ? OR ? IS
NULL AND Min_Enroll I" & _
"S NULL) AND (Monday = ?) AND (Non_Resident_Fee = ? OR ? IS
NULL AND Non_Resident" & _
"_Fee IS NULL) AND (Number = ?) AND (Number_Sessions = ? OR ?
IS NULL AND Number_" & _
"Sessions IS NULL) AND (Registratin_Deadline = ?) AND
(Reserve_Begin_Time = ?) AN" & _
"D (Reserve_End_Time = ?) AND (Resident_Fee = ? OR ? IS NULL
AND Resident_Fee IS " & _
"NULL) AND (Room = ? OR ? IS NULL AND Room IS NULL) AND (Salary
= ? OR ? IS NULL " & _
"AND Salary IS NULL) AND (Saturday = ?) AND (Season = ?) AND
(Senior_Discount = ?" & _
" OR ? IS NULL AND Senior_Discount IS NULL) AND (Shopping_Cart
= ? OR ? IS NULL A" & _
"ND Shopping_Cart IS NULL) AND (Special_Equipment = ? OR ? IS
NULL AND Special_Eq" & _
"uipment IS NULL) AND (SubCategory = ? OR ? IS NULL AND
SubCategory IS NULL) AND " & _
"(Sunday = ?) AND (TShirt = ? OR ? IS NULL AND TShirt IS NULL)
AND (ThruGrade = ?" & _
" OR ? IS NULL AND ThruGrade IS NULL) AND (Thru_Age = ? OR ? IS
NULL AND Thru_Age" & _
" IS NULL) AND (Thursday = ?) AND (Title = ?) AND (Tuesday = ?)
AND (Wednesday = " & _
"?) AND (Year = ?); SELECT ID, Season, Year, Number, Title,
Begin_Date, End_Date," & _
" Sunday, Monday, Tuesday, Wednesday, Thursday, Friday,
Saturday, Resident_Fee, N" & _
"on_Resident_Fee, Facility, Room, Number_Sessions, Min_Enroll,
Max_Enroll, Curren" & _
"t_Enroll, TShirt, Special_Equipment, Income, Description,
Salary, Material, Shop" & _
"ping_Cart, Notes, Beginning_Time, Ending_Time,
Reserve_Begin_Time, Reserve_End_T" & _
"ime, Registratin_Deadline, Gender, Member_Discount,
Senior_Discount, From_Age, T" & _
"hru_Age, Booked, Facility_Notes, Room_Notes, FromGrade,
ThruGrade, Category, Sub" & _
"Category FROM Courses WHERE (ID = ?)"
Me.OleDbUpdateCommand1.Connection = Me.SQLConn
'Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("ID", System.Data.OleDb.OleDbType.Guid,
16, "ID"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Season",
System.Data.OleDb.OleDbType.VarChar, 40, "Season"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Year",
System.Data.OleDb.OleDbType.Integer, 4, "Year"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Number",
System.Data.OleDb.OleDbType.VarChar, 10, "Number"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Title",
System.Data.OleDb.OleDbType.VarChar, 50, "Title"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Begin_Date",
System.Data.OleDb.OleDbType.DBTimeStamp, 8, "Begin_Date"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("End_Date",
System.Data.OleDb.OleDbType.DBTimeStamp, 8, "End_Date"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Sunday",
System.Data.OleDb.OleDbType.Boolean, 1, "Sunday"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Monday",
System.Data.OleDb.OleDbType.Boolean, 1, "Monday"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Tuesday",
System.Data.OleDb.OleDbType.Boolean, 1, "Tuesday"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Wednesday",
System.Data.OleDb.OleDbType.Boolean, 1, "Wednesday"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Thursday",
System.Data.OleDb.OleDbType.Boolean, 1, "Thursday"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Friday",
System.Data.OleDb.OleDbType.Boolean, 1, "Friday"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Saturday",
System.Data.OleDb.OleDbType.Boolean, 1, "Saturday"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Resident_Fee",
System.Data.OleDb.OleDbType.Currency, 8, "Resident_Fee"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Non_Resident_Fee",
System.Data.OleDb.OleDbType.Currency, 8, "Non_Resident_Fee"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Facility",
System.Data.OleDb.OleDbType.VarChar, 30, "Facility"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Room",
System.Data.OleDb.OleDbType.VarChar, 20, "Room"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Number_Sessions",
System.Data.OleDb.OleDbType.Integer, 4, "Number_Sessions"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Min_Enroll",
System.Data.OleDb.OleDbType.Integer, 4, "Min_Enroll"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Max_Enroll",
System.Data.OleDb.OleDbType.Integer, 4, "Max_Enroll"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Current_Enroll",
System.Data.OleDb.OleDbType.Integer, 4, "Current_Enroll"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("TShirt",
System.Data.OleDb.OleDbType.Boolean, 1, "TShirt"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Special_Equipment",
System.Data.OleDb.OleDbType.VarChar, 50, "Special_Equipment"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Income",
System.Data.OleDb.OleDbType.Currency, 8, "Income"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Description",
System.Data.OleDb.OleDbType.VarChar, 2147483647, "Description"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Salary",
System.Data.OleDb.OleDbType.Currency, 8, "Salary"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Material",
System.Data.OleDb.OleDbType.Currency, 8, "Material"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Shopping_Cart",
System.Data.OleDb.OleDbType.Boolean, 1, "Shopping_Cart"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Notes",
System.Data.OleDb.OleDbType.VarChar, 2147483647, "Notes"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Beginning_Time",
System.Data.OleDb.OleDbType.DBTimeStamp, 8, "Beginning_Time"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Ending_Time",
System.Data.OleDb.OleDbType.DBTimeStamp, 8, "Ending_Time"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Reserve_Begin_Time",
System.Data.OleDb.OleDbType.DBTimeStamp, 8, "Reserve_Begin_Time"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Reserve_End_Time",
System.Data.OleDb.OleDbType.DBTimeStamp, 8, "Reserve_End_Time"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Registratin_Deadline",
System.Data.OleDb.OleDbType.DBTimeStamp, 8, "Registratin_Deadline"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Gender",
System.Data.OleDb.OleDbType.VarChar, 10, "Gender"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Member_Discount",
System.Data.OleDb.OleDbType.Decimal, 9,
System.Data.ParameterDirection.Input, False, CType(19, Byte), CType(4,
Byte), "Member_Discount", System.Data.DataRowVersion.Current, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Senior_Discount",
System.Data.OleDb.OleDbType.Decimal, 9,
System.Data.ParameterDirection.Input, False, CType(19, Byte), CType(4,
Byte), "Senior_Discount", System.Data.DataRowVersion.Current, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("From_Age",
System.Data.OleDb.OleDbType.Integer, 4, "From_Age"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Thru_Age",
System.Data.OleDb.OleDbType.Integer, 4, "Thru_Age"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Booked",
System.Data.OleDb.OleDbType.Boolean, 1, "Booked"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Facility_Notes",
System.Data.OleDb.OleDbType.VarChar, 2147483647, "Facility_Notes"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Room_Notes",
System.Data.OleDb.OleDbType.VarChar, 2147483647, "Room_Notes"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("FromGrade",
System.Data.OleDb.OleDbType.VarChar, 30, "FromGrade"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("ThruGrade",
System.Data.OleDb.OleDbType.VarChar, 30, "ThruGrade"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Category",
System.Data.OleDb.OleDbType.VarChar, 30, "Category"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("SubCategory",
System.Data.OleDb.OleDbType.VarChar, 30, "SubCategory"))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_ID",
System.Data.OleDb.OleDbType.Guid, 16,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "ID", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Begin_Date",
System.Data.OleDb.OleDbType.DBTimeStamp, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Begin_Date", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Beginning_Time",
System.Data.OleDb.OleDbType.DBTimeStamp, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Beginning_Time", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Booked",
System.Data.OleDb.OleDbType.Boolean, 1,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Booked", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Booked1",
System.Data.OleDb.OleDbType.Boolean, 1,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Booked", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Category",
System.Data.OleDb.OleDbType.VarChar, 30,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Category", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Category1",
System.Data.OleDb.OleDbType.VarChar, 30,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Category", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Current_Enroll",
System.Data.OleDb.OleDbType.Integer, 4,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Current_Enroll", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Current_Enroll1",
System.Data.OleDb.OleDbType.Integer, 4,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Current_Enroll", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_End_Date",
System.Data.OleDb.OleDbType.DBTimeStamp, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "End_Date", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Ending_Time",
System.Data.OleDb.OleDbType.DBTimeStamp, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Ending_Time", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Facility",
System.Data.OleDb.OleDbType.VarChar, 30,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Facility", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Facility1",
System.Data.OleDb.OleDbType.VarChar, 30,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Facility", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Friday",
System.Data.OleDb.OleDbType.Boolean, 1,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Friday", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_FromGrade",
System.Data.OleDb.OleDbType.VarChar, 30,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "FromGrade", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_FromGrade1",
System.Data.OleDb.OleDbType.VarChar, 30,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "FromGrade", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_From_Age",
System.Data.OleDb.OleDbType.Integer, 4,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "From_Age", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_From_Age1",
System.Data.OleDb.OleDbType.Integer, 4,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "From_Age", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Gender",
System.Data.OleDb.OleDbType.VarChar, 10,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Gender", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Gender1",
System.Data.OleDb.OleDbType.VarChar, 10,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Gender", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Income",
System.Data.OleDb.OleDbType.Currency, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Income", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Income1",
System.Data.OleDb.OleDbType.Currency, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Income", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Material",
System.Data.OleDb.OleDbType.Currency, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Material", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Material1",
System.Data.OleDb.OleDbType.Currency, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Material", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Max_Enroll",
System.Data.OleDb.OleDbType.Integer, 4,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Max_Enroll", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Max_Enroll1",
System.Data.OleDb.OleDbType.Integer, 4,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Max_Enroll", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Member_Discount",
System.Data.OleDb.OleDbType.Decimal, 9,
System.Data.ParameterDirection.Input, False, CType(19, Byte), CType(4,
Byte), "Member_Discount", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Member_Discount1",
System.Data.OleDb.OleDbType.Decimal, 9,
System.Data.ParameterDirection.Input, False, CType(19, Byte), CType(4,
Byte), "Member_Discount", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Min_Enroll",
System.Data.OleDb.OleDbType.Integer, 4,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Min_Enroll", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Min_Enroll1",
System.Data.OleDb.OleDbType.Integer, 4,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Min_Enroll", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Monday",
System.Data.OleDb.OleDbType.Boolean, 1,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Monday", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Non_Resident_Fee",
System.Data.OleDb.OleDbType.Currency, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Non_Resident_Fee", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Non_Resident_Fee1",
System.Data.OleDb.OleDbType.Currency, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Non_Resident_Fee", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Number",
System.Data.OleDb.OleDbType.VarChar, 10,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Number", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Number_Sessions",
System.Data.OleDb.OleDbType.Integer, 4,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Number_Sessions", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Number_Sessions1",
System.Data.OleDb.OleDbType.Integer, 4,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Number_Sessions", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Registratin_Deadline",
System.Data.OleDb.OleDbType.DBTimeStamp, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Registratin_Deadline", System.Data.DataRowVersion.Original,
Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Reserve_Begin_Time",
System.Data.OleDb.OleDbType.DBTimeStamp, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Reserve_Begin_Time", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Reserve_End_Time",
System.Data.OleDb.OleDbType.DBTimeStamp, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Reserve_End_Time", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Resident_Fee",
System.Data.OleDb.OleDbType.Currency, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Resident_Fee", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Resident_Fee1",
System.Data.OleDb.OleDbType.Currency, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Resident_Fee", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Room",
System.Data.OleDb.OleDbType.VarChar, 20,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Room", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Room1",
System.Data.OleDb.OleDbType.VarChar, 20,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Room", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Salary",
System.Data.OleDb.OleDbType.Currency, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Salary", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Salary1",
System.Data.OleDb.OleDbType.Currency, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Salary", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Saturday",
System.Data.OleDb.OleDbType.Boolean, 1,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Saturday", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Season",
System.Data.OleDb.OleDbType.VarChar, 40,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Season", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Senior_Discount",
System.Data.OleDb.OleDbType.Decimal, 9,
System.Data.ParameterDirection.Input, False, CType(19, Byte), CType(4,
Byte), "Senior_Discount", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Senior_Discount1",
System.Data.OleDb.OleDbType.Decimal, 9,
System.Data.ParameterDirection.Input, False, CType(19, Byte), CType(4,
Byte), "Senior_Discount", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Shopping_Cart",
System.Data.OleDb.OleDbType.Boolean, 1,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Shopping_Cart", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Shopping_Cart1",
System.Data.OleDb.OleDbType.Boolean, 1,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Shopping_Cart", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Special_Equipment",
System.Data.OleDb.OleDbType.VarChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Special_Equipment", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Special_Equipment1",
System.Data.OleDb.OleDbType.VarChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Special_Equipment", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_SubCategory",
System.Data.OleDb.OleDbType.VarChar, 30,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "SubCategory", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_SubCategory1",
System.Data.OleDb.OleDbType.VarChar, 30,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "SubCategory", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Sunday",
System.Data.OleDb.OleDbType.Boolean, 1,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Sunday", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TShirt",
System.Data.OleDb.OleDbType.Boolean, 1,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "TShirt", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TShirt1",
System.Data.OleDb.OleDbType.Boolean, 1,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "TShirt", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_ThruGrade",
System.Data.OleDb.OleDbType.VarChar, 30,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "ThruGrade", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_ThruGrade1",
System.Data.OleDb.OleDbType.VarChar, 30,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "ThruGrade", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Thru_Age",
System.Data.OleDb.OleDbType.Integer, 4,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Thru_Age", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Thru_Age1",
System.Data.OleDb.OleDbType.Integer, 4,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Thru_Age", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Thursday",
System.Data.OleDb.OleDbType.Boolean, 1,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Thursday", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Title",
System.Data.OleDb.OleDbType.VarChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Title", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Tuesday",
System.Data.OleDb.OleDbType.Boolean, 1,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Tuesday", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Wednesday",
System.Data.OleDb.OleDbType.Boolean, 1,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Wednesday", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Year",
System.Data.OleDb.OleDbType.Integer, 4,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Year", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbUpdateCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Select_ID",
System.Data.OleDb.OleDbType.Guid, 16, "ID"))
'
'OleDbDeleteCommand1
'
Me.OleDbDeleteCommand1.CommandText = "DELETE FROM Courses WHERE
(ID = ?) AND (Begin_Date = ?) AND (Beginning_Time = ?) " & _
"AND (Booked = ? OR ? IS NULL AND Booked IS NULL) AND (Category
= ? OR ? IS NULL " & _
"AND Category IS NULL) AND (Current_Enroll = ? OR ? IS NULL AND
Current_Enroll IS" & _
" NULL) AND (End_Date = ?) AND (Ending_Time = ?) AND (Facility
= ? OR ? IS NULL A" & _
"ND Facility IS NULL) AND (Friday = ?) AND (FromGrade = ? OR ?
IS NULL AND FromGr" & _
"ade IS NULL) AND (From_Age = ? OR ? IS NULL AND From_Age IS
NULL) AND (Gender = " & _
"? OR ? IS NULL AND Gender IS NULL) AND (Income = ? OR ? IS
NULL AND Income IS NU" & _
"LL) AND (Material = ? OR ? IS NULL AND Material IS NULL) AND
(Max_Enroll = ? OR " & _
"? IS NULL AND Max_Enroll IS NULL) AND (Member_Discount = ? OR
? IS NULL AND Memb" & _
"er_Discount IS NULL) AND (Min_Enroll = ? OR ? IS NULL AND
Min_Enroll IS NULL) AN" & _
"D (Monday = ?) AND (Non_Resident_Fee = ? OR ? IS NULL AND
Non_Resident_Fee IS NU" & _
"LL) AND (Number = ?) AND (Number_Sessions = ? OR ? IS NULL AND
Number_Sessions I" & _
"S NULL) AND (Registratin_Deadline = ?) AND (Reserve_Begin_Time
= ?) AND (Reserve" & _
"_End_Time = ?) AND (Resident_Fee = ? OR ? IS NULL AND
Resident_Fee IS NULL) AND " & _
"(Room = ? OR ? IS NULL AND Room IS NULL) AND (Salary = ? OR ?
IS NULL AND Salary" & _
" IS NULL) AND (Saturday = ?) AND (Season = ?) AND
(Senior_Discount = ? OR ? IS N" & _
"ULL AND Senior_Discount IS NULL) AND (Shopping_Cart = ? OR ?
IS NULL AND Shoppin" & _
"g_Cart IS NULL) AND (Special_Equipment = ? OR ? IS NULL AND
Special_Equipment IS" & _
" NULL) AND (SubCategory = ? OR ? IS NULL AND SubCategory IS
NULL) AND (Sunday = " & _
"?) AND (TShirt = ? OR ? IS NULL AND TShirt IS NULL) AND
(ThruGrade = ? OR ? IS N" & _
"ULL AND ThruGrade IS NULL) AND (Thru_Age = ? OR ? IS NULL AND
Thru_Age IS NULL) " & _
"AND (Thursday = ?) AND (Title = ?) AND (Tuesday = ?) AND
(Wednesday = ?) AND (Ye" & _
"ar = ?)"
Me.OleDbDeleteCommand1.Connection = Me.SQLConn
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_ID",
System.Data.OleDb.OleDbType.Guid, 16,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "ID", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Begin_Date",
System.Data.OleDb.OleDbType.DBTimeStamp, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Begin_Date", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Beginning_Time",
System.Data.OleDb.OleDbType.DBTimeStamp, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Beginning_Time", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Booked",
System.Data.OleDb.OleDbType.Boolean, 1,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Booked", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Booked1",
System.Data.OleDb.OleDbType.Boolean, 1,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Booked", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Category",
System.Data.OleDb.OleDbType.VarChar, 30,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Category", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Category1",
System.Data.OleDb.OleDbType.VarChar, 30,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Category", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Current_Enroll",
System.Data.OleDb.OleDbType.Integer, 4,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Current_Enroll", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Current_Enroll1",
System.Data.OleDb.OleDbType.Integer, 4,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Current_Enroll", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_End_Date",
System.Data.OleDb.OleDbType.DBTimeStamp, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "End_Date", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Ending_Time",
System.Data.OleDb.OleDbType.DBTimeStamp, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Ending_Time", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Facility",
System.Data.OleDb.OleDbType.VarChar, 30,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Facility", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Facility1",
System.Data.OleDb.OleDbType.VarChar, 30,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Facility", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Friday",
System.Data.OleDb.OleDbType.Boolean, 1,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Friday", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_FromGrade",
System.Data.OleDb.OleDbType.VarChar, 30,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "FromGrade", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_FromGrade1",
System.Data.OleDb.OleDbType.VarChar, 30,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "FromGrade", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_From_Age",
System.Data.OleDb.OleDbType.Integer, 4,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "From_Age", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_From_Age1",
System.Data.OleDb.OleDbType.Integer, 4,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "From_Age", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Gender",
System.Data.OleDb.OleDbType.VarChar, 10,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Gender", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Gender1",
System.Data.OleDb.OleDbType.VarChar, 10,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Gender", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Income",
System.Data.OleDb.OleDbType.Currency, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Income", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Income1",
System.Data.OleDb.OleDbType.Currency, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Income", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Material",
System.Data.OleDb.OleDbType.Currency, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Material", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Material1",
System.Data.OleDb.OleDbType.Currency, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Material", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Max_Enroll",
System.Data.OleDb.OleDbType.Integer, 4,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Max_Enroll", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Max_Enroll1",
System.Data.OleDb.OleDbType.Integer, 4,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Max_Enroll", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Member_Discount",
System.Data.OleDb.OleDbType.Decimal, 9,
System.Data.ParameterDirection.Input, False, CType(19, Byte), CType(4,
Byte), "Member_Discount", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Member_Discount1",
System.Data.OleDb.OleDbType.Decimal, 9,
System.Data.ParameterDirection.Input, False, CType(19, Byte), CType(4,
Byte), "Member_Discount", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Min_Enroll",
System.Data.OleDb.OleDbType.Integer, 4,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Min_Enroll", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Min_Enroll1",
System.Data.OleDb.OleDbType.Integer, 4,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Min_Enroll", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Monday",
System.Data.OleDb.OleDbType.Boolean, 1,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Monday", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Non_Resident_Fee",
System.Data.OleDb.OleDbType.Currency, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Non_Resident_Fee", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Non_Resident_Fee1",
System.Data.OleDb.OleDbType.Currency, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Non_Resident_Fee", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Number",
System.Data.OleDb.OleDbType.VarChar, 10,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Number", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Number_Sessions",
System.Data.OleDb.OleDbType.Integer, 4,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Number_Sessions", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Number_Sessions1",
System.Data.OleDb.OleDbType.Integer, 4,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Number_Sessions", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Registratin_Deadline",
System.Data.OleDb.OleDbType.DBTimeStamp, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Registratin_Deadline", System.Data.DataRowVersion.Original,
Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Reserve_Begin_Time",
System.Data.OleDb.OleDbType.DBTimeStamp, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Reserve_Begin_Time", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Reserve_End_Time",
System.Data.OleDb.OleDbType.DBTimeStamp, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Reserve_End_Time", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Resident_Fee",
System.Data.OleDb.OleDbType.Currency, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Resident_Fee", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Resident_Fee1",
System.Data.OleDb.OleDbType.Currency, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Resident_Fee", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Room",
System.Data.OleDb.OleDbType.VarChar, 20,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Room", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Room1",
System.Data.OleDb.OleDbType.VarChar, 20,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Room", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Salary",
System.Data.OleDb.OleDbType.Currency, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Salary", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Salary1",
System.Data.OleDb.OleDbType.Currency, 8,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Salary", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Saturday",
System.Data.OleDb.OleDbType.Boolean, 1,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Saturday", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Season",
System.Data.OleDb.OleDbType.VarChar, 40,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Season", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Senior_Discount",
System.Data.OleDb.OleDbType.Decimal, 9,
System.Data.ParameterDirection.Input, False, CType(19, Byte), CType(4,
Byte), "Senior_Discount", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Senior_Discount1",
System.Data.OleDb.OleDbType.Decimal, 9,
System.Data.ParameterDirection.Input, False, CType(19, Byte), CType(4,
Byte), "Senior_Discount", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Shopping_Cart",
System.Data.OleDb.OleDbType.Boolean, 1,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Shopping_Cart", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Shopping_Cart1",
System.Data.OleDb.OleDbType.Boolean, 1,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Shopping_Cart", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Special_Equipment",
System.Data.OleDb.OleDbType.VarChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Special_Equipment", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Special_Equipment1",
System.Data.OleDb.OleDbType.VarChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Special_Equipment", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_SubCategory",
System.Data.OleDb.OleDbType.VarChar, 30,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "SubCategory", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_SubCategory1",
System.Data.OleDb.OleDbType.VarChar, 30,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "SubCategory", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Sunday",
System.Data.OleDb.OleDbType.Boolean, 1,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Sunday", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TShirt",
System.Data.OleDb.OleDbType.Boolean, 1,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "TShirt", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_TShirt1",
System.Data.OleDb.OleDbType.Boolean, 1,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "TShirt", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_ThruGrade",
System.Data.OleDb.OleDbType.VarChar, 30,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "ThruGrade", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_ThruGrade1",
System.Data.OleDb.OleDbType.VarChar, 30,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "ThruGrade", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Thru_Age",
System.Data.OleDb.OleDbType.Integer, 4,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Thru_Age", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Thru_Age1",
System.Data.OleDb.OleDbType.Integer, 4,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Thru_Age", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Thursday",
System.Data.OleDb.OleDbType.Boolean, 1,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Thursday", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Title",
System.Data.OleDb.OleDbType.VarChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Title", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Tuesday",
System.Data.OleDb.OleDbType.Boolean, 1,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Tuesday", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Wednesday",
System.Data.OleDb.OleDbType.Boolean, 1,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Wednesday", System.Data.DataRowVersion.Original, Nothing))
Me.OleDbDeleteCommand1.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Year",
System.Data.OleDb.OleDbType.Integer, 4,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0,
Byte), "Year", System.Data.DataRowVersion.Original, Nothing))
'
'Course
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(712, 438)
Me.Controls.Add(Me.TabControl1)
Me.Controls.Add(Me.pnlHeader)
Me.Controls.Add(Me.MainToolbar)
Me.Icon = CType(resources.GetObject("$this.Icon"),
System.Drawing.Icon)
Me.MinimumSize = New System.Drawing.Size(720, 472)
Me.Name = "Course"
Me.Text = "Courses"
CType(Me.ToolBarCommandHolder,
System.ComponentModel.ISupportInitialize).EndInit()
Me.pnlHeader.ResumeLayout(False)
CType(Me.CoursesDS1,
System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.SeasonsDS1,
System.ComponentModel.ISupportInitialize).EndInit()
Me.TabControl1.ResumeLayout(False)
Me.TabPage1.ResumeLayout(False)
CType(Me.grdInst,
System.ComponentModel.ISupportInitialize).EndInit()
Me.grpCharacter.ResumeLayout(False)
CType(Me.GendersDS1,
System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.Genders,
System.ComponentModel.ISupportInitialize).EndInit()
Me.grpPrice.ResumeLayout(False)
Me.TP_Sched.ResumeLayout(False)
CType(Me.grdSched,
System.ComponentModel.ISupportInitialize).EndInit()
Me.grpSched.ResumeLayout(False)
CType(Me.editSessions,
System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.editResEndTime,
System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.editResBegTime,
System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.editActEndTime,
System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.editActBegTime,
System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.editDeadline,
System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.editEndDate,
System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.editBegDate,
System.ComponentModel.ISupportInitialize).EndInit()
Me.grpLoc.ResumeLayout(False)
CType(Me.PayTypeDS1,
System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PayTypeTable,
System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.FacilitiesDS1,
System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.CategoriesDS1,
System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)

End Sub

#End Region

#Region "Form Events"
Private Sub Course_Load(ByVal sender As Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Misc.CenterForm(Me)
End Sub

Private Sub pnlHeader_Paint(ByVal sender As Object, ByVal e As
System.Windows.Forms.PaintEventArgs) Handles pnlHeader.Paint
ControlPaint.DrawBorder3D(e.Graphics,
pnlHeader.ClientRectangle, Border3DStyle.Raised)
End Sub

Private Sub InstNameKeyDump(ByVal sender As Object, ByVal ex As
KeyPressEventArgs)
ex.Handled = True
End Sub

Private Sub Course_Closing(ByVal sender As Object, ByVal e As
System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
If CoursesDS1.HasChanges() Then
Dim dlgAns As DialogResult =
System.Windows.Forms.MessageBox.Show("Changes Exist. Quit Anyway?",
"Exiting.", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If dlgAns = DialogResult.No Then e.Cancel = True
End If
End Sub
#End Region

#Region "Validation and Lookups"
Private Sub InstructorIDColumn_PromptButtonClicked() Handles
InstructorIDColumn.PromptButtonClicked
Dim frmInstr As New InstructorLookup
Dim bind As BindingManagerBase = Me.BindingContext(CoursesDS1,
"Courses.CoursesInstClasses")
If bind.Position = -1 Then Return
Dim current As DataRowView = Me.BindingContext(CoursesDS1,
"Courses.CoursesInstClasses").Current

Dim rw As DataRow
rw = frmInstr.ShowLookup()
If Not rw Is Nothing Then
If Not current.Item("Full_Name").GetType() Is
GetType(System.DBNull) Then If current.Item("Full_Name") =
rw("First_Name") + " " + rw("Last_Name") Then Return
current.Item("Instructor_ID") = rw("ID")
current.Item("Full_Name") = rw("First_Name") + " " +
rw("Last_Name")
If bind.Count = 1 Then current.Item("Primary_Inst") = True
InstructorNameColumn.TextBox.Text =
bind.Current.Item("Full_Name")
InstructorIDColumn.TextBox.Text =
bind.Current.Item("Instructor_ID")
'grdInst.CurrentCell = New
DataGridCell(grdInst.CurrentCell.RowNumber, 2)
grdInst.Refresh()
End If
End Sub

Private Sub LeaveIDCol(ByVal sender As Object, ByVal e As EventArgs)
Dim bind As BindingManagerBase = Me.BindingContext(CoursesDS1,
"Courses.CoursesInstClasses")
If bind.Position = -1 Then Return
Dim current As DataRowView = Me.BindingContext(CoursesDS1,
"Courses.CoursesInstClasses").Current

If current.Item("Instructor_ID").GetType() Is
GetType(System.DBNull) Then Return

Dim rw As DataRow
rw = CoursesDS1.Instructors.FindByID(current.Item("Instructor_ID"))
If Not rw Is Nothing Then
If Not current.Item("Full_Name").GetType() Is
GetType(System.DBNull) Then If current.Item("Full_Name") =
rw("First_Name") + " " + rw("Last_Name") Then Return
current.Item("Full_Name") = rw("First_Name") + " " +
rw("Last_Name")
If bind.Count = 1 Then current.Item("Primary_Inst") = True
InstructorIDColumn.TextBox.Text = current.Item("Instructor_ID")
InstructorNameColumn.TextBox.Text = current.Item("Full_Name")
'grdInst.CurrentCell = New
DataGridCell(grdInst.CurrentCell.RowNumber, 2)
grdInst.Refresh()
End If
End Sub

Private Sub editFacility_PromptButtonClicked() Handles
editFacility.PromptButtonClicked
Dim dr As DataRow
Dim frmFac As New FacilityLookup
dr = frmFac.ShowLookup()
If Not dr Is Nothing Then
Me.BindingContext(CoursesDS1,
"Courses").Current.Item("Facility") = dr("Name")
End If
End Sub

Private Sub editRoom_PromptButtonClicked() Handles
editRoom.PromptButtonClicked
Dim dr As DataRow
Dim frmRoom As New RoomLookup
If editFacility.Text = "" Then Exit Sub
dr = frmRoom.ShowLookup(editFacility.Text)
If Not dr Is Nothing Then
Me.BindingContext(CoursesDS1,
"Courses").Current.Item("Room") = dr("Name")
End If
End Sub

Private Sub editNumber_Leave(ByVal sender As Object, ByVal e As
System.EventArgs) Handles editNumber.Leave
CategoriesDS1.CourseCats.DefaultView.Sort = "From_Course"
If CategoriesDS1.CourseCats.Rows.Count > 0 Then
Dim iCount As Integer
For iCount = 0 To CategoriesDS1.CourseCats.Rows.Count - 1
With CategoriesDS1.CourseCats.Rows(iCount)
If .Item("From_Course") < editNumber.Text And
..Item("Thru_Course") > editNumber.Text Then
editCat.Text = .Item("CatDescription")
editSubCat.Text = .Item("Description")
Exit For
End If
End With
Next
End If
End Sub
#End Region

#Region "Data"
Public Function UpdateData() As Boolean
Dim bErr As Boolean = True
' Dim dc As DataColumn =
CoursesDS1.InstClasses.Columns.Item("Full_Name")
' Dim exp As String = dc.Expression
' dc.Expression = ""
Try
Me.CourseDA.Update(CoursesDS1, "Courses")
Me.InstClassDA.Update(CoursesDS1, "InstClasses")
Catch ex As Exception
Misc.ShowError(ex.Message())
bErr = False
' Finally
' dc.Expression = exp
End Try
Return bErr
End Function

Public Function RefreshData() As Boolean
Try
Me.CourseDA.Fill(CoursesDS1, "Courses")
Me.InstClassDA.Fill(CoursesDS1, "InstClasses")
Catch ex As Exception
Misc.ShowError(ex.Message())
Return False
End Try
Return True
End Function
#End Region

#Region "Toolbar"
Private Sub cmdNew_Click(ByVal sender As System.Object, ByVal e As
C1.Win.C1Command.ClickEventArgs) Handles cmdNew.Click
Try
Me.BindingContext(CoursesDS1, "Courses").EndCurrentEdit()
CoursesDS1.Courses.IDColumn.DefaultValue = Guid.NewGuid()
Me.BindingContext(CoursesDS1, "Courses").AddNew()
Me.cmbSeason.Focus()
Catch ex As Exception
Misc.ShowError(ex.Message())
End Try
End Sub

Private Sub cmdSave_Click(ByVal sender As System.Object, ByVal e As
C1.Win.C1Command.ClickEventArgs) Handles cmdSave.Click
Try
Me.BindingContext(CoursesDS1, "Courses").EndCurrentEdit()
If UpdateData() Then
RefreshData()
End If
Catch ex As Exception
Misc.ShowError(ex.Message())
End Try
End Sub

Private Sub cmdDelete_Click(ByVal sender As System.Object, ByVal e
As C1.Win.C1Command.ClickEventArgs) Handles cmdDelete.Click
Try
If Me.BindingContext(CoursesDS1, "Courses").Count > 0 Then
Me.BindingContext(CoursesDS1,
"Courses").RemoveAt(Me.BindingContext(CoursesDS1, "Courses").Position)
Me.cmbSeason.Focus()
Catch ex As Exception
Misc.ShowError(ex.Message())
End Try
End Sub

Private Sub cmdCancel_Click(ByVal sender As System.Object, ByVal e
As C1.Win.C1Command.ClickEventArgs) Handles cmdCancel.Click
Try
Me.BindingContext(CoursesDS1, "Courses").CancelCurrentEdit()
Me.cmbSeason.Focus()
Catch ex As Exception
Misc.ShowError(ex.Message())
End Try
End Sub

Private Sub cmdCancelAll_Click(ByVal sender As System.Object, ByVal
e As C1.Win.C1Command.ClickEventArgs) Handles cmdCancelAll.Click
Try
Me.BindingContext(CoursesDS1, "Courses").CancelCurrentEdit()
RefreshData()
Me.cmbSeason.Focus()
Catch ex As Exception
Misc.ShowError(ex.Message())
End Try
End Sub

Private Sub cmdFirst_Click(ByVal sender As System.Object, ByVal e
As C1.Win.C1Command.ClickEventArgs) Handles cmdFirst.Click
Try
Me.BindingContext(CoursesDS1, "Courses").Position = 0
Me.cmbSeason.Focus()
Catch ex As Exception
Misc.ShowError(ex.Message())
End Try
End Sub

Private Sub cmdPrevious_Click(ByVal sender As System.Object, ByVal
e As C1.Win.C1Command.ClickEventArgs) Handles cmdPrevious.Click
Try
Me.BindingContext(CoursesDS1, "Courses").Position -= 1
Me.cmbSeason.Focus()
Catch ex As Exception
Misc.ShowError(ex.Message())
End Try
End Sub

Private Sub cmdNext_Click(ByVal sender As System.Object, ByVal e As
C1.Win.C1Command.ClickEventArgs) Handles cmdNext.Click
Try
Me.BindingContext(CoursesDS1, "Courses").Position += 1
Me.cmbSeason.Focus()
Catch ex As Exception
Misc.ShowError(ex.Message())
End Try
End Sub

Private Sub cmdLast_Click(ByVal sender As System.Object, ByVal e As
C1.Win.C1Command.ClickEventArgs) Handles cmdLast.Click
Try
Me.BindingContext(CoursesDS1, "Courses").Position =
Me.BindingContext(CoursesDS1, "Courses").Count - 1
Me.cmbSeason.Focus()
Catch ex As Exception
Misc.ShowError(ex.Message())
End Try
End Sub
#End Region

Private Sub grdInst_Enter(ByVal sender As Object, ByVal e As
System.EventArgs) Handles grdInst.Enter
Try
Me.BindingContext(CoursesDS1, "Courses").EndCurrentEdit()
CoursesDS1.InstClasses.Course_IDColumn.DefaultValue =
Me.BindingContext(CoursesDS1, "Courses").Current.Item("ID")
Catch ex As Exception
Misc.ShowError(ex.Message())
End Try
End Sub
End Class

Aaron Smith · Dec 29, 2004

Nick said:
fascinating.

Code would help. It's probably a minor oversight somewhere.

It's fixed.

After messing with it all day (for the last 4 days) I have finally
solved the issue. Now, keep in mind I haven't been using VB.Net for very
long.. With that said. Here is my original update procedure:

Public Function UpdateData() As Boolean
Dim bErr As Boolean = True
Try
Me.CourseDA.Update(CoursesDS1, "Courses")
Me.InstClassDA.Update(CoursesDS1, "InstClasses")
Catch ex As Exception
Misc.ShowError(ex.Message())
bErr = False
End Try
Return bErr
End Function

Courses is parent, InstClasses is child.

Bad idea, I guess. When the update is done for Courses, all the
changed/added/deleted rows in InstClasses have their RowState set to
Unchanged. I guess when update is done, it sets all the rowstates to
Unchanged for every table in the DataSet.

I now do this:

Public Function UpdateData() As Boolean
Dim bErr As Boolean = True
Try
Dim cdt As DataTable = CoursesDS1.Courses.GetChanges()
Dim cldt As DataTable = CoursesDS1.InstClasses.GetChanges()
If Not cdt Is Nothing Then
Me.CourseDA.Update(cdt)
End If
If Not cldt Is Nothing Then
Me.InstClassDA.Update(cldt)
End If
CoursesDS1.Merge(cdt)
CoursesDS1.Merge(cldt)
CoursesDS1.AcceptChanges()
Catch ex As Exception
Misc.ShowError(ex.Message())
bErr = False
End Try
Return bErr
End Function

And it saves everything just fine. Now I just have to figure out how to
do the deletes because you have to delete the child first... Then I
should be ok.

Nick Malik [Microsoft] · Dec 30, 2004

clever. I'm glad you figured it out. I just got back online. Sorry I
couldn't help sooner.

--
--- Nick Malik [Microsoft]
MCSD, CFPS, Certified Scrummaster
http://blogs.msdn.com/nickmalik

Disclaimer: Opinions expressed in this forum are my own, and not
representative of my employer.
I do not answer questions on behalf of my employer. I'm just a
programmer helping programmers.
--

Get column value	7	Apr 16, 2007
Insert into child table fails	1	Oct 22, 2005
Grid setup - dataset -multiple tables	4	Jan 13, 2006
Update to child table fails	5	Oct 25, 2005
How to set different combo box values for new record?	6	Jun 13, 2009
Whats best event for changing related data in child table	2	Jun 15, 2006
Proper Design	2	Feb 23, 2007
ForeignKeyConstraint	1	Jul 30, 2005

I'm completely stuck.............

Aaron Smith

Nick Malik [Microsoft]

Aaron Smith

Nick Malik [Microsoft]

Aaron Smith

Aaron Smith

Nick Malik [Microsoft]

Ask a Question

Similar Threads