commit cca2e1e1a5edf9d6b8886e51091ef3b17fc3a173 Author: Alexander Davis Date: Thu Aug 17 21:28:11 2017 +0100 Main Upload diff --git a/Computing Project Final Version.pdf b/Computing Project Final Version.pdf new file mode 100644 index 0000000..b268a1a Binary files /dev/null and b/Computing Project Final Version.pdf differ diff --git a/Computing Project Final Version.pub b/Computing Project Final Version.pub new file mode 100644 index 0000000..1f33800 Binary files /dev/null and b/Computing Project Final Version.pub differ diff --git a/Final Computing Project With User Guide.pdf b/Final Computing Project With User Guide.pdf new file mode 100644 index 0000000..6939ea2 Binary files /dev/null and b/Final Computing Project With User Guide.pdf differ diff --git a/Nature Findings User Guide.docx b/Nature Findings User Guide.docx new file mode 100644 index 0000000..7e1b247 Binary files /dev/null and b/Nature Findings User Guide.docx differ diff --git a/Nature Findings User Guide.pdf b/Nature Findings User Guide.pdf new file mode 100644 index 0000000..1260d9d Binary files /dev/null and b/Nature Findings User Guide.pdf differ diff --git a/Nature Findings/Nature Findings.sln b/Nature Findings/Nature Findings.sln new file mode 100644 index 0000000..fc22ec3 --- /dev/null +++ b/Nature Findings/Nature Findings.sln @@ -0,0 +1,20 @@ + +Microsoft Visual Studio Solution File, Format Version 11.00 +# Visual Basic Express 2010 +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Nature Findings", "Nature Findings\Nature Findings.vbproj", "{42CDB173-3B41-49A2-BE47-F52EB457851D}" +EndProject +Global + GlobalSection(SolutionConfigurationPlatforms) = preSolution + Debug|x86 = Debug|x86 + Release|x86 = Release|x86 + EndGlobalSection + GlobalSection(ProjectConfigurationPlatforms) = postSolution + {42CDB173-3B41-49A2-BE47-F52EB457851D}.Debug|x86.ActiveCfg = Debug|x86 + {42CDB173-3B41-49A2-BE47-F52EB457851D}.Debug|x86.Build.0 = Debug|x86 + {42CDB173-3B41-49A2-BE47-F52EB457851D}.Release|x86.ActiveCfg = Release|x86 + {42CDB173-3B41-49A2-BE47-F52EB457851D}.Release|x86.Build.0 = Release|x86 + EndGlobalSection + GlobalSection(SolutionProperties) = preSolution + HideSolutionNode = FALSE + EndGlobalSection +EndGlobal diff --git a/Nature Findings/Nature Findings.sln.ide/edb.log b/Nature Findings/Nature Findings.sln.ide/edb.log new file mode 100644 index 0000000..4b2b5e0 Binary files /dev/null and b/Nature Findings/Nature Findings.sln.ide/edb.log differ diff --git a/Nature Findings/Nature Findings.sln.ide/edbres00001.jrs b/Nature Findings/Nature Findings.sln.ide/edbres00001.jrs new file mode 100644 index 0000000..3301331 Binary files /dev/null and b/Nature Findings/Nature Findings.sln.ide/edbres00001.jrs differ diff --git a/Nature Findings/Nature Findings.sln.ide/storage.ide b/Nature Findings/Nature Findings.sln.ide/storage.ide new file mode 100644 index 0000000..45947ca Binary files /dev/null and b/Nature Findings/Nature Findings.sln.ide/storage.ide differ diff --git a/Nature Findings/Nature Findings.suo b/Nature Findings/Nature Findings.suo new file mode 100644 index 0000000..0279dd4 Binary files /dev/null and b/Nature Findings/Nature Findings.suo differ diff --git a/Nature Findings/Nature Findings.v11.suo b/Nature Findings/Nature Findings.v11.suo new file mode 100644 index 0000000..4aaf48e Binary files /dev/null and b/Nature Findings/Nature Findings.v11.suo differ diff --git a/Nature Findings/Nature Findings.v14.suo b/Nature Findings/Nature Findings.v14.suo new file mode 100644 index 0000000..072ea57 Binary files /dev/null and b/Nature Findings/Nature Findings.v14.suo differ diff --git a/Nature Findings/Nature Findings/Edit_Find.Designer.vb b/Nature Findings/Nature Findings/Edit_Find.Designer.vb new file mode 100644 index 0000000..2e87a9e --- /dev/null +++ b/Nature Findings/Nature Findings/Edit_Find.Designer.vb @@ -0,0 +1,248 @@ + _ +Partial Class Edit_Find + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Edit_Find)) + Me.Label2 = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.My_Account_Button = New System.Windows.Forms.Button() + Me.Welcome_Screen_Button = New System.Windows.Forms.Button() + Me.Nature_Findings_Database = New Nature_Findings_System.Nature_Findings_Database() + Me.User_Species_LinkBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.User_Species_LinkTableAdapter = New Nature_Findings_System.Nature_Findings_DatabaseTableAdapters.User_Species_LinkTableAdapter() + Me.TableAdapterManager = New Nature_Findings_System.Nature_Findings_DatabaseTableAdapters.TableAdapterManager() + Me.User_Species_LinkBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) + Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton() + Me.User_Species_LinkBindingNavigatorSaveItem = New System.Windows.Forms.ToolStripButton() + Me.Finds = New System.Windows.Forms.DataGridView() + Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn4 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn5 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn8 = New System.Windows.Forms.DataGridViewTextBoxColumn() + CType(Me.Nature_Findings_Database, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.User_Species_LinkBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.User_Species_LinkBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() + Me.User_Species_LinkBindingNavigator.SuspendLayout() + CType(Me.Finds, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label2.Location = New System.Drawing.Point(305, 30) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(65, 18) + Me.Label2.TabIndex = 19 + Me.Label2.Text = "Edit Find" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(282, 10) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(111, 18) + Me.Label1.TabIndex = 18 + Me.Label1.Text = "Nature Findings" + ' + 'My_Account_Button + ' + Me.My_Account_Button.Location = New System.Drawing.Point(392, 12) + Me.My_Account_Button.Name = "My_Account_Button" + Me.My_Account_Button.Size = New System.Drawing.Size(75, 37) + Me.My_Account_Button.TabIndex = 16 + Me.My_Account_Button.Text = "My Account" + Me.My_Account_Button.UseVisualStyleBackColor = True + ' + 'Welcome_Screen_Button + ' + Me.Welcome_Screen_Button.Location = New System.Drawing.Point(207, 12) + Me.Welcome_Screen_Button.Name = "Welcome_Screen_Button" + Me.Welcome_Screen_Button.Size = New System.Drawing.Size(75, 37) + Me.Welcome_Screen_Button.TabIndex = 15 + Me.Welcome_Screen_Button.Text = "Welcome Screen" + Me.Welcome_Screen_Button.UseVisualStyleBackColor = True + ' + 'Nature_Findings_Database + ' + Me.Nature_Findings_Database.DataSetName = "Nature_Findings_Database" + Me.Nature_Findings_Database.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'User_Species_LinkBindingSource + ' + Me.User_Species_LinkBindingSource.DataMember = "User_Species_Link" + Me.User_Species_LinkBindingSource.DataSource = Me.Nature_Findings_Database + ' + 'User_Species_LinkTableAdapter + ' + Me.User_Species_LinkTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.LocationTableAdapter = Nothing + Me.TableAdapterManager.SpeciesTableAdapter = Nothing + Me.TableAdapterManager.UpdateOrder = Nature_Findings_System.Nature_Findings_DatabaseTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + Me.TableAdapterManager.User_Species_LinkTableAdapter = Me.User_Species_LinkTableAdapter + Me.TableAdapterManager.UsersTableAdapter = Nothing + ' + 'User_Species_LinkBindingNavigator + ' + Me.User_Species_LinkBindingNavigator.AddNewItem = Nothing + Me.User_Species_LinkBindingNavigator.BindingSource = Me.User_Species_LinkBindingSource + Me.User_Species_LinkBindingNavigator.CountItem = Nothing + Me.User_Species_LinkBindingNavigator.DeleteItem = Me.BindingNavigatorDeleteItem + Me.User_Species_LinkBindingNavigator.Dock = System.Windows.Forms.DockStyle.Bottom + Me.User_Species_LinkBindingNavigator.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden + Me.User_Species_LinkBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.User_Species_LinkBindingNavigatorSaveItem, Me.BindingNavigatorDeleteItem}) + Me.User_Species_LinkBindingNavigator.Location = New System.Drawing.Point(0, 354) + Me.User_Species_LinkBindingNavigator.MoveFirstItem = Nothing + Me.User_Species_LinkBindingNavigator.MoveLastItem = Nothing + Me.User_Species_LinkBindingNavigator.MoveNextItem = Nothing + Me.User_Species_LinkBindingNavigator.MovePreviousItem = Nothing + Me.User_Species_LinkBindingNavigator.Name = "User_Species_LinkBindingNavigator" + Me.User_Species_LinkBindingNavigator.PositionItem = Nothing + Me.User_Species_LinkBindingNavigator.Size = New System.Drawing.Size(675, 25) + Me.User_Species_LinkBindingNavigator.TabIndex = 20 + Me.User_Species_LinkBindingNavigator.Text = "BindingNavigator1" + ' + 'BindingNavigatorDeleteItem + ' + Me.BindingNavigatorDeleteItem.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right + Me.BindingNavigatorDeleteItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorDeleteItem.Image = CType(resources.GetObject("BindingNavigatorDeleteItem.Image"), System.Drawing.Image) + Me.BindingNavigatorDeleteItem.Name = "BindingNavigatorDeleteItem" + Me.BindingNavigatorDeleteItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorDeleteItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorDeleteItem.Text = "Delete" + ' + 'User_Species_LinkBindingNavigatorSaveItem + ' + Me.User_Species_LinkBindingNavigatorSaveItem.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right + Me.User_Species_LinkBindingNavigatorSaveItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.User_Species_LinkBindingNavigatorSaveItem.Image = CType(resources.GetObject("User_Species_LinkBindingNavigatorSaveItem.Image"), System.Drawing.Image) + Me.User_Species_LinkBindingNavigatorSaveItem.Name = "User_Species_LinkBindingNavigatorSaveItem" + Me.User_Species_LinkBindingNavigatorSaveItem.Size = New System.Drawing.Size(23, 22) + Me.User_Species_LinkBindingNavigatorSaveItem.Text = "Save Data" + ' + 'Finds + ' + Me.Finds.AutoGenerateColumns = False + Me.Finds.BackgroundColor = System.Drawing.Color.CornflowerBlue + Me.Finds.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.Finds.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.Finds.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn1, Me.DataGridViewTextBoxColumn2, Me.DataGridViewTextBoxColumn3, Me.DataGridViewTextBoxColumn4, Me.DataGridViewTextBoxColumn5, Me.DataGridViewTextBoxColumn8}) + Me.Finds.DataSource = Me.User_Species_LinkBindingSource + Me.Finds.Dock = System.Windows.Forms.DockStyle.Bottom + Me.Finds.GridColor = System.Drawing.Color.SteelBlue + Me.Finds.Location = New System.Drawing.Point(0, 55) + Me.Finds.Name = "Finds" + Me.Finds.Size = New System.Drawing.Size(675, 299) + Me.Finds.TabIndex = 20 + ' + 'DataGridViewTextBoxColumn1 + ' + Me.DataGridViewTextBoxColumn1.DataPropertyName = "Date" + Me.DataGridViewTextBoxColumn1.HeaderText = "Date" + Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" + ' + 'DataGridViewTextBoxColumn2 + ' + Me.DataGridViewTextBoxColumn2.DataPropertyName = "Species_ID" + Me.DataGridViewTextBoxColumn2.HeaderText = "Species_ID" + Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" + ' + 'DataGridViewTextBoxColumn3 + ' + Me.DataGridViewTextBoxColumn3.DataPropertyName = "User_ID" + Me.DataGridViewTextBoxColumn3.HeaderText = "User_ID" + Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3" + ' + 'DataGridViewTextBoxColumn4 + ' + Me.DataGridViewTextBoxColumn4.DataPropertyName = "Location_ID" + Me.DataGridViewTextBoxColumn4.HeaderText = "Location_ID" + Me.DataGridViewTextBoxColumn4.Name = "DataGridViewTextBoxColumn4" + ' + 'DataGridViewTextBoxColumn5 + ' + Me.DataGridViewTextBoxColumn5.DataPropertyName = "Season" + Me.DataGridViewTextBoxColumn5.HeaderText = "Season" + Me.DataGridViewTextBoxColumn5.Name = "DataGridViewTextBoxColumn5" + ' + 'DataGridViewTextBoxColumn8 + ' + Me.DataGridViewTextBoxColumn8.DataPropertyName = "Additional_Comments" + Me.DataGridViewTextBoxColumn8.HeaderText = "Additional_Comments" + Me.DataGridViewTextBoxColumn8.Name = "DataGridViewTextBoxColumn8" + ' + 'Edit_Find + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.CornflowerBlue + Me.ClientSize = New System.Drawing.Size(675, 379) + Me.Controls.Add(Me.Finds) + Me.Controls.Add(Me.User_Species_LinkBindingNavigator) + Me.Controls.Add(Me.Label2) + Me.Controls.Add(Me.My_Account_Button) + Me.Controls.Add(Me.Welcome_Screen_Button) + Me.Controls.Add(Me.Label1) + Me.Name = "Edit_Find" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Nature Findings: Edit Find" + CType(Me.Nature_Findings_Database, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.User_Species_LinkBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.User_Species_LinkBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit() + Me.User_Species_LinkBindingNavigator.ResumeLayout(False) + Me.User_Species_LinkBindingNavigator.PerformLayout() + CType(Me.Finds, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents My_Account_Button As System.Windows.Forms.Button + Friend WithEvents Welcome_Screen_Button As System.Windows.Forms.Button + Friend WithEvents Nature_Findings_Database As Nature_Findings_System.Nature_Findings_Database + Friend WithEvents User_Species_LinkBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents User_Species_LinkTableAdapter As Nature_Findings_System.Nature_Findings_DatabaseTableAdapters.User_Species_LinkTableAdapter + Friend WithEvents TableAdapterManager As Nature_Findings_System.Nature_Findings_DatabaseTableAdapters.TableAdapterManager + Friend WithEvents User_Species_LinkBindingNavigator As System.Windows.Forms.BindingNavigator + Friend WithEvents BindingNavigatorDeleteItem As System.Windows.Forms.ToolStripButton + Friend WithEvents User_Species_LinkBindingNavigatorSaveItem As System.Windows.Forms.ToolStripButton + Friend WithEvents Finds As System.Windows.Forms.DataGridView + Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn2 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn3 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn4 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn5 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn6 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn7 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn8 As System.Windows.Forms.DataGridViewTextBoxColumn +End Class diff --git a/Nature Findings/Nature Findings/Edit_Find.resx b/Nature Findings/Nature Findings/Edit_Find.resx new file mode 100644 index 0000000..9cc9a9a --- /dev/null +++ b/Nature Findings/Nature Findings/Edit_Find.resx @@ -0,0 +1,163 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + 213, 17 + + + 441, 17 + + + 663, 17 + + + 17, 56 + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wAAADsABataJCQAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC + DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC + rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV + i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG + 86CNhdrsX9a/uQZTPhQl4rMY4OLofbl3aX7I8uwPC7y/g1YdjyVJuEvT8e1tfwUYteHUxCCfHChDeHmG + QQvokjlOU+PbWA0x3pZnILVVI3uvQyHsbiLnqnGmRCF1NYD8pDhpRxOH7HQoAKZGkFKjceszQbpSrumX + bO+G80MFwKUTxgfgcO/b8D9IpXoFiiMDHIQm0skAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wAAADsABataJCQAAAi9JREFUOE+tkt1L01EYx3//QvfdBF10W1NjOBerwa9cQ1k2DCvCXn6RZmm6TBMV + K9Oo+QbZCpdOWq0m4aQiX8AUKRFlKlmauaIlDjXFJoLB1/Oc/fK4ii6iB56bw/l8znlepP8Sz5+FQelr + XUKLdxEP3fNoagzhrmMadbVfYL8VwPXySZSWjKOw4C3yckdw/pwfKi5JBHZ1ArU1K/hbLK+swpTahUOp + T3mquCR5nyxwQWXFN/Xq70FwaH4ZuywvoNEosB70CIH7wRwXlJZ8Va9Hx0/4Y3ABMWYfCi5N4YClWQic + DTNccNH2QUVEbISHJ0LYJnuRkz2G5CSnENTfDnJB1tkRFYvEr3CfP4jNBjcUZQBms0MIaqo/c4FyakBF + /wx39n/CpvhGHD7yComJdUJwo3IKHe1gowSOHX8D69Fe3m1qGNVM36aXI3A3UqwvIct2IbhSNoE2H9gO + AM2uH2zu31F+bZY3lRpGNWdm+Nfh/cmtMBorhOBy4Rg8j4D7zlW2OGGY0rKj0pJuQ9qZogicxOB9HhgM + ZUJgyxtlMFBdFeYvE0TnMToZg+9nMDo5CyX3KvaYWjis2+2CXl8kBLSWjjtY/zYJCD6dfxPvAnMITC/i + QrEdsQYXg5sQm3APuvh8IcjMGGJ1L3F4q9GDLTtkPG7rga+9Dx3d/eh9PYi9Zis0+gbEMXi7th5abU60 + 4OSJHr6etGG0JDRnGhV1mxpGNdOrlATvjMsSgn8PSVoDbGg6a0b5NXsAAAAASUVORK5CYII= + + + \ No newline at end of file diff --git a/Nature Findings/Nature Findings/Edit_Find.vb b/Nature Findings/Nature Findings/Edit_Find.vb new file mode 100644 index 0000000..9209b03 --- /dev/null +++ b/Nature Findings/Nature Findings/Edit_Find.vb @@ -0,0 +1,33 @@ +Public Class Edit_Find + + Private Sub Welcome_Screen_Button_Click() Handles Welcome_Screen_Button.Click + 'Loads the Welcome Screen and closes this form. + Welcome.Show() + Me.Close() + End Sub + + Private Sub My_Account_Button_Click() Handles My_Account_Button.Click + 'Loads the My Account Screen and closes this form. + My_Account.Show() + Me.Close() + End Sub + + Private Sub User_Species_LinkBindingNavigatorSaveItem_Click() Handles User_Species_LinkBindingNavigatorSaveItem.Click + 'This saves the updated Finds that the user has edited or viewed. + Me.Validate() + Me.User_Species_LinkBindingSource.EndEdit() + Me.TableAdapterManager.UpdateAll(Me.Nature_Findings_Database) + + 'Sends a save confirmation to the user + MsgBox("Finds Updated") + End Sub + + Private Sub Edit_Find_Load() Handles MyBase.Load + 'This loads the form with the Finds specific to that user. + Try + Me.User_Species_LinkTableAdapter.Fill_Life_List(Nature_Findings_Database.User_Species_Link, Global_Variables.User_ID) + Catch ex As System.Exception + System.Windows.Forms.MessageBox.Show(ex.Message) + End Try + End Sub +End Class \ No newline at end of file diff --git a/Nature Findings/Nature Findings/Edit_Location.Designer.vb b/Nature Findings/Nature Findings/Edit_Location.Designer.vb new file mode 100644 index 0000000..e021cf3 --- /dev/null +++ b/Nature Findings/Nature Findings/Edit_Location.Designer.vb @@ -0,0 +1,257 @@ + _ +Partial Class Edit_Location + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Edit_Location)) + Me.Welcome_Screen_Button = New System.Windows.Forms.Button() + Me.My_Account_Button = New System.Windows.Forms.Button() + Me.Label1 = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.Nature_Findings_Database = New Nature_Findings_System.Nature_Findings_Database() + Me.LocationBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.LocationTableAdapter = New Nature_Findings_System.Nature_Findings_DatabaseTableAdapters.LocationTableAdapter() + Me.TableAdapterManager = New Nature_Findings_System.Nature_Findings_DatabaseTableAdapters.TableAdapterManager() + Me.LocationBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) + Me.LocationBindingNavigatorSaveItem = New System.Windows.Forms.ToolStripButton() + Me.LocationDataGridView = New System.Windows.Forms.DataGridView() + Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn4 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn5 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn6 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn7 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn8 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn9 = New System.Windows.Forms.DataGridViewTextBoxColumn() + CType(Me.Nature_Findings_Database, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LocationBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LocationBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() + Me.LocationBindingNavigator.SuspendLayout() + CType(Me.LocationDataGridView, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'Welcome_Screen_Button + ' + Me.Welcome_Screen_Button.Location = New System.Drawing.Point(336, 12) + Me.Welcome_Screen_Button.Name = "Welcome_Screen_Button" + Me.Welcome_Screen_Button.Size = New System.Drawing.Size(75, 37) + Me.Welcome_Screen_Button.TabIndex = 0 + Me.Welcome_Screen_Button.Text = "Welcome Screen" + Me.Welcome_Screen_Button.UseVisualStyleBackColor = True + ' + 'My_Account_Button + ' + Me.My_Account_Button.Location = New System.Drawing.Point(534, 12) + Me.My_Account_Button.Name = "My_Account_Button" + Me.My_Account_Button.Size = New System.Drawing.Size(75, 37) + Me.My_Account_Button.TabIndex = 1 + Me.My_Account_Button.Text = "My Account" + Me.My_Account_Button.UseVisualStyleBackColor = True + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(417, 9) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(111, 18) + Me.Label1.TabIndex = 2 + Me.Label1.Text = "Nature Findings" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label2.Location = New System.Drawing.Point(425, 27) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(94, 18) + Me.Label2.TabIndex = 3 + Me.Label2.Text = "Edit Location" + ' + 'Nature_Findings_Database + ' + Me.Nature_Findings_Database.DataSetName = "Nature_Findings_Database" + Me.Nature_Findings_Database.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'LocationBindingSource + ' + Me.LocationBindingSource.DataMember = "Location" + Me.LocationBindingSource.DataSource = Me.Nature_Findings_Database + ' + 'LocationTableAdapter + ' + Me.LocationTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.LocationTableAdapter = Me.LocationTableAdapter + Me.TableAdapterManager.SpeciesTableAdapter = Nothing + Me.TableAdapterManager.UpdateOrder = Nature_Findings_System.Nature_Findings_DatabaseTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + Me.TableAdapterManager.User_Species_LinkTableAdapter = Nothing + Me.TableAdapterManager.UsersTableAdapter = Nothing + ' + 'LocationBindingNavigator + ' + Me.LocationBindingNavigator.AddNewItem = Nothing + Me.LocationBindingNavigator.BindingSource = Me.LocationBindingSource + Me.LocationBindingNavigator.CountItem = Nothing + Me.LocationBindingNavigator.DeleteItem = Nothing + Me.LocationBindingNavigator.Dock = System.Windows.Forms.DockStyle.Bottom + Me.LocationBindingNavigator.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden + Me.LocationBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.LocationBindingNavigatorSaveItem}) + Me.LocationBindingNavigator.Location = New System.Drawing.Point(0, 418) + Me.LocationBindingNavigator.MoveFirstItem = Nothing + Me.LocationBindingNavigator.MoveLastItem = Nothing + Me.LocationBindingNavigator.MoveNextItem = Nothing + Me.LocationBindingNavigator.MovePreviousItem = Nothing + Me.LocationBindingNavigator.Name = "LocationBindingNavigator" + Me.LocationBindingNavigator.PositionItem = Nothing + Me.LocationBindingNavigator.Size = New System.Drawing.Size(944, 25) + Me.LocationBindingNavigator.TabIndex = 4 + Me.LocationBindingNavigator.Text = "BindingNavigator1" + ' + 'LocationBindingNavigatorSaveItem + ' + Me.LocationBindingNavigatorSaveItem.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right + Me.LocationBindingNavigatorSaveItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.LocationBindingNavigatorSaveItem.Image = CType(resources.GetObject("LocationBindingNavigatorSaveItem.Image"), System.Drawing.Image) + Me.LocationBindingNavigatorSaveItem.Name = "LocationBindingNavigatorSaveItem" + Me.LocationBindingNavigatorSaveItem.Size = New System.Drawing.Size(23, 22) + Me.LocationBindingNavigatorSaveItem.Text = "Save Data" + ' + 'LocationDataGridView + ' + Me.LocationDataGridView.AllowUserToAddRows = False + Me.LocationDataGridView.AutoGenerateColumns = False + Me.LocationDataGridView.BackgroundColor = System.Drawing.Color.CornflowerBlue + Me.LocationDataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.LocationDataGridView.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn1, Me.DataGridViewTextBoxColumn2, Me.DataGridViewTextBoxColumn3, Me.DataGridViewTextBoxColumn4, Me.DataGridViewTextBoxColumn5, Me.DataGridViewTextBoxColumn6, Me.DataGridViewTextBoxColumn7, Me.DataGridViewTextBoxColumn8, Me.DataGridViewTextBoxColumn9}) + Me.LocationDataGridView.DataSource = Me.LocationBindingSource + Me.LocationDataGridView.Dock = System.Windows.Forms.DockStyle.Bottom + Me.LocationDataGridView.GridColor = System.Drawing.Color.SteelBlue + Me.LocationDataGridView.Location = New System.Drawing.Point(0, 55) + Me.LocationDataGridView.Name = "LocationDataGridView" + Me.LocationDataGridView.Size = New System.Drawing.Size(944, 363) + Me.LocationDataGridView.TabIndex = 5 + ' + 'DataGridViewTextBoxColumn1 + ' + Me.DataGridViewTextBoxColumn1.DataPropertyName = "Location_ID" + Me.DataGridViewTextBoxColumn1.HeaderText = "Location_ID" + Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" + ' + 'DataGridViewTextBoxColumn2 + ' + Me.DataGridViewTextBoxColumn2.DataPropertyName = "Location_Name" + Me.DataGridViewTextBoxColumn2.HeaderText = "Location_Name" + Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" + ' + 'DataGridViewTextBoxColumn3 + ' + Me.DataGridViewTextBoxColumn3.DataPropertyName = "Address" + Me.DataGridViewTextBoxColumn3.HeaderText = "Address" + Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3" + ' + 'DataGridViewTextBoxColumn4 + ' + Me.DataGridViewTextBoxColumn4.DataPropertyName = "Location_Owner" + Me.DataGridViewTextBoxColumn4.HeaderText = "Location_Owner" + Me.DataGridViewTextBoxColumn4.Name = "DataGridViewTextBoxColumn4" + ' + 'DataGridViewTextBoxColumn5 + ' + Me.DataGridViewTextBoxColumn5.DataPropertyName = "Opening_Times" + Me.DataGridViewTextBoxColumn5.HeaderText = "Opening_Times" + Me.DataGridViewTextBoxColumn5.Name = "DataGridViewTextBoxColumn5" + ' + 'DataGridViewTextBoxColumn6 + ' + Me.DataGridViewTextBoxColumn6.DataPropertyName = "Contact_Details" + Me.DataGridViewTextBoxColumn6.HeaderText = "Contact_Details" + Me.DataGridViewTextBoxColumn6.Name = "DataGridViewTextBoxColumn6" + ' + 'DataGridViewTextBoxColumn7 + ' + Me.DataGridViewTextBoxColumn7.DataPropertyName = "Website" + Me.DataGridViewTextBoxColumn7.HeaderText = "Website" + Me.DataGridViewTextBoxColumn7.Name = "DataGridViewTextBoxColumn7" + ' + 'DataGridViewTextBoxColumn8 + ' + Me.DataGridViewTextBoxColumn8.DataPropertyName = "Entry_Price" + Me.DataGridViewTextBoxColumn8.HeaderText = "Entry_Price" + Me.DataGridViewTextBoxColumn8.Name = "DataGridViewTextBoxColumn8" + ' + 'DataGridViewTextBoxColumn9 + ' + Me.DataGridViewTextBoxColumn9.DataPropertyName = "Opening_Date" + Me.DataGridViewTextBoxColumn9.HeaderText = "Opening_Date" + Me.DataGridViewTextBoxColumn9.Name = "DataGridViewTextBoxColumn9" + ' + 'Edit_Location + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.CornflowerBlue + Me.ClientSize = New System.Drawing.Size(944, 443) + Me.Controls.Add(Me.LocationDataGridView) + Me.Controls.Add(Me.LocationBindingNavigator) + Me.Controls.Add(Me.Label2) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.My_Account_Button) + Me.Controls.Add(Me.Welcome_Screen_Button) + Me.Name = "Edit_Location" + Me.Text = "Nature Findings: Edit Location" + CType(Me.Nature_Findings_Database, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LocationBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LocationBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit() + Me.LocationBindingNavigator.ResumeLayout(False) + Me.LocationBindingNavigator.PerformLayout() + CType(Me.LocationDataGridView, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents Welcome_Screen_Button As System.Windows.Forms.Button + Friend WithEvents My_Account_Button As System.Windows.Forms.Button + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents Nature_Findings_Database As Nature_Findings_System.Nature_Findings_Database + Friend WithEvents LocationBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents LocationTableAdapter As Nature_Findings_System.Nature_Findings_DatabaseTableAdapters.LocationTableAdapter + Friend WithEvents TableAdapterManager As Nature_Findings_System.Nature_Findings_DatabaseTableAdapters.TableAdapterManager + Friend WithEvents LocationBindingNavigator As System.Windows.Forms.BindingNavigator + Friend WithEvents LocationBindingNavigatorSaveItem As System.Windows.Forms.ToolStripButton + Friend WithEvents LocationDataGridView As System.Windows.Forms.DataGridView + Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn2 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn3 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn4 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn5 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn6 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn7 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn8 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn9 As System.Windows.Forms.DataGridViewTextBoxColumn +End Class diff --git a/Nature Findings/Nature Findings/Edit_Location.resx b/Nature Findings/Nature Findings/Edit_Location.resx new file mode 100644 index 0000000..bcdba86 --- /dev/null +++ b/Nature Findings/Nature Findings/Edit_Location.resx @@ -0,0 +1,151 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + 213, 17 + + + 390, 17 + + + 561, 17 + + + 734, 17 + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsIAAA7CARUoSoAAAAIpSURBVDhPrZPdS5NxFMf3L3TfTdBFtzU1hmuxGjzlHMqq + YVgRvT2RL+XSZZqoWJlGLV8gW+HSScvpJJxU+AamSI2hTCVLM1e0xKGm2EQw+PY7v+j5tTJv6gfn8vM5 + zznn+6hU/+M9exoFla99GW3eJTx2L6CxIYL7jhnU1nyC/XYIN8qnUFoygcKC18jLHcWF80EovQns7QFq + qlex0VtZXYMxrReH057wUgTe1kUuqKz48lee4MjCCnabn0OtlmE55BEC96N5Ligt+byu4Cf8PryIOJMP + BZenccDcJATO+lkuuGR794fgV3hkMoJtkhfWnHGkpjiFoO5umAuys0ZjBL/Dg8EwNuvdkOUATCaHEFRX + feQC+UxAEawH9/g/YFNiA44cfYGkpFohuFk5je4usFMCx0++guXYAN82LYxmps+mzj/gPhy0dEKS7EJw + tWwSHT6wDABNrm/s7l9Rfn2OL5UWRjNnZgQVODm1HQZDhRBcKRyHpxl46FxjwYnCmJ4TU+YTNqSfK+Kd + k1MYvN8Dvb5MCGx5YwwGqu5EeWcSUEjitBKG3s5ibGoOcu417DW2cVi7xwWdrkgIKJaOe1A+mwQEn82/ + hTeheYRmlnCx2I54vYvBjYjf9QDaxHwhyMwYZnMv85m3GjzYskNCS0c/fF2D6O7zY+DlEPaZLFDr6pHA + 4O2aOmg01ljB6VP9PJ6UMAoJ3ZlORdumhdHM1JWK4J0J2ULwL3/0d2xoOmtKzOuNAAAAAElFTkSuQmCC + + + \ No newline at end of file diff --git a/Nature Findings/Nature Findings/Edit_Location.vb b/Nature Findings/Nature Findings/Edit_Location.vb new file mode 100644 index 0000000..283c2fd --- /dev/null +++ b/Nature Findings/Nature Findings/Edit_Location.vb @@ -0,0 +1,30 @@ +Public Class Edit_Location + + Private Sub Welcome_Screen_Button_Click() Handles Welcome_Screen_Button.Click + 'Loads the Welcome Screen and closes this form. + Welcome.Show() + Me.Close() + End Sub + + Private Sub My_Account_Button_Click() Handles My_Account_Button.Click + 'Loads the My Account Screen and closes this form. + My_Account.Show() + Me.Close() + End Sub + + Private Sub LocationBindingNavigatorSaveItem_Click() Handles LocationBindingNavigatorSaveItem.Click + 'Saves the edited locations users have entered. + Me.Validate() + Me.LocationBindingSource.EndEdit() + Me.TableAdapterManager.UpdateAll(Me.Nature_Findings_Database) + + 'Sends a save confirmation to the user + MsgBox("Locations Updated") + End Sub + + Private Sub Edit_Location_Load() Handles MyBase.Load + 'This loads data into the form. + Me.LocationTableAdapter.Fill(Me.Nature_Findings_Database.Location) + + End Sub +End Class \ No newline at end of file diff --git a/Nature Findings/Nature Findings/Global_Variables.vb b/Nature Findings/Nature Findings/Global_Variables.vb new file mode 100644 index 0000000..6f6d290 --- /dev/null +++ b/Nature Findings/Nature Findings/Global_Variables.vb @@ -0,0 +1,16 @@ +Module Global_Variables + Public Username As String 'Stores the Username for use within the program. + Public User_ID As Integer 'Stores the User ID for use within the program. + Public Contributor_Name As String 'Stores the Contributor Name for the Welcome Screen Message. + + 'Specific for the Add Species Screen + Public Add_Species_Clicked As Boolean 'Tells the program if the user has pressed Add New on the Add New Species Screen + Public Does_Species_Exist As Boolean 'Tells the program if the Species already exists in the database + + 'Specific for the Add Location Screen + Public Add_Location_Clicked As Boolean 'Tells the program if the user has pressed Add New on the Add New Location Screen + Public Does_Location_Exist As Boolean 'Tells the program if the Location already exists in the database + + 'Specific for the Add Find Screen + Public Add_Find_Clicked As Boolean 'Tells the program if the user has pressed Add New on the Add New Find Screen +End Module diff --git a/Nature Findings/Nature Findings/Knowledge_Base_Finds.Designer.vb b/Nature Findings/Nature Findings/Knowledge_Base_Finds.Designer.vb new file mode 100644 index 0000000..8c87c6b --- /dev/null +++ b/Nature Findings/Nature Findings/Knowledge_Base_Finds.Designer.vb @@ -0,0 +1,375 @@ + _ +Partial Class Knowledge_Base_Finds + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.Label2 = New System.Windows.Forms.Label() + Me.My_Account_Button = New System.Windows.Forms.Button() + Me.Welcome_Screen_Button = New System.Windows.Forms.Button() + Me.Label1 = New System.Windows.Forms.Label() + Me.Nature_Findings_Database = New Nature_Findings_System.Nature_Findings_Database() + Me.User_Species_LinkBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.User_Species_LinkTableAdapter = New Nature_Findings_System.Nature_Findings_DatabaseTableAdapters.User_Species_LinkTableAdapter() + Me.TableAdapterManager = New Nature_Findings_System.Nature_Findings_DatabaseTableAdapters.TableAdapterManager() + Me.Find_Search_Results = New System.Windows.Forms.DataGridView() + Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn4 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn5 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn6 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Location_ID_Button = New System.Windows.Forms.Button() + Me.Species_ID_Button = New System.Windows.Forms.Button() + Me.Location_Criteria_Input = New System.Windows.Forms.TextBox() + Me.Species_Criterial_Input = New System.Windows.Forms.TextBox() + Me.Date_Criteria_Input = New System.Windows.Forms.DateTimePicker() + Me.Season_Criteria_Input = New System.Windows.Forms.ComboBox() + Me.User_Criteria_Input = New System.Windows.Forms.TextBox() + Me.User_ID_Button = New System.Windows.Forms.Button() + Me.Search_By_Date_Button = New System.Windows.Forms.Button() + Me.Search_By_User_Button = New System.Windows.Forms.Button() + Me.Search_By_Species_Button = New System.Windows.Forms.Button() + Me.Search_By_Location_Button = New System.Windows.Forms.Button() + Me.Search_By_Season_Button = New System.Windows.Forms.Button() + Me.Search_Location_Button = New System.Windows.Forms.Button() + Me.Back_Button = New System.Windows.Forms.Button() + CType(Me.Nature_Findings_Database, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.User_Species_LinkBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Find_Search_Results, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label2.Location = New System.Drawing.Point(473, 28) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(87, 18) + Me.Label2.TabIndex = 27 + Me.Label2.Text = "Find Search" + ' + 'My_Account_Button + ' + Me.My_Account_Button.Location = New System.Drawing.Point(571, 12) + Me.My_Account_Button.Name = "My_Account_Button" + Me.My_Account_Button.Size = New System.Drawing.Size(75, 37) + Me.My_Account_Button.TabIndex = 25 + Me.My_Account_Button.Text = "My Account" + Me.My_Account_Button.UseVisualStyleBackColor = True + ' + 'Welcome_Screen_Button + ' + Me.Welcome_Screen_Button.Location = New System.Drawing.Point(299, 12) + Me.Welcome_Screen_Button.Name = "Welcome_Screen_Button" + Me.Welcome_Screen_Button.Size = New System.Drawing.Size(75, 37) + Me.Welcome_Screen_Button.TabIndex = 24 + Me.Welcome_Screen_Button.Text = "Welcome Screen" + Me.Welcome_Screen_Button.UseVisualStyleBackColor = True + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(461, 10) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(111, 18) + Me.Label1.TabIndex = 26 + Me.Label1.Text = "Nature Findings" + ' + 'Nature_Findings_Database + ' + Me.Nature_Findings_Database.DataSetName = "Nature_Findings_Database" + Me.Nature_Findings_Database.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'User_Species_LinkBindingSource + ' + Me.User_Species_LinkBindingSource.DataMember = "User_Species_Link" + Me.User_Species_LinkBindingSource.DataSource = Me.Nature_Findings_Database + ' + 'User_Species_LinkTableAdapter + ' + Me.User_Species_LinkTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.LocationTableAdapter = Nothing + Me.TableAdapterManager.SpeciesTableAdapter = Nothing + Me.TableAdapterManager.UpdateOrder = Nature_Findings_System.Nature_Findings_DatabaseTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + Me.TableAdapterManager.User_Species_LinkTableAdapter = Me.User_Species_LinkTableAdapter + Me.TableAdapterManager.UsersTableAdapter = Nothing + ' + 'Find_Search_Results + ' + Me.Find_Search_Results.AllowUserToAddRows = False + Me.Find_Search_Results.AllowUserToDeleteRows = False + Me.Find_Search_Results.AutoGenerateColumns = False + Me.Find_Search_Results.BackgroundColor = System.Drawing.Color.MediumPurple + Me.Find_Search_Results.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.Find_Search_Results.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.Find_Search_Results.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn1, Me.DataGridViewTextBoxColumn3, Me.DataGridViewTextBoxColumn2, Me.DataGridViewTextBoxColumn4, Me.DataGridViewTextBoxColumn5, Me.DataGridViewTextBoxColumn6}) + Me.Find_Search_Results.DataSource = Me.User_Species_LinkBindingSource + Me.Find_Search_Results.Dock = System.Windows.Forms.DockStyle.Bottom + Me.Find_Search_Results.GridColor = System.Drawing.Color.Purple + Me.Find_Search_Results.Location = New System.Drawing.Point(0, 132) + Me.Find_Search_Results.Name = "Find_Search_Results" + Me.Find_Search_Results.ReadOnly = True + Me.Find_Search_Results.Size = New System.Drawing.Size(1028, 442) + Me.Find_Search_Results.TabIndex = 28 + ' + 'DataGridViewTextBoxColumn1 + ' + Me.DataGridViewTextBoxColumn1.DataPropertyName = "Date" + Me.DataGridViewTextBoxColumn1.HeaderText = "Date" + Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" + Me.DataGridViewTextBoxColumn1.ReadOnly = True + ' + 'DataGridViewTextBoxColumn3 + ' + Me.DataGridViewTextBoxColumn3.DataPropertyName = "User_ID" + Me.DataGridViewTextBoxColumn3.HeaderText = "User_ID" + Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3" + Me.DataGridViewTextBoxColumn3.ReadOnly = True + ' + 'DataGridViewTextBoxColumn2 + ' + Me.DataGridViewTextBoxColumn2.DataPropertyName = "Species_ID" + Me.DataGridViewTextBoxColumn2.HeaderText = "Species_ID" + Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" + Me.DataGridViewTextBoxColumn2.ReadOnly = True + ' + 'DataGridViewTextBoxColumn4 + ' + Me.DataGridViewTextBoxColumn4.DataPropertyName = "Location_ID" + Me.DataGridViewTextBoxColumn4.HeaderText = "Location_ID" + Me.DataGridViewTextBoxColumn4.Name = "DataGridViewTextBoxColumn4" + Me.DataGridViewTextBoxColumn4.ReadOnly = True + ' + 'DataGridViewTextBoxColumn5 + ' + Me.DataGridViewTextBoxColumn5.DataPropertyName = "Season" + Me.DataGridViewTextBoxColumn5.HeaderText = "Season" + Me.DataGridViewTextBoxColumn5.Name = "DataGridViewTextBoxColumn5" + Me.DataGridViewTextBoxColumn5.ReadOnly = True + ' + 'DataGridViewTextBoxColumn6 + ' + Me.DataGridViewTextBoxColumn6.DataPropertyName = "Additional_Comments" + Me.DataGridViewTextBoxColumn6.HeaderText = "Additional_Comments" + Me.DataGridViewTextBoxColumn6.Name = "DataGridViewTextBoxColumn6" + Me.DataGridViewTextBoxColumn6.ReadOnly = True + ' + 'Location_ID_Button + ' + Me.Location_ID_Button.Location = New System.Drawing.Point(946, 53) + Me.Location_ID_Button.Name = "Location_ID_Button" + Me.Location_ID_Button.Size = New System.Drawing.Size(75, 23) + Me.Location_ID_Button.TabIndex = 30 + Me.Location_ID_Button.Text = "Location IDs" + Me.Location_ID_Button.UseVisualStyleBackColor = True + ' + 'Species_ID_Button + ' + Me.Species_ID_Button.Location = New System.Drawing.Point(431, 103) + Me.Species_ID_Button.Name = "Species_ID_Button" + Me.Species_ID_Button.Size = New System.Drawing.Size(75, 23) + Me.Species_ID_Button.TabIndex = 29 + Me.Species_ID_Button.Text = "Species IDs" + Me.Species_ID_Button.UseVisualStyleBackColor = True + ' + 'Location_Criteria_Input + ' + Me.Location_Criteria_Input.Location = New System.Drawing.Point(527, 55) + Me.Location_Criteria_Input.Name = "Location_Criteria_Input" + Me.Location_Criteria_Input.Size = New System.Drawing.Size(299, 20) + Me.Location_Criteria_Input.TabIndex = 31 + ' + 'Species_Criterial_Input + ' + Me.Species_Criterial_Input.Location = New System.Drawing.Point(12, 105) + Me.Species_Criterial_Input.Name = "Species_Criterial_Input" + Me.Species_Criterial_Input.Size = New System.Drawing.Size(299, 20) + Me.Species_Criterial_Input.TabIndex = 32 + ' + 'Date_Criteria_Input + ' + Me.Date_Criteria_Input.Location = New System.Drawing.Point(12, 52) + Me.Date_Criteria_Input.Name = "Date_Criteria_Input" + Me.Date_Criteria_Input.Size = New System.Drawing.Size(299, 20) + Me.Date_Criteria_Input.TabIndex = 33 + ' + 'Season_Criteria_Input + ' + Me.Season_Criteria_Input.FormattingEnabled = True + Me.Season_Criteria_Input.Items.AddRange(New Object() {"Spring", "Summer", "Autumn", "Winter"}) + Me.Season_Criteria_Input.Location = New System.Drawing.Point(527, 81) + Me.Season_Criteria_Input.Name = "Season_Criteria_Input" + Me.Season_Criteria_Input.Size = New System.Drawing.Size(299, 21) + Me.Season_Criteria_Input.TabIndex = 34 + ' + 'User_Criteria_Input + ' + Me.User_Criteria_Input.Location = New System.Drawing.Point(12, 79) + Me.User_Criteria_Input.Name = "User_Criteria_Input" + Me.User_Criteria_Input.Size = New System.Drawing.Size(299, 20) + Me.User_Criteria_Input.TabIndex = 35 + ' + 'User_ID_Button + ' + Me.User_ID_Button.Location = New System.Drawing.Point(431, 77) + Me.User_ID_Button.Name = "User_ID_Button" + Me.User_ID_Button.Size = New System.Drawing.Size(75, 23) + Me.User_ID_Button.TabIndex = 36 + Me.User_ID_Button.Text = "User IDs" + Me.User_ID_Button.UseVisualStyleBackColor = True + ' + 'Search_By_Date_Button + ' + Me.Search_By_Date_Button.Location = New System.Drawing.Point(317, 53) + Me.Search_By_Date_Button.Name = "Search_By_Date_Button" + Me.Search_By_Date_Button.Size = New System.Drawing.Size(108, 23) + Me.Search_By_Date_Button.TabIndex = 37 + Me.Search_By_Date_Button.Text = "Search By Date" + Me.Search_By_Date_Button.UseVisualStyleBackColor = True + ' + 'Search_By_User_Button + ' + Me.Search_By_User_Button.Location = New System.Drawing.Point(317, 77) + Me.Search_By_User_Button.Name = "Search_By_User_Button" + Me.Search_By_User_Button.Size = New System.Drawing.Size(108, 23) + Me.Search_By_User_Button.TabIndex = 38 + Me.Search_By_User_Button.Text = "Search By User" + Me.Search_By_User_Button.UseVisualStyleBackColor = True + ' + 'Search_By_Species_Button + ' + Me.Search_By_Species_Button.Location = New System.Drawing.Point(317, 103) + Me.Search_By_Species_Button.Name = "Search_By_Species_Button" + Me.Search_By_Species_Button.Size = New System.Drawing.Size(108, 23) + Me.Search_By_Species_Button.TabIndex = 39 + Me.Search_By_Species_Button.Text = "Search By Species" + Me.Search_By_Species_Button.UseVisualStyleBackColor = True + ' + 'Search_By_Location_Button + ' + Me.Search_By_Location_Button.Location = New System.Drawing.Point(832, 53) + Me.Search_By_Location_Button.Name = "Search_By_Location_Button" + Me.Search_By_Location_Button.Size = New System.Drawing.Size(108, 23) + Me.Search_By_Location_Button.TabIndex = 40 + Me.Search_By_Location_Button.Text = "Search By Location" + Me.Search_By_Location_Button.UseVisualStyleBackColor = True + ' + 'Search_By_Season_Button + ' + Me.Search_By_Season_Button.Location = New System.Drawing.Point(832, 79) + Me.Search_By_Season_Button.Name = "Search_By_Season_Button" + Me.Search_By_Season_Button.Size = New System.Drawing.Size(108, 23) + Me.Search_By_Season_Button.TabIndex = 41 + Me.Search_By_Season_Button.Text = "Search By Season" + Me.Search_By_Season_Button.UseVisualStyleBackColor = True + ' + 'Search_Location_Button + ' + Me.Search_Location_Button.Location = New System.Drawing.Point(652, 12) + Me.Search_Location_Button.Name = "Search_Location_Button" + Me.Search_Location_Button.Size = New System.Drawing.Size(75, 37) + Me.Search_Location_Button.TabIndex = 42 + Me.Search_Location_Button.Text = "Search Location" + Me.Search_Location_Button.UseVisualStyleBackColor = True + ' + 'Back_Button + ' + Me.Back_Button.Location = New System.Drawing.Point(380, 12) + Me.Back_Button.Name = "Back_Button" + Me.Back_Button.Size = New System.Drawing.Size(75, 37) + Me.Back_Button.TabIndex = 43 + Me.Back_Button.Text = "Back" + Me.Back_Button.UseVisualStyleBackColor = True + ' + 'Knowledge_Base_Finds + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.MediumPurple + Me.ClientSize = New System.Drawing.Size(1028, 574) + Me.Controls.Add(Me.Back_Button) + Me.Controls.Add(Me.Search_Location_Button) + Me.Controls.Add(Me.Search_By_Season_Button) + Me.Controls.Add(Me.Search_By_Location_Button) + Me.Controls.Add(Me.Search_By_Species_Button) + Me.Controls.Add(Me.Search_By_User_Button) + Me.Controls.Add(Me.Search_By_Date_Button) + Me.Controls.Add(Me.User_ID_Button) + Me.Controls.Add(Me.User_Criteria_Input) + Me.Controls.Add(Me.Season_Criteria_Input) + Me.Controls.Add(Me.Date_Criteria_Input) + Me.Controls.Add(Me.Species_Criterial_Input) + Me.Controls.Add(Me.Location_Criteria_Input) + Me.Controls.Add(Me.Location_ID_Button) + Me.Controls.Add(Me.Species_ID_Button) + Me.Controls.Add(Me.Find_Search_Results) + Me.Controls.Add(Me.Label2) + Me.Controls.Add(Me.My_Account_Button) + Me.Controls.Add(Me.Welcome_Screen_Button) + Me.Controls.Add(Me.Label1) + Me.Name = "Knowledge_Base_Finds" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Nature Findings: Search Finds" + CType(Me.Nature_Findings_Database, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.User_Species_LinkBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Find_Search_Results, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents My_Account_Button As System.Windows.Forms.Button + Friend WithEvents Welcome_Screen_Button As System.Windows.Forms.Button + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents Nature_Findings_Database As Nature_Findings_System.Nature_Findings_Database + Friend WithEvents User_Species_LinkBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents User_Species_LinkTableAdapter As Nature_Findings_System.Nature_Findings_DatabaseTableAdapters.User_Species_LinkTableAdapter + Friend WithEvents TableAdapterManager As Nature_Findings_System.Nature_Findings_DatabaseTableAdapters.TableAdapterManager + Friend WithEvents Find_Search_Results As System.Windows.Forms.DataGridView + Friend WithEvents Location_ID_Button As System.Windows.Forms.Button + Friend WithEvents Species_ID_Button As System.Windows.Forms.Button + Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn3 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn2 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn4 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn5 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn6 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents Location_Criteria_Input As System.Windows.Forms.TextBox + Friend WithEvents Species_Criterial_Input As System.Windows.Forms.TextBox + Friend WithEvents Date_Criteria_Input As System.Windows.Forms.DateTimePicker + Friend WithEvents Season_Criteria_Input As System.Windows.Forms.ComboBox + Friend WithEvents User_Criteria_Input As System.Windows.Forms.TextBox + Friend WithEvents User_ID_Button As System.Windows.Forms.Button + Friend WithEvents Search_By_Date_Button As System.Windows.Forms.Button + Friend WithEvents Search_By_User_Button As System.Windows.Forms.Button + Friend WithEvents Search_By_Species_Button As System.Windows.Forms.Button + Friend WithEvents Search_By_Location_Button As System.Windows.Forms.Button + Friend WithEvents Search_By_Season_Button As System.Windows.Forms.Button + Friend WithEvents Search_Location_Button As System.Windows.Forms.Button + Friend WithEvents Back_Button As System.Windows.Forms.Button +End Class diff --git a/Nature Findings/Nature Findings/Knowledge_Base_Finds.resx b/Nature Findings/Nature Findings/Knowledge_Base_Finds.resx new file mode 100644 index 0000000..051a00f --- /dev/null +++ b/Nature Findings/Nature Findings/Knowledge_Base_Finds.resx @@ -0,0 +1,135 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + 213, 17 + + + 441, 17 + + + 663, 17 + + + 84 + + \ No newline at end of file diff --git a/Nature Findings/Nature Findings/Knowledge_Base_Finds.vb b/Nature Findings/Nature Findings/Knowledge_Base_Finds.vb new file mode 100644 index 0000000..505e6f5 --- /dev/null +++ b/Nature Findings/Nature Findings/Knowledge_Base_Finds.vb @@ -0,0 +1,116 @@ +Public Class Knowledge_Base_Finds + + Private Sub Knowledge_Base_Species_Load() Handles MyBase.Load + 'This loads data into the form. + Me.User_Species_LinkTableAdapter.Fill(Me.Nature_Findings_Database.User_Species_Link) + End Sub + + Private Sub Species_ID_Button_Click() Handles Species_ID_Button.Click + 'Displays the available Species and their associated IDs + Species_IDs.Show() + End Sub + + Private Sub Location_ID_Button_Click() Handles Location_ID_Button.Click + 'Displays the available Locations and their associated IDs + Location_IDs.Show() + End Sub + + Private Sub User_ID_Button_Click() Handles User_ID_Button.Click + 'Displays the available Users and their associated IDs + User_IDs.Show() + End Sub + + Private Sub Welcome_Screen_Button_Click() Handles Welcome_Screen_Button.Click + 'Loads the Welcome Screen and closes this form. + Welcome.Show() + Me.Close() + End Sub + + Private Sub My_Account_Button_Click() Handles My_Account_Button.Click + 'Loads the My Account Screen and closes this form. + My_Account.Show() + Me.Close() + End Sub + + Private Sub Search_Location_Button_Click() Handles Search_Location_Button.Click + 'Loads the Search Locations Screen and closes this form. + Knowledge_Base_Locations.Show() + Me.Close() + End Sub + + Private Sub Back_Button_Click() Handles Back_Button.Click + 'Loads the Knowledge Base Home Screen and closes this form. + Knowledge_Base_Home.Show() + Me.Close() + End Sub + + Private Sub Search_By_Date_Button_Click() Handles Search_By_Date_Button.Click + 'This loads the search information when someone searches by Date. + Try + Me.User_Species_LinkTableAdapter.Fill_Species_By_Date(Me.Nature_Findings_Database.User_Species_Link, CType(Date_Criteria_Input.Text, String)) + Catch ex As System.Exception + System.Windows.Forms.MessageBox.Show(ex.Message) + End Try + + 'Lets the user know there are no search results + If Find_Search_Results.RowCount = Nothing Then + MsgBox("No Results Found") + End If + End Sub + + Private Sub Search_By_User_Button_Click() Handles Search_By_User_Button.Click + 'This loads the search information when someone searches by User. + Try + Me.User_Species_LinkTableAdapter.Fill_Species_By_User(Me.Nature_Findings_Database.User_Species_Link, CType(User_Criteria_Input.Text, String)) + Catch ex As System.Exception + System.Windows.Forms.MessageBox.Show(ex.Message) + End Try + + 'Lets the user know there are no search results + If Find_Search_Results.RowCount = Nothing Then + MsgBox("No Results Found") + End If + End Sub + + Private Sub Search_By_Species_Button_Click() Handles Search_By_Species_Button.Click + 'This loads the search information when someone searches by Species Name. + Try + Me.User_Species_LinkTableAdapter.Fill_Species_By_Name(Me.Nature_Findings_Database.User_Species_Link, CType(Species_Criterial_Input.Text, String)) + Catch ex As System.Exception + System.Windows.Forms.MessageBox.Show(ex.Message) + End Try + + 'Lets the user know there are no search results + If Find_Search_Results.RowCount = Nothing Then + MsgBox("No Results Found") + End If + End Sub + + Private Sub Search_By_Location_Button_Click() Handles Search_By_Location_Button.Click + 'This loads the search information when someone searches by Location Name. + Try + Me.User_Species_LinkTableAdapter.Fill_Species_By_Location(Me.Nature_Findings_Database.User_Species_Link, CType(Location_Criteria_Input.Text, String)) + Catch ex As System.Exception + System.Windows.Forms.MessageBox.Show(ex.Message) + End Try + + 'Lets the user know there are no search results + If Find_Search_Results.RowCount = Nothing Then + MsgBox("No Results Found") + End If + End Sub + + Private Sub Search_By_Season_Button_Click() Handles Search_By_Season_Button.Click + 'This loads the search information when someone searches by Season. + Try + Me.User_Species_LinkTableAdapter.Fill_Species_By_Season(Me.Nature_Findings_Database.User_Species_Link, CType(Season_Criteria_Input.Text, String)) + Catch ex As System.Exception + System.Windows.Forms.MessageBox.Show(ex.Message) + End Try + + 'Lets the user know there are no search results + If Find_Search_Results.RowCount = Nothing Then + MsgBox("No Results Found") + End If + End Sub +End Class \ No newline at end of file diff --git a/Nature Findings/Nature Findings/Knowledge_Base_Home.Designer.vb b/Nature Findings/Nature Findings/Knowledge_Base_Home.Designer.vb new file mode 100644 index 0000000..e7ed8e5 --- /dev/null +++ b/Nature Findings/Nature Findings/Knowledge_Base_Home.Designer.vb @@ -0,0 +1,133 @@ + _ +Partial Class Knowledge_Base_Home + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.Label2 = New System.Windows.Forms.Label() + Me.My_Account_Button = New System.Windows.Forms.Button() + Me.Welcome_Screen_Button = New System.Windows.Forms.Button() + Me.Label1 = New System.Windows.Forms.Label() + Me.Nature_Findings_Database = New Nature_Findings_System.Nature_Findings_Database() + Me.NatureFindingsDatabaseBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.Search_Finds_Button = New System.Windows.Forms.Button() + Me.Search_Location_Button = New System.Windows.Forms.Button() + CType(Me.Nature_Findings_Database, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.NatureFindingsDatabaseBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label2.Location = New System.Drawing.Point(110, 30) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(55, 18) + Me.Label2.TabIndex = 23 + Me.Label2.Text = "Search" + ' + 'My_Account_Button + ' + Me.My_Account_Button.Location = New System.Drawing.Point(197, 12) + Me.My_Account_Button.Name = "My_Account_Button" + Me.My_Account_Button.Size = New System.Drawing.Size(75, 37) + Me.My_Account_Button.TabIndex = 21 + Me.My_Account_Button.Text = "My Account" + Me.My_Account_Button.UseVisualStyleBackColor = True + ' + 'Welcome_Screen_Button + ' + Me.Welcome_Screen_Button.Location = New System.Drawing.Point(12, 12) + Me.Welcome_Screen_Button.Name = "Welcome_Screen_Button" + Me.Welcome_Screen_Button.Size = New System.Drawing.Size(75, 37) + Me.Welcome_Screen_Button.TabIndex = 20 + Me.Welcome_Screen_Button.Text = "Welcome Screen" + Me.Welcome_Screen_Button.UseVisualStyleBackColor = True + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(87, 10) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(111, 18) + Me.Label1.TabIndex = 22 + Me.Label1.Text = "Nature Findings" + ' + 'Nature_Findings_Database + ' + Me.Nature_Findings_Database.DataSetName = "Nature_Findings_Database" + Me.Nature_Findings_Database.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'NatureFindingsDatabaseBindingSource + ' + Me.NatureFindingsDatabaseBindingSource.DataSource = Me.Nature_Findings_Database + Me.NatureFindingsDatabaseBindingSource.Position = 0 + ' + 'Search_Finds_Button + ' + Me.Search_Finds_Button.Location = New System.Drawing.Point(145, 55) + Me.Search_Finds_Button.Name = "Search_Finds_Button" + Me.Search_Finds_Button.Size = New System.Drawing.Size(75, 37) + Me.Search_Finds_Button.TabIndex = 27 + Me.Search_Finds_Button.Text = "Search Finds" + Me.Search_Finds_Button.UseVisualStyleBackColor = True + ' + 'Search_Location_Button + ' + Me.Search_Location_Button.Location = New System.Drawing.Point(64, 55) + Me.Search_Location_Button.Name = "Search_Location_Button" + Me.Search_Location_Button.Size = New System.Drawing.Size(75, 37) + Me.Search_Location_Button.TabIndex = 26 + Me.Search_Location_Button.Text = "Search Location" + Me.Search_Location_Button.UseVisualStyleBackColor = True + ' + 'Knowledge_Base_Home + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.MediumPurple + Me.ClientSize = New System.Drawing.Size(284, 96) + Me.Controls.Add(Me.Search_Finds_Button) + Me.Controls.Add(Me.Search_Location_Button) + Me.Controls.Add(Me.Label2) + Me.Controls.Add(Me.My_Account_Button) + Me.Controls.Add(Me.Welcome_Screen_Button) + Me.Controls.Add(Me.Label1) + Me.Name = "Knowledge_Base_Home" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Nature Findings: Search Home" + CType(Me.Nature_Findings_Database, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.NatureFindingsDatabaseBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents My_Account_Button As System.Windows.Forms.Button + Friend WithEvents Welcome_Screen_Button As System.Windows.Forms.Button + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents Nature_Findings_Database As Nature_Findings_System.Nature_Findings_Database + Friend WithEvents NatureFindingsDatabaseBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents Search_Finds_Button As System.Windows.Forms.Button + Friend WithEvents Search_Location_Button As System.Windows.Forms.Button +End Class diff --git a/Nature Findings/Nature Findings/Knowledge_Base_Home.resx b/Nature Findings/Nature Findings/Knowledge_Base_Home.resx new file mode 100644 index 0000000..8e07422 --- /dev/null +++ b/Nature Findings/Nature Findings/Knowledge_Base_Home.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + 213, 17 + + \ No newline at end of file diff --git a/Nature Findings/Nature Findings/Knowledge_Base_Home.vb b/Nature Findings/Nature Findings/Knowledge_Base_Home.vb new file mode 100644 index 0000000..461bd10 --- /dev/null +++ b/Nature Findings/Nature Findings/Knowledge_Base_Home.vb @@ -0,0 +1,26 @@ +Public Class Knowledge_Base_Home + + Private Sub Welcome_Screen_Button_Click() Handles Welcome_Screen_Button.Click + 'Loads the Welcome Screen and closes this form. + Welcome.Show() + Me.Close() + End Sub + + Private Sub My_Account_Button_Click() Handles My_Account_Button.Click + 'Loads the My Account Screen and closes this form. + My_Account.Show() + Me.Close() + End Sub + + Private Sub Search_Location_Button_Click() Handles Search_Location_Button.Click + 'Loads the Search Locations Screen and closes this form. + Knowledge_Base_Locations.Show() + Me.Close() + End Sub + + Private Sub Search_Finds_Button_Click() Handles Search_Finds_Button.Click + 'Loads the Search Finds Screen and closes this form. + Knowledge_Base_Finds.Show() + Me.Close() + End Sub +End Class \ No newline at end of file diff --git a/Nature Findings/Nature Findings/Knowledge_Base_Locations.Designer.vb b/Nature Findings/Nature Findings/Knowledge_Base_Locations.Designer.vb new file mode 100644 index 0000000..36ed942 --- /dev/null +++ b/Nature Findings/Nature Findings/Knowledge_Base_Locations.Designer.vb @@ -0,0 +1,421 @@ + _ +Partial Class Knowledge_Base_Locations + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.Label2 = New System.Windows.Forms.Label() + Me.My_Account_Button = New System.Windows.Forms.Button() + Me.Welcome_Screen_Button = New System.Windows.Forms.Button() + Me.Label1 = New System.Windows.Forms.Label() + Me.Search_By_Name_Button = New System.Windows.Forms.Button() + Me.Name_Criteria_Input = New System.Windows.Forms.TextBox() + Me.Location_Search_Results = New System.Windows.Forms.DataGridView() + Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn4 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn5 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn6 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn7 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn8 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn9 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.LocationBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.Nature_Findings_Database = New Nature_Findings_System.Nature_Findings_Database() + Me.LocationTableAdapter = New Nature_Findings_System.Nature_Findings_DatabaseTableAdapters.LocationTableAdapter() + Me.TableAdapterManager = New Nature_Findings_System.Nature_Findings_DatabaseTableAdapters.TableAdapterManager() + Me.Search_Finds_Button = New System.Windows.Forms.Button() + Me.Back_Button = New System.Windows.Forms.Button() + Me.Search_By_Date_Button = New System.Windows.Forms.Button() + Me.Date_Criteria_Input = New System.Windows.Forms.DateTimePicker() + Me.Search_By_Address_Button = New System.Windows.Forms.Button() + Me.Address_Criteria_Input = New System.Windows.Forms.TextBox() + Me.Search_By_Owner_Button = New System.Windows.Forms.Button() + Me.Owner_Criteria_Input = New System.Windows.Forms.TextBox() + Me.Opening_Times_Criteria_Input = New System.Windows.Forms.TextBox() + Me.Search_By_Opening_Time_Button = New System.Windows.Forms.Button() + Me.Contact_Details_Criteria_Input = New System.Windows.Forms.TextBox() + Me.Search_By_Contact_Details_Button = New System.Windows.Forms.Button() + Me.Website_Criteria_Input = New System.Windows.Forms.TextBox() + Me.Search_By_Website_Button = New System.Windows.Forms.Button() + Me.Price_Criteria_Input = New System.Windows.Forms.TextBox() + Me.Search_By_Entry_Price_Button = New System.Windows.Forms.Button() + CType(Me.Location_Search_Results, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LocationBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Nature_Findings_Database, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label2.Location = New System.Drawing.Point(414, 30) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(116, 18) + Me.Label2.TabIndex = 27 + Me.Label2.Text = "Location Search" + ' + 'My_Account_Button + ' + Me.My_Account_Button.Location = New System.Drawing.Point(527, 12) + Me.My_Account_Button.Name = "My_Account_Button" + Me.My_Account_Button.Size = New System.Drawing.Size(75, 37) + Me.My_Account_Button.TabIndex = 25 + Me.My_Account_Button.Text = "My Account" + Me.My_Account_Button.UseVisualStyleBackColor = True + ' + 'Welcome_Screen_Button + ' + Me.Welcome_Screen_Button.Location = New System.Drawing.Point(255, 12) + Me.Welcome_Screen_Button.Name = "Welcome_Screen_Button" + Me.Welcome_Screen_Button.Size = New System.Drawing.Size(75, 37) + Me.Welcome_Screen_Button.TabIndex = 24 + Me.Welcome_Screen_Button.Text = "Welcome Screen" + Me.Welcome_Screen_Button.UseVisualStyleBackColor = True + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(417, 10) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(111, 18) + Me.Label1.TabIndex = 26 + Me.Label1.Text = "Nature Findings" + ' + 'Search_By_Name_Button + ' + Me.Search_By_Name_Button.Location = New System.Drawing.Point(317, 57) + Me.Search_By_Name_Button.Name = "Search_By_Name_Button" + Me.Search_By_Name_Button.Size = New System.Drawing.Size(141, 23) + Me.Search_By_Name_Button.TabIndex = 28 + Me.Search_By_Name_Button.Text = "Search By Location Name" + Me.Search_By_Name_Button.UseVisualStyleBackColor = True + ' + 'Name_Criteria_Input + ' + Me.Name_Criteria_Input.Location = New System.Drawing.Point(12, 58) + Me.Name_Criteria_Input.Name = "Name_Criteria_Input" + Me.Name_Criteria_Input.Size = New System.Drawing.Size(299, 20) + Me.Name_Criteria_Input.TabIndex = 29 + ' + 'Location_Search_Results + ' + Me.Location_Search_Results.AllowUserToAddRows = False + Me.Location_Search_Results.AllowUserToDeleteRows = False + Me.Location_Search_Results.AutoGenerateColumns = False + Me.Location_Search_Results.BackgroundColor = System.Drawing.Color.MediumPurple + Me.Location_Search_Results.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.Location_Search_Results.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.Location_Search_Results.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn1, Me.DataGridViewTextBoxColumn2, Me.DataGridViewTextBoxColumn3, Me.DataGridViewTextBoxColumn4, Me.DataGridViewTextBoxColumn5, Me.DataGridViewTextBoxColumn6, Me.DataGridViewTextBoxColumn7, Me.DataGridViewTextBoxColumn8, Me.DataGridViewTextBoxColumn9}) + Me.Location_Search_Results.DataSource = Me.LocationBindingSource + Me.Location_Search_Results.Dock = System.Windows.Forms.DockStyle.Bottom + Me.Location_Search_Results.GridColor = System.Drawing.Color.Purple + Me.Location_Search_Results.Location = New System.Drawing.Point(0, 161) + Me.Location_Search_Results.Name = "Location_Search_Results" + Me.Location_Search_Results.ReadOnly = True + Me.Location_Search_Results.Size = New System.Drawing.Size(953, 272) + Me.Location_Search_Results.TabIndex = 30 + ' + 'DataGridViewTextBoxColumn1 + ' + Me.DataGridViewTextBoxColumn1.DataPropertyName = "Location_ID" + Me.DataGridViewTextBoxColumn1.HeaderText = "Location_ID" + Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" + ' + 'DataGridViewTextBoxColumn2 + ' + Me.DataGridViewTextBoxColumn2.DataPropertyName = "Location_Name" + Me.DataGridViewTextBoxColumn2.HeaderText = "Location_Name" + Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" + ' + 'DataGridViewTextBoxColumn3 + ' + Me.DataGridViewTextBoxColumn3.DataPropertyName = "Address" + Me.DataGridViewTextBoxColumn3.HeaderText = "Address" + Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3" + ' + 'DataGridViewTextBoxColumn4 + ' + Me.DataGridViewTextBoxColumn4.DataPropertyName = "Location_Owner" + Me.DataGridViewTextBoxColumn4.HeaderText = "Location_Owner" + Me.DataGridViewTextBoxColumn4.Name = "DataGridViewTextBoxColumn4" + ' + 'DataGridViewTextBoxColumn5 + ' + Me.DataGridViewTextBoxColumn5.DataPropertyName = "Opening_Times" + Me.DataGridViewTextBoxColumn5.HeaderText = "Opening_Times" + Me.DataGridViewTextBoxColumn5.Name = "DataGridViewTextBoxColumn5" + ' + 'DataGridViewTextBoxColumn6 + ' + Me.DataGridViewTextBoxColumn6.DataPropertyName = "Contact_Details" + Me.DataGridViewTextBoxColumn6.HeaderText = "Contact_Details" + Me.DataGridViewTextBoxColumn6.Name = "DataGridViewTextBoxColumn6" + ' + 'DataGridViewTextBoxColumn7 + ' + Me.DataGridViewTextBoxColumn7.DataPropertyName = "Website" + Me.DataGridViewTextBoxColumn7.HeaderText = "Website" + Me.DataGridViewTextBoxColumn7.Name = "DataGridViewTextBoxColumn7" + ' + 'DataGridViewTextBoxColumn8 + ' + Me.DataGridViewTextBoxColumn8.DataPropertyName = "Entry_Price" + Me.DataGridViewTextBoxColumn8.HeaderText = "Entry_Price" + Me.DataGridViewTextBoxColumn8.Name = "DataGridViewTextBoxColumn8" + ' + 'DataGridViewTextBoxColumn9 + ' + Me.DataGridViewTextBoxColumn9.DataPropertyName = "Opening_Date" + Me.DataGridViewTextBoxColumn9.HeaderText = "Opening_Date" + Me.DataGridViewTextBoxColumn9.Name = "DataGridViewTextBoxColumn9" + ' + 'LocationBindingSource + ' + Me.LocationBindingSource.DataMember = "Location" + Me.LocationBindingSource.DataSource = Me.Nature_Findings_Database + ' + 'Nature_Findings_Database + ' + Me.Nature_Findings_Database.DataSetName = "Nature_Findings_Database" + Me.Nature_Findings_Database.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'LocationTableAdapter + ' + Me.LocationTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.LocationTableAdapter = Me.LocationTableAdapter + Me.TableAdapterManager.SpeciesTableAdapter = Nothing + Me.TableAdapterManager.UpdateOrder = Nature_Findings_System.Nature_Findings_DatabaseTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + Me.TableAdapterManager.User_Species_LinkTableAdapter = Nothing + Me.TableAdapterManager.UsersTableAdapter = Nothing + ' + 'Search_Finds_Button + ' + Me.Search_Finds_Button.Location = New System.Drawing.Point(608, 12) + Me.Search_Finds_Button.Name = "Search_Finds_Button" + Me.Search_Finds_Button.Size = New System.Drawing.Size(75, 37) + Me.Search_Finds_Button.TabIndex = 32 + Me.Search_Finds_Button.Text = "Search Finds" + Me.Search_Finds_Button.UseVisualStyleBackColor = True + ' + 'Back_Button + ' + Me.Back_Button.Location = New System.Drawing.Point(336, 12) + Me.Back_Button.Name = "Back_Button" + Me.Back_Button.Size = New System.Drawing.Size(75, 37) + Me.Back_Button.TabIndex = 44 + Me.Back_Button.Text = "Back" + Me.Back_Button.UseVisualStyleBackColor = True + ' + 'Search_By_Date_Button + ' + Me.Search_By_Date_Button.Location = New System.Drawing.Point(768, 132) + Me.Search_By_Date_Button.Name = "Search_By_Date_Button" + Me.Search_By_Date_Button.Size = New System.Drawing.Size(141, 23) + Me.Search_By_Date_Button.TabIndex = 53 + Me.Search_By_Date_Button.Text = "Search By Date" + Me.Search_By_Date_Button.UseVisualStyleBackColor = True + ' + 'Date_Criteria_Input + ' + Me.Date_Criteria_Input.Location = New System.Drawing.Point(464, 133) + Me.Date_Criteria_Input.Name = "Date_Criteria_Input" + Me.Date_Criteria_Input.Size = New System.Drawing.Size(299, 20) + Me.Date_Criteria_Input.TabIndex = 49 + ' + 'Search_By_Address_Button + ' + Me.Search_By_Address_Button.Location = New System.Drawing.Point(317, 82) + Me.Search_By_Address_Button.Name = "Search_By_Address_Button" + Me.Search_By_Address_Button.Size = New System.Drawing.Size(141, 23) + Me.Search_By_Address_Button.TabIndex = 54 + Me.Search_By_Address_Button.Text = "Search By Address" + Me.Search_By_Address_Button.UseVisualStyleBackColor = True + ' + 'Address_Criteria_Input + ' + Me.Address_Criteria_Input.Location = New System.Drawing.Point(12, 83) + Me.Address_Criteria_Input.Name = "Address_Criteria_Input" + Me.Address_Criteria_Input.Size = New System.Drawing.Size(299, 20) + Me.Address_Criteria_Input.TabIndex = 55 + ' + 'Search_By_Owner_Button + ' + Me.Search_By_Owner_Button.Location = New System.Drawing.Point(317, 107) + Me.Search_By_Owner_Button.Name = "Search_By_Owner_Button" + Me.Search_By_Owner_Button.Size = New System.Drawing.Size(141, 23) + Me.Search_By_Owner_Button.TabIndex = 56 + Me.Search_By_Owner_Button.Text = "Search By Owners" + Me.Search_By_Owner_Button.UseVisualStyleBackColor = True + ' + 'Owner_Criteria_Input + ' + Me.Owner_Criteria_Input.Location = New System.Drawing.Point(13, 108) + Me.Owner_Criteria_Input.Name = "Owner_Criteria_Input" + Me.Owner_Criteria_Input.Size = New System.Drawing.Size(298, 20) + Me.Owner_Criteria_Input.TabIndex = 57 + ' + 'Opening_Times_Criteria_Input + ' + Me.Opening_Times_Criteria_Input.Location = New System.Drawing.Point(13, 133) + Me.Opening_Times_Criteria_Input.Name = "Opening_Times_Criteria_Input" + Me.Opening_Times_Criteria_Input.Size = New System.Drawing.Size(298, 20) + Me.Opening_Times_Criteria_Input.TabIndex = 59 + ' + 'Search_By_Opening_Time_Button + ' + Me.Search_By_Opening_Time_Button.Location = New System.Drawing.Point(317, 132) + Me.Search_By_Opening_Time_Button.Name = "Search_By_Opening_Time_Button" + Me.Search_By_Opening_Time_Button.Size = New System.Drawing.Size(141, 23) + Me.Search_By_Opening_Time_Button.TabIndex = 58 + Me.Search_By_Opening_Time_Button.Text = "Search By Opening Times" + Me.Search_By_Opening_Time_Button.UseVisualStyleBackColor = True + ' + 'Contact_Details_Criteria_Input + ' + Me.Contact_Details_Criteria_Input.Location = New System.Drawing.Point(464, 55) + Me.Contact_Details_Criteria_Input.Name = "Contact_Details_Criteria_Input" + Me.Contact_Details_Criteria_Input.Size = New System.Drawing.Size(298, 20) + Me.Contact_Details_Criteria_Input.TabIndex = 61 + ' + 'Search_By_Contact_Details_Button + ' + Me.Search_By_Contact_Details_Button.Location = New System.Drawing.Point(768, 54) + Me.Search_By_Contact_Details_Button.Name = "Search_By_Contact_Details_Button" + Me.Search_By_Contact_Details_Button.Size = New System.Drawing.Size(141, 23) + Me.Search_By_Contact_Details_Button.TabIndex = 60 + Me.Search_By_Contact_Details_Button.Text = "Search By Contact Details" + Me.Search_By_Contact_Details_Button.UseVisualStyleBackColor = True + ' + 'Website_Criteria_Input + ' + Me.Website_Criteria_Input.Location = New System.Drawing.Point(464, 81) + Me.Website_Criteria_Input.Name = "Website_Criteria_Input" + Me.Website_Criteria_Input.Size = New System.Drawing.Size(298, 20) + Me.Website_Criteria_Input.TabIndex = 63 + ' + 'Search_By_Website_Button + ' + Me.Search_By_Website_Button.Location = New System.Drawing.Point(768, 80) + Me.Search_By_Website_Button.Name = "Search_By_Website_Button" + Me.Search_By_Website_Button.Size = New System.Drawing.Size(141, 23) + Me.Search_By_Website_Button.TabIndex = 62 + Me.Search_By_Website_Button.Text = "Search By Website" + Me.Search_By_Website_Button.UseVisualStyleBackColor = True + ' + 'Price_Criteria_Input + ' + Me.Price_Criteria_Input.Location = New System.Drawing.Point(464, 107) + Me.Price_Criteria_Input.Name = "Price_Criteria_Input" + Me.Price_Criteria_Input.Size = New System.Drawing.Size(298, 20) + Me.Price_Criteria_Input.TabIndex = 65 + ' + 'Search_By_Entry_Price_Button + ' + Me.Search_By_Entry_Price_Button.Location = New System.Drawing.Point(768, 106) + Me.Search_By_Entry_Price_Button.Name = "Search_By_Entry_Price_Button" + Me.Search_By_Entry_Price_Button.Size = New System.Drawing.Size(141, 23) + Me.Search_By_Entry_Price_Button.TabIndex = 64 + Me.Search_By_Entry_Price_Button.Text = "Search By Entry Price" + Me.Search_By_Entry_Price_Button.UseVisualStyleBackColor = True + ' + 'Knowledge_Base_Locations + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.MediumPurple + Me.ClientSize = New System.Drawing.Size(953, 433) + Me.Controls.Add(Me.Price_Criteria_Input) + Me.Controls.Add(Me.Search_By_Entry_Price_Button) + Me.Controls.Add(Me.Website_Criteria_Input) + Me.Controls.Add(Me.Search_By_Website_Button) + Me.Controls.Add(Me.Contact_Details_Criteria_Input) + Me.Controls.Add(Me.Search_By_Contact_Details_Button) + Me.Controls.Add(Me.Opening_Times_Criteria_Input) + Me.Controls.Add(Me.Search_By_Opening_Time_Button) + Me.Controls.Add(Me.Owner_Criteria_Input) + Me.Controls.Add(Me.Search_By_Owner_Button) + Me.Controls.Add(Me.Address_Criteria_Input) + Me.Controls.Add(Me.Search_By_Address_Button) + Me.Controls.Add(Me.Search_By_Date_Button) + Me.Controls.Add(Me.Date_Criteria_Input) + Me.Controls.Add(Me.Back_Button) + Me.Controls.Add(Me.Search_Finds_Button) + Me.Controls.Add(Me.Location_Search_Results) + Me.Controls.Add(Me.Name_Criteria_Input) + Me.Controls.Add(Me.Search_By_Name_Button) + Me.Controls.Add(Me.My_Account_Button) + Me.Controls.Add(Me.Welcome_Screen_Button) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.Label2) + Me.Name = "Knowledge_Base_Locations" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Nature Findings: Search Location" + CType(Me.Location_Search_Results, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LocationBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Nature_Findings_Database, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents My_Account_Button As System.Windows.Forms.Button + Friend WithEvents Welcome_Screen_Button As System.Windows.Forms.Button + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents Search_By_Name_Button As System.Windows.Forms.Button + Friend WithEvents Name_Criteria_Input As System.Windows.Forms.TextBox + Friend WithEvents Nature_Findings_Database As Nature_Findings_System.Nature_Findings_Database + Friend WithEvents LocationBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents LocationTableAdapter As Nature_Findings_System.Nature_Findings_DatabaseTableAdapters.LocationTableAdapter + Friend WithEvents TableAdapterManager As Nature_Findings_System.Nature_Findings_DatabaseTableAdapters.TableAdapterManager + Friend WithEvents Location_Search_Results As System.Windows.Forms.DataGridView + Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn2 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn3 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn4 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn5 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn6 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn7 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn8 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn9 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents Search_Finds_Button As System.Windows.Forms.Button + Friend WithEvents Back_Button As System.Windows.Forms.Button + Friend WithEvents Search_By_Date_Button As System.Windows.Forms.Button + Friend WithEvents Date_Criteria_Input As System.Windows.Forms.DateTimePicker + Friend WithEvents Search_By_Address_Button As System.Windows.Forms.Button + Friend WithEvents Address_Criteria_Input As System.Windows.Forms.TextBox + Friend WithEvents Search_By_Owner_Button As System.Windows.Forms.Button + Friend WithEvents Owner_Criteria_Input As System.Windows.Forms.TextBox + Friend WithEvents Opening_Times_Criteria_Input As System.Windows.Forms.TextBox + Friend WithEvents Search_By_Opening_Time_Button As System.Windows.Forms.Button + Friend WithEvents Contact_Details_Criteria_Input As System.Windows.Forms.TextBox + Friend WithEvents Search_By_Contact_Details_Button As System.Windows.Forms.Button + Friend WithEvents Website_Criteria_Input As System.Windows.Forms.TextBox + Friend WithEvents Search_By_Website_Button As System.Windows.Forms.Button + Friend WithEvents Price_Criteria_Input As System.Windows.Forms.TextBox + Friend WithEvents Search_By_Entry_Price_Button As System.Windows.Forms.Button +End Class diff --git a/Nature Findings/Nature Findings/Knowledge_Base_Locations.resx b/Nature Findings/Nature Findings/Knowledge_Base_Locations.resx new file mode 100644 index 0000000..00ff8cd --- /dev/null +++ b/Nature Findings/Nature Findings/Knowledge_Base_Locations.resx @@ -0,0 +1,135 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 213, 17 + + + 17, 17 + + + 17, 17 + + + 390, 17 + + + 561, 17 + + \ No newline at end of file diff --git a/Nature Findings/Nature Findings/Knowledge_Base_Locations.vb b/Nature Findings/Nature Findings/Knowledge_Base_Locations.vb new file mode 100644 index 0000000..553c078 --- /dev/null +++ b/Nature Findings/Nature Findings/Knowledge_Base_Locations.vb @@ -0,0 +1,138 @@ +Public Class Knowledge_Base_Locations + + Private Sub Welcome_Screen_Button_Click() Handles Welcome_Screen_Button.Click + 'Loads the My Account Screen and closes this form. + Welcome.Show() + Me.Close() + End Sub + + Private Sub My_Account_Button_Click() Handles My_Account_Button.Click + 'Loads the My Account Screen and closes this form. + My_Account.Show() + Me.Close() + End Sub + + Private Sub Search_Finds_Button_Click() Handles Search_Finds_Button.Click + 'Loads the Search Finds Screen and closes this form. + Knowledge_Base_Finds.Show() + Me.Close() + End Sub + + Private Sub Back_Button_Click() Handles Back_Button.Click + 'Loads the Knowledge Base Home Screen and close this form. + Knowledge_Base_Home.Show() + Me.Close() + End Sub + + Private Sub Search_By_Name_Button_Click() Handles Search_By_Name_Button.Click + 'This loads the search information when someone searches by Location Name. + Try + Me.LocationTableAdapter.Fill_Location_By_Name(Me.Nature_Findings_Database.Location, CType(Name_Criteria_Input.Text, String)) + Catch ex As System.Exception + System.Windows.Forms.MessageBox.Show(ex.Message) + End Try + + 'Lets the user know there are no search results + If Location_Search_Results.RowCount = Nothing Then + MsgBox("No Results Found") + End If + End Sub + + Private Sub Search_By_Address_Button_Click() Handles Search_By_Address_Button.Click + 'This loads the search information when someone searches by Location Address. + Try + Me.LocationTableAdapter.Fill_Location_By_Address(Me.Nature_Findings_Database.Location, CType(Address_Criteria_Input.Text, String)) + Catch ex As System.Exception + System.Windows.Forms.MessageBox.Show(ex.Message) + End Try + + 'Lets the user know there are no search results + If Location_Search_Results.RowCount = Nothing Then + MsgBox("No Results Found") + End If + End Sub + + Private Sub Search_By_Owner_Button_Click() Handles Search_By_Owner_Button.Click + 'This loads the search information when someone searches by Location Owners. + Try + Me.LocationTableAdapter.Fill_Location_By_Owner(Me.Nature_Findings_Database.Location, CType(Owner_Criteria_Input.Text, String)) + Catch ex As System.Exception + System.Windows.Forms.MessageBox.Show(ex.Message) + End Try + + 'Lets the user know there are no search results + If Location_Search_Results.RowCount = Nothing Then + MsgBox("No Results Found") + End If + End Sub + + Private Sub Search_By_Opening_Time_Button_Click() Handles Search_By_Opening_Time_Button.Click + 'This loads the search information when someone searches by Opening Times. + Try + Me.LocationTableAdapter.Fill_Location_By_Opening_Times(Me.Nature_Findings_Database.Location, CType(Opening_Times_Criteria_Input.Text, String)) + Catch ex As System.Exception + System.Windows.Forms.MessageBox.Show(ex.Message) + End Try + + 'Lets the user know there are no search results + If Location_Search_Results.RowCount = Nothing Then + MsgBox("No Results Found") + End If + End Sub + + Private Sub Search_By_Contact_Details_Button_Click() Handles Search_By_Contact_Details_Button.Click + 'This loads the search information when someone searches by Contact Details. + Try + Me.LocationTableAdapter.Fill_Location_By_Contact_Details(Me.Nature_Findings_Database.Location, CType(Contact_Details_Criteria_Input.Text, String)) + Catch ex As System.Exception + System.Windows.Forms.MessageBox.Show(ex.Message) + End Try + + 'Lets the user know there are no search results + If Location_Search_Results.RowCount = Nothing Then + MsgBox("No Results Found") + End If + End Sub + + Private Sub Search_By_Website_Button_Click() Handles Search_By_Website_Button.Click + 'This loads the search information when someone searches by Website. + Try + Me.LocationTableAdapter.Fill_Location_By_Website(Me.Nature_Findings_Database.Location, CType(Website_Criteria_Input.Text, String)) + Catch ex As System.Exception + System.Windows.Forms.MessageBox.Show(ex.Message) + End Try + + 'Lets the user know there are no search results + If Location_Search_Results.RowCount = Nothing Then + MsgBox("No Results Found") + End If + End Sub + + Private Sub Search_By_Entry_Price_Button_Click() Handles Search_By_Entry_Price_Button.Click + 'This loads the search information when someone searches by Entry Price. + Try + Me.LocationTableAdapter.Fill_Location_By_Entry_Price(Me.Nature_Findings_Database.Location, CType(Price_Criteria_Input.Text, Integer)) + Catch ex As System.Exception + System.Windows.Forms.MessageBox.Show(ex.Message) + End Try + + 'Lets the user know there are no search results + If Location_Search_Results.RowCount = Nothing Then + MsgBox("No Results Found") + End If + End Sub + + Private Sub Search_By_Date_Button_Click() Handles Search_By_Date_Button.Click + 'This loads the search information when someone searches by Opening Date. + Try + Me.LocationTableAdapter.Fill_Location_By_Date(Me.Nature_Findings_Database.Location, CType(Date_Criteria_Input.Text, Date)) + Catch ex As System.Exception + System.Windows.Forms.MessageBox.Show(ex.Message) + End Try + + 'Lets the user know there are no search results + If Location_Search_Results.RowCount = Nothing Then + MsgBox("No Results Found") + End If + End Sub +End Class \ No newline at end of file diff --git a/Nature Findings/Nature Findings/Life_List.Designer.vb b/Nature Findings/Nature Findings/Life_List.Designer.vb new file mode 100644 index 0000000..f92552e --- /dev/null +++ b/Nature Findings/Nature Findings/Life_List.Designer.vb @@ -0,0 +1,246 @@ + _ +Partial Class Life_List + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Life_List)) + Me.Nature_Findings_Database = New Nature_Findings_System.Nature_Findings_Database() + Me.User_Species_LinkBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.User_Species_LinkTableAdapter = New Nature_Findings_System.Nature_Findings_DatabaseTableAdapters.User_Species_LinkTableAdapter() + Me.TableAdapterManager = New Nature_Findings_System.Nature_Findings_DatabaseTableAdapters.TableAdapterManager() + Me.User_Species_LinkBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) + Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton() + Me.User_Species_LinkBindingNavigatorSaveItem = New System.Windows.Forms.ToolStripButton() + Me.User_Species_Link_Table = New System.Windows.Forms.DataGridView() + Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn4 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn5 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn6 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Label2 = New System.Windows.Forms.Label() + Me.My_Account_Button = New System.Windows.Forms.Button() + Me.Welcome_Screen_Button = New System.Windows.Forms.Button() + Me.Label1 = New System.Windows.Forms.Label() + CType(Me.Nature_Findings_Database, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.User_Species_LinkBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.User_Species_LinkBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() + Me.User_Species_LinkBindingNavigator.SuspendLayout() + CType(Me.User_Species_Link_Table, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'Nature_Findings_Database + ' + Me.Nature_Findings_Database.DataSetName = "Nature_Findings_Database" + Me.Nature_Findings_Database.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'User_Species_LinkBindingSource + ' + Me.User_Species_LinkBindingSource.DataMember = "User_Species_Link" + Me.User_Species_LinkBindingSource.DataSource = Me.Nature_Findings_Database + ' + 'User_Species_LinkTableAdapter + ' + Me.User_Species_LinkTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.LocationTableAdapter = Nothing + Me.TableAdapterManager.SpeciesTableAdapter = Nothing + Me.TableAdapterManager.UpdateOrder = Nature_Findings_System.Nature_Findings_DatabaseTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + Me.TableAdapterManager.User_Species_LinkTableAdapter = Me.User_Species_LinkTableAdapter + Me.TableAdapterManager.UsersTableAdapter = Nothing + ' + 'User_Species_LinkBindingNavigator + ' + Me.User_Species_LinkBindingNavigator.AddNewItem = Nothing + Me.User_Species_LinkBindingNavigator.BindingSource = Me.User_Species_LinkBindingSource + Me.User_Species_LinkBindingNavigator.CountItem = Nothing + Me.User_Species_LinkBindingNavigator.DeleteItem = Me.BindingNavigatorDeleteItem + Me.User_Species_LinkBindingNavigator.Dock = System.Windows.Forms.DockStyle.Bottom + Me.User_Species_LinkBindingNavigator.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden + Me.User_Species_LinkBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.User_Species_LinkBindingNavigatorSaveItem, Me.BindingNavigatorDeleteItem}) + Me.User_Species_LinkBindingNavigator.Location = New System.Drawing.Point(0, 315) + Me.User_Species_LinkBindingNavigator.MoveFirstItem = Nothing + Me.User_Species_LinkBindingNavigator.MoveLastItem = Nothing + Me.User_Species_LinkBindingNavigator.MoveNextItem = Nothing + Me.User_Species_LinkBindingNavigator.MovePreviousItem = Nothing + Me.User_Species_LinkBindingNavigator.Name = "User_Species_LinkBindingNavigator" + Me.User_Species_LinkBindingNavigator.PositionItem = Nothing + Me.User_Species_LinkBindingNavigator.Size = New System.Drawing.Size(658, 25) + Me.User_Species_LinkBindingNavigator.TabIndex = 20 + Me.User_Species_LinkBindingNavigator.Text = "BindingNavigator1" + ' + 'BindingNavigatorDeleteItem + ' + Me.BindingNavigatorDeleteItem.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right + Me.BindingNavigatorDeleteItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorDeleteItem.Image = CType(resources.GetObject("BindingNavigatorDeleteItem.Image"), System.Drawing.Image) + Me.BindingNavigatorDeleteItem.Name = "BindingNavigatorDeleteItem" + Me.BindingNavigatorDeleteItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorDeleteItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorDeleteItem.Text = "Delete" + ' + 'User_Species_LinkBindingNavigatorSaveItem + ' + Me.User_Species_LinkBindingNavigatorSaveItem.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right + Me.User_Species_LinkBindingNavigatorSaveItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.User_Species_LinkBindingNavigatorSaveItem.Image = CType(resources.GetObject("User_Species_LinkBindingNavigatorSaveItem.Image"), System.Drawing.Image) + Me.User_Species_LinkBindingNavigatorSaveItem.Name = "User_Species_LinkBindingNavigatorSaveItem" + Me.User_Species_LinkBindingNavigatorSaveItem.Size = New System.Drawing.Size(23, 22) + Me.User_Species_LinkBindingNavigatorSaveItem.Text = "Save Data" + ' + 'User_Species_Link_Table + ' + Me.User_Species_Link_Table.AllowUserToAddRows = False + Me.User_Species_Link_Table.AutoGenerateColumns = False + Me.User_Species_Link_Table.BackgroundColor = System.Drawing.Color.CornflowerBlue + Me.User_Species_Link_Table.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.User_Species_Link_Table.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn1, Me.DataGridViewTextBoxColumn2, Me.DataGridViewTextBoxColumn3, Me.DataGridViewTextBoxColumn4, Me.DataGridViewTextBoxColumn5, Me.DataGridViewTextBoxColumn6}) + Me.User_Species_Link_Table.DataSource = Me.User_Species_LinkBindingSource + Me.User_Species_Link_Table.Dock = System.Windows.Forms.DockStyle.Bottom + Me.User_Species_Link_Table.GridColor = System.Drawing.Color.SteelBlue + Me.User_Species_Link_Table.Location = New System.Drawing.Point(0, 55) + Me.User_Species_Link_Table.Name = "User_Species_Link_Table" + Me.User_Species_Link_Table.Size = New System.Drawing.Size(658, 260) + Me.User_Species_Link_Table.TabIndex = 20 + ' + 'DataGridViewTextBoxColumn1 + ' + Me.DataGridViewTextBoxColumn1.DataPropertyName = "Date" + Me.DataGridViewTextBoxColumn1.HeaderText = "Date" + Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" + ' + 'DataGridViewTextBoxColumn2 + ' + Me.DataGridViewTextBoxColumn2.DataPropertyName = "Species_ID" + Me.DataGridViewTextBoxColumn2.HeaderText = "Species_ID" + Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" + ' + 'DataGridViewTextBoxColumn3 + ' + Me.DataGridViewTextBoxColumn3.DataPropertyName = "User_ID" + Me.DataGridViewTextBoxColumn3.HeaderText = "User_ID" + Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3" + ' + 'DataGridViewTextBoxColumn4 + ' + Me.DataGridViewTextBoxColumn4.DataPropertyName = "Location_ID" + Me.DataGridViewTextBoxColumn4.HeaderText = "Location_ID" + Me.DataGridViewTextBoxColumn4.Name = "DataGridViewTextBoxColumn4" + ' + 'DataGridViewTextBoxColumn5 + ' + Me.DataGridViewTextBoxColumn5.DataPropertyName = "Season" + Me.DataGridViewTextBoxColumn5.HeaderText = "Season" + Me.DataGridViewTextBoxColumn5.Name = "DataGridViewTextBoxColumn5" + ' + 'DataGridViewTextBoxColumn6 + ' + Me.DataGridViewTextBoxColumn6.DataPropertyName = "Additional_Comments" + Me.DataGridViewTextBoxColumn6.HeaderText = "Additional_Comments" + Me.DataGridViewTextBoxColumn6.Name = "DataGridViewTextBoxColumn6" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label2.Location = New System.Drawing.Point(300, 30) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(58, 18) + Me.Label2.TabIndex = 24 + Me.Label2.Text = "Life List" + ' + 'My_Account_Button + ' + Me.My_Account_Button.Location = New System.Drawing.Point(384, 12) + Me.My_Account_Button.Name = "My_Account_Button" + Me.My_Account_Button.Size = New System.Drawing.Size(75, 37) + Me.My_Account_Button.TabIndex = 22 + Me.My_Account_Button.Text = "My Account" + Me.My_Account_Button.UseVisualStyleBackColor = True + ' + 'Welcome_Screen_Button + ' + Me.Welcome_Screen_Button.Location = New System.Drawing.Point(199, 12) + Me.Welcome_Screen_Button.Name = "Welcome_Screen_Button" + Me.Welcome_Screen_Button.Size = New System.Drawing.Size(75, 37) + Me.Welcome_Screen_Button.TabIndex = 21 + Me.Welcome_Screen_Button.Text = "Welcome Screen" + Me.Welcome_Screen_Button.UseVisualStyleBackColor = True + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(274, 10) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(111, 18) + Me.Label1.TabIndex = 23 + Me.Label1.Text = "Nature Findings" + ' + 'Life_List + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.CornflowerBlue + Me.ClientSize = New System.Drawing.Size(658, 340) + Me.Controls.Add(Me.Label2) + Me.Controls.Add(Me.My_Account_Button) + Me.Controls.Add(Me.Welcome_Screen_Button) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.User_Species_Link_Table) + Me.Controls.Add(Me.User_Species_LinkBindingNavigator) + Me.Name = "Life_List" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Life List" + CType(Me.Nature_Findings_Database, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.User_Species_LinkBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.User_Species_LinkBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit() + Me.User_Species_LinkBindingNavigator.ResumeLayout(False) + Me.User_Species_LinkBindingNavigator.PerformLayout() + CType(Me.User_Species_Link_Table, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents Nature_Findings_Database As Nature_Findings_System.Nature_Findings_Database + Friend WithEvents User_Species_LinkBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents User_Species_LinkTableAdapter As Nature_Findings_System.Nature_Findings_DatabaseTableAdapters.User_Species_LinkTableAdapter + Friend WithEvents TableAdapterManager As Nature_Findings_System.Nature_Findings_DatabaseTableAdapters.TableAdapterManager + Friend WithEvents User_Species_LinkBindingNavigator As System.Windows.Forms.BindingNavigator + Friend WithEvents BindingNavigatorDeleteItem As System.Windows.Forms.ToolStripButton + Friend WithEvents User_Species_LinkBindingNavigatorSaveItem As System.Windows.Forms.ToolStripButton + Friend WithEvents User_Species_Link_Table As System.Windows.Forms.DataGridView + Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn2 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn3 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn4 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn5 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn6 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents My_Account_Button As System.Windows.Forms.Button + Friend WithEvents Welcome_Screen_Button As System.Windows.Forms.Button + Friend WithEvents Label1 As System.Windows.Forms.Label +End Class diff --git a/Nature Findings/Nature Findings/Life_List.resx b/Nature Findings/Nature Findings/Life_List.resx new file mode 100644 index 0000000..a8a1956 --- /dev/null +++ b/Nature Findings/Nature Findings/Life_List.resx @@ -0,0 +1,163 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + 213, 17 + + + 441, 17 + + + 663, 17 + + + 836, 17 + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wQAADsEBuJFr7QAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC + DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC + rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV + i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG + 86CNhdrsX9a/uQZTPhQl4rMY4OLofbl3aX7I8uwPC7y/g1YdjyVJuEvT8e1tfwUYteHUxCCfHChDeHmG + QQvokjlOU+PbWA0x3pZnILVVI3uvQyHsbiLnqnGmRCF1NYD8pDhpRxOH7HQoAKZGkFKjceszQbpSrumX + bO+G80MFwKUTxgfgcO/b8D9IpXoFiiMDHIQm0skAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wQAADsEBuJFr7QAAAi9JREFUOE+tkt1L01EYx3//QvfdBF10W1NjOBerwa9cQ1k2DCvCXn6RZmm6TBMV + K9Oo+QbZCpdOWq0m4aQiX8AUKRFlKlmauaIlDjXFJoLB1/Oc/fK4ii6iB56bw/l8znlepP8Sz5+FQelr + XUKLdxEP3fNoagzhrmMadbVfYL8VwPXySZSWjKOw4C3yckdw/pwfKi5JBHZ1ArU1K/hbLK+swpTahUOp + T3mquCR5nyxwQWXFN/Xq70FwaH4ZuywvoNEosB70CIH7wRwXlJZ8Va9Hx0/4Y3ABMWYfCi5N4YClWQic + DTNccNH2QUVEbISHJ0LYJnuRkz2G5CSnENTfDnJB1tkRFYvEr3CfP4jNBjcUZQBms0MIaqo/c4FyakBF + /wx39n/CpvhGHD7yComJdUJwo3IKHe1gowSOHX8D69Fe3m1qGNVM36aXI3A3UqwvIct2IbhSNoE2H9gO + AM2uH2zu31F+bZY3lRpGNWdm+Nfh/cmtMBorhOBy4Rg8j4D7zlW2OGGY0rKj0pJuQ9qZogicxOB9HhgM + ZUJgyxtlMFBdFeYvE0TnMToZg+9nMDo5CyX3KvaYWjis2+2CXl8kBLSWjjtY/zYJCD6dfxPvAnMITC/i + QrEdsQYXg5sQm3APuvh8IcjMGGJ1L3F4q9GDLTtkPG7rga+9Dx3d/eh9PYi9Zis0+gbEMXi7th5abU60 + 4OSJHr6etGG0JDRnGhV1mxpGNdOrlATvjMsSgn8PSVoDbGg6a0b5NXsAAAAASUVORK5CYII= + + + \ No newline at end of file diff --git a/Nature Findings/Nature Findings/Life_List.vb b/Nature Findings/Nature Findings/Life_List.vb new file mode 100644 index 0000000..2db1ee6 --- /dev/null +++ b/Nature Findings/Nature Findings/Life_List.vb @@ -0,0 +1,30 @@ +Public Class Life_List + + Private Sub User_Species_LinkBindingNavigatorSaveItem_Click() Handles User_Species_LinkBindingNavigatorSaveItem.Click + 'This saves the life list associated to the user. + Me.Validate() + Me.User_Species_LinkBindingSource.EndEdit() + Me.TableAdapterManager.UpdateAll(Me.Nature_Findings_Database) + End Sub + + Private Sub Life_List_Load() Handles MyBase.Load + 'This loads the life list associated to the user. + Try + Me.User_Species_LinkTableAdapter.Fill_Life_List(Nature_Findings_Database.User_Species_Link, Global_Variables.User_ID) + Catch ex As System.Exception + System.Windows.Forms.MessageBox.Show(ex.Message) + End Try + End Sub + + Private Sub Welcome_Screen_Button_Click() Handles Welcome_Screen_Button.Click + 'Loads the Welcome Screen and closes this form. + Welcome.Show() + Me.Close() + End Sub + + Private Sub My_Account_Button_Click() Handles My_Account_Button.ClientSizeChanged + 'Loads the My Account Screen and closes this form. + My_Account.Show() + Me.Close() + End Sub +End Class \ No newline at end of file diff --git a/Nature Findings/Nature Findings/Location_IDs.Designer.vb b/Nature Findings/Nature Findings/Location_IDs.Designer.vb new file mode 100644 index 0000000..1832d41 --- /dev/null +++ b/Nature Findings/Nature Findings/Location_IDs.Designer.vb @@ -0,0 +1,182 @@ + _ +Partial Class Location_IDs + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.Nature_Findings_Database = New Nature_Findings_System.Nature_Findings_Database() + Me.LocationBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.LocationTableAdapter = New Nature_Findings_System.Nature_Findings_DatabaseTableAdapters.LocationTableAdapter() + Me.TableAdapterManager = New Nature_Findings_System.Nature_Findings_DatabaseTableAdapters.TableAdapterManager() + Me.Location_ID_Table = New System.Windows.Forms.DataGridView() + Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn4 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn5 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn6 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn7 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn8 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn9 = New System.Windows.Forms.DataGridViewTextBoxColumn() + CType(Me.Nature_Findings_Database, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LocationBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Location_ID_Table, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'Nature_Findings_Database + ' + Me.Nature_Findings_Database.DataSetName = "Nature_Findings_Database" + Me.Nature_Findings_Database.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'LocationBindingSource + ' + Me.LocationBindingSource.DataMember = "Location" + Me.LocationBindingSource.DataSource = Me.Nature_Findings_Database + ' + 'LocationTableAdapter + ' + Me.LocationTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.LocationTableAdapter = Me.LocationTableAdapter + Me.TableAdapterManager.SpeciesTableAdapter = Nothing + Me.TableAdapterManager.UpdateOrder = Nature_Findings_System.Nature_Findings_DatabaseTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + Me.TableAdapterManager.User_Species_LinkTableAdapter = Nothing + Me.TableAdapterManager.UsersTableAdapter = Nothing + ' + 'Location_ID_Table + ' + Me.Location_ID_Table.AllowUserToAddRows = False + Me.Location_ID_Table.AllowUserToDeleteRows = False + Me.Location_ID_Table.AutoGenerateColumns = False + Me.Location_ID_Table.BackgroundColor = System.Drawing.Color.CornflowerBlue + Me.Location_ID_Table.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.Location_ID_Table.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn1, Me.DataGridViewTextBoxColumn2, Me.DataGridViewTextBoxColumn3, Me.DataGridViewTextBoxColumn4, Me.DataGridViewTextBoxColumn5, Me.DataGridViewTextBoxColumn6, Me.DataGridViewTextBoxColumn7, Me.DataGridViewTextBoxColumn8, Me.DataGridViewTextBoxColumn9}) + Me.Location_ID_Table.DataSource = Me.LocationBindingSource + Me.Location_ID_Table.Dock = System.Windows.Forms.DockStyle.Fill + Me.Location_ID_Table.GridColor = System.Drawing.Color.SteelBlue + Me.Location_ID_Table.Location = New System.Drawing.Point(0, 0) + Me.Location_ID_Table.MultiSelect = False + Me.Location_ID_Table.Name = "Location_ID_Table" + Me.Location_ID_Table.ReadOnly = True + Me.Location_ID_Table.Size = New System.Drawing.Size(974, 356) + Me.Location_ID_Table.TabIndex = 1 + ' + 'DataGridViewTextBoxColumn1 + ' + Me.DataGridViewTextBoxColumn1.DataPropertyName = "Location_ID" + Me.DataGridViewTextBoxColumn1.HeaderText = "Location ID" + Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" + Me.DataGridViewTextBoxColumn1.ReadOnly = True + ' + 'DataGridViewTextBoxColumn2 + ' + Me.DataGridViewTextBoxColumn2.DataPropertyName = "Location_Name" + Me.DataGridViewTextBoxColumn2.HeaderText = "Location Name" + Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" + Me.DataGridViewTextBoxColumn2.ReadOnly = True + ' + 'DataGridViewTextBoxColumn3 + ' + Me.DataGridViewTextBoxColumn3.DataPropertyName = "Address" + Me.DataGridViewTextBoxColumn3.HeaderText = "Address" + Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3" + Me.DataGridViewTextBoxColumn3.ReadOnly = True + ' + 'DataGridViewTextBoxColumn4 + ' + Me.DataGridViewTextBoxColumn4.DataPropertyName = "Location_Owner" + Me.DataGridViewTextBoxColumn4.HeaderText = "Location Owner" + Me.DataGridViewTextBoxColumn4.Name = "DataGridViewTextBoxColumn4" + Me.DataGridViewTextBoxColumn4.ReadOnly = True + ' + 'DataGridViewTextBoxColumn5 + ' + Me.DataGridViewTextBoxColumn5.DataPropertyName = "Opening_Times" + Me.DataGridViewTextBoxColumn5.HeaderText = "Opening Times" + Me.DataGridViewTextBoxColumn5.Name = "DataGridViewTextBoxColumn5" + Me.DataGridViewTextBoxColumn5.ReadOnly = True + ' + 'DataGridViewTextBoxColumn6 + ' + Me.DataGridViewTextBoxColumn6.DataPropertyName = "Contact_Details" + Me.DataGridViewTextBoxColumn6.HeaderText = "Contact Details" + Me.DataGridViewTextBoxColumn6.Name = "DataGridViewTextBoxColumn6" + Me.DataGridViewTextBoxColumn6.ReadOnly = True + ' + 'DataGridViewTextBoxColumn7 + ' + Me.DataGridViewTextBoxColumn7.DataPropertyName = "Website" + Me.DataGridViewTextBoxColumn7.HeaderText = "Website" + Me.DataGridViewTextBoxColumn7.Name = "DataGridViewTextBoxColumn7" + Me.DataGridViewTextBoxColumn7.ReadOnly = True + ' + 'DataGridViewTextBoxColumn8 + ' + Me.DataGridViewTextBoxColumn8.DataPropertyName = "Entry_Price" + Me.DataGridViewTextBoxColumn8.HeaderText = "Entry Price" + Me.DataGridViewTextBoxColumn8.Name = "DataGridViewTextBoxColumn8" + Me.DataGridViewTextBoxColumn8.ReadOnly = True + ' + 'DataGridViewTextBoxColumn9 + ' + Me.DataGridViewTextBoxColumn9.DataPropertyName = "Opening_Date" + Me.DataGridViewTextBoxColumn9.HeaderText = "Opening Date" + Me.DataGridViewTextBoxColumn9.Name = "DataGridViewTextBoxColumn9" + Me.DataGridViewTextBoxColumn9.ReadOnly = True + ' + 'Location_IDs + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(974, 356) + Me.Controls.Add(Me.Location_ID_Table) + Me.MaximizeBox = False + Me.MinimizeBox = False + Me.Name = "Location_IDs" + Me.ShowIcon = False + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent + Me.Text = "Location IDs" + CType(Me.Nature_Findings_Database, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LocationBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Location_ID_Table, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents Nature_Findings_Database As Nature_Findings_System.Nature_Findings_Database + Friend WithEvents LocationBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents LocationTableAdapter As Nature_Findings_System.Nature_Findings_DatabaseTableAdapters.LocationTableAdapter + Friend WithEvents TableAdapterManager As Nature_Findings_System.Nature_Findings_DatabaseTableAdapters.TableAdapterManager + Friend WithEvents Location_ID_Table As System.Windows.Forms.DataGridView + Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn2 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn3 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn4 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn5 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn6 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn7 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn8 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn9 As System.Windows.Forms.DataGridViewTextBoxColumn +End Class diff --git a/Nature Findings/Nature Findings/Location_IDs.resx b/Nature Findings/Nature Findings/Location_IDs.resx new file mode 100644 index 0000000..59cc166 --- /dev/null +++ b/Nature Findings/Nature Findings/Location_IDs.resx @@ -0,0 +1,135 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + 213, 17 + + + 390, 17 + + + 561, 17 + + + 81 + + \ No newline at end of file diff --git a/Nature Findings/Nature Findings/Location_IDs.vb b/Nature Findings/Nature Findings/Location_IDs.vb new file mode 100644 index 0000000..85ac3d9 --- /dev/null +++ b/Nature Findings/Nature Findings/Location_IDs.vb @@ -0,0 +1,7 @@ +Public Class Location_IDs + + Private Sub Location_IDs_Load() Handles MyBase.Load + 'Loads the Locations and the IDs associated to them + Me.LocationTableAdapter.Fill(Me.Nature_Findings_Database.Location) + End Sub +End Class \ No newline at end of file diff --git a/Nature Findings/Nature Findings/Login.Designer.vb b/Nature Findings/Nature Findings/Login.Designer.vb new file mode 100644 index 0000000..e28144f --- /dev/null +++ b/Nature Findings/Nature Findings/Login.Designer.vb @@ -0,0 +1,150 @@ + _ +Partial Class Login + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.Login_Button = New System.Windows.Forms.Button() + Me.PasswordInput = New System.Windows.Forms.MaskedTextBox() + Me.Label1 = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.UsernameInput = New System.Windows.Forms.TextBox() + Me.Label3 = New System.Windows.Forms.Label() + Me.Nature_Findings_Database = New Nature_Findings_System.Nature_Findings_Database() + Me.UsersBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.UsersTableAdapter = New Nature_Findings_System.Nature_Findings_DatabaseTableAdapters.UsersTableAdapter() + Me.TableAdapterManager = New Nature_Findings_System.Nature_Findings_DatabaseTableAdapters.TableAdapterManager() + CType(Me.Nature_Findings_Database, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.UsersBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'Login_Button + ' + Me.Login_Button.Location = New System.Drawing.Point(194, 89) + Me.Login_Button.Name = "Login_Button" + Me.Login_Button.Size = New System.Drawing.Size(75, 23) + Me.Login_Button.TabIndex = 3 + Me.Login_Button.TabStop = False + Me.Login_Button.Text = "Login" + Me.Login_Button.UseVisualStyleBackColor = True + ' + 'PasswordInput + ' + Me.PasswordInput.Location = New System.Drawing.Point(73, 92) + Me.PasswordInput.Name = "PasswordInput" + Me.PasswordInput.Size = New System.Drawing.Size(100, 20) + Me.PasswordInput.TabIndex = 2 + Me.PasswordInput.UseSystemPasswordChar = True + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(12, 69) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(55, 13) + Me.Label1.TabIndex = 3 + Me.Label1.Text = "Username" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(12, 95) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(53, 13) + Me.Label2.TabIndex = 4 + Me.Label2.Text = "Password" + ' + 'UsernameInput + ' + Me.UsernameInput.Location = New System.Drawing.Point(73, 66) + Me.UsernameInput.Name = "UsernameInput" + Me.UsernameInput.Size = New System.Drawing.Size(100, 20) + Me.UsernameInput.TabIndex = 1 + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 16.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label3.Location = New System.Drawing.Point(60, 9) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(165, 26) + Me.Label3.TabIndex = 6 + Me.Label3.Text = "Nature Findings" + ' + 'Nature_Findings_Database + ' + Me.Nature_Findings_Database.DataSetName = "Nature_Findings_Database" + Me.Nature_Findings_Database.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'UsersBindingSource + ' + Me.UsersBindingSource.DataMember = "Users" + Me.UsersBindingSource.DataSource = Me.Nature_Findings_Database + ' + 'UsersTableAdapter + ' + Me.UsersTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.LocationTableAdapter = Nothing + Me.TableAdapterManager.SpeciesTableAdapter = Nothing + Me.TableAdapterManager.UpdateOrder = Nature_Findings_System.Nature_Findings_DatabaseTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + Me.TableAdapterManager.User_Species_LinkTableAdapter = Nothing + Me.TableAdapterManager.UsersTableAdapter = Me.UsersTableAdapter + ' + 'Login + ' + Me.AcceptButton = Me.Login_Button + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.Salmon + Me.ClientSize = New System.Drawing.Size(284, 117) + Me.Controls.Add(Me.Label3) + Me.Controls.Add(Me.UsernameInput) + Me.Controls.Add(Me.Label2) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.PasswordInput) + Me.Controls.Add(Me.Login_Button) + Me.MaximizeBox = False + Me.Name = "Login" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Login" + CType(Me.Nature_Findings_Database, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.UsersBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents Login_Button As System.Windows.Forms.Button + Friend WithEvents PasswordInput As System.Windows.Forms.MaskedTextBox + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents UsernameInput As System.Windows.Forms.TextBox + Friend WithEvents Label3 As System.Windows.Forms.Label + Friend WithEvents Nature_Findings_Database As Nature_Findings_System.Nature_Findings_Database + Friend WithEvents UsersBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents UsersTableAdapter As Nature_Findings_System.Nature_Findings_DatabaseTableAdapters.UsersTableAdapter + Friend WithEvents TableAdapterManager As Nature_Findings_System.Nature_Findings_DatabaseTableAdapters.TableAdapterManager + +End Class diff --git a/Nature Findings/Nature Findings/Login.resx b/Nature Findings/Nature Findings/Login.resx new file mode 100644 index 0000000..39fb669 --- /dev/null +++ b/Nature Findings/Nature Findings/Login.resx @@ -0,0 +1,132 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + 213, 17 + + + 373, 17 + + + 527, 17 + + \ No newline at end of file diff --git a/Nature Findings/Nature Findings/Login.vb b/Nature Findings/Nature Findings/Login.vb new file mode 100644 index 0000000..3ab0173 --- /dev/null +++ b/Nature Findings/Nature Findings/Login.vb @@ -0,0 +1,27 @@ +Public Class Login + + Public Sub Login_Button_Click() Handles Login_Button.Click + 'Resets the Add_Find_Clicked Variables + Add_Location_Clicked = False + Add_Species_Clicked = False + Add_Find_Clicked = False + Does_Species_Exist = False + Does_Location_Exist = False + + Username = UsernameInput.Text 'This sets the global variables Username + User_ID = Me.UsersTableAdapter.Get_User_ID(Global_Variables.Username) 'This sets the global variables User_ID + Contributor_Name = Me.UsersTableAdapter.Get_Contributor_Name(Global_Variables.Username) 'This sets the global variable Contributor Name for the welcome screen message. + + 'This checks if the user details are correct in the database + 'Remember to update the database WITHIN the solution files! + Dim login = Me.UsersTableAdapter.Login_Check(UsernameInput.Text, PasswordInput.Text) + + If login Is Nothing Then + MsgBox("Incorrect Login Information") + PasswordInput.Text = "" + Else + Welcome.Show() + Me.Close() + End If + End Sub +End Class diff --git a/Nature Findings/Nature Findings/My Project/Application.Designer.vb b/Nature Findings/Nature Findings/My Project/Application.Designer.vb new file mode 100644 index 0000000..340a2fb --- /dev/null +++ b/Nature Findings/Nature Findings/My Project/Application.Designer.vb @@ -0,0 +1,38 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.269 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + 'NOTE: This file is auto-generated; do not modify it directly. To make changes, + ' or if you encounter build errors in this file, go to the Project Designer + ' (go to Project Properties or double-click the My Project node in + ' Solution Explorer), and make changes on the Application tab. + ' + Partial Friend Class MyApplication + + _ + Public Sub New() + MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows) + Me.IsSingleInstance = true + Me.EnableVisualStyles = true + Me.SaveMySettingsOnExit = true + Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterAllFormsClose + End Sub + + _ + Protected Overrides Sub OnCreateMainForm() + Me.MainForm = Global.Nature_Findings_System.Login + End Sub + End Class +End Namespace diff --git a/Nature Findings/Nature Findings/My Project/Application.myapp b/Nature Findings/Nature Findings/My Project/Application.myapp new file mode 100644 index 0000000..f9ece29 --- /dev/null +++ b/Nature Findings/Nature Findings/My Project/Application.myapp @@ -0,0 +1,10 @@ + + + true + Login + true + 1 + true + 0 + true + \ No newline at end of file diff --git a/Nature Findings/Nature Findings/My Project/AssemblyInfo.vb b/Nature Findings/Nature Findings/My Project/AssemblyInfo.vb new file mode 100644 index 0000000..6d7ea89 --- /dev/null +++ b/Nature Findings/Nature Findings/My Project/AssemblyInfo.vb @@ -0,0 +1,39 @@ +Imports System.Resources + +Imports System +Imports System.Reflection +Imports System.Runtime.InteropServices + +' General Information about an assembly is controlled through the following +' set of attributes. Change these attribute values to modify the information +' associated with an assembly. + +' Review the values of the assembly attributes + + + + + + + + + + +'The following GUID is for the ID of the typelib if this project is exposed to COM + + +' Version information for an assembly consists of the following four values: +' +' Major Version +' Minor Version +' Build Number +' Revision +' +' You can specify all the values or you can default the Build and Revision Numbers +' by using the '*' as shown below: +' + + + + + \ No newline at end of file diff --git a/Nature Findings/Nature Findings/My Project/Resources.Designer.vb b/Nature Findings/Nature Findings/My Project/Resources.Designer.vb new file mode 100644 index 0000000..88bafc1 --- /dev/null +++ b/Nature Findings/Nature Findings/My Project/Resources.Designer.vb @@ -0,0 +1,63 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.269 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + +Imports System + +Namespace My.Resources + + 'This class was auto-generated by the StronglyTypedResourceBuilder + 'class via a tool like ResGen or Visual Studio. + 'To add or remove a member, edit your .ResX file then rerun ResGen + 'with the /str option, or rebuild your VS project. + ''' + ''' A strongly-typed resource class, for looking up localized strings, etc. + ''' + _ + Friend Module Resources + + Private resourceMan As Global.System.Resources.ResourceManager + + Private resourceCulture As Global.System.Globalization.CultureInfo + + ''' + ''' Returns the cached ResourceManager instance used by this class. + ''' + _ + Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager + Get + If Object.ReferenceEquals(resourceMan, Nothing) Then + Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("Nature_Findings_System.Resources", GetType(Resources).Assembly) + resourceMan = temp + End If + Return resourceMan + End Get + End Property + + ''' + ''' Overrides the current thread's CurrentUICulture property for all + ''' resource lookups using this strongly typed resource class. + ''' + _ + Friend Property Culture() As Global.System.Globalization.CultureInfo + Get + Return resourceCulture + End Get + Set + resourceCulture = value + End Set + End Property + End Module +End Namespace diff --git a/Nature Findings/Nature Findings/My Project/Resources.resx b/Nature Findings/Nature Findings/My Project/Resources.resx new file mode 100644 index 0000000..af7dbeb --- /dev/null +++ b/Nature Findings/Nature Findings/My Project/Resources.resx @@ -0,0 +1,117 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/Nature Findings/Nature Findings/My Project/Settings.Designer.vb b/Nature Findings/Nature Findings/My Project/Settings.Designer.vb new file mode 100644 index 0000000..e94cbe8 --- /dev/null +++ b/Nature Findings/Nature Findings/My Project/Settings.Designer.vb @@ -0,0 +1,84 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.269 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + _ + Partial Friend NotInheritable Class MySettings + Inherits Global.System.Configuration.ApplicationSettingsBase + + Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings) + +#Region "My.Settings Auto-Save Functionality" +#If _MyType = "WindowsForms" Then + Private Shared addedHandler As Boolean + + Private Shared addedHandlerLockObject As New Object + + _ + Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs) + If My.Application.SaveMySettingsOnExit Then + My.Settings.Save() + End If + End Sub +#End If +#End Region + + Public Shared ReadOnly Property [Default]() As MySettings + Get + +#If _MyType = "WindowsForms" Then + If Not addedHandler Then + SyncLock addedHandlerLockObject + If Not addedHandler Then + AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings + addedHandler = True + End If + End SyncLock + End If +#End If + Return defaultInstance + End Get + End Property + + _ + Public ReadOnly Property Nature_Findings_DatabaseConnectionString() As String + Get + Return CType(Me("Nature_Findings_DatabaseConnectionString"),String) + End Get + End Property + End Class +End Namespace + +Namespace My + + _ + Friend Module MySettingsProperty + + _ + Friend ReadOnly Property Settings() As Global.Nature_Findings_System.My.MySettings + Get + Return Global.Nature_Findings_System.My.MySettings.Default + End Get + End Property + End Module +End Namespace diff --git a/Nature Findings/Nature Findings/My Project/Settings.settings b/Nature Findings/Nature Findings/My Project/Settings.settings new file mode 100644 index 0000000..2493782 --- /dev/null +++ b/Nature Findings/Nature Findings/My Project/Settings.settings @@ -0,0 +1,14 @@ + + + + + + <?xml version="1.0" encoding="utf-16"?> +<SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> + <ConnectionString>Provider=Microsoft.ACE.OLEDB.12.0;Data Source="|DataDirectory|\Nature Findings Database.accdb"</ConnectionString> + <ProviderName>System.Data.OleDb</ProviderName> +</SerializableConnectionString> + Provider=Microsoft.ACE.OLEDB.12.0;Data Source="|DataDirectory|\Nature Findings Database.accdb" + + + \ No newline at end of file diff --git a/Nature Findings/Nature Findings/My Project/app.manifest b/Nature Findings/Nature Findings/My Project/app.manifest new file mode 100644 index 0000000..f5ca617 --- /dev/null +++ b/Nature Findings/Nature Findings/My Project/app.manifest @@ -0,0 +1,48 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/Nature Findings/Nature Findings/My_Account.Designer.vb b/Nature Findings/Nature Findings/My_Account.Designer.vb new file mode 100644 index 0000000..7160c2d --- /dev/null +++ b/Nature Findings/Nature Findings/My_Account.Designer.vb @@ -0,0 +1,269 @@ + _ +Partial Class My_Account + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim User_IDLabel As System.Windows.Forms.Label + Dim UsernameLabel As System.Windows.Forms.Label + Dim PasswordLabel As System.Windows.Forms.Label + Dim Email_AddressLabel As System.Windows.Forms.Label + Dim Contributor_NameLabel As System.Windows.Forms.Label + Dim About_UserLabel As System.Windows.Forms.Label + Me.Label2 = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.Welcome_Screen_Button = New System.Windows.Forms.Button() + Me.UsersTableAdapter = New Nature_Findings_System.Nature_Findings_DatabaseTableAdapters.UsersTableAdapter() + Me.Nature_Findings_Database = New Nature_Findings_System.Nature_Findings_Database() + Me.UsersBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TableAdapterManager = New Nature_Findings_System.Nature_Findings_DatabaseTableAdapters.TableAdapterManager() + Me.User_IDTextBox = New System.Windows.Forms.TextBox() + Me.Save_Button = New System.Windows.Forms.Button() + Me.UsernameTextBox = New System.Windows.Forms.TextBox() + Me.PasswordTextBox = New System.Windows.Forms.TextBox() + Me.Email_AddressTextBox = New System.Windows.Forms.TextBox() + Me.Contributor_NameTextBox = New System.Windows.Forms.TextBox() + Me.About_UserTextBox = New System.Windows.Forms.TextBox() + User_IDLabel = New System.Windows.Forms.Label() + UsernameLabel = New System.Windows.Forms.Label() + PasswordLabel = New System.Windows.Forms.Label() + Email_AddressLabel = New System.Windows.Forms.Label() + Contributor_NameLabel = New System.Windows.Forms.Label() + About_UserLabel = New System.Windows.Forms.Label() + CType(Me.Nature_Findings_Database, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.UsersBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'User_IDLabel + ' + User_IDLabel.AutoSize = True + User_IDLabel.Location = New System.Drawing.Point(8, 84) + User_IDLabel.Name = "User_IDLabel" + User_IDLabel.Size = New System.Drawing.Size(46, 13) + User_IDLabel.TabIndex = 38 + User_IDLabel.Text = "User ID:" + ' + 'UsernameLabel + ' + UsernameLabel.AutoSize = True + UsernameLabel.Location = New System.Drawing.Point(8, 110) + UsernameLabel.Name = "UsernameLabel" + UsernameLabel.Size = New System.Drawing.Size(58, 13) + UsernameLabel.TabIndex = 40 + UsernameLabel.Text = "Username:" + ' + 'PasswordLabel + ' + PasswordLabel.AutoSize = True + PasswordLabel.Location = New System.Drawing.Point(10, 136) + PasswordLabel.Name = "PasswordLabel" + PasswordLabel.Size = New System.Drawing.Size(56, 13) + PasswordLabel.TabIndex = 41 + PasswordLabel.Text = "Password:" + ' + 'Email_AddressLabel + ' + Email_AddressLabel.AutoSize = True + Email_AddressLabel.Location = New System.Drawing.Point(9, 162) + Email_AddressLabel.Name = "Email_AddressLabel" + Email_AddressLabel.Size = New System.Drawing.Size(76, 13) + Email_AddressLabel.TabIndex = 42 + Email_AddressLabel.Text = "Email Address:" + ' + 'Contributor_NameLabel + ' + Contributor_NameLabel.AutoSize = True + Contributor_NameLabel.Location = New System.Drawing.Point(10, 188) + Contributor_NameLabel.Name = "Contributor_NameLabel" + Contributor_NameLabel.Size = New System.Drawing.Size(92, 13) + Contributor_NameLabel.TabIndex = 43 + Contributor_NameLabel.Text = "Contributor Name:" + ' + 'About_UserLabel + ' + About_UserLabel.AutoSize = True + About_UserLabel.Location = New System.Drawing.Point(39, 214) + About_UserLabel.Name = "About_UserLabel" + About_UserLabel.Size = New System.Drawing.Size(63, 13) + About_UserLabel.TabIndex = 44 + About_UserLabel.Text = "About User:" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label2.Location = New System.Drawing.Point(118, 27) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(86, 18) + Me.Label2.TabIndex = 19 + Me.Label2.Text = "My Account" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(108, 9) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(111, 18) + Me.Label1.TabIndex = 18 + Me.Label1.Text = "Nature Findings" + ' + 'Welcome_Screen_Button + ' + Me.Welcome_Screen_Button.Location = New System.Drawing.Point(12, 12) + Me.Welcome_Screen_Button.Name = "Welcome_Screen_Button" + Me.Welcome_Screen_Button.Size = New System.Drawing.Size(75, 37) + Me.Welcome_Screen_Button.TabIndex = 15 + Me.Welcome_Screen_Button.Text = "Welcome Screen" + Me.Welcome_Screen_Button.UseVisualStyleBackColor = True + ' + 'UsersTableAdapter + ' + Me.UsersTableAdapter.ClearBeforeFill = True + ' + 'Nature_Findings_Database + ' + Me.Nature_Findings_Database.DataSetName = "Nature_Findings_Database" + Me.Nature_Findings_Database.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'UsersBindingSource + ' + Me.UsersBindingSource.DataMember = "Users" + Me.UsersBindingSource.DataSource = Me.Nature_Findings_Database + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.LocationTableAdapter = Nothing + Me.TableAdapterManager.SpeciesTableAdapter = Nothing + Me.TableAdapterManager.UpdateOrder = Nature_Findings_System.Nature_Findings_DatabaseTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + Me.TableAdapterManager.User_Species_LinkTableAdapter = Nothing + Me.TableAdapterManager.UsersTableAdapter = Me.UsersTableAdapter + ' + 'User_IDTextBox + ' + Me.User_IDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.UsersBindingSource, "User_ID", True)) + Me.User_IDTextBox.Location = New System.Drawing.Point(108, 81) + Me.User_IDTextBox.Name = "User_IDTextBox" + Me.User_IDTextBox.ReadOnly = True + Me.User_IDTextBox.Size = New System.Drawing.Size(196, 20) + Me.User_IDTextBox.TabIndex = 39 + ' + 'Save_Button + ' + Me.Save_Button.Location = New System.Drawing.Point(229, 278) + Me.Save_Button.Name = "Save_Button" + Me.Save_Button.Size = New System.Drawing.Size(75, 23) + Me.Save_Button.TabIndex = 40 + Me.Save_Button.Text = "Save" + Me.Save_Button.UseVisualStyleBackColor = True + ' + 'UsernameTextBox + ' + Me.UsernameTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.UsersBindingSource, "Username", True)) + Me.UsernameTextBox.Location = New System.Drawing.Point(108, 107) + Me.UsernameTextBox.Name = "UsernameTextBox" + Me.UsernameTextBox.ReadOnly = True + Me.UsernameTextBox.Size = New System.Drawing.Size(196, 20) + Me.UsernameTextBox.TabIndex = 41 + ' + 'PasswordTextBox + ' + Me.PasswordTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.UsersBindingSource, "Password", True)) + Me.PasswordTextBox.Location = New System.Drawing.Point(108, 133) + Me.PasswordTextBox.Name = "PasswordTextBox" + Me.PasswordTextBox.Size = New System.Drawing.Size(196, 20) + Me.PasswordTextBox.TabIndex = 42 + Me.PasswordTextBox.UseSystemPasswordChar = True + ' + 'Email_AddressTextBox + ' + Me.Email_AddressTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.UsersBindingSource, "Email_Address", True)) + Me.Email_AddressTextBox.Location = New System.Drawing.Point(108, 159) + Me.Email_AddressTextBox.Name = "Email_AddressTextBox" + Me.Email_AddressTextBox.Size = New System.Drawing.Size(196, 20) + Me.Email_AddressTextBox.TabIndex = 43 + ' + 'Contributor_NameTextBox + ' + Me.Contributor_NameTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.UsersBindingSource, "Contributor_Name", True)) + Me.Contributor_NameTextBox.Location = New System.Drawing.Point(108, 185) + Me.Contributor_NameTextBox.Name = "Contributor_NameTextBox" + Me.Contributor_NameTextBox.Size = New System.Drawing.Size(196, 20) + Me.Contributor_NameTextBox.TabIndex = 44 + ' + 'About_UserTextBox + ' + Me.About_UserTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.UsersBindingSource, "About_User", True)) + Me.About_UserTextBox.Location = New System.Drawing.Point(108, 211) + Me.About_UserTextBox.Multiline = True + Me.About_UserTextBox.Name = "About_UserTextBox" + Me.About_UserTextBox.ScrollBars = System.Windows.Forms.ScrollBars.Vertical + Me.About_UserTextBox.Size = New System.Drawing.Size(196, 61) + Me.About_UserTextBox.TabIndex = 45 + ' + 'My_Account + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.MediumSeaGreen + Me.ClientSize = New System.Drawing.Size(327, 321) + Me.Controls.Add(About_UserLabel) + Me.Controls.Add(Me.About_UserTextBox) + Me.Controls.Add(Contributor_NameLabel) + Me.Controls.Add(Me.Contributor_NameTextBox) + Me.Controls.Add(Email_AddressLabel) + Me.Controls.Add(Me.Email_AddressTextBox) + Me.Controls.Add(PasswordLabel) + Me.Controls.Add(Me.PasswordTextBox) + Me.Controls.Add(UsernameLabel) + Me.Controls.Add(Me.UsernameTextBox) + Me.Controls.Add(Me.Save_Button) + Me.Controls.Add(User_IDLabel) + Me.Controls.Add(Me.User_IDTextBox) + Me.Controls.Add(Me.Label2) + Me.Controls.Add(Me.Welcome_Screen_Button) + Me.Controls.Add(Me.Label1) + Me.Name = "My_Account" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Nature Findings: My Account" + CType(Me.Nature_Findings_Database, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.UsersBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents Welcome_Screen_Button As System.Windows.Forms.Button + Friend WithEvents UsersTableAdapter As Nature_Findings_System.Nature_Findings_DatabaseTableAdapters.UsersTableAdapter + Friend WithEvents Nature_Findings_Database As Nature_Findings_System.Nature_Findings_Database + Friend WithEvents UsersBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TableAdapterManager As Nature_Findings_System.Nature_Findings_DatabaseTableAdapters.TableAdapterManager + Friend WithEvents User_IDTextBox As System.Windows.Forms.TextBox + Friend WithEvents Save_Button As System.Windows.Forms.Button + Friend WithEvents UsernameTextBox As System.Windows.Forms.TextBox + Friend WithEvents PasswordTextBox As System.Windows.Forms.TextBox + Friend WithEvents Email_AddressTextBox As System.Windows.Forms.TextBox + Friend WithEvents Contributor_NameTextBox As System.Windows.Forms.TextBox + Friend WithEvents About_UserTextBox As System.Windows.Forms.TextBox +End Class diff --git a/Nature Findings/Nature Findings/My_Account.resx b/Nature Findings/Nature Findings/My_Account.resx new file mode 100644 index 0000000..afab50a --- /dev/null +++ b/Nature Findings/Nature Findings/My_Account.resx @@ -0,0 +1,150 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + False + + + False + + + False + + + False + + + False + + + False + + + 17, 17 + + + 178, 17 + + + 374, 17 + + + 534, 17 + + \ No newline at end of file diff --git a/Nature Findings/Nature Findings/My_Account.vb b/Nature Findings/Nature Findings/My_Account.vb new file mode 100644 index 0000000..0e67d67 --- /dev/null +++ b/Nature Findings/Nature Findings/My_Account.vb @@ -0,0 +1,25 @@ +Public Class My_Account + + Private Sub Save_Button_Click() Handles Save_Button.Click + 'This saves the user information to the database. + Me.Validate() + Me.UsersBindingSource.EndEdit() + Me.TableAdapterManager.UpdateAll(Me.Nature_Findings_Database) + MsgBox("User Information Saved") + End Sub + + Public Sub My_Account_Load() Handles MyBase.Load + 'This loads the current Users information. + Try + Me.UsersTableAdapter.Fill_Account_Information(Me.Nature_Findings_Database.Users, CType(Global_Variables.Username, String)) + Catch ex As System.Exception + System.Windows.Forms.MessageBox.Show(ex.Message) + End Try + End Sub + + Private Sub Welcome_Screen_Button_Click() Handles Welcome_Screen_Button.Click + 'Loads the Welcome Screen and closes this form. + Welcome.Show() + Me.Close() + End Sub +End Class \ No newline at end of file diff --git a/Nature Findings/Nature Findings/Nature Findings Database.accdb b/Nature Findings/Nature Findings/Nature Findings Database.accdb new file mode 100644 index 0000000..c7e53d4 Binary files /dev/null and b/Nature Findings/Nature Findings/Nature Findings Database.accdb differ diff --git a/Nature Findings/Nature Findings/Nature Findings.vbproj b/Nature Findings/Nature Findings/Nature Findings.vbproj new file mode 100644 index 0000000..171fd2e --- /dev/null +++ b/Nature Findings/Nature Findings/Nature Findings.vbproj @@ -0,0 +1,336 @@ + + + + Debug + x86 + + + 2.0 + {42CDB173-3B41-49A2-BE47-F52EB457851D} + WinExe + Nature_Findings_System.My.MyApplication + Nature_Findings_System + Nature Findings + 512 + WindowsForms + v4.0 + Client + false + G:\Nature Findings\FINAL PROGRAM\ + true + Disk + false + Foreground + 7 + Days + false + false + true + publish.htm + 1 + 1.0.0.%2a + false + true + true + + + x86 + true + full + true + true + bin\Debug\ + Nature Findings.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + x86 + pdbonly + false + true + true + bin\Release\ + Nature Findings.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + On + + + Binary + + + Off + + + On + + + 67DA4C016E2C3000C3778FE385B18D14F4D03685 + + + Nature Findings_TemporaryKey.pfx + + + true + + + true + + + My Project\app.manifest + + + + + + + + + + + + + + + + + + + + + + + + + + + Edit_Location.vb + + + Form + + + + Nature_Findings_Database.xsd + + + New_Species.vb + + + Form + + + Knowledge_Base_Finds.vb + + + Form + + + Location_IDs.vb + + + Form + + + My_Account.vb + + + Form + + + Knowledge_Base_Home.vb + + + Form + + + Knowledge_Base_Locations.vb + + + Form + + + Life_List.vb + + + Form + + + Form + + + Login.vb + Form + + + True + True + Nature_Findings_Database.xsd + + + Species_IDs.vb + + + Form + + + User_IDs.vb + + + Form + + + Welcome_Screen.vb + + + Form + + + New_Find.vb + + + Form + + + Edit_Find.vb + + + Form + + + New_Location.vb + + + Form + + + + True + Application.myapp + + + True + True + Resources.resx + + + True + Settings.settings + True + + + + + Edit_Location.vb + + + New_Species.vb + + + Knowledge_Base_Finds.vb + + + Location_IDs.vb + + + My_Account.vb + + + Knowledge_Base_Home.vb + + + Knowledge_Base_Locations.vb + + + Life_List.vb + + + Login.vb + + + Species_IDs.vb + + + User_IDs.vb + + + Welcome_Screen.vb + + + New_Find.vb + + + Edit_Find.vb + + + New_Location.vb + + + VbMyResourcesResXFileCodeGenerator + Resources.Designer.vb + My.Resources + Designer + + + + + + + MyApplicationCodeGenerator + Application.Designer.vb + + + SettingsSingleFileGenerator + My + Settings.Designer.vb + + + + Nature_Findings_Database.xsd + + + MSDataSetGenerator + Nature_Findings_Database.Designer.vb + Designer + + + Nature_Findings_Database.xsd + + + + + Always + + + + + False + Microsoft .NET Framework 4 Client Profile %28x86 and x64%29 + true + + + False + .NET Framework 3.5 SP1 Client Profile + false + + + False + .NET Framework 3.5 SP1 + false + + + False + Windows Installer 4.5 + true + + + + + \ No newline at end of file diff --git a/Nature Findings/Nature Findings/Nature Findings.vbproj.user b/Nature Findings/Nature Findings/Nature Findings.vbproj.user new file mode 100644 index 0000000..bfdc044 --- /dev/null +++ b/Nature Findings/Nature Findings/Nature Findings.vbproj.user @@ -0,0 +1,13 @@ + + + + G:\Nature Findings\FINAL PROGRAM\|\\ccscc101\C06\DavAle06\Computing\Testing\|publish\ + + + + + + en-US + false + + \ No newline at end of file diff --git a/Nature Findings/Nature Findings/Nature Findings_TemporaryKey.pfx b/Nature Findings/Nature Findings/Nature Findings_TemporaryKey.pfx new file mode 100644 index 0000000..72218fa Binary files /dev/null and b/Nature Findings/Nature Findings/Nature Findings_TemporaryKey.pfx differ diff --git a/Nature Findings/Nature Findings/Nature_Findings_Database.Designer.vb b/Nature Findings/Nature Findings/Nature_Findings_Database.Designer.vb new file mode 100644 index 0000000..c597085 --- /dev/null +++ b/Nature Findings/Nature Findings/Nature_Findings_Database.Designer.vb @@ -0,0 +1,5854 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.269 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict Off +Option Explicit On + + + +''' +'''Represents a strongly typed in-memory cache of data. +''' + _ +Partial Public Class Nature_Findings_Database + Inherits Global.System.Data.DataSet + + Private tableLocation As LocationDataTable + + Private tableSpecies As SpeciesDataTable + + Private tableUser_Species_Link As User_Species_LinkDataTable + + Private tableUsers As UsersDataTable + + Private relationLocationUser_Species_Link As Global.System.Data.DataRelation + + Private relationSpeciesUser_Species_Link As Global.System.Data.DataRelation + + Private relationUsersUser_Species_Link As Global.System.Data.DataRelation + + Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema + + _ + Public Sub New() + MyBase.New + Me.BeginInit + Me.InitClass + Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler + AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler + Me.EndInit + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context, false) + If (Me.IsBinarySerialized(info, context) = true) Then + Me.InitVars(false) + Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1 + AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1 + Return + End If + Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)),String) + If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then + Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() + ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) + If (Not (ds.Tables("Location")) Is Nothing) Then + MyBase.Tables.Add(New LocationDataTable(ds.Tables("Location"))) + End If + If (Not (ds.Tables("Species")) Is Nothing) Then + MyBase.Tables.Add(New SpeciesDataTable(ds.Tables("Species"))) + End If + If (Not (ds.Tables("User_Species_Link")) Is Nothing) Then + MyBase.Tables.Add(New User_Species_LinkDataTable(ds.Tables("User_Species_Link"))) + End If + If (Not (ds.Tables("Users")) Is Nothing) Then + MyBase.Tables.Add(New UsersDataTable(ds.Tables("Users"))) + End If + Me.DataSetName = ds.DataSetName + Me.Prefix = ds.Prefix + Me.Namespace = ds.Namespace + Me.Locale = ds.Locale + Me.CaseSensitive = ds.CaseSensitive + Me.EnforceConstraints = ds.EnforceConstraints + Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add) + Me.InitVars + Else + Me.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) + End If + Me.GetSerializationData(info, context) + Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged + AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler + AddHandler Me.Relations.CollectionChanged, schemaChangedHandler + End Sub + + _ + Public ReadOnly Property Location() As LocationDataTable + Get + Return Me.tableLocation + End Get + End Property + + _ + Public ReadOnly Property Species() As SpeciesDataTable + Get + Return Me.tableSpecies + End Get + End Property + + _ + Public ReadOnly Property User_Species_Link() As User_Species_LinkDataTable + Get + Return Me.tableUser_Species_Link + End Get + End Property + + _ + Public ReadOnly Property Users() As UsersDataTable + Get + Return Me.tableUsers + End Get + End Property + + _ + Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode + Get + Return Me._schemaSerializationMode + End Get + Set + Me._schemaSerializationMode = value + End Set + End Property + + _ + Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection + Get + Return MyBase.Tables + End Get + End Property + + _ + Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection + Get + Return MyBase.Relations + End Get + End Property + + _ + Protected Overrides Sub InitializeDerivedDataSet() + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Public Overrides Function Clone() As Global.System.Data.DataSet + Dim cln As Nature_Findings_Database = CType(MyBase.Clone,Nature_Findings_Database) + cln.InitVars + cln.SchemaSerializationMode = Me.SchemaSerializationMode + Return cln + End Function + + _ + Protected Overrides Function ShouldSerializeTables() As Boolean + Return false + End Function + + _ + Protected Overrides Function ShouldSerializeRelations() As Boolean + Return false + End Function + + _ + Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader) + If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then + Me.Reset + Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() + ds.ReadXml(reader) + If (Not (ds.Tables("Location")) Is Nothing) Then + MyBase.Tables.Add(New LocationDataTable(ds.Tables("Location"))) + End If + If (Not (ds.Tables("Species")) Is Nothing) Then + MyBase.Tables.Add(New SpeciesDataTable(ds.Tables("Species"))) + End If + If (Not (ds.Tables("User_Species_Link")) Is Nothing) Then + MyBase.Tables.Add(New User_Species_LinkDataTable(ds.Tables("User_Species_Link"))) + End If + If (Not (ds.Tables("Users")) Is Nothing) Then + MyBase.Tables.Add(New UsersDataTable(ds.Tables("Users"))) + End If + Me.DataSetName = ds.DataSetName + Me.Prefix = ds.Prefix + Me.Namespace = ds.Namespace + Me.Locale = ds.Locale + Me.CaseSensitive = ds.CaseSensitive + Me.EnforceConstraints = ds.EnforceConstraints + Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add) + Me.InitVars + Else + Me.ReadXml(reader) + Me.InitVars + End If + End Sub + + _ + Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema + Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing)) + stream.Position = 0 + Return Global.System.Xml.Schema.XmlSchema.Read(New Global.System.Xml.XmlTextReader(stream), Nothing) + End Function + + _ + Friend Overloads Sub InitVars() + Me.InitVars(true) + End Sub + + _ + Friend Overloads Sub InitVars(ByVal initTable As Boolean) + Me.tableLocation = CType(MyBase.Tables("Location"),LocationDataTable) + If (initTable = true) Then + If (Not (Me.tableLocation) Is Nothing) Then + Me.tableLocation.InitVars + End If + End If + Me.tableSpecies = CType(MyBase.Tables("Species"),SpeciesDataTable) + If (initTable = true) Then + If (Not (Me.tableSpecies) Is Nothing) Then + Me.tableSpecies.InitVars + End If + End If + Me.tableUser_Species_Link = CType(MyBase.Tables("User_Species_Link"),User_Species_LinkDataTable) + If (initTable = true) Then + If (Not (Me.tableUser_Species_Link) Is Nothing) Then + Me.tableUser_Species_Link.InitVars + End If + End If + Me.tableUsers = CType(MyBase.Tables("Users"),UsersDataTable) + If (initTable = true) Then + If (Not (Me.tableUsers) Is Nothing) Then + Me.tableUsers.InitVars + End If + End If + Me.relationLocationUser_Species_Link = Me.Relations("LocationUser_Species_Link") + Me.relationSpeciesUser_Species_Link = Me.Relations("SpeciesUser_Species_Link") + Me.relationUsersUser_Species_Link = Me.Relations("UsersUser_Species_Link") + End Sub + + _ + Private Sub InitClass() + Me.DataSetName = "Nature_Findings_Database" + Me.Prefix = "" + Me.Namespace = "http://tempuri.org/Nature_Findings_Database.xsd" + Me.EnforceConstraints = true + Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema + Me.tableLocation = New LocationDataTable() + MyBase.Tables.Add(Me.tableLocation) + Me.tableSpecies = New SpeciesDataTable() + MyBase.Tables.Add(Me.tableSpecies) + Me.tableUser_Species_Link = New User_Species_LinkDataTable() + MyBase.Tables.Add(Me.tableUser_Species_Link) + Me.tableUsers = New UsersDataTable() + MyBase.Tables.Add(Me.tableUsers) + Me.relationLocationUser_Species_Link = New Global.System.Data.DataRelation("LocationUser_Species_Link", New Global.System.Data.DataColumn() {Me.tableLocation.Location_IDColumn}, New Global.System.Data.DataColumn() {Me.tableUser_Species_Link.Location_IDColumn}, false) + Me.Relations.Add(Me.relationLocationUser_Species_Link) + Me.relationSpeciesUser_Species_Link = New Global.System.Data.DataRelation("SpeciesUser_Species_Link", New Global.System.Data.DataColumn() {Me.tableSpecies.Species_IDColumn}, New Global.System.Data.DataColumn() {Me.tableUser_Species_Link.Species_IDColumn}, false) + Me.Relations.Add(Me.relationSpeciesUser_Species_Link) + Me.relationUsersUser_Species_Link = New Global.System.Data.DataRelation("UsersUser_Species_Link", New Global.System.Data.DataColumn() {Me.tableUsers.User_IDColumn}, New Global.System.Data.DataColumn() {Me.tableUser_Species_Link.User_IDColumn}, false) + Me.Relations.Add(Me.relationUsersUser_Species_Link) + End Sub + + _ + Private Function ShouldSerializeLocation() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeSpecies() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeUser_Species_Link() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeUsers() As Boolean + Return false + End Function + + _ + Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs) + If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then + Me.InitVars + End If + End Sub + + _ + Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim ds As Nature_Findings_Database = New Nature_Findings_Database() + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim any As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any.Namespace = ds.Namespace + sequence.Items.Add(any) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + + _ + Public Delegate Sub LocationRowChangeEventHandler(ByVal sender As Object, ByVal e As LocationRowChangeEvent) + + _ + Public Delegate Sub SpeciesRowChangeEventHandler(ByVal sender As Object, ByVal e As SpeciesRowChangeEvent) + + _ + Public Delegate Sub User_Species_LinkRowChangeEventHandler(ByVal sender As Object, ByVal e As User_Species_LinkRowChangeEvent) + + _ + Public Delegate Sub UsersRowChangeEventHandler(ByVal sender As Object, ByVal e As UsersRowChangeEvent) + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class LocationDataTable + Inherits Global.System.Data.TypedTableBase(Of LocationRow) + + Private columnLocation_ID As Global.System.Data.DataColumn + + Private columnLocation_Name As Global.System.Data.DataColumn + + Private columnAddress As Global.System.Data.DataColumn + + Private columnLocation_Owner As Global.System.Data.DataColumn + + Private columnOpening_Times As Global.System.Data.DataColumn + + Private columnContact_Details As Global.System.Data.DataColumn + + Private columnWebsite As Global.System.Data.DataColumn + + Private columnEntry_Price As Global.System.Data.DataColumn + + Private columnOpening_Date As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "Location" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property Location_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLocation_ID + End Get + End Property + + _ + Public ReadOnly Property Location_NameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLocation_Name + End Get + End Property + + _ + Public ReadOnly Property AddressColumn() As Global.System.Data.DataColumn + Get + Return Me.columnAddress + End Get + End Property + + _ + Public ReadOnly Property Location_OwnerColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLocation_Owner + End Get + End Property + + _ + Public ReadOnly Property Opening_TimesColumn() As Global.System.Data.DataColumn + Get + Return Me.columnOpening_Times + End Get + End Property + + _ + Public ReadOnly Property Contact_DetailsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnContact_Details + End Get + End Property + + _ + Public ReadOnly Property WebsiteColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWebsite + End Get + End Property + + _ + Public ReadOnly Property Entry_PriceColumn() As Global.System.Data.DataColumn + Get + Return Me.columnEntry_Price + End Get + End Property + + _ + Public ReadOnly Property Opening_DateColumn() As Global.System.Data.DataColumn + Get + Return Me.columnOpening_Date + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As LocationRow + Get + Return CType(Me.Rows(index),LocationRow) + End Get + End Property + + _ + Public Event LocationRowChanging As LocationRowChangeEventHandler + + _ + Public Event LocationRowChanged As LocationRowChangeEventHandler + + _ + Public Event LocationRowDeleting As LocationRowChangeEventHandler + + _ + Public Event LocationRowDeleted As LocationRowChangeEventHandler + + _ + Public Overloads Sub AddLocationRow(ByVal row As LocationRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddLocationRow(ByVal Location_Name As String, ByVal Address As String, ByVal Location_Owner As String, ByVal Opening_Times As String, ByVal Contact_Details As String, ByVal Website As String, ByVal Entry_Price As Decimal, ByVal Opening_Date As Date) As LocationRow + Dim rowLocationRow As LocationRow = CType(Me.NewRow,LocationRow) + Dim columnValuesArray() As Object = New Object() {Nothing, Location_Name, Address, Location_Owner, Opening_Times, Contact_Details, Website, Entry_Price, Opening_Date} + rowLocationRow.ItemArray = columnValuesArray + Me.Rows.Add(rowLocationRow) + Return rowLocationRow + End Function + + _ + Public Function FindByLocation_ID(ByVal Location_ID As Integer) As LocationRow + Return CType(Me.Rows.Find(New Object() {Location_ID}),LocationRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As LocationDataTable = CType(MyBase.Clone,LocationDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New LocationDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnLocation_ID = MyBase.Columns("Location_ID") + Me.columnLocation_Name = MyBase.Columns("Location_Name") + Me.columnAddress = MyBase.Columns("Address") + Me.columnLocation_Owner = MyBase.Columns("Location_Owner") + Me.columnOpening_Times = MyBase.Columns("Opening_Times") + Me.columnContact_Details = MyBase.Columns("Contact_Details") + Me.columnWebsite = MyBase.Columns("Website") + Me.columnEntry_Price = MyBase.Columns("Entry_Price") + Me.columnOpening_Date = MyBase.Columns("Opening_Date") + End Sub + + _ + Private Sub InitClass() + Me.columnLocation_ID = New Global.System.Data.DataColumn("Location_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnLocation_ID) + Me.columnLocation_Name = New Global.System.Data.DataColumn("Location_Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnLocation_Name) + Me.columnAddress = New Global.System.Data.DataColumn("Address", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnAddress) + Me.columnLocation_Owner = New Global.System.Data.DataColumn("Location_Owner", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnLocation_Owner) + Me.columnOpening_Times = New Global.System.Data.DataColumn("Opening_Times", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnOpening_Times) + Me.columnContact_Details = New Global.System.Data.DataColumn("Contact_Details", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnContact_Details) + Me.columnWebsite = New Global.System.Data.DataColumn("Website", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWebsite) + Me.columnEntry_Price = New Global.System.Data.DataColumn("Entry_Price", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnEntry_Price) + Me.columnOpening_Date = New Global.System.Data.DataColumn("Opening_Date", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnOpening_Date) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnLocation_ID}, true)) + Me.columnLocation_ID.AutoIncrement = true + Me.columnLocation_ID.AutoIncrementSeed = -1 + Me.columnLocation_ID.AutoIncrementStep = -1 + Me.columnLocation_ID.AllowDBNull = false + Me.columnLocation_ID.Unique = true + Me.columnLocation_Name.MaxLength = 255 + Me.columnAddress.MaxLength = 255 + Me.columnLocation_Owner.MaxLength = 255 + Me.columnOpening_Times.MaxLength = 255 + Me.columnContact_Details.MaxLength = 255 + Me.columnWebsite.MaxLength = 536870910 + End Sub + + _ + Public Function NewLocationRow() As LocationRow + Return CType(Me.NewRow,LocationRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New LocationRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(LocationRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.LocationRowChangedEvent) Is Nothing) Then + RaiseEvent LocationRowChanged(Me, New LocationRowChangeEvent(CType(e.Row,LocationRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.LocationRowChangingEvent) Is Nothing) Then + RaiseEvent LocationRowChanging(Me, New LocationRowChangeEvent(CType(e.Row,LocationRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.LocationRowDeletedEvent) Is Nothing) Then + RaiseEvent LocationRowDeleted(Me, New LocationRowChangeEvent(CType(e.Row,LocationRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.LocationRowDeletingEvent) Is Nothing) Then + RaiseEvent LocationRowDeleting(Me, New LocationRowChangeEvent(CType(e.Row,LocationRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveLocationRow(ByVal row As LocationRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As Nature_Findings_Database = New Nature_Findings_Database() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "LocationDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class SpeciesDataTable + Inherits Global.System.Data.TypedTableBase(Of SpeciesRow) + + Private columnSpecies_ID As Global.System.Data.DataColumn + + Private columnSpecies_Name As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "Species" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property Species_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSpecies_ID + End Get + End Property + + _ + Public ReadOnly Property Species_NameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSpecies_Name + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As SpeciesRow + Get + Return CType(Me.Rows(index),SpeciesRow) + End Get + End Property + + _ + Public Event SpeciesRowChanging As SpeciesRowChangeEventHandler + + _ + Public Event SpeciesRowChanged As SpeciesRowChangeEventHandler + + _ + Public Event SpeciesRowDeleting As SpeciesRowChangeEventHandler + + _ + Public Event SpeciesRowDeleted As SpeciesRowChangeEventHandler + + _ + Public Overloads Sub AddSpeciesRow(ByVal row As SpeciesRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddSpeciesRow(ByVal Species_Name As String) As SpeciesRow + Dim rowSpeciesRow As SpeciesRow = CType(Me.NewRow,SpeciesRow) + Dim columnValuesArray() As Object = New Object() {Nothing, Species_Name} + rowSpeciesRow.ItemArray = columnValuesArray + Me.Rows.Add(rowSpeciesRow) + Return rowSpeciesRow + End Function + + _ + Public Function FindBySpecies_ID(ByVal Species_ID As Integer) As SpeciesRow + Return CType(Me.Rows.Find(New Object() {Species_ID}),SpeciesRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As SpeciesDataTable = CType(MyBase.Clone,SpeciesDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New SpeciesDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnSpecies_ID = MyBase.Columns("Species_ID") + Me.columnSpecies_Name = MyBase.Columns("Species_Name") + End Sub + + _ + Private Sub InitClass() + Me.columnSpecies_ID = New Global.System.Data.DataColumn("Species_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSpecies_ID) + Me.columnSpecies_Name = New Global.System.Data.DataColumn("Species_Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSpecies_Name) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnSpecies_ID}, true)) + Me.columnSpecies_ID.AutoIncrement = true + Me.columnSpecies_ID.AutoIncrementSeed = -1 + Me.columnSpecies_ID.AutoIncrementStep = -1 + Me.columnSpecies_ID.AllowDBNull = false + Me.columnSpecies_ID.Unique = true + Me.columnSpecies_Name.MaxLength = 255 + End Sub + + _ + Public Function NewSpeciesRow() As SpeciesRow + Return CType(Me.NewRow,SpeciesRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New SpeciesRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(SpeciesRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.SpeciesRowChangedEvent) Is Nothing) Then + RaiseEvent SpeciesRowChanged(Me, New SpeciesRowChangeEvent(CType(e.Row,SpeciesRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.SpeciesRowChangingEvent) Is Nothing) Then + RaiseEvent SpeciesRowChanging(Me, New SpeciesRowChangeEvent(CType(e.Row,SpeciesRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.SpeciesRowDeletedEvent) Is Nothing) Then + RaiseEvent SpeciesRowDeleted(Me, New SpeciesRowChangeEvent(CType(e.Row,SpeciesRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.SpeciesRowDeletingEvent) Is Nothing) Then + RaiseEvent SpeciesRowDeleting(Me, New SpeciesRowChangeEvent(CType(e.Row,SpeciesRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveSpeciesRow(ByVal row As SpeciesRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As Nature_Findings_Database = New Nature_Findings_Database() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "SpeciesDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class User_Species_LinkDataTable + Inherits Global.System.Data.TypedTableBase(Of User_Species_LinkRow) + + Private columnSpecies_ID As Global.System.Data.DataColumn + + Private columnUser_ID As Global.System.Data.DataColumn + + Private columnLocation_ID As Global.System.Data.DataColumn + + Private columnSeason As Global.System.Data.DataColumn + + Private columnAdditional_Comments As Global.System.Data.DataColumn + + Private columnSight_Date As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "User_Species_Link" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property Species_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSpecies_ID + End Get + End Property + + _ + Public ReadOnly Property User_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUser_ID + End Get + End Property + + _ + Public ReadOnly Property Location_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLocation_ID + End Get + End Property + + _ + Public ReadOnly Property SeasonColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSeason + End Get + End Property + + _ + Public ReadOnly Property Additional_CommentsColumn() As Global.System.Data.DataColumn + Get + Return Me.columnAdditional_Comments + End Get + End Property + + _ + Public ReadOnly Property Sight_DateColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSight_Date + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As User_Species_LinkRow + Get + Return CType(Me.Rows(index),User_Species_LinkRow) + End Get + End Property + + _ + Public Event User_Species_LinkRowChanging As User_Species_LinkRowChangeEventHandler + + _ + Public Event User_Species_LinkRowChanged As User_Species_LinkRowChangeEventHandler + + _ + Public Event User_Species_LinkRowDeleting As User_Species_LinkRowChangeEventHandler + + _ + Public Event User_Species_LinkRowDeleted As User_Species_LinkRowChangeEventHandler + + _ + Public Overloads Sub AddUser_Species_LinkRow(ByVal row As User_Species_LinkRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddUser_Species_LinkRow(ByVal parentSpeciesRowBySpeciesUser_Species_Link As SpeciesRow, ByVal parentUsersRowByUsersUser_Species_Link As UsersRow, ByVal parentLocationRowByLocationUser_Species_Link As LocationRow, ByVal Season As String, ByVal Additional_Comments As String, ByVal Sight_Date As Date) As User_Species_LinkRow + Dim rowUser_Species_LinkRow As User_Species_LinkRow = CType(Me.NewRow,User_Species_LinkRow) + Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Nothing, Season, Additional_Comments, Sight_Date} + If (Not (parentSpeciesRowBySpeciesUser_Species_Link) Is Nothing) Then + columnValuesArray(0) = parentSpeciesRowBySpeciesUser_Species_Link(0) + End If + If (Not (parentUsersRowByUsersUser_Species_Link) Is Nothing) Then + columnValuesArray(1) = parentUsersRowByUsersUser_Species_Link(0) + End If + If (Not (parentLocationRowByLocationUser_Species_Link) Is Nothing) Then + columnValuesArray(2) = parentLocationRowByLocationUser_Species_Link(0) + End If + rowUser_Species_LinkRow.ItemArray = columnValuesArray + Me.Rows.Add(rowUser_Species_LinkRow) + Return rowUser_Species_LinkRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As User_Species_LinkDataTable = CType(MyBase.Clone,User_Species_LinkDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New User_Species_LinkDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnSpecies_ID = MyBase.Columns("Species_ID") + Me.columnUser_ID = MyBase.Columns("User_ID") + Me.columnLocation_ID = MyBase.Columns("Location_ID") + Me.columnSeason = MyBase.Columns("Season") + Me.columnAdditional_Comments = MyBase.Columns("Additional_Comments") + Me.columnSight_Date = MyBase.Columns("Sight_Date") + End Sub + + _ + Private Sub InitClass() + Me.columnSpecies_ID = New Global.System.Data.DataColumn("Species_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSpecies_ID) + Me.columnUser_ID = New Global.System.Data.DataColumn("User_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUser_ID) + Me.columnLocation_ID = New Global.System.Data.DataColumn("Location_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnLocation_ID) + Me.columnSeason = New Global.System.Data.DataColumn("Season", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSeason) + Me.columnAdditional_Comments = New Global.System.Data.DataColumn("Additional_Comments", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnAdditional_Comments) + Me.columnSight_Date = New Global.System.Data.DataColumn("Sight_Date", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSight_Date) + Me.columnSeason.MaxLength = 255 + Me.columnAdditional_Comments.MaxLength = 255 + End Sub + + _ + Public Function NewUser_Species_LinkRow() As User_Species_LinkRow + Return CType(Me.NewRow,User_Species_LinkRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New User_Species_LinkRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(User_Species_LinkRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.User_Species_LinkRowChangedEvent) Is Nothing) Then + RaiseEvent User_Species_LinkRowChanged(Me, New User_Species_LinkRowChangeEvent(CType(e.Row,User_Species_LinkRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.User_Species_LinkRowChangingEvent) Is Nothing) Then + RaiseEvent User_Species_LinkRowChanging(Me, New User_Species_LinkRowChangeEvent(CType(e.Row,User_Species_LinkRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.User_Species_LinkRowDeletedEvent) Is Nothing) Then + RaiseEvent User_Species_LinkRowDeleted(Me, New User_Species_LinkRowChangeEvent(CType(e.Row,User_Species_LinkRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.User_Species_LinkRowDeletingEvent) Is Nothing) Then + RaiseEvent User_Species_LinkRowDeleting(Me, New User_Species_LinkRowChangeEvent(CType(e.Row,User_Species_LinkRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveUser_Species_LinkRow(ByVal row As User_Species_LinkRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As Nature_Findings_Database = New Nature_Findings_Database() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "User_Species_LinkDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class UsersDataTable + Inherits Global.System.Data.TypedTableBase(Of UsersRow) + + Private columnUser_ID As Global.System.Data.DataColumn + + Private columnUsername As Global.System.Data.DataColumn + + Private columnPassword As Global.System.Data.DataColumn + + Private columnEmail_Address As Global.System.Data.DataColumn + + Private columnContributor_Name As Global.System.Data.DataColumn + + Private columnAbout_User As Global.System.Data.DataColumn + + Private columnLife_List As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "Users" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property User_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUser_ID + End Get + End Property + + _ + Public ReadOnly Property UsernameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUsername + End Get + End Property + + _ + Public ReadOnly Property PasswordColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPassword + End Get + End Property + + _ + Public ReadOnly Property Email_AddressColumn() As Global.System.Data.DataColumn + Get + Return Me.columnEmail_Address + End Get + End Property + + _ + Public ReadOnly Property Contributor_NameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnContributor_Name + End Get + End Property + + _ + Public ReadOnly Property About_UserColumn() As Global.System.Data.DataColumn + Get + Return Me.columnAbout_User + End Get + End Property + + _ + Public ReadOnly Property Life_ListColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLife_List + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As UsersRow + Get + Return CType(Me.Rows(index),UsersRow) + End Get + End Property + + _ + Public Event UsersRowChanging As UsersRowChangeEventHandler + + _ + Public Event UsersRowChanged As UsersRowChangeEventHandler + + _ + Public Event UsersRowDeleting As UsersRowChangeEventHandler + + _ + Public Event UsersRowDeleted As UsersRowChangeEventHandler + + _ + Public Overloads Sub AddUsersRow(ByVal row As UsersRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddUsersRow(ByVal Username As String, ByVal Password As String, ByVal Email_Address As String, ByVal Contributor_Name As String, ByVal About_User As String, ByVal Life_List As String) As UsersRow + Dim rowUsersRow As UsersRow = CType(Me.NewRow,UsersRow) + Dim columnValuesArray() As Object = New Object() {Nothing, Username, Password, Email_Address, Contributor_Name, About_User, Life_List} + rowUsersRow.ItemArray = columnValuesArray + Me.Rows.Add(rowUsersRow) + Return rowUsersRow + End Function + + _ + Public Function FindByUser_ID(ByVal User_ID As Integer) As UsersRow + Return CType(Me.Rows.Find(New Object() {User_ID}),UsersRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As UsersDataTable = CType(MyBase.Clone,UsersDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New UsersDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnUser_ID = MyBase.Columns("User_ID") + Me.columnUsername = MyBase.Columns("Username") + Me.columnPassword = MyBase.Columns("Password") + Me.columnEmail_Address = MyBase.Columns("Email_Address") + Me.columnContributor_Name = MyBase.Columns("Contributor_Name") + Me.columnAbout_User = MyBase.Columns("About_User") + Me.columnLife_List = MyBase.Columns("Life_List") + End Sub + + _ + Private Sub InitClass() + Me.columnUser_ID = New Global.System.Data.DataColumn("User_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUser_ID) + Me.columnUsername = New Global.System.Data.DataColumn("Username", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUsername) + Me.columnPassword = New Global.System.Data.DataColumn("Password", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPassword) + Me.columnEmail_Address = New Global.System.Data.DataColumn("Email_Address", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnEmail_Address) + Me.columnContributor_Name = New Global.System.Data.DataColumn("Contributor_Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnContributor_Name) + Me.columnAbout_User = New Global.System.Data.DataColumn("About_User", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnAbout_User) + Me.columnLife_List = New Global.System.Data.DataColumn("Life_List", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnLife_List) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnUser_ID}, true)) + Me.columnUser_ID.AutoIncrement = true + Me.columnUser_ID.AutoIncrementSeed = -1 + Me.columnUser_ID.AutoIncrementStep = -1 + Me.columnUser_ID.AllowDBNull = false + Me.columnUser_ID.Unique = true + Me.columnUsername.MaxLength = 15 + Me.columnPassword.MaxLength = 15 + Me.columnEmail_Address.MaxLength = 50 + Me.columnContributor_Name.MaxLength = 255 + Me.columnAbout_User.MaxLength = 255 + Me.columnLife_List.MaxLength = 255 + End Sub + + _ + Public Function NewUsersRow() As UsersRow + Return CType(Me.NewRow,UsersRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New UsersRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(UsersRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.UsersRowChangedEvent) Is Nothing) Then + RaiseEvent UsersRowChanged(Me, New UsersRowChangeEvent(CType(e.Row,UsersRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.UsersRowChangingEvent) Is Nothing) Then + RaiseEvent UsersRowChanging(Me, New UsersRowChangeEvent(CType(e.Row,UsersRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.UsersRowDeletedEvent) Is Nothing) Then + RaiseEvent UsersRowDeleted(Me, New UsersRowChangeEvent(CType(e.Row,UsersRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.UsersRowDeletingEvent) Is Nothing) Then + RaiseEvent UsersRowDeleting(Me, New UsersRowChangeEvent(CType(e.Row,UsersRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveUsersRow(ByVal row As UsersRow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As Nature_Findings_Database = New Nature_Findings_Database() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "UsersDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class LocationRow + Inherits Global.System.Data.DataRow + + Private tableLocation As LocationDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableLocation = CType(Me.Table,LocationDataTable) + End Sub + + _ + Public Property Location_ID() As Integer + Get + Return CType(Me(Me.tableLocation.Location_IDColumn),Integer) + End Get + Set + Me(Me.tableLocation.Location_IDColumn) = value + End Set + End Property + + _ + Public Property Location_Name() As String + Get + Try + Return CType(Me(Me.tableLocation.Location_NameColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("The value for column 'Location_Name' in table 'Location' is DBNull.", e) + End Try + End Get + Set + Me(Me.tableLocation.Location_NameColumn) = value + End Set + End Property + + _ + Public Property Address() As String + Get + Try + Return CType(Me(Me.tableLocation.AddressColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("The value for column 'Address' in table 'Location' is DBNull.", e) + End Try + End Get + Set + Me(Me.tableLocation.AddressColumn) = value + End Set + End Property + + _ + Public Property Location_Owner() As String + Get + Try + Return CType(Me(Me.tableLocation.Location_OwnerColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("The value for column 'Location_Owner' in table 'Location' is DBNull.", e) + End Try + End Get + Set + Me(Me.tableLocation.Location_OwnerColumn) = value + End Set + End Property + + _ + Public Property Opening_Times() As String + Get + Try + Return CType(Me(Me.tableLocation.Opening_TimesColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("The value for column 'Opening_Times' in table 'Location' is DBNull.", e) + End Try + End Get + Set + Me(Me.tableLocation.Opening_TimesColumn) = value + End Set + End Property + + _ + Public Property Contact_Details() As String + Get + Try + Return CType(Me(Me.tableLocation.Contact_DetailsColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("The value for column 'Contact_Details' in table 'Location' is DBNull.", e) + End Try + End Get + Set + Me(Me.tableLocation.Contact_DetailsColumn) = value + End Set + End Property + + _ + Public Property Website() As String + Get + Try + Return CType(Me(Me.tableLocation.WebsiteColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("The value for column 'Website' in table 'Location' is DBNull.", e) + End Try + End Get + Set + Me(Me.tableLocation.WebsiteColumn) = value + End Set + End Property + + _ + Public Property Entry_Price() As Decimal + Get + Try + Return CType(Me(Me.tableLocation.Entry_PriceColumn),Decimal) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("The value for column 'Entry_Price' in table 'Location' is DBNull.", e) + End Try + End Get + Set + Me(Me.tableLocation.Entry_PriceColumn) = value + End Set + End Property + + _ + Public Property Opening_Date() As Date + Get + Try + Return CType(Me(Me.tableLocation.Opening_DateColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("The value for column 'Opening_Date' in table 'Location' is DBNull.", e) + End Try + End Get + Set + Me(Me.tableLocation.Opening_DateColumn) = value + End Set + End Property + + _ + Public Function IsLocation_NameNull() As Boolean + Return Me.IsNull(Me.tableLocation.Location_NameColumn) + End Function + + _ + Public Sub SetLocation_NameNull() + Me(Me.tableLocation.Location_NameColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsAddressNull() As Boolean + Return Me.IsNull(Me.tableLocation.AddressColumn) + End Function + + _ + Public Sub SetAddressNull() + Me(Me.tableLocation.AddressColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsLocation_OwnerNull() As Boolean + Return Me.IsNull(Me.tableLocation.Location_OwnerColumn) + End Function + + _ + Public Sub SetLocation_OwnerNull() + Me(Me.tableLocation.Location_OwnerColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsOpening_TimesNull() As Boolean + Return Me.IsNull(Me.tableLocation.Opening_TimesColumn) + End Function + + _ + Public Sub SetOpening_TimesNull() + Me(Me.tableLocation.Opening_TimesColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsContact_DetailsNull() As Boolean + Return Me.IsNull(Me.tableLocation.Contact_DetailsColumn) + End Function + + _ + Public Sub SetContact_DetailsNull() + Me(Me.tableLocation.Contact_DetailsColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsWebsiteNull() As Boolean + Return Me.IsNull(Me.tableLocation.WebsiteColumn) + End Function + + _ + Public Sub SetWebsiteNull() + Me(Me.tableLocation.WebsiteColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsEntry_PriceNull() As Boolean + Return Me.IsNull(Me.tableLocation.Entry_PriceColumn) + End Function + + _ + Public Sub SetEntry_PriceNull() + Me(Me.tableLocation.Entry_PriceColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsOpening_DateNull() As Boolean + Return Me.IsNull(Me.tableLocation.Opening_DateColumn) + End Function + + _ + Public Sub SetOpening_DateNull() + Me(Me.tableLocation.Opening_DateColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function GetUser_Species_LinkRows() As User_Species_LinkRow() + If (Me.Table.ChildRelations("LocationUser_Species_Link") Is Nothing) Then + Return New User_Species_LinkRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("LocationUser_Species_Link")),User_Species_LinkRow()) + End If + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class SpeciesRow + Inherits Global.System.Data.DataRow + + Private tableSpecies As SpeciesDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableSpecies = CType(Me.Table,SpeciesDataTable) + End Sub + + _ + Public Property Species_ID() As Integer + Get + Return CType(Me(Me.tableSpecies.Species_IDColumn),Integer) + End Get + Set + Me(Me.tableSpecies.Species_IDColumn) = value + End Set + End Property + + _ + Public Property Species_Name() As String + Get + Try + Return CType(Me(Me.tableSpecies.Species_NameColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("The value for column 'Species_Name' in table 'Species' is DBNull.", e) + End Try + End Get + Set + Me(Me.tableSpecies.Species_NameColumn) = value + End Set + End Property + + _ + Public Function IsSpecies_NameNull() As Boolean + Return Me.IsNull(Me.tableSpecies.Species_NameColumn) + End Function + + _ + Public Sub SetSpecies_NameNull() + Me(Me.tableSpecies.Species_NameColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function GetUser_Species_LinkRows() As User_Species_LinkRow() + If (Me.Table.ChildRelations("SpeciesUser_Species_Link") Is Nothing) Then + Return New User_Species_LinkRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("SpeciesUser_Species_Link")),User_Species_LinkRow()) + End If + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class User_Species_LinkRow + Inherits Global.System.Data.DataRow + + Private tableUser_Species_Link As User_Species_LinkDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableUser_Species_Link = CType(Me.Table,User_Species_LinkDataTable) + End Sub + + _ + Public Property Species_ID() As Integer + Get + Try + Return CType(Me(Me.tableUser_Species_Link.Species_IDColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("The value for column 'Species_ID' in table 'User_Species_Link' is DBNull.", e) + End Try + End Get + Set + Me(Me.tableUser_Species_Link.Species_IDColumn) = value + End Set + End Property + + _ + Public Property User_ID() As Integer + Get + Try + Return CType(Me(Me.tableUser_Species_Link.User_IDColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("The value for column 'User_ID' in table 'User_Species_Link' is DBNull.", e) + End Try + End Get + Set + Me(Me.tableUser_Species_Link.User_IDColumn) = value + End Set + End Property + + _ + Public Property Location_ID() As Integer + Get + Try + Return CType(Me(Me.tableUser_Species_Link.Location_IDColumn),Integer) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("The value for column 'Location_ID' in table 'User_Species_Link' is DBNull.", e) + End Try + End Get + Set + Me(Me.tableUser_Species_Link.Location_IDColumn) = value + End Set + End Property + + _ + Public Property Season() As String + Get + Try + Return CType(Me(Me.tableUser_Species_Link.SeasonColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("The value for column 'Season' in table 'User_Species_Link' is DBNull.", e) + End Try + End Get + Set + Me(Me.tableUser_Species_Link.SeasonColumn) = value + End Set + End Property + + _ + Public Property Additional_Comments() As String + Get + Try + Return CType(Me(Me.tableUser_Species_Link.Additional_CommentsColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("The value for column 'Additional_Comments' in table 'User_Species_Link' is DBNull"& _ + ".", e) + End Try + End Get + Set + Me(Me.tableUser_Species_Link.Additional_CommentsColumn) = value + End Set + End Property + + _ + Public Property Sight_Date() As Date + Get + Try + Return CType(Me(Me.tableUser_Species_Link.Sight_DateColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("The value for column 'Sight_Date' in table 'User_Species_Link' is DBNull.", e) + End Try + End Get + Set + Me(Me.tableUser_Species_Link.Sight_DateColumn) = value + End Set + End Property + + _ + Public Property LocationRow() As LocationRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("LocationUser_Species_Link")),LocationRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("LocationUser_Species_Link")) + End Set + End Property + + _ + Public Property SpeciesRow() As SpeciesRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("SpeciesUser_Species_Link")),SpeciesRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("SpeciesUser_Species_Link")) + End Set + End Property + + _ + Public Property UsersRow() As UsersRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("UsersUser_Species_Link")),UsersRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("UsersUser_Species_Link")) + End Set + End Property + + _ + Public Function IsSpecies_IDNull() As Boolean + Return Me.IsNull(Me.tableUser_Species_Link.Species_IDColumn) + End Function + + _ + Public Sub SetSpecies_IDNull() + Me(Me.tableUser_Species_Link.Species_IDColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsUser_IDNull() As Boolean + Return Me.IsNull(Me.tableUser_Species_Link.User_IDColumn) + End Function + + _ + Public Sub SetUser_IDNull() + Me(Me.tableUser_Species_Link.User_IDColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsLocation_IDNull() As Boolean + Return Me.IsNull(Me.tableUser_Species_Link.Location_IDColumn) + End Function + + _ + Public Sub SetLocation_IDNull() + Me(Me.tableUser_Species_Link.Location_IDColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSeasonNull() As Boolean + Return Me.IsNull(Me.tableUser_Species_Link.SeasonColumn) + End Function + + _ + Public Sub SetSeasonNull() + Me(Me.tableUser_Species_Link.SeasonColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsAdditional_CommentsNull() As Boolean + Return Me.IsNull(Me.tableUser_Species_Link.Additional_CommentsColumn) + End Function + + _ + Public Sub SetAdditional_CommentsNull() + Me(Me.tableUser_Species_Link.Additional_CommentsColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSight_DateNull() As Boolean + Return Me.IsNull(Me.tableUser_Species_Link.Sight_DateColumn) + End Function + + _ + Public Sub SetSight_DateNull() + Me(Me.tableUser_Species_Link.Sight_DateColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class UsersRow + Inherits Global.System.Data.DataRow + + Private tableUsers As UsersDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableUsers = CType(Me.Table,UsersDataTable) + End Sub + + _ + Public Property User_ID() As Integer + Get + Return CType(Me(Me.tableUsers.User_IDColumn),Integer) + End Get + Set + Me(Me.tableUsers.User_IDColumn) = value + End Set + End Property + + _ + Public Property Username() As String + Get + Try + Return CType(Me(Me.tableUsers.UsernameColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("The value for column 'Username' in table 'Users' is DBNull.", e) + End Try + End Get + Set + Me(Me.tableUsers.UsernameColumn) = value + End Set + End Property + + _ + Public Property Password() As String + Get + Try + Return CType(Me(Me.tableUsers.PasswordColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("The value for column 'Password' in table 'Users' is DBNull.", e) + End Try + End Get + Set + Me(Me.tableUsers.PasswordColumn) = value + End Set + End Property + + _ + Public Property Email_Address() As String + Get + Try + Return CType(Me(Me.tableUsers.Email_AddressColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("The value for column 'Email_Address' in table 'Users' is DBNull.", e) + End Try + End Get + Set + Me(Me.tableUsers.Email_AddressColumn) = value + End Set + End Property + + _ + Public Property Contributor_Name() As String + Get + Try + Return CType(Me(Me.tableUsers.Contributor_NameColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("The value for column 'Contributor_Name' in table 'Users' is DBNull.", e) + End Try + End Get + Set + Me(Me.tableUsers.Contributor_NameColumn) = value + End Set + End Property + + _ + Public Property About_User() As String + Get + Try + Return CType(Me(Me.tableUsers.About_UserColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("The value for column 'About_User' in table 'Users' is DBNull.", e) + End Try + End Get + Set + Me(Me.tableUsers.About_UserColumn) = value + End Set + End Property + + _ + Public Property Life_List() As String + Get + Try + Return CType(Me(Me.tableUsers.Life_ListColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("The value for column 'Life_List' in table 'Users' is DBNull.", e) + End Try + End Get + Set + Me(Me.tableUsers.Life_ListColumn) = value + End Set + End Property + + _ + Public Function IsUsernameNull() As Boolean + Return Me.IsNull(Me.tableUsers.UsernameColumn) + End Function + + _ + Public Sub SetUsernameNull() + Me(Me.tableUsers.UsernameColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPasswordNull() As Boolean + Return Me.IsNull(Me.tableUsers.PasswordColumn) + End Function + + _ + Public Sub SetPasswordNull() + Me(Me.tableUsers.PasswordColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsEmail_AddressNull() As Boolean + Return Me.IsNull(Me.tableUsers.Email_AddressColumn) + End Function + + _ + Public Sub SetEmail_AddressNull() + Me(Me.tableUsers.Email_AddressColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsContributor_NameNull() As Boolean + Return Me.IsNull(Me.tableUsers.Contributor_NameColumn) + End Function + + _ + Public Sub SetContributor_NameNull() + Me(Me.tableUsers.Contributor_NameColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsAbout_UserNull() As Boolean + Return Me.IsNull(Me.tableUsers.About_UserColumn) + End Function + + _ + Public Sub SetAbout_UserNull() + Me(Me.tableUsers.About_UserColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsLife_ListNull() As Boolean + Return Me.IsNull(Me.tableUsers.Life_ListColumn) + End Function + + _ + Public Sub SetLife_ListNull() + Me(Me.tableUsers.Life_ListColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function GetUser_Species_LinkRows() As User_Species_LinkRow() + If (Me.Table.ChildRelations("UsersUser_Species_Link") Is Nothing) Then + Return New User_Species_LinkRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("UsersUser_Species_Link")),User_Species_LinkRow()) + End If + End Function + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class LocationRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As LocationRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As LocationRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As LocationRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class SpeciesRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As SpeciesRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As SpeciesRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As SpeciesRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class User_Species_LinkRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As User_Species_LinkRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As User_Species_LinkRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As User_Species_LinkRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class UsersRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As UsersRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As UsersRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As UsersRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class +End Class + +Namespace Nature_Findings_DatabaseTableAdapters + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class LocationTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.OleDb.OleDbDataAdapter + + Private _connection As Global.System.Data.OleDb.OleDbConnection + + Private _transaction As Global.System.Data.OleDb.OleDbTransaction + + Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.OleDb.OleDbCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "Location" + tableMapping.ColumnMappings.Add("Location_ID", "Location_ID") + tableMapping.ColumnMappings.Add("Location_Name", "Location_Name") + tableMapping.ColumnMappings.Add("Address", "Address") + tableMapping.ColumnMappings.Add("Location_Owner", "Location_Owner") + tableMapping.ColumnMappings.Add("Opening_Times", "Opening_Times") + tableMapping.ColumnMappings.Add("Contact_Details", "Contact_Details") + tableMapping.ColumnMappings.Add("Website", "Website") + tableMapping.ColumnMappings.Add("Entry_Price", "Entry_Price") + tableMapping.ColumnMappings.Add("Opening_Date", "Opening_Date") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.OleDb.OleDbCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM `Location` WHERE ((`Location_ID` = ?) AND ((? = 1 AND `Location_Name`"& _ + " IS NULL) OR (`Location_Name` = ?)) AND ((? = 1 AND `Address` IS NULL) OR (`Addr"& _ + "ess` = ?)) AND ((? = 1 AND `Location_Owner` IS NULL) OR (`Location_Owner` = ?)) "& _ + "AND ((? = 1 AND `Opening_Times` IS NULL) OR (`Opening_Times` = ?)) AND ((? = 1 A"& _ + "ND `Contact_Details` IS NULL) OR (`Contact_Details` = ?)) AND ((? = 1 AND `Entry"& _ + "_Price` IS NULL) OR (`Entry_Price` = ?)) AND ((? = 1 AND `Opening_Date` IS NULL)"& _ + " OR (`Opening_Date` = ?)))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Location_ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Location_ID", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Location_Name", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Location_Name", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Location_Name", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Location_Name", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Address", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Address", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Address", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Address", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Location_Owner", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Location_Owner", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Location_Owner", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Location_Owner", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Opening_Times", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Opening_Times", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Opening_Times", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Opening_Times", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Contact_Details", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Contact_Details", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Contact_Details", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Contact_Details", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Entry_Price", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Entry_Price", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Entry_Price", Global.System.Data.OleDb.OleDbType.Currency, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Entry_Price", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Opening_Date", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Opening_Date", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Opening_Date", Global.System.Data.OleDb.OleDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Opening_Date", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.InsertCommand = New Global.System.Data.OleDb.OleDbCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO `Location` (`Location_Name`, `Address`, `Location_Owner`, `Opening_Ti"& _ + "mes`, `Contact_Details`, `Website`, `Entry_Price`, `Opening_Date`) VALUES (?, ?,"& _ + " ?, ?, ?, ?, ?, ?)" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Location_Name", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Location_Name", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Address", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Address", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Location_Owner", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Location_Owner", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Opening_Times", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Opening_Times", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Contact_Details", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Contact_Details", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Website", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Website", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Entry_Price", Global.System.Data.OleDb.OleDbType.Currency, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Entry_Price", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Opening_Date", Global.System.Data.OleDb.OleDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Opening_Date", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand = New Global.System.Data.OleDb.OleDbCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE `Location` SET `Location_Name` = ?, `Address` = ?, `Location_Owner` = ?, `"& _ + "Opening_Times` = ?, `Contact_Details` = ?, `Website` = ?, `Entry_Price` = ?, `Op"& _ + "ening_Date` = ? WHERE ((`Location_ID` = ?) AND ((? = 1 AND `Location_Name` IS NU"& _ + "LL) OR (`Location_Name` = ?)) AND ((? = 1 AND `Address` IS NULL) OR (`Address` ="& _ + " ?)) AND ((? = 1 AND `Location_Owner` IS NULL) OR (`Location_Owner` = ?)) AND (("& _ + "? = 1 AND `Opening_Times` IS NULL) OR (`Opening_Times` = ?)) AND ((? = 1 AND `Co"& _ + "ntact_Details` IS NULL) OR (`Contact_Details` = ?)) AND ((? = 1 AND `Entry_Price"& _ + "` IS NULL) OR (`Entry_Price` = ?)) AND ((? = 1 AND `Opening_Date` IS NULL) OR (`"& _ + "Opening_Date` = ?)))" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Location_Name", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Location_Name", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Address", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Address", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Location_Owner", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Location_Owner", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Opening_Times", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Opening_Times", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Contact_Details", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Contact_Details", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Website", Global.System.Data.OleDb.OleDbType.LongVarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Website", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Entry_Price", Global.System.Data.OleDb.OleDbType.Currency, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Entry_Price", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Opening_Date", Global.System.Data.OleDb.OleDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Opening_Date", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Location_ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Location_ID", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Location_Name", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Location_Name", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Location_Name", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Location_Name", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Address", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Address", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Address", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Address", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Location_Owner", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Location_Owner", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Location_Owner", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Location_Owner", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Opening_Times", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Opening_Times", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Opening_Times", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Opening_Times", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Contact_Details", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Contact_Details", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Contact_Details", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Contact_Details", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Entry_Price", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Entry_Price", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Entry_Price", Global.System.Data.OleDb.OleDbType.Currency, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Entry_Price", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Opening_Date", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Opening_Date", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Opening_Date", Global.System.Data.OleDb.OleDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Opening_Date", Global.System.Data.DataRowVersion.Original, false, Nothing)) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.OleDb.OleDbConnection() + Me._connection.ConnectionString = Global.Nature_Findings_System.My.MySettings.Default.Nature_Findings_DatabaseConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(9) {} + Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT Location_ID, Location_Name, Address, Location_Owner, Opening_Times, Contac"& _ + "t_Details, Website, Entry_Price, Opening_Date FROM Location" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1) = New Global.System.Data.OleDb.OleDbCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "SELECT Location_ID, Location_Name, Address, Location_Owner, Opening_Times,"& _ + " Contact_Details, Website, Entry_Price, Opening_Date"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM Location"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _ + "WHERE (Address = ?)" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Address", Global.System.Data.OleDb.OleDbType.WChar, 255, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Address", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._commandCollection(2) = New Global.System.Data.OleDb.OleDbCommand() + Me._commandCollection(2).Connection = Me.Connection + Me._commandCollection(2).CommandText = "SELECT Location_ID, Location_Name, Address, Location_Owner, Opening_Times,"& _ + " Contact_Details, Website, Entry_Price, Opening_Date"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM Location"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _ + "WHERE (Contact_Details = ?)" + Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(2).Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Contact_Details", Global.System.Data.OleDb.OleDbType.WChar, 255, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Contact_Details", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._commandCollection(3) = New Global.System.Data.OleDb.OleDbCommand() + Me._commandCollection(3).Connection = Me.Connection + Me._commandCollection(3).CommandText = "SELECT Location_ID, Location_Name, Address, Location_Owner, Opening_Times,"& _ + " Contact_Details, Website, Entry_Price, Opening_Date"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM Location"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _ + "WHERE (Opening_Date = ?)" + Me._commandCollection(3).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(3).Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Opening_Date", Global.System.Data.OleDb.OleDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Opening_Date", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._commandCollection(4) = New Global.System.Data.OleDb.OleDbCommand() + Me._commandCollection(4).Connection = Me.Connection + Me._commandCollection(4).CommandText = "SELECT Location_ID, Location_Name, Address, Location_Owner, Opening_Times,"& _ + " Contact_Details, Website, Entry_Price, Opening_Date"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM Location"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _ + "WHERE (Entry_Price = ?)" + Me._commandCollection(4).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(4).Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Entry_Price", Global.System.Data.OleDb.OleDbType.Currency, 0, Global.System.Data.ParameterDirection.Input, CType(19,Byte), CType(0,Byte), "Entry_Price", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._commandCollection(5) = New Global.System.Data.OleDb.OleDbCommand() + Me._commandCollection(5).Connection = Me.Connection + Me._commandCollection(5).CommandText = "SELECT Location_ID, Location_Name, Address, Location_Owner, Opening_Times,"& _ + " Contact_Details, Website, Entry_Price, Opening_Date"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM Location"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _ + "WHERE (Location_Name = ?)" + Me._commandCollection(5).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(5).Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Location_Name", Global.System.Data.OleDb.OleDbType.WChar, 255, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Location_Name", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._commandCollection(6) = New Global.System.Data.OleDb.OleDbCommand() + Me._commandCollection(6).Connection = Me.Connection + Me._commandCollection(6).CommandText = "SELECT Location_ID, Location_Name, Address, Location_Owner, Opening_Times,"& _ + " Contact_Details, Website, Entry_Price, Opening_Date"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM Location"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _ + "WHERE (Opening_Times = ?)" + Me._commandCollection(6).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(6).Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Opening_Times", Global.System.Data.OleDb.OleDbType.WChar, 255, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Opening_Times", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._commandCollection(7) = New Global.System.Data.OleDb.OleDbCommand() + Me._commandCollection(7).Connection = Me.Connection + Me._commandCollection(7).CommandText = "SELECT Location_ID, Location_Name, Address, Location_Owner, Opening_Times,"& _ + " Contact_Details, Website, Entry_Price, Opening_Date"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM Location"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _ + "WHERE (Location_Owner = ?)" + Me._commandCollection(7).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(7).Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Location_Owner", Global.System.Data.OleDb.OleDbType.WChar, 255, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Location_Owner", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._commandCollection(8) = New Global.System.Data.OleDb.OleDbCommand() + Me._commandCollection(8).Connection = Me.Connection + Me._commandCollection(8).CommandText = "SELECT Location_ID, Location_Name, Address, Location_Owner, Opening_Times,"& _ + " Contact_Details, Website, Entry_Price, Opening_Date"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM Location"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _ + "WHERE (Website = ?)" + Me._commandCollection(8).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(8).Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Website", Global.System.Data.OleDb.OleDbType.WChar, 1024, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Website", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._commandCollection(9) = New Global.System.Data.OleDb.OleDbCommand() + Me._commandCollection(9).Connection = Me.Connection + Me._commandCollection(9).CommandText = "SELECT Location_Name"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM Location"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"GROUP BY Location_Name"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"HA"& _ + "VING (Location_Name = ?)" + Me._commandCollection(9).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(9).Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Location_Name", Global.System.Data.OleDb.OleDbType.WChar, 255, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Location_Name", Global.System.Data.DataRowVersion.Current, false, Nothing)) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As Nature_Findings_Database.LocationDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As Nature_Findings_Database.LocationDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As Nature_Findings_Database.LocationDataTable = New Nature_Findings_Database.LocationDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Fill_Location_By_Address(ByVal dataTable As Nature_Findings_Database.LocationDataTable, ByVal Address As String) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(1) + If (Address Is Nothing) Then + Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(Address,String) + End If + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataBy1(ByVal Address As String) As Nature_Findings_Database.LocationDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(1) + If (Address Is Nothing) Then + Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(Address,String) + End If + Dim dataTable As Nature_Findings_Database.LocationDataTable = New Nature_Findings_Database.LocationDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Fill_Location_By_Contact_Details(ByVal dataTable As Nature_Findings_Database.LocationDataTable, ByVal Contact_Details As String) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(2) + If (Contact_Details Is Nothing) Then + Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(Contact_Details,String) + End If + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataBy4(ByVal Contact_Details As String) As Nature_Findings_Database.LocationDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(2) + If (Contact_Details Is Nothing) Then + Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(Contact_Details,String) + End If + Dim dataTable As Nature_Findings_Database.LocationDataTable = New Nature_Findings_Database.LocationDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Fill_Location_By_Date(ByVal dataTable As Nature_Findings_Database.LocationDataTable, ByVal Opening_Date As Global.System.Nullable(Of Date)) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(3) + If (Opening_Date.HasValue = true) Then + Me.Adapter.SelectCommand.Parameters(0).Value = CType(Opening_Date.Value,Date) + Else + Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value + End If + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataBy7(ByVal Opening_Date As Global.System.Nullable(Of Date)) As Nature_Findings_Database.LocationDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(3) + If (Opening_Date.HasValue = true) Then + Me.Adapter.SelectCommand.Parameters(0).Value = CType(Opening_Date.Value,Date) + Else + Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value + End If + Dim dataTable As Nature_Findings_Database.LocationDataTable = New Nature_Findings_Database.LocationDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Fill_Location_By_Entry_Price(ByVal dataTable As Nature_Findings_Database.LocationDataTable, ByVal Entry_Price As Global.System.Nullable(Of Decimal)) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(4) + If (Entry_Price.HasValue = true) Then + Me.Adapter.SelectCommand.Parameters(0).Value = CType(Entry_Price.Value,Decimal) + Else + Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value + End If + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataBy6(ByVal Entry_Price As Global.System.Nullable(Of Decimal)) As Nature_Findings_Database.LocationDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(4) + If (Entry_Price.HasValue = true) Then + Me.Adapter.SelectCommand.Parameters(0).Value = CType(Entry_Price.Value,Decimal) + Else + Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value + End If + Dim dataTable As Nature_Findings_Database.LocationDataTable = New Nature_Findings_Database.LocationDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Fill_Location_By_Name(ByVal dataTable As Nature_Findings_Database.LocationDataTable, ByVal Location_Name As String) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(5) + If (Location_Name Is Nothing) Then + Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(Location_Name,String) + End If + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function Fill_Location_By_Opening_Times(ByVal dataTable As Nature_Findings_Database.LocationDataTable, ByVal Opening_Times As String) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(6) + If (Opening_Times Is Nothing) Then + Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(Opening_Times,String) + End If + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataBy3(ByVal Opening_Times As String) As Nature_Findings_Database.LocationDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(6) + If (Opening_Times Is Nothing) Then + Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(Opening_Times,String) + End If + Dim dataTable As Nature_Findings_Database.LocationDataTable = New Nature_Findings_Database.LocationDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Fill_Location_By_Owner(ByVal dataTable As Nature_Findings_Database.LocationDataTable, ByVal Location_Owner As String) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(7) + If (Location_Owner Is Nothing) Then + Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(Location_Owner,String) + End If + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataBy2(ByVal Location_Owner As String) As Nature_Findings_Database.LocationDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(7) + If (Location_Owner Is Nothing) Then + Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(Location_Owner,String) + End If + Dim dataTable As Nature_Findings_Database.LocationDataTable = New Nature_Findings_Database.LocationDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Fill_Location_By_Website(ByVal dataTable As Nature_Findings_Database.LocationDataTable, ByVal Website As String) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(8) + If (Website Is Nothing) Then + Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(Website,String) + End If + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataBy5(ByVal Website As String) As Nature_Findings_Database.LocationDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(8) + If (Website Is Nothing) Then + Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(Website,String) + End If + Dim dataTable As Nature_Findings_Database.LocationDataTable = New Nature_Findings_Database.LocationDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As Nature_Findings_Database.LocationDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As Nature_Findings_Database) As Integer + Return Me.Adapter.Update(dataSet, "Location") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_Location_ID As Integer, ByVal Original_Location_Name As String, ByVal Original_Address As String, ByVal Original_Location_Owner As String, ByVal Original_Opening_Times As String, ByVal Original_Contact_Details As String, ByVal Original_Entry_Price As Global.System.Nullable(Of Decimal), ByVal Original_Opening_Date As Global.System.Nullable(Of Date)) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Location_ID,Integer) + If (Original_Location_Name Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Location_Name,String) + End If + If (Original_Address Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_Address,String) + End If + If (Original_Location_Owner Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_Location_Owner,String) + End If + If (Original_Opening_Times Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_Opening_Times,String) + End If + If (Original_Contact_Details Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_Contact_Details,String) + End If + If (Original_Entry_Price.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_Entry_Price.Value,Decimal) + Else + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value + End If + If (Original_Opening_Date.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_Opening_Date.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal Location_Name As String, ByVal Address As String, ByVal Location_Owner As String, ByVal Opening_Times As String, ByVal Contact_Details As String, ByVal Website As String, ByVal Entry_Price As Global.System.Nullable(Of Decimal), ByVal Opening_Date As Global.System.Nullable(Of Date)) As Integer + If (Location_Name Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(Location_Name,String) + End If + If (Address Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(Address,String) + End If + If (Location_Owner Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(Location_Owner,String) + End If + If (Opening_Times Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(Opening_Times,String) + End If + If (Contact_Details Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(Contact_Details,String) + End If + If (Website Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(Website,String) + End If + If (Entry_Price.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(6).Value = CType(Entry_Price.Value,Decimal) + Else + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + End If + If (Opening_Date.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(7).Value = CType(Opening_Date.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal Location_Name As String, _ + ByVal Address As String, _ + ByVal Location_Owner As String, _ + ByVal Opening_Times As String, _ + ByVal Contact_Details As String, _ + ByVal Website As String, _ + ByVal Entry_Price As Global.System.Nullable(Of Decimal), _ + ByVal Opening_Date As Global.System.Nullable(Of Date), _ + ByVal Original_Location_ID As Integer, _ + ByVal Original_Location_Name As String, _ + ByVal Original_Address As String, _ + ByVal Original_Location_Owner As String, _ + ByVal Original_Opening_Times As String, _ + ByVal Original_Contact_Details As String, _ + ByVal Original_Entry_Price As Global.System.Nullable(Of Decimal), _ + ByVal Original_Opening_Date As Global.System.Nullable(Of Date)) As Integer + If (Location_Name Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Location_Name,String) + End If + If (Address Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Address,String) + End If + If (Location_Owner Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Location_Owner,String) + End If + If (Opening_Times Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Opening_Times,String) + End If + If (Contact_Details Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Contact_Details,String) + End If + If (Website Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Website,String) + End If + If (Entry_Price.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Entry_Price.Value,Decimal) + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + End If + If (Opening_Date.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Opening_Date.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_Location_ID,Integer) + If (Original_Location_Name Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_Location_Name,String) + End If + If (Original_Address Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_Address,String) + End If + If (Original_Location_Owner Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_Location_Owner,String) + End If + If (Original_Opening_Times Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_Opening_Times,String) + End If + If (Original_Contact_Details Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_Contact_Details,String) + End If + If (Original_Entry_Price.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_Entry_Price.Value,Decimal) + Else + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value + End If + If (Original_Opening_Date.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_Opening_Date.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Location_Check(ByVal Location_Name As String) As Object + Dim command As Global.System.Data.OleDb.OleDbCommand = Me.CommandCollection(9) + If (Location_Name Is Nothing) Then + command.Parameters(0).Value = Global.System.DBNull.Value + Else + command.Parameters(0).Value = CType(Location_Name,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Object + Try + returnValue = command.ExecuteScalar + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + If ((returnValue Is Nothing) _ + OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then + Return Nothing + Else + Return CType(returnValue,Object) + End If + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class SpeciesTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.OleDb.OleDbDataAdapter + + Private _connection As Global.System.Data.OleDb.OleDbConnection + + Private _transaction As Global.System.Data.OleDb.OleDbTransaction + + Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.OleDb.OleDbCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "Species" + tableMapping.ColumnMappings.Add("Species_ID", "Species_ID") + tableMapping.ColumnMappings.Add("Species_Name", "Species_Name") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.OleDb.OleDbCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM `Species` WHERE ((`Species_ID` = ?) AND ((? = 1 AND `Species_Name` IS"& _ + " NULL) OR (`Species_Name` = ?)))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Species_ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Species_ID", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Species_Name", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Species_Name", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Species_Name", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Species_Name", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.InsertCommand = New Global.System.Data.OleDb.OleDbCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO `Species` (`Species_Name`) VALUES (?)" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Species_Name", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Species_Name", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand = New Global.System.Data.OleDb.OleDbCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE `Species` SET `Species_Name` = ? WHERE ((`Species_ID` = ?) AND ((? = 1 AND"& _ + " `Species_Name` IS NULL) OR (`Species_Name` = ?)))" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Species_Name", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Species_Name", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Species_ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Species_ID", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Species_Name", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Species_Name", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Species_Name", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Species_Name", Global.System.Data.DataRowVersion.Original, false, Nothing)) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.OleDb.OleDbConnection() + Me._connection.ConnectionString = Global.Nature_Findings_System.My.MySettings.Default.Nature_Findings_DatabaseConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(1) {} + Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT Species_ID, Species_Name FROM Species" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1) = New Global.System.Data.OleDb.OleDbCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "SELECT Species_Name"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM Species"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"GROUP BY Species_Name"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"HAVIN"& _ + "G (Species_Name = ?)" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Species_Name", Global.System.Data.OleDb.OleDbType.WChar, 255, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Species_Name", Global.System.Data.DataRowVersion.Current, false, Nothing)) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As Nature_Findings_Database.SpeciesDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As Nature_Findings_Database.SpeciesDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As Nature_Findings_Database.SpeciesDataTable = New Nature_Findings_Database.SpeciesDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As Nature_Findings_Database.SpeciesDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As Nature_Findings_Database) As Integer + Return Me.Adapter.Update(dataSet, "Species") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_Species_ID As Integer, ByVal Original_Species_Name As String) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Species_ID,Integer) + If (Original_Species_Name Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Species_Name,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal Species_Name As String) As Integer + If (Species_Name Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(Species_Name,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal Species_Name As String, ByVal Original_Species_ID As Integer, ByVal Original_Species_Name As String) As Integer + If (Species_Name Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Species_Name,String) + End If + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Original_Species_ID,Integer) + If (Original_Species_Name Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_Species_Name,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Species_Check(ByVal Species_Name As String) As Object + Dim command As Global.System.Data.OleDb.OleDbCommand = Me.CommandCollection(1) + If (Species_Name Is Nothing) Then + command.Parameters(0).Value = Global.System.DBNull.Value + Else + command.Parameters(0).Value = CType(Species_Name,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Object + Try + returnValue = command.ExecuteScalar + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + If ((returnValue Is Nothing) _ + OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then + Return Nothing + Else + Return CType(returnValue,Object) + End If + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class User_Species_LinkTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.OleDb.OleDbDataAdapter + + Private _connection As Global.System.Data.OleDb.OleDbConnection + + Private _transaction As Global.System.Data.OleDb.OleDbTransaction + + Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.OleDb.OleDbCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "User_Species_Link" + tableMapping.ColumnMappings.Add("Species_ID", "Species_ID") + tableMapping.ColumnMappings.Add("User_ID", "User_ID") + tableMapping.ColumnMappings.Add("Location_ID", "Location_ID") + tableMapping.ColumnMappings.Add("Season", "Season") + tableMapping.ColumnMappings.Add("Additional_Comments", "Additional_Comments") + tableMapping.ColumnMappings.Add("Sight_Date", "Sight_Date") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.OleDb.OleDbCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM `User_Species_Link` WHERE ((`Date` = ?) AND ((? = 1 AND `Species_ID` "& _ + "IS NULL) OR (`Species_ID` = ?)) AND ((? = 1 AND `User_ID` IS NULL) OR (`User_ID`"& _ + " = ?)) AND ((? = 1 AND `Location_ID` IS NULL) OR (`Location_ID` = ?)) AND ((? = "& _ + "1 AND `Season` IS NULL) OR (`Season` = ?)) AND ((? = 1 AND `Additional_Comments`"& _ + " IS NULL) OR (`Additional_Comments` = ?)) AND ((? = 1 AND `Location_Name` IS NUL"& _ + "L) OR (`Location_Name` = ?)) AND ((? = 1 AND `Species_Name` IS NULL) OR (`Specie"& _ + "s_Name` = ?)))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Date", Global.System.Data.OleDb.OleDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Date", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Species_ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Species_ID", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Species_ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Species_ID", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_User_ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "User_ID", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_User_ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "User_ID", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Location_ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Location_ID", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Location_ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Location_ID", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Season", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Season", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Season", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Season", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Additional_Comments", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Additional_Comments", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Additional_Comments", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Additional_Comments", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Location_Name", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Location_Name", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Location_Name", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Location_Name", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Species_Name", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Species_Name", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Species_Name", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Species_Name", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.InsertCommand = New Global.System.Data.OleDb.OleDbCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO `User_Species_Link` (`Species_ID`, `User_ID`, `Location_ID`, `Season`"& _ + ", `Additional_Comments`, `Sight_Date`) VALUES (?, ?, ?, ?, ?, ?)" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Species_ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Species_ID", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("User_ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "User_ID", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Location_ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Location_ID", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Season", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Season", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Additional_Comments", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Additional_Comments", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Sight_Date", Global.System.Data.OleDb.OleDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Sight_Date", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand = New Global.System.Data.OleDb.OleDbCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE `User_Species_Link` SET `Date` = ?, `Species_ID` = ?, `User_ID` = ?, `Loca"& _ + "tion_ID` = ?, `Season` = ?, `Additional_Comments` = ?, `Location_Name` = ?, `Spe"& _ + "cies_Name` = ? WHERE ((`Date` = ?) AND ((? = 1 AND `Species_ID` IS NULL) OR (`Sp"& _ + "ecies_ID` = ?)) AND ((? = 1 AND `User_ID` IS NULL) OR (`User_ID` = ?)) AND ((? ="& _ + " 1 AND `Location_ID` IS NULL) OR (`Location_ID` = ?)) AND ((? = 1 AND `Season` I"& _ + "S NULL) OR (`Season` = ?)) AND ((? = 1 AND `Additional_Comments` IS NULL) OR (`A"& _ + "dditional_Comments` = ?)) AND ((? = 1 AND `Location_Name` IS NULL) OR (`Location"& _ + "_Name` = ?)) AND ((? = 1 AND `Species_Name` IS NULL) OR (`Species_Name` = ?)))" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Date", Global.System.Data.OleDb.OleDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Date", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Species_ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Species_ID", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("User_ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "User_ID", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Location_ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Location_ID", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Season", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Season", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Additional_Comments", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Additional_Comments", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Location_Name", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Location_Name", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Species_Name", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Species_Name", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Date", Global.System.Data.OleDb.OleDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Date", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Species_ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Species_ID", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Species_ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Species_ID", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_User_ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "User_ID", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_User_ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "User_ID", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Location_ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Location_ID", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Location_ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Location_ID", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Season", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Season", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Season", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Season", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Additional_Comments", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Additional_Comments", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Additional_Comments", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Additional_Comments", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Location_Name", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Location_Name", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Location_Name", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Location_Name", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Species_Name", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Species_Name", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Species_Name", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Species_Name", Global.System.Data.DataRowVersion.Original, false, Nothing)) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.OleDb.OleDbConnection() + Me._connection.ConnectionString = Global.Nature_Findings_System.My.MySettings.Default.Nature_Findings_DatabaseConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(6) {} + Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT Species_ID, User_ID, Location_ID, Season, Additional_Comments, Sight_Date "& _ + "FROM User_Species_Link" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1) = New Global.System.Data.OleDb.OleDbCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "SELECT Species_ID, User_ID, Location_ID, Season, Additional_Comments, Sight_Date "& _ + "FROM User_Species_Link WHERE (User_ID = ?)" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("User_ID", Global.System.Data.OleDb.OleDbType.[Variant], 1024, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "User_ID", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._commandCollection(2) = New Global.System.Data.OleDb.OleDbCommand() + Me._commandCollection(2).Connection = Me.Connection + Me._commandCollection(2).CommandText = "SELECT Species_ID, User_ID, Location_ID, Season, Additional_Comments, Sight_Date "& _ + "FROM User_Species_Link WHERE ([Date] = ?)" + Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(2).Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Date", Global.System.Data.OleDb.OleDbType.[Date], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Date", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._commandCollection(3) = New Global.System.Data.OleDb.OleDbCommand() + Me._commandCollection(3).Connection = Me.Connection + Me._commandCollection(3).CommandText = "SELECT Species_ID, User_ID, Location_ID, Season, Additional_Comments, Sight_Date "& _ + "FROM User_Species_Link WHERE (Location_ID = ?)" + Me._commandCollection(3).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(3).Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Location_ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Location_ID", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._commandCollection(4) = New Global.System.Data.OleDb.OleDbCommand() + Me._commandCollection(4).Connection = Me.Connection + Me._commandCollection(4).CommandText = "SELECT Species_ID, User_ID, Location_ID, Season, Additional_Comments, Sight_Date "& _ + "FROM User_Species_Link WHERE (Species_ID = ?)" + Me._commandCollection(4).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(4).Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Species_ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Species_ID", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._commandCollection(5) = New Global.System.Data.OleDb.OleDbCommand() + Me._commandCollection(5).Connection = Me.Connection + Me._commandCollection(5).CommandText = "SELECT Species_ID, User_ID, Location_ID, Season, Additional_Comments, Sight_Date "& _ + "FROM User_Species_Link WHERE (Season = ?)" + Me._commandCollection(5).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(5).Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Season", Global.System.Data.OleDb.OleDbType.WChar, 255, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Season", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._commandCollection(6) = New Global.System.Data.OleDb.OleDbCommand() + Me._commandCollection(6).Connection = Me.Connection + Me._commandCollection(6).CommandText = "SELECT Species_ID, User_ID, Location_ID, Season, Additional_Comments, Sight_Date "& _ + "FROM User_Species_Link WHERE (User_ID = ?)" + Me._commandCollection(6).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(6).Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("User_ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "User_ID", Global.System.Data.DataRowVersion.Current, false, Nothing)) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As Nature_Findings_Database.User_Species_LinkDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As Nature_Findings_Database.User_Species_LinkDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As Nature_Findings_Database.User_Species_LinkDataTable = New Nature_Findings_Database.User_Species_LinkDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Fill_Life_List(ByVal dataTable As Nature_Findings_Database.User_Species_LinkDataTable, ByVal User_ID As Object) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(1) + If (User_ID Is Nothing) Then + Throw New Global.System.ArgumentNullException("User_ID") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(User_ID,Object) + End If + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataBy(ByVal User_ID As Object) As Nature_Findings_Database.User_Species_LinkDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(1) + If (User_ID Is Nothing) Then + Throw New Global.System.ArgumentNullException("User_ID") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(User_ID,Object) + End If + Dim dataTable As Nature_Findings_Database.User_Species_LinkDataTable = New Nature_Findings_Database.User_Species_LinkDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Fill_Species_By_Date(ByVal dataTable As Nature_Findings_Database.User_Species_LinkDataTable, ByVal _Date As Global.System.Nullable(Of Date)) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(2) + If (_Date.HasValue = true) Then + Me.Adapter.SelectCommand.Parameters(0).Value = CType(_Date.Value,Date) + Else + Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value + End If + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataBy1(ByVal _Date As Global.System.Nullable(Of Date)) As Nature_Findings_Database.User_Species_LinkDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(2) + If (_Date.HasValue = true) Then + Me.Adapter.SelectCommand.Parameters(0).Value = CType(_Date.Value,Date) + Else + Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value + End If + Dim dataTable As Nature_Findings_Database.User_Species_LinkDataTable = New Nature_Findings_Database.User_Species_LinkDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Fill_Species_By_Location(ByVal dataTable As Nature_Findings_Database.User_Species_LinkDataTable, ByVal Location_ID As Global.System.Nullable(Of Integer)) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(3) + If (Location_ID.HasValue = true) Then + Me.Adapter.SelectCommand.Parameters(0).Value = CType(Location_ID.Value,Integer) + Else + Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value + End If + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataBy4(ByVal Location_ID As Global.System.Nullable(Of Integer)) As Nature_Findings_Database.User_Species_LinkDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(3) + If (Location_ID.HasValue = true) Then + Me.Adapter.SelectCommand.Parameters(0).Value = CType(Location_ID.Value,Integer) + Else + Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value + End If + Dim dataTable As Nature_Findings_Database.User_Species_LinkDataTable = New Nature_Findings_Database.User_Species_LinkDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Fill_Species_By_Name(ByVal dataTable As Nature_Findings_Database.User_Species_LinkDataTable, ByVal Species_ID As Global.System.Nullable(Of Integer)) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(4) + If (Species_ID.HasValue = true) Then + Me.Adapter.SelectCommand.Parameters(0).Value = CType(Species_ID.Value,Integer) + Else + Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value + End If + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataBy2(ByVal Species_ID As Global.System.Nullable(Of Integer)) As Nature_Findings_Database.User_Species_LinkDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(4) + If (Species_ID.HasValue = true) Then + Me.Adapter.SelectCommand.Parameters(0).Value = CType(Species_ID.Value,Integer) + Else + Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value + End If + Dim dataTable As Nature_Findings_Database.User_Species_LinkDataTable = New Nature_Findings_Database.User_Species_LinkDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Fill_Species_By_Season(ByVal dataTable As Nature_Findings_Database.User_Species_LinkDataTable, ByVal Season As String) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(5) + If (Season Is Nothing) Then + Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(Season,String) + End If + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataBy5(ByVal Season As String) As Nature_Findings_Database.User_Species_LinkDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(5) + If (Season Is Nothing) Then + Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(Season,String) + End If + Dim dataTable As Nature_Findings_Database.User_Species_LinkDataTable = New Nature_Findings_Database.User_Species_LinkDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Fill_Species_By_User(ByVal dataTable As Nature_Findings_Database.User_Species_LinkDataTable, ByVal User_ID As Global.System.Nullable(Of Integer)) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(6) + If (User_ID.HasValue = true) Then + Me.Adapter.SelectCommand.Parameters(0).Value = CType(User_ID.Value,Integer) + Else + Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value + End If + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetDataBy3(ByVal User_ID As Global.System.Nullable(Of Integer)) As Nature_Findings_Database.User_Species_LinkDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(6) + If (User_ID.HasValue = true) Then + Me.Adapter.SelectCommand.Parameters(0).Value = CType(User_ID.Value,Integer) + Else + Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value + End If + Dim dataTable As Nature_Findings_Database.User_Species_LinkDataTable = New Nature_Findings_Database.User_Species_LinkDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As Nature_Findings_Database.User_Species_LinkDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As Nature_Findings_Database) As Integer + Return Me.Adapter.Update(dataSet, "User_Species_Link") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_Date As Global.System.Nullable(Of Date), ByVal Original_Species_ID As Global.System.Nullable(Of Integer), ByVal Original_User_ID As Global.System.Nullable(Of Integer), ByVal Original_Location_ID As Global.System.Nullable(Of Integer), ByVal Original_Season As String, ByVal Original_Additional_Comments As String, ByVal Original_Location_Name As String, ByVal Original_Species_Name As String) As Integer + If (Original_Date.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_Date.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(0).Value = Global.System.DBNull.Value + End If + If (Original_Species_ID.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Species_ID.Value,Integer) + Else + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value + End If + If (Original_User_ID.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_User_ID.Value,Integer) + Else + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value + End If + If (Original_Location_ID.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_Location_ID.Value,Integer) + Else + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value + End If + If (Original_Season Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_Season,String) + End If + If (Original_Additional_Comments Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_Additional_Comments,String) + End If + If (Original_Location_Name Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_Location_Name,String) + End If + If (Original_Species_Name Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_Species_Name,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal Species_ID As Global.System.Nullable(Of Integer), ByVal User_ID As Global.System.Nullable(Of Integer), ByVal Location_ID As Global.System.Nullable(Of Integer), ByVal Season As String, ByVal Additional_Comments As String, ByVal Sight_Date As Global.System.Nullable(Of Date)) As Integer + If (Species_ID.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(0).Value = CType(Species_ID.Value,Integer) + Else + Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value + End If + If (User_ID.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(1).Value = CType(User_ID.Value,Integer) + Else + Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value + End If + If (Location_ID.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(2).Value = CType(Location_ID.Value,Integer) + Else + Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + End If + If (Season Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(Season,String) + End If + If (Additional_Comments Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(Additional_Comments,String) + End If + If (Sight_Date.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(5).Value = CType(Sight_Date.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal _Date As Global.System.Nullable(Of Date), _ + ByVal Species_ID As Global.System.Nullable(Of Integer), _ + ByVal User_ID As Global.System.Nullable(Of Integer), _ + ByVal Location_ID As Global.System.Nullable(Of Integer), _ + ByVal Season As String, _ + ByVal Additional_Comments As String, _ + ByVal Location_Name As String, _ + ByVal Species_Name As String, _ + ByVal Original_Date As Global.System.Nullable(Of Date), _ + ByVal Original_Species_ID As Global.System.Nullable(Of Integer), _ + ByVal Original_User_ID As Global.System.Nullable(Of Integer), _ + ByVal Original_Location_ID As Global.System.Nullable(Of Integer), _ + ByVal Original_Season As String, _ + ByVal Original_Additional_Comments As String, _ + ByVal Original_Location_Name As String, _ + ByVal Original_Species_Name As String) As Integer + If (_Date.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(_Date.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value + End If + If (Species_ID.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Species_ID.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + End If + If (User_ID.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(User_ID.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + End If + If (Location_ID.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Location_ID.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + End If + If (Season Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Season,String) + End If + If (Additional_Comments Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Additional_Comments,String) + End If + If (Location_Name Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Location_Name,String) + End If + If (Species_Name Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Species_Name,String) + End If + If (Original_Date.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_Date.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value + End If + If (Original_Species_ID.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_Species_ID.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value + End If + If (Original_User_ID.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_User_ID.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value + End If + If (Original_Location_ID.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_Location_ID.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value + End If + If (Original_Season Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_Season,String) + End If + If (Original_Additional_Comments Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_Additional_Comments,String) + End If + If (Original_Location_Name Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_Location_Name,String) + End If + If (Original_Species_Name Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_Species_Name,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class UsersTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.OleDb.OleDbDataAdapter + + Private _connection As Global.System.Data.OleDb.OleDbConnection + + Private _transaction As Global.System.Data.OleDb.OleDbTransaction + + Private _commandCollection() As Global.System.Data.OleDb.OleDbCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.OleDb.OleDbDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.OleDb.OleDbConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.OleDb.OleDbCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.OleDb.OleDbTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.OleDb.OleDbCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.OleDb.OleDbDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "Users" + tableMapping.ColumnMappings.Add("User_ID", "User_ID") + tableMapping.ColumnMappings.Add("Username", "Username") + tableMapping.ColumnMappings.Add("Password", "Password") + tableMapping.ColumnMappings.Add("Email_Address", "Email_Address") + tableMapping.ColumnMappings.Add("Contributor_Name", "Contributor_Name") + tableMapping.ColumnMappings.Add("About_User", "About_User") + tableMapping.ColumnMappings.Add("Life_List", "Life_List") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.OleDb.OleDbCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM `Users` WHERE ((`User_ID` = ?) AND ((? = 1 AND `Username` IS NULL) OR"& _ + " (`Username` = ?)) AND ((? = 1 AND `Password` IS NULL) OR (`Password` = ?)) AND "& _ + "((? = 1 AND `Email_Address` IS NULL) OR (`Email_Address` = ?)) AND ((? = 1 AND `"& _ + "Contributor_Name` IS NULL) OR (`Contributor_Name` = ?)) AND ((? = 1 AND `About_U"& _ + "ser` IS NULL) OR (`About_User` = ?)) AND ((? = 1 AND `Life_List` IS NULL) OR (`L"& _ + "ife_List` = ?)))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_User_ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "User_ID", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Username", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Username", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Username", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Username", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Password", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Password", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Password", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Password", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Email_Address", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Email_Address", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Email_Address", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Email_Address", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Contributor_Name", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Contributor_Name", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Contributor_Name", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Contributor_Name", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_About_User", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "About_User", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_About_User", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "About_User", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Life_List", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Life_List", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Life_List", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Life_List", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.InsertCommand = New Global.System.Data.OleDb.OleDbCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO `Users` (`Username`, `Password`, `Email_Address`, `Contributor_Name`,"& _ + " `About_User`, `Life_List`) VALUES (?, ?, ?, ?, ?, ?)" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Username", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Username", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Password", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Password", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Email_Address", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Email_Address", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Contributor_Name", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Contributor_Name", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("About_User", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "About_User", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Life_List", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Life_List", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand = New Global.System.Data.OleDb.OleDbCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE `Users` SET `Username` = ?, `Password` = ?, `Email_Address` = ?, `Contribu"& _ + "tor_Name` = ?, `About_User` = ?, `Life_List` = ? WHERE ((`User_ID` = ?) AND ((? "& _ + "= 1 AND `Username` IS NULL) OR (`Username` = ?)) AND ((? = 1 AND `Password` IS N"& _ + "ULL) OR (`Password` = ?)) AND ((? = 1 AND `Email_Address` IS NULL) OR (`Email_Ad"& _ + "dress` = ?)) AND ((? = 1 AND `Contributor_Name` IS NULL) OR (`Contributor_Name` "& _ + "= ?)) AND ((? = 1 AND `About_User` IS NULL) OR (`About_User` = ?)) AND ((? = 1 A"& _ + "ND `Life_List` IS NULL) OR (`Life_List` = ?)))" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Username", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Username", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Password", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Password", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Email_Address", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Email_Address", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Contributor_Name", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Contributor_Name", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("About_User", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "About_User", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Life_List", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Life_List", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_User_ID", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "User_ID", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Username", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Username", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Username", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Username", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Password", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Password", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Password", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Password", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Email_Address", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Email_Address", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Email_Address", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Email_Address", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Contributor_Name", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Contributor_Name", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Contributor_Name", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Contributor_Name", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_About_User", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "About_User", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_About_User", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "About_User", Global.System.Data.DataRowVersion.Original, false, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("IsNull_Life_List", Global.System.Data.OleDb.OleDbType.[Integer], 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Life_List", Global.System.Data.DataRowVersion.Original, true, Nothing)) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Original_Life_List", Global.System.Data.OleDb.OleDbType.VarWChar, 0, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Life_List", Global.System.Data.DataRowVersion.Original, false, Nothing)) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.OleDb.OleDbConnection() + Me._connection.ConnectionString = Global.Nature_Findings_System.My.MySettings.Default.Nature_Findings_DatabaseConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.OleDb.OleDbCommand(4) {} + Me._commandCollection(0) = New Global.System.Data.OleDb.OleDbCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT User_ID, Username, [Password], Email_Address, Contributor_Name, About_User"& _ + ", Life_List FROM Users" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1) = New Global.System.Data.OleDb.OleDbCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "SELECT User_ID, Username, [Password], Email_Address, Contributor_Name, Abo"& _ + "ut_User, Life_List"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM Users"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (Username = ?)" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Username", Global.System.Data.OleDb.OleDbType.WChar, 15, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Username", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._commandCollection(2) = New Global.System.Data.OleDb.OleDbCommand() + Me._commandCollection(2).Connection = Me.Connection + Me._commandCollection(2).CommandText = "SELECT Contributor_Name"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM Users"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"GROUP BY User_ID, Username"& _ + ", [Password], Contributor_Name"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"HAVING (Username = ?)" + Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(2).Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Username", Global.System.Data.OleDb.OleDbType.WChar, 15, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Username", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._commandCollection(3) = New Global.System.Data.OleDb.OleDbCommand() + Me._commandCollection(3).Connection = Me.Connection + Me._commandCollection(3).CommandText = "SELECT User_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM Users"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (Username = ?)" + Me._commandCollection(3).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(3).Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Username", Global.System.Data.OleDb.OleDbType.WChar, 15, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "Username", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._commandCollection(4) = New Global.System.Data.OleDb.OleDbCommand() + Me._commandCollection(4).Connection = Me.Connection + Me._commandCollection(4).CommandText = "SELECT COUNT(*) AS Expr1, Username AS UsernameInput, [Password] AS Passwor"& _ + "dInput"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM Users"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"GROUP BY Username, [Password]"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"HAVING (Use"& _ + "rname = ?) AND ([Password] = ?)" + Me._commandCollection(4).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(4).Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Username", Global.System.Data.OleDb.OleDbType.WChar, 15, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "UsernameInput", Global.System.Data.DataRowVersion.Current, false, Nothing)) + Me._commandCollection(4).Parameters.Add(New Global.System.Data.OleDb.OleDbParameter("Password", Global.System.Data.OleDb.OleDbType.WChar, 15, Global.System.Data.ParameterDirection.Input, CType(0,Byte), CType(0,Byte), "PasswordInput", Global.System.Data.DataRowVersion.Current, false, Nothing)) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As Nature_Findings_Database.UsersDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As Nature_Findings_Database.UsersDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As Nature_Findings_Database.UsersDataTable = New Nature_Findings_Database.UsersDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Fill_Account_Information(ByVal dataTable As Nature_Findings_Database.UsersDataTable, ByVal Username As String) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(1) + If (Username Is Nothing) Then + Me.Adapter.SelectCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(Username,String) + End If + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As Nature_Findings_Database.UsersDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As Nature_Findings_Database) As Integer + Return Me.Adapter.Update(dataSet, "Users") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_User_ID As Integer, ByVal Original_Username As String, ByVal Original_Password As String, ByVal Original_Email_Address As String, ByVal Original_Contributor_Name As String, ByVal Original_About_User As String, ByVal Original_Life_List As String) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_User_ID,Integer) + If (Original_Username Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_Username,String) + End If + If (Original_Password Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_Password") + Else + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_Password,String) + End If + If (Original_Email_Address Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_Email_Address,String) + End If + If (Original_Contributor_Name Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_Contributor_Name,String) + End If + If (Original_About_User Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_About_User,String) + End If + If (Original_Life_List Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_Life_List,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal Username As String, ByVal Password As String, ByVal Email_Address As String, ByVal Contributor_Name As String, ByVal About_User As String, ByVal Life_List As String) As Integer + If (Username Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(Username,String) + End If + If (Password Is Nothing) Then + Throw New Global.System.ArgumentNullException("Password") + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(Password,String) + End If + If (Email_Address Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(Email_Address,String) + End If + If (Contributor_Name Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(Contributor_Name,String) + End If + If (About_User Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(About_User,String) + End If + If (Life_List Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(Life_List,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal Username As String, ByVal Password As String, ByVal Email_Address As String, ByVal Contributor_Name As String, ByVal About_User As String, ByVal Life_List As String, ByVal Original_User_ID As Integer, ByVal Original_Username As String, ByVal Original_Password As String, ByVal Original_Email_Address As String, ByVal Original_Contributor_Name As String, ByVal Original_About_User As String, ByVal Original_Life_List As String) As Integer + If (Username Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(Username,String) + End If + If (Password Is Nothing) Then + Throw New Global.System.ArgumentNullException("Password") + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(Password,String) + End If + If (Email_Address Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Email_Address,String) + End If + If (Contributor_Name Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Contributor_Name,String) + End If + If (About_User Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(About_User,String) + End If + If (Life_List Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Life_List,String) + End If + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_User_ID,Integer) + If (Original_Username Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_Username,String) + End If + If (Original_Password Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_Password") + Else + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_Password,String) + End If + If (Original_Email_Address Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_Email_Address,String) + End If + If (Original_Contributor_Name Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_Contributor_Name,String) + End If + If (Original_About_User Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_About_User,String) + End If + If (Original_Life_List Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_Life_List,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Get_Contributor_Name(ByVal Username As String) As String + Dim command As Global.System.Data.OleDb.OleDbCommand = Me.CommandCollection(2) + If (Username Is Nothing) Then + command.Parameters(0).Value = Global.System.DBNull.Value + Else + command.Parameters(0).Value = CType(Username,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Object + Try + returnValue = command.ExecuteScalar + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + If ((returnValue Is Nothing) _ + OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then + Return Nothing + Else + Return CType(returnValue,String) + End If + End Function + + _ + Public Overloads Overridable Function Get_User_ID(ByVal Username As String) As Object + Dim command As Global.System.Data.OleDb.OleDbCommand = Me.CommandCollection(3) + If (Username Is Nothing) Then + command.Parameters(0).Value = Global.System.DBNull.Value + Else + command.Parameters(0).Value = CType(Username,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Object + Try + returnValue = command.ExecuteScalar + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + If ((returnValue Is Nothing) _ + OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then + Return Nothing + Else + Return CType(returnValue,Object) + End If + End Function + + _ + Public Overloads Overridable Function Login_Check(ByVal Username As String, ByVal Password As String) As Global.System.Nullable(Of Integer) + Dim command As Global.System.Data.OleDb.OleDbCommand = Me.CommandCollection(4) + If (Username Is Nothing) Then + command.Parameters(0).Value = Global.System.DBNull.Value + Else + command.Parameters(0).Value = CType(Username,String) + End If + If (Password Is Nothing) Then + Throw New Global.System.ArgumentNullException("Password") + Else + command.Parameters(1).Value = CType(Password,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Object + Try + returnValue = command.ExecuteScalar + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + If ((returnValue Is Nothing) _ + OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then + Return New Global.System.Nullable(Of Integer)() + Else + Return New Global.System.Nullable(Of Integer)(CType(returnValue,Integer)) + End If + End Function + End Class + + ''' + '''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios + ''' + _ + Partial Public Class TableAdapterManager + Inherits Global.System.ComponentModel.Component + + Private _updateOrder As UpdateOrderOption + + Private _locationTableAdapter As LocationTableAdapter + + Private _speciesTableAdapter As SpeciesTableAdapter + + Private _user_Species_LinkTableAdapter As User_Species_LinkTableAdapter + + Private _usersTableAdapter As UsersTableAdapter + + Private _backupDataSetBeforeUpdate As Boolean + + Private _connection As Global.System.Data.IDbConnection + + _ + Public Property UpdateOrder() As UpdateOrderOption + Get + Return Me._updateOrder + End Get + Set + Me._updateOrder = value + End Set + End Property + + _ + Public Property LocationTableAdapter() As LocationTableAdapter + Get + Return Me._locationTableAdapter + End Get + Set + Me._locationTableAdapter = value + End Set + End Property + + _ + Public Property SpeciesTableAdapter() As SpeciesTableAdapter + Get + Return Me._speciesTableAdapter + End Get + Set + Me._speciesTableAdapter = value + End Set + End Property + + _ + Public Property User_Species_LinkTableAdapter() As User_Species_LinkTableAdapter + Get + Return Me._user_Species_LinkTableAdapter + End Get + Set + Me._user_Species_LinkTableAdapter = value + End Set + End Property + + _ + Public Property UsersTableAdapter() As UsersTableAdapter + Get + Return Me._usersTableAdapter + End Get + Set + Me._usersTableAdapter = value + End Set + End Property + + _ + Public Property BackupDataSetBeforeUpdate() As Boolean + Get + Return Me._backupDataSetBeforeUpdate + End Get + Set + Me._backupDataSetBeforeUpdate = value + End Set + End Property + + _ + Public Property Connection() As Global.System.Data.IDbConnection + Get + If (Not (Me._connection) Is Nothing) Then + Return Me._connection + End If + If ((Not (Me._locationTableAdapter) Is Nothing) _ + AndAlso (Not (Me._locationTableAdapter.Connection) Is Nothing)) Then + Return Me._locationTableAdapter.Connection + End If + If ((Not (Me._speciesTableAdapter) Is Nothing) _ + AndAlso (Not (Me._speciesTableAdapter.Connection) Is Nothing)) Then + Return Me._speciesTableAdapter.Connection + End If + If ((Not (Me._user_Species_LinkTableAdapter) Is Nothing) _ + AndAlso (Not (Me._user_Species_LinkTableAdapter.Connection) Is Nothing)) Then + Return Me._user_Species_LinkTableAdapter.Connection + End If + If ((Not (Me._usersTableAdapter) Is Nothing) _ + AndAlso (Not (Me._usersTableAdapter.Connection) Is Nothing)) Then + Return Me._usersTableAdapter.Connection + End If + Return Nothing + End Get + Set + Me._connection = value + End Set + End Property + + _ + Public ReadOnly Property TableAdapterInstanceCount() As Integer + Get + Dim count As Integer = 0 + If (Not (Me._locationTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._speciesTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._user_Species_LinkTableAdapter) Is Nothing) Then + count = (count + 1) + End If + If (Not (Me._usersTableAdapter) Is Nothing) Then + count = (count + 1) + End If + Return count + End Get + End Property + + ''' + '''Update rows in top-down order. + ''' + _ + Private Function UpdateUpdatedRows(ByVal dataSet As Nature_Findings_Database, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow), ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer + Dim result As Integer = 0 + If (Not (Me._usersTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.Users.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._usersTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._speciesTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.Species.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._speciesTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._locationTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.Location.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._locationTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._user_Species_LinkTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.User_Species_Link.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._user_Species_LinkTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + Return result + End Function + + ''' + '''Insert rows in top-down order. + ''' + _ + Private Function UpdateInsertedRows(ByVal dataSet As Nature_Findings_Database, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer + Dim result As Integer = 0 + If (Not (Me._usersTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.Users.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._usersTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._speciesTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.Species.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._speciesTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._locationTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.Location.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._locationTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._user_Species_LinkTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.User_Species_Link.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._user_Species_LinkTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + Return result + End Function + + ''' + '''Delete rows in bottom-up order. + ''' + _ + Private Function UpdateDeletedRows(ByVal dataSet As Nature_Findings_Database, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer + Dim result As Integer = 0 + If (Not (Me._user_Species_LinkTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.User_Species_Link.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._user_Species_LinkTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._locationTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.Location.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._locationTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._speciesTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.Species.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._speciesTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._usersTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.Users.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._usersTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + Return result + End Function + + ''' + '''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first + ''' + _ + Private Function GetRealUpdatedRows(ByVal updatedRows() As Global.System.Data.DataRow, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Global.System.Data.DataRow() + If ((updatedRows Is Nothing) _ + OrElse (updatedRows.Length < 1)) Then + Return updatedRows + End If + If ((allAddedRows Is Nothing) _ + OrElse (allAddedRows.Count < 1)) Then + Return updatedRows + End If + Dim realUpdatedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim i As Integer = 0 + Do While (i < updatedRows.Length) + Dim row As Global.System.Data.DataRow = updatedRows(i) + If (allAddedRows.Contains(row) = false) Then + realUpdatedRows.Add(row) + End If + i = (i + 1) + Loop + Return realUpdatedRows.ToArray + End Function + + ''' + '''Update all changes to the dataset. + ''' + _ + Public Overridable Function UpdateAll(ByVal dataSet As Nature_Findings_Database) As Integer + If (dataSet Is Nothing) Then + Throw New Global.System.ArgumentNullException("dataSet") + End If + If (dataSet.HasChanges = false) Then + Return 0 + End If + If ((Not (Me._locationTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._locationTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _ + "tring.") + End If + If ((Not (Me._speciesTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._speciesTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _ + "tring.") + End If + If ((Not (Me._user_Species_LinkTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._user_Species_LinkTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _ + "tring.") + End If + If ((Not (Me._usersTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._usersTableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _ + "tring.") + End If + Dim workConnection As Global.System.Data.IDbConnection = Me.Connection + If (workConnection Is Nothing) Then + Throw New Global.System.ApplicationException("TableAdapterManager contains no connection information. Set each TableAdapterMana"& _ + "ger TableAdapter property to a valid TableAdapter instance.") + End If + Dim workConnOpened As Boolean = false + If ((workConnection.State And Global.System.Data.ConnectionState.Broken) _ + = Global.System.Data.ConnectionState.Broken) Then + workConnection.Close + End If + If (workConnection.State = Global.System.Data.ConnectionState.Closed) Then + workConnection.Open + workConnOpened = true + End If + Dim workTransaction As Global.System.Data.IDbTransaction = workConnection.BeginTransaction + If (workTransaction Is Nothing) Then + Throw New Global.System.ApplicationException("The transaction cannot begin. The current data connection does not support transa"& _ + "ctions or the current state is not allowing the transaction to begin.") + End If + Dim allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() + Dim adaptersWithAcceptChangesDuringUpdate As Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter) = New Global.System.Collections.Generic.List(Of Global.System.Data.Common.DataAdapter)() + Dim revertConnections As Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection) = New Global.System.Collections.Generic.Dictionary(Of Object, Global.System.Data.IDbConnection)() + Dim result As Integer = 0 + Dim backupDataSet As Global.System.Data.DataSet = Nothing + If Me.BackupDataSetBeforeUpdate Then + backupDataSet = New Global.System.Data.DataSet() + backupDataSet.Merge(dataSet) + End If + Try + '---- Prepare for update ----------- + ' + If (Not (Me._locationTableAdapter) Is Nothing) Then + revertConnections.Add(Me._locationTableAdapter, Me._locationTableAdapter.Connection) + Me._locationTableAdapter.Connection = CType(workConnection,Global.System.Data.OleDb.OleDbConnection) + Me._locationTableAdapter.Transaction = CType(workTransaction,Global.System.Data.OleDb.OleDbTransaction) + If Me._locationTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._locationTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._locationTableAdapter.Adapter) + End If + End If + If (Not (Me._speciesTableAdapter) Is Nothing) Then + revertConnections.Add(Me._speciesTableAdapter, Me._speciesTableAdapter.Connection) + Me._speciesTableAdapter.Connection = CType(workConnection,Global.System.Data.OleDb.OleDbConnection) + Me._speciesTableAdapter.Transaction = CType(workTransaction,Global.System.Data.OleDb.OleDbTransaction) + If Me._speciesTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._speciesTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._speciesTableAdapter.Adapter) + End If + End If + If (Not (Me._user_Species_LinkTableAdapter) Is Nothing) Then + revertConnections.Add(Me._user_Species_LinkTableAdapter, Me._user_Species_LinkTableAdapter.Connection) + Me._user_Species_LinkTableAdapter.Connection = CType(workConnection,Global.System.Data.OleDb.OleDbConnection) + Me._user_Species_LinkTableAdapter.Transaction = CType(workTransaction,Global.System.Data.OleDb.OleDbTransaction) + If Me._user_Species_LinkTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._user_Species_LinkTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._user_Species_LinkTableAdapter.Adapter) + End If + End If + If (Not (Me._usersTableAdapter) Is Nothing) Then + revertConnections.Add(Me._usersTableAdapter, Me._usersTableAdapter.Connection) + Me._usersTableAdapter.Connection = CType(workConnection,Global.System.Data.OleDb.OleDbConnection) + Me._usersTableAdapter.Transaction = CType(workTransaction,Global.System.Data.OleDb.OleDbTransaction) + If Me._usersTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._usersTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._usersTableAdapter.Adapter) + End If + End If + ' + '---- Perform updates ----------- + ' + If (Me.UpdateOrder = UpdateOrderOption.UpdateInsertDelete) Then + result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows)) + result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows)) + Else + result = (result + Me.UpdateInsertedRows(dataSet, allAddedRows)) + result = (result + Me.UpdateUpdatedRows(dataSet, allChangedRows, allAddedRows)) + End If + result = (result + Me.UpdateDeletedRows(dataSet, allChangedRows)) + ' + '---- Commit updates ----------- + ' + workTransaction.Commit + If (0 < allAddedRows.Count) Then + Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow + allAddedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges + i = (i + 1) + Loop + End If + If (0 < allChangedRows.Count) Then + Dim rows((allChangedRows.Count) - 1) As Global.System.Data.DataRow + allChangedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges + i = (i + 1) + Loop + End If + Catch ex As Global.System.Exception + workTransaction.Rollback + '---- Restore the dataset ----------- + If Me.BackupDataSetBeforeUpdate Then + Global.System.Diagnostics.Debug.Assert((Not (backupDataSet) Is Nothing)) + dataSet.Clear + dataSet.Merge(backupDataSet) + Else + If (0 < allAddedRows.Count) Then + Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow + allAddedRows.CopyTo(rows) + Dim i As Integer = 0 + Do While (i < rows.Length) + Dim row As Global.System.Data.DataRow = rows(i) + row.AcceptChanges + row.SetAdded + i = (i + 1) + Loop + End If + End If + Throw ex + Finally + If workConnOpened Then + workConnection.Close + End If + If (Not (Me._locationTableAdapter) Is Nothing) Then + Me._locationTableAdapter.Connection = CType(revertConnections(Me._locationTableAdapter),Global.System.Data.OleDb.OleDbConnection) + Me._locationTableAdapter.Transaction = Nothing + End If + If (Not (Me._speciesTableAdapter) Is Nothing) Then + Me._speciesTableAdapter.Connection = CType(revertConnections(Me._speciesTableAdapter),Global.System.Data.OleDb.OleDbConnection) + Me._speciesTableAdapter.Transaction = Nothing + End If + If (Not (Me._user_Species_LinkTableAdapter) Is Nothing) Then + Me._user_Species_LinkTableAdapter.Connection = CType(revertConnections(Me._user_Species_LinkTableAdapter),Global.System.Data.OleDb.OleDbConnection) + Me._user_Species_LinkTableAdapter.Transaction = Nothing + End If + If (Not (Me._usersTableAdapter) Is Nothing) Then + Me._usersTableAdapter.Connection = CType(revertConnections(Me._usersTableAdapter),Global.System.Data.OleDb.OleDbConnection) + Me._usersTableAdapter.Transaction = Nothing + End If + If (0 < adaptersWithAcceptChangesDuringUpdate.Count) Then + Dim adapters((adaptersWithAcceptChangesDuringUpdate.Count) - 1) As Global.System.Data.Common.DataAdapter + adaptersWithAcceptChangesDuringUpdate.CopyTo(adapters) + Dim i As Integer = 0 + Do While (i < adapters.Length) + Dim adapter As Global.System.Data.Common.DataAdapter = adapters(i) + adapter.AcceptChangesDuringUpdate = true + i = (i + 1) + Loop + End If + End Try + Return result + End Function + + _ + Protected Overridable Sub SortSelfReferenceRows(ByVal rows() As Global.System.Data.DataRow, ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) + Global.System.Array.Sort(Of Global.System.Data.DataRow)(rows, New SelfReferenceComparer(relation, childFirst)) + End Sub + + _ + Protected Overridable Function MatchTableAdapterConnection(ByVal inputConnection As Global.System.Data.IDbConnection) As Boolean + If (Not (Me._connection) Is Nothing) Then + Return true + End If + If ((Me.Connection Is Nothing) _ + OrElse (inputConnection Is Nothing)) Then + Return true + End If + If String.Equals(Me.Connection.ConnectionString, inputConnection.ConnectionString, Global.System.StringComparison.Ordinal) Then + Return true + End If + Return false + End Function + + ''' + '''Update Order Option + ''' + _ + Public Enum UpdateOrderOption + + InsertUpdateDelete = 0 + + UpdateInsertDelete = 1 + End Enum + + ''' + '''Used to sort self-referenced table's rows + ''' + _ + Private Class SelfReferenceComparer + Inherits Object + Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow) + + Private _relation As Global.System.Data.DataRelation + + Private _childFirst As Integer + + _ + Friend Sub New(ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) + MyBase.New + Me._relation = relation + If childFirst Then + Me._childFirst = -1 + Else + Me._childFirst = 1 + End If + End Sub + + _ + Private Function GetRoot(ByVal row As Global.System.Data.DataRow, ByRef distance As Integer) As Global.System.Data.DataRow + Global.System.Diagnostics.Debug.Assert((Not (row) Is Nothing)) + Dim root As Global.System.Data.DataRow = row + distance = 0 + + Dim traversedRows As Global.System.Collections.Generic.IDictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow) = New Global.System.Collections.Generic.Dictionary(Of Global.System.Data.DataRow, Global.System.Data.DataRow)() + traversedRows(row) = row + + Dim parent As Global.System.Data.DataRow = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default]) + + Do While ((Not (parent) Is Nothing) _ + AndAlso (traversedRows.ContainsKey(parent) = false)) + distance = (distance + 1) + root = parent + traversedRows(parent) = parent + parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default]) + + Loop + + If (distance = 0) Then + traversedRows.Clear + traversedRows(row) = row + parent = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original) + + Do While ((Not (parent) Is Nothing) _ + AndAlso (traversedRows.ContainsKey(parent) = false)) + distance = (distance + 1) + root = parent + traversedRows(parent) = parent + parent = parent.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original) + + Loop + End If + + Return root + End Function + + _ + Public Function Compare(ByVal row1 As Global.System.Data.DataRow, ByVal row2 As Global.System.Data.DataRow) As Integer Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow).Compare + If Object.ReferenceEquals(row1, row2) Then + Return 0 + End If + If (row1 Is Nothing) Then + Return -1 + End If + If (row2 Is Nothing) Then + Return 1 + End If + + Dim distance1 As Integer = 0 + Dim root1 As Global.System.Data.DataRow = Me.GetRoot(row1, distance1) + + Dim distance2 As Integer = 0 + Dim root2 As Global.System.Data.DataRow = Me.GetRoot(row2, distance2) + + If Object.ReferenceEquals(root1, root2) Then + Return (Me._childFirst * distance1.CompareTo(distance2)) + Else + Global.System.Diagnostics.Debug.Assert(((Not (root1.Table) Is Nothing) _ + AndAlso (Not (root2.Table) Is Nothing))) + If (root1.Table.Rows.IndexOf(root1) < root2.Table.Rows.IndexOf(root2)) Then + Return -1 + Else + Return 1 + End If + End If + End Function + End Class + End Class +End Namespace diff --git a/Nature Findings/Nature Findings/Nature_Findings_Database.vb b/Nature Findings/Nature Findings/Nature_Findings_Database.vb new file mode 100644 index 0000000..0632e83 --- /dev/null +++ b/Nature Findings/Nature Findings/Nature_Findings_Database.vb @@ -0,0 +1,8 @@ + + +Partial Public Class Nature_Findings_Database +End Class + + +Partial Public Class Nature_Findings_Database +End Class diff --git a/Nature Findings/Nature Findings/Nature_Findings_Database.xsc b/Nature Findings/Nature Findings/Nature_Findings_Database.xsc new file mode 100644 index 0000000..7f37516 --- /dev/null +++ b/Nature Findings/Nature Findings/Nature_Findings_Database.xsc @@ -0,0 +1,19 @@ + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/Nature Findings/Nature Findings/Nature_Findings_Database.xsd b/Nature Findings/Nature Findings/Nature_Findings_Database.xsd new file mode 100644 index 0000000..160f95e --- /dev/null +++ b/Nature Findings/Nature Findings/Nature_Findings_Database.xsd @@ -0,0 +1,719 @@ + + + + + + + + + + + + + + + DELETE FROM `Location` WHERE ((`Location_ID` = ?) AND ((? = 1 AND `Location_Name` IS NULL) OR (`Location_Name` = ?)) AND ((? = 1 AND `Address` IS NULL) OR (`Address` = ?)) AND ((? = 1 AND `Location_Owner` IS NULL) OR (`Location_Owner` = ?)) AND ((? = 1 AND `Opening_Times` IS NULL) OR (`Opening_Times` = ?)) AND ((? = 1 AND `Contact_Details` IS NULL) OR (`Contact_Details` = ?)) AND ((? = 1 AND `Entry_Price` IS NULL) OR (`Entry_Price` = ?)) AND ((? = 1 AND `Opening_Date` IS NULL) OR (`Opening_Date` = ?))) + + + + + + + + + + + + + + + + + + + + + + INSERT INTO `Location` (`Location_Name`, `Address`, `Location_Owner`, `Opening_Times`, `Contact_Details`, `Website`, `Entry_Price`, `Opening_Date`) VALUES (?, ?, ?, ?, ?, ?, ?, ?) + + + + + + + + + + + + + + + SELECT Location_ID, Location_Name, Address, Location_Owner, Opening_Times, Contact_Details, Website, Entry_Price, Opening_Date FROM Location + + + + + + UPDATE `Location` SET `Location_Name` = ?, `Address` = ?, `Location_Owner` = ?, `Opening_Times` = ?, `Contact_Details` = ?, `Website` = ?, `Entry_Price` = ?, `Opening_Date` = ? WHERE ((`Location_ID` = ?) AND ((? = 1 AND `Location_Name` IS NULL) OR (`Location_Name` = ?)) AND ((? = 1 AND `Address` IS NULL) OR (`Address` = ?)) AND ((? = 1 AND `Location_Owner` IS NULL) OR (`Location_Owner` = ?)) AND ((? = 1 AND `Opening_Times` IS NULL) OR (`Opening_Times` = ?)) AND ((? = 1 AND `Contact_Details` IS NULL) OR (`Contact_Details` = ?)) AND ((? = 1 AND `Entry_Price` IS NULL) OR (`Entry_Price` = ?)) AND ((? = 1 AND `Opening_Date` IS NULL) OR (`Opening_Date` = ?))) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + SELECT Location_ID, Location_Name, Address, Location_Owner, Opening_Times, Contact_Details, Website, Entry_Price, Opening_Date +FROM Location +WHERE (Address = ?) + + + + + + + + + + SELECT Location_ID, Location_Name, Address, Location_Owner, Opening_Times, Contact_Details, Website, Entry_Price, Opening_Date +FROM Location +WHERE (Contact_Details = ?) + + + + + + + + + + SELECT Location_ID, Location_Name, Address, Location_Owner, Opening_Times, Contact_Details, Website, Entry_Price, Opening_Date +FROM Location +WHERE (Opening_Date = ?) + + + + + + + + + + SELECT Location_ID, Location_Name, Address, Location_Owner, Opening_Times, Contact_Details, Website, Entry_Price, Opening_Date +FROM Location +WHERE (Entry_Price = ?) + + + + + + + + + + SELECT Location_ID, Location_Name, Address, Location_Owner, Opening_Times, Contact_Details, Website, Entry_Price, Opening_Date +FROM Location +WHERE (Location_Name = ?) + + + + + + + + + + SELECT Location_ID, Location_Name, Address, Location_Owner, Opening_Times, Contact_Details, Website, Entry_Price, Opening_Date +FROM Location +WHERE (Opening_Times = ?) + + + + + + + + + + SELECT Location_ID, Location_Name, Address, Location_Owner, Opening_Times, Contact_Details, Website, Entry_Price, Opening_Date +FROM Location +WHERE (Location_Owner = ?) + + + + + + + + + + SELECT Location_ID, Location_Name, Address, Location_Owner, Opening_Times, Contact_Details, Website, Entry_Price, Opening_Date +FROM Location +WHERE (Website = ?) + + + + + + + + + + SELECT Location_Name +FROM Location +GROUP BY Location_Name +HAVING (Location_Name = ?) + + + + + + + + + + + + + + DELETE FROM `Species` WHERE ((`Species_ID` = ?) AND ((? = 1 AND `Species_Name` IS NULL) OR (`Species_Name` = ?))) + + + + + + + + + + INSERT INTO `Species` (`Species_Name`) VALUES (?) + + + + + + + + SELECT Species_ID, Species_Name FROM Species + + + + + + UPDATE `Species` SET `Species_Name` = ? WHERE ((`Species_ID` = ?) AND ((? = 1 AND `Species_Name` IS NULL) OR (`Species_Name` = ?))) + + + + + + + + + + + + + + + + + + + SELECT Species_Name +FROM Species +GROUP BY Species_Name +HAVING (Species_Name = ?) + + + + + + + + + + + + + + DELETE FROM `User_Species_Link` WHERE ((`Date` = ?) AND ((? = 1 AND `Species_ID` IS NULL) OR (`Species_ID` = ?)) AND ((? = 1 AND `User_ID` IS NULL) OR (`User_ID` = ?)) AND ((? = 1 AND `Location_ID` IS NULL) OR (`Location_ID` = ?)) AND ((? = 1 AND `Season` IS NULL) OR (`Season` = ?)) AND ((? = 1 AND `Additional_Comments` IS NULL) OR (`Additional_Comments` = ?)) AND ((? = 1 AND `Location_Name` IS NULL) OR (`Location_Name` = ?)) AND ((? = 1 AND `Species_Name` IS NULL) OR (`Species_Name` = ?))) + + + + + + + + + + + + + + + + + + + + + + INSERT INTO `User_Species_Link` (`Species_ID`, `User_ID`, `Location_ID`, `Season`, `Additional_Comments`, `Sight_Date`) VALUES (?, ?, ?, ?, ?, ?) + + + + + + + + + + + + + SELECT Species_ID, User_ID, Location_ID, Season, Additional_Comments, Sight_Date FROM User_Species_Link + + + + + + UPDATE `User_Species_Link` SET `Date` = ?, `Species_ID` = ?, `User_ID` = ?, `Location_ID` = ?, `Season` = ?, `Additional_Comments` = ?, `Location_Name` = ?, `Species_Name` = ? WHERE ((`Date` = ?) AND ((? = 1 AND `Species_ID` IS NULL) OR (`Species_ID` = ?)) AND ((? = 1 AND `User_ID` IS NULL) OR (`User_ID` = ?)) AND ((? = 1 AND `Location_ID` IS NULL) OR (`Location_ID` = ?)) AND ((? = 1 AND `Season` IS NULL) OR (`Season` = ?)) AND ((? = 1 AND `Additional_Comments` IS NULL) OR (`Additional_Comments` = ?)) AND ((? = 1 AND `Location_Name` IS NULL) OR (`Location_Name` = ?)) AND ((? = 1 AND `Species_Name` IS NULL) OR (`Species_Name` = ?))) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + SELECT Species_ID, User_ID, Location_ID, Season, Additional_Comments, Sight_Date FROM User_Species_Link WHERE (User_ID = ?) + + + + + + + + + + SELECT Species_ID, User_ID, Location_ID, Season, Additional_Comments, Sight_Date FROM User_Species_Link WHERE ([Date] = ?) + + + + + + + + + + SELECT Species_ID, User_ID, Location_ID, Season, Additional_Comments, Sight_Date FROM User_Species_Link WHERE (Location_ID = ?) + + + + + + + + + + SELECT Species_ID, User_ID, Location_ID, Season, Additional_Comments, Sight_Date FROM User_Species_Link WHERE (Species_ID = ?) + + + + + + + + + + SELECT Species_ID, User_ID, Location_ID, Season, Additional_Comments, Sight_Date FROM User_Species_Link WHERE (Season = ?) + + + + + + + + + + SELECT Species_ID, User_ID, Location_ID, Season, Additional_Comments, Sight_Date FROM User_Species_Link WHERE (User_ID = ?) + + + + + + + + + + + + + + DELETE FROM `Users` WHERE ((`User_ID` = ?) AND ((? = 1 AND `Username` IS NULL) OR (`Username` = ?)) AND ((? = 1 AND `Password` IS NULL) OR (`Password` = ?)) AND ((? = 1 AND `Email_Address` IS NULL) OR (`Email_Address` = ?)) AND ((? = 1 AND `Contributor_Name` IS NULL) OR (`Contributor_Name` = ?)) AND ((? = 1 AND `About_User` IS NULL) OR (`About_User` = ?)) AND ((? = 1 AND `Life_List` IS NULL) OR (`Life_List` = ?))) + + + + + + + + + + + + + + + + + + + + INSERT INTO `Users` (`Username`, `Password`, `Email_Address`, `Contributor_Name`, `About_User`, `Life_List`) VALUES (?, ?, ?, ?, ?, ?) + + + + + + + + + + + + + SELECT User_ID, Username, [Password], Email_Address, Contributor_Name, About_User, Life_List FROM Users + + + + + + UPDATE `Users` SET `Username` = ?, `Password` = ?, `Email_Address` = ?, `Contributor_Name` = ?, `About_User` = ?, `Life_List` = ? WHERE ((`User_ID` = ?) AND ((? = 1 AND `Username` IS NULL) OR (`Username` = ?)) AND ((? = 1 AND `Password` IS NULL) OR (`Password` = ?)) AND ((? = 1 AND `Email_Address` IS NULL) OR (`Email_Address` = ?)) AND ((? = 1 AND `Contributor_Name` IS NULL) OR (`Contributor_Name` = ?)) AND ((? = 1 AND `About_User` IS NULL) OR (`About_User` = ?)) AND ((? = 1 AND `Life_List` IS NULL) OR (`Life_List` = ?))) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + SELECT User_ID, Username, [Password], Email_Address, Contributor_Name, About_User, Life_List +FROM Users +WHERE (Username = ?) + + + + + + + + + + SELECT Contributor_Name +FROM Users +GROUP BY User_ID, Username, [Password], Contributor_Name +HAVING (Username = ?) + + + + + + + + + + SELECT User_ID +FROM Users +WHERE (Username = ?) + + + + + + + + + + SELECT COUNT(*) AS Expr1, Username AS UsernameInput, [Password] AS PasswordInput +FROM Users +GROUP BY Username, [Password] +HAVING (Username = ?) AND ([Password] = ?) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/Nature Findings/Nature Findings/Nature_Findings_Database.xss b/Nature Findings/Nature Findings/Nature_Findings_Database.xss new file mode 100644 index 0000000..2187816 --- /dev/null +++ b/Nature Findings/Nature Findings/Nature_Findings_Database.xss @@ -0,0 +1,60 @@ + + + + + + + + + + + + + + 388 + 156 + + + 370 + 156 + + + + + + + 388 + 405 + + + 301 + 405 + + + 301 + 375 + + + + + + + 388 + 590 + + + 293 + 590 + + + 293 + 375 + + + + + \ No newline at end of file diff --git a/Nature Findings/Nature Findings/New_Find.Designer.vb b/Nature Findings/Nature Findings/New_Find.Designer.vb new file mode 100644 index 0000000..9bb507b --- /dev/null +++ b/Nature Findings/Nature Findings/New_Find.Designer.vb @@ -0,0 +1,365 @@ + _ +Partial Class New_Find + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim Species_IDLabel As System.Windows.Forms.Label + Dim Location_IDLabel As System.Windows.Forms.Label + Dim Additional_CommentsLabel As System.Windows.Forms.Label + Dim SeasonLabel As System.Windows.Forms.Label + Dim DateLabel As System.Windows.Forms.Label + Dim User_IDLabel As System.Windows.Forms.Label + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(New_Find)) + Me.Welcome_Screen_Button = New System.Windows.Forms.Button() + Me.My_Account_Button = New System.Windows.Forms.Button() + Me.Label1 = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.Button2 = New System.Windows.Forms.Button() + Me.User_Species_LinkTableAdapter1 = New Nature_Findings_System.Nature_Findings_DatabaseTableAdapters.User_Species_LinkTableAdapter() + Me.Nature_Findings_Database = New Nature_Findings_System.Nature_Findings_Database() + Me.User_Species_LinkBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.TableAdapterManager = New Nature_Findings_System.Nature_Findings_DatabaseTableAdapters.TableAdapterManager() + Me.User_Species_LinkBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) + Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton() + Me.User_Species_LinkBindingNavigatorSaveItem = New System.Windows.Forms.ToolStripButton() + Me.Species_IDTextBox = New System.Windows.Forms.TextBox() + Me.Location_IDTextBox = New System.Windows.Forms.TextBox() + Me.Additional_CommentsTextBox = New System.Windows.Forms.TextBox() + Me.SeasonComboBox = New System.Windows.Forms.ComboBox() + Me.Species_ID_Button = New System.Windows.Forms.Button() + Me.Location_ID_Button = New System.Windows.Forms.Button() + Me.User_IDTextBox = New System.Windows.Forms.TextBox() + Me.Sight_DateDateTimePicker = New System.Windows.Forms.DateTimePicker() + Species_IDLabel = New System.Windows.Forms.Label() + Location_IDLabel = New System.Windows.Forms.Label() + Additional_CommentsLabel = New System.Windows.Forms.Label() + SeasonLabel = New System.Windows.Forms.Label() + DateLabel = New System.Windows.Forms.Label() + User_IDLabel = New System.Windows.Forms.Label() + CType(Me.Nature_Findings_Database, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.User_Species_LinkBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.User_Species_LinkBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() + Me.User_Species_LinkBindingNavigator.SuspendLayout() + Me.SuspendLayout() + ' + 'Species_IDLabel + ' + Species_IDLabel.AutoSize = True + Species_IDLabel.Location = New System.Drawing.Point(12, 123) + Species_IDLabel.Name = "Species_IDLabel" + Species_IDLabel.Size = New System.Drawing.Size(62, 13) + Species_IDLabel.TabIndex = 17 + Species_IDLabel.Text = "Species ID:" + ' + 'Location_IDLabel + ' + Location_IDLabel.AutoSize = True + Location_IDLabel.Location = New System.Drawing.Point(9, 149) + Location_IDLabel.Name = "Location_IDLabel" + Location_IDLabel.Size = New System.Drawing.Size(65, 13) + Location_IDLabel.TabIndex = 18 + Location_IDLabel.Text = "Location ID:" + ' + 'Additional_CommentsLabel + ' + Additional_CommentsLabel.AutoSize = True + Additional_CommentsLabel.Location = New System.Drawing.Point(9, 205) + Additional_CommentsLabel.Name = "Additional_CommentsLabel" + Additional_CommentsLabel.Size = New System.Drawing.Size(108, 13) + Additional_CommentsLabel.TabIndex = 20 + Additional_CommentsLabel.Text = "Additional Comments:" + ' + 'SeasonLabel + ' + SeasonLabel.AutoSize = True + SeasonLabel.Location = New System.Drawing.Point(28, 175) + SeasonLabel.Name = "SeasonLabel" + SeasonLabel.Size = New System.Drawing.Size(46, 13) + SeasonLabel.TabIndex = 21 + SeasonLabel.Text = "Season:" + ' + 'DateLabel + ' + DateLabel.AutoSize = True + DateLabel.Location = New System.Drawing.Point(41, 72) + DateLabel.Name = "DateLabel" + DateLabel.Size = New System.Drawing.Size(33, 13) + DateLabel.TabIndex = 16 + DateLabel.Text = "Date:" + ' + 'User_IDLabel + ' + User_IDLabel.AutoSize = True + User_IDLabel.Location = New System.Drawing.Point(28, 97) + User_IDLabel.Name = "User_IDLabel" + User_IDLabel.Size = New System.Drawing.Size(46, 13) + User_IDLabel.TabIndex = 24 + User_IDLabel.Text = "User ID:" + ' + 'Welcome_Screen_Button + ' + Me.Welcome_Screen_Button.Location = New System.Drawing.Point(12, 25) + Me.Welcome_Screen_Button.Name = "Welcome_Screen_Button" + Me.Welcome_Screen_Button.Size = New System.Drawing.Size(75, 37) + Me.Welcome_Screen_Button.TabIndex = 0 + Me.Welcome_Screen_Button.Text = "Welcome Screen" + Me.Welcome_Screen_Button.UseVisualStyleBackColor = True + ' + 'My_Account_Button + ' + Me.My_Account_Button.Location = New System.Drawing.Point(210, 25) + Me.My_Account_Button.Name = "My_Account_Button" + Me.My_Account_Button.Size = New System.Drawing.Size(75, 37) + Me.My_Account_Button.TabIndex = 1 + Me.My_Account_Button.Text = "My Account" + Me.My_Account_Button.UseVisualStyleBackColor = True + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(93, 25) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(111, 18) + Me.Label1.TabIndex = 3 + Me.Label1.Text = "Nature Findings" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label2.Location = New System.Drawing.Point(113, 42) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(70, 18) + Me.Label2.TabIndex = 4 + Me.Label2.Text = "New Find" + ' + 'Button2 + ' + Me.Button2.Location = New System.Drawing.Point(197, 13) + Me.Button2.Name = "Button2" + Me.Button2.Size = New System.Drawing.Size(75, 37) + Me.Button2.TabIndex = 1 + Me.Button2.Text = "Button2" + Me.Button2.UseVisualStyleBackColor = True + ' + 'User_Species_LinkTableAdapter1 + ' + Me.User_Species_LinkTableAdapter1.ClearBeforeFill = True + ' + 'Nature_Findings_Database + ' + Me.Nature_Findings_Database.DataSetName = "Nature_Findings_Database" + Me.Nature_Findings_Database.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'User_Species_LinkBindingSource + ' + Me.User_Species_LinkBindingSource.DataMember = "User_Species_Link" + Me.User_Species_LinkBindingSource.DataSource = Me.Nature_Findings_Database + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.LocationTableAdapter = Nothing + Me.TableAdapterManager.SpeciesTableAdapter = Nothing + Me.TableAdapterManager.UpdateOrder = Nature_Findings_System.Nature_Findings_DatabaseTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + Me.TableAdapterManager.User_Species_LinkTableAdapter = Me.User_Species_LinkTableAdapter1 + Me.TableAdapterManager.UsersTableAdapter = Nothing + ' + 'User_Species_LinkBindingNavigator + ' + Me.User_Species_LinkBindingNavigator.AddNewItem = Me.BindingNavigatorAddNewItem + Me.User_Species_LinkBindingNavigator.BindingSource = Me.User_Species_LinkBindingSource + Me.User_Species_LinkBindingNavigator.CountItem = Nothing + Me.User_Species_LinkBindingNavigator.DeleteItem = Me.BindingNavigatorDeleteItem + Me.User_Species_LinkBindingNavigator.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden + Me.User_Species_LinkBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorAddNewItem, Me.BindingNavigatorDeleteItem, Me.User_Species_LinkBindingNavigatorSaveItem}) + Me.User_Species_LinkBindingNavigator.Location = New System.Drawing.Point(0, 0) + Me.User_Species_LinkBindingNavigator.MoveFirstItem = Nothing + Me.User_Species_LinkBindingNavigator.MoveLastItem = Nothing + Me.User_Species_LinkBindingNavigator.MoveNextItem = Nothing + Me.User_Species_LinkBindingNavigator.MovePreviousItem = Nothing + Me.User_Species_LinkBindingNavigator.Name = "User_Species_LinkBindingNavigator" + Me.User_Species_LinkBindingNavigator.PositionItem = Nothing + Me.User_Species_LinkBindingNavigator.Size = New System.Drawing.Size(305, 25) + Me.User_Species_LinkBindingNavigator.TabIndex = 15 + Me.User_Species_LinkBindingNavigator.Text = "BindingNavigator1" + ' + 'BindingNavigatorAddNewItem + ' + Me.BindingNavigatorAddNewItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorAddNewItem.Image = CType(resources.GetObject("BindingNavigatorAddNewItem.Image"), System.Drawing.Image) + Me.BindingNavigatorAddNewItem.Name = "BindingNavigatorAddNewItem" + Me.BindingNavigatorAddNewItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorAddNewItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorAddNewItem.Text = "Add new" + ' + 'BindingNavigatorDeleteItem + ' + Me.BindingNavigatorDeleteItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorDeleteItem.Image = CType(resources.GetObject("BindingNavigatorDeleteItem.Image"), System.Drawing.Image) + Me.BindingNavigatorDeleteItem.Name = "BindingNavigatorDeleteItem" + Me.BindingNavigatorDeleteItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorDeleteItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorDeleteItem.Text = "Delete" + ' + 'User_Species_LinkBindingNavigatorSaveItem + ' + Me.User_Species_LinkBindingNavigatorSaveItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.User_Species_LinkBindingNavigatorSaveItem.Image = CType(resources.GetObject("User_Species_LinkBindingNavigatorSaveItem.Image"), System.Drawing.Image) + Me.User_Species_LinkBindingNavigatorSaveItem.Name = "User_Species_LinkBindingNavigatorSaveItem" + Me.User_Species_LinkBindingNavigatorSaveItem.Size = New System.Drawing.Size(23, 22) + Me.User_Species_LinkBindingNavigatorSaveItem.Text = "Save Data" + ' + 'Species_IDTextBox + ' + Me.Species_IDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.User_Species_LinkBindingSource, "Species_ID", True)) + Me.Species_IDTextBox.Location = New System.Drawing.Point(80, 120) + Me.Species_IDTextBox.Name = "Species_IDTextBox" + Me.Species_IDTextBox.Size = New System.Drawing.Size(124, 20) + Me.Species_IDTextBox.TabIndex = 18 + ' + 'Location_IDTextBox + ' + Me.Location_IDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.User_Species_LinkBindingSource, "Location_ID", True)) + Me.Location_IDTextBox.Location = New System.Drawing.Point(80, 146) + Me.Location_IDTextBox.Name = "Location_IDTextBox" + Me.Location_IDTextBox.Size = New System.Drawing.Size(124, 20) + Me.Location_IDTextBox.TabIndex = 19 + ' + 'Additional_CommentsTextBox + ' + Me.Additional_CommentsTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.User_Species_LinkBindingSource, "Additional_Comments", True)) + Me.Additional_CommentsTextBox.Location = New System.Drawing.Point(12, 221) + Me.Additional_CommentsTextBox.Multiline = True + Me.Additional_CommentsTextBox.Name = "Additional_CommentsTextBox" + Me.Additional_CommentsTextBox.ScrollBars = System.Windows.Forms.ScrollBars.Vertical + Me.Additional_CommentsTextBox.Size = New System.Drawing.Size(273, 60) + Me.Additional_CommentsTextBox.TabIndex = 21 + ' + 'SeasonComboBox + ' + Me.SeasonComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.User_Species_LinkBindingSource, "Season", True)) + Me.SeasonComboBox.FormattingEnabled = True + Me.SeasonComboBox.Items.AddRange(New Object() {"Spring", "Summer", "Autumn", "Winter"}) + Me.SeasonComboBox.Location = New System.Drawing.Point(80, 172) + Me.SeasonComboBox.Name = "SeasonComboBox" + Me.SeasonComboBox.Size = New System.Drawing.Size(205, 21) + Me.SeasonComboBox.TabIndex = 22 + ' + 'Species_ID_Button + ' + Me.Species_ID_Button.Location = New System.Drawing.Point(210, 118) + Me.Species_ID_Button.Name = "Species_ID_Button" + Me.Species_ID_Button.Size = New System.Drawing.Size(75, 23) + Me.Species_ID_Button.TabIndex = 23 + Me.Species_ID_Button.Text = "Species IDs" + Me.Species_ID_Button.UseVisualStyleBackColor = True + ' + 'Location_ID_Button + ' + Me.Location_ID_Button.Location = New System.Drawing.Point(210, 144) + Me.Location_ID_Button.Name = "Location_ID_Button" + Me.Location_ID_Button.Size = New System.Drawing.Size(75, 23) + Me.Location_ID_Button.TabIndex = 24 + Me.Location_ID_Button.Text = "Location IDs" + Me.Location_ID_Button.UseVisualStyleBackColor = True + ' + 'User_IDTextBox + ' + Me.User_IDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.User_Species_LinkBindingSource, "User_ID", True)) + Me.User_IDTextBox.Location = New System.Drawing.Point(80, 94) + Me.User_IDTextBox.Name = "User_IDTextBox" + Me.User_IDTextBox.ReadOnly = True + Me.User_IDTextBox.Size = New System.Drawing.Size(205, 20) + Me.User_IDTextBox.TabIndex = 25 + ' + 'Sight_DateDateTimePicker + ' + Me.Sight_DateDateTimePicker.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.User_Species_LinkBindingSource, "Sight_Date", True)) + Me.Sight_DateDateTimePicker.Location = New System.Drawing.Point(80, 69) + Me.Sight_DateDateTimePicker.Name = "Sight_DateDateTimePicker" + Me.Sight_DateDateTimePicker.Size = New System.Drawing.Size(205, 20) + Me.Sight_DateDateTimePicker.TabIndex = 26 + ' + 'New_Find + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.CornflowerBlue + Me.ClientSize = New System.Drawing.Size(305, 294) + Me.Controls.Add(Me.Sight_DateDateTimePicker) + Me.Controls.Add(User_IDLabel) + Me.Controls.Add(Me.User_IDTextBox) + Me.Controls.Add(Me.Location_ID_Button) + Me.Controls.Add(Me.Species_ID_Button) + Me.Controls.Add(SeasonLabel) + Me.Controls.Add(Me.SeasonComboBox) + Me.Controls.Add(Additional_CommentsLabel) + Me.Controls.Add(Me.Additional_CommentsTextBox) + Me.Controls.Add(Location_IDLabel) + Me.Controls.Add(Me.Location_IDTextBox) + Me.Controls.Add(Species_IDLabel) + Me.Controls.Add(Me.Species_IDTextBox) + Me.Controls.Add(DateLabel) + Me.Controls.Add(Me.User_Species_LinkBindingNavigator) + Me.Controls.Add(Me.Label2) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.My_Account_Button) + Me.Controls.Add(Me.Welcome_Screen_Button) + Me.MaximizeBox = False + Me.Name = "New_Find" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Nature Findings: New Find" + CType(Me.Nature_Findings_Database, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.User_Species_LinkBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.User_Species_LinkBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit() + Me.User_Species_LinkBindingNavigator.ResumeLayout(False) + Me.User_Species_LinkBindingNavigator.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents Welcome_Screen_Button As System.Windows.Forms.Button + Friend WithEvents My_Account_Button As System.Windows.Forms.Button + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents Button2 As System.Windows.Forms.Button + Friend WithEvents User_Species_LinkTableAdapter1 As Nature_Findings_System.Nature_Findings_DatabaseTableAdapters.User_Species_LinkTableAdapter + Friend WithEvents Nature_Findings_Database As Nature_Findings_System.Nature_Findings_Database + Friend WithEvents User_Species_LinkBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TableAdapterManager As Nature_Findings_System.Nature_Findings_DatabaseTableAdapters.TableAdapterManager + Friend WithEvents User_Species_LinkBindingNavigator As System.Windows.Forms.BindingNavigator + Friend WithEvents BindingNavigatorAddNewItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorDeleteItem As System.Windows.Forms.ToolStripButton + Friend WithEvents User_Species_LinkBindingNavigatorSaveItem As System.Windows.Forms.ToolStripButton + Friend WithEvents Species_IDTextBox As System.Windows.Forms.TextBox + Friend WithEvents Location_IDTextBox As System.Windows.Forms.TextBox + Friend WithEvents Additional_CommentsTextBox As System.Windows.Forms.TextBox + Friend WithEvents SeasonComboBox As System.Windows.Forms.ComboBox + Friend WithEvents Species_ID_Button As System.Windows.Forms.Button + Friend WithEvents Location_ID_Button As System.Windows.Forms.Button + Friend WithEvents User_IDTextBox As System.Windows.Forms.TextBox + Friend WithEvents Sight_DateDateTimePicker As System.Windows.Forms.DateTimePicker +End Class diff --git a/Nature Findings/Nature Findings/New_Find.resx b/Nature Findings/Nature Findings/New_Find.resx new file mode 100644 index 0000000..9c895bf --- /dev/null +++ b/Nature Findings/Nature Findings/New_Find.resx @@ -0,0 +1,193 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + False + + + False + + + False + + + False + + + False + + + False + + + 17, 17 + + + 246, 17 + + + 442, 17 + + + 670, 17 + + + 17, 56 + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + vAAADrwBlbxySQAAAU1JREFUOE9jYBi04O4C9v+35nH+vzqH6//FGbz/SXbodaDGP48a//952PD/5GQB + 0g04P50XbsDBHhHSDTg+SRBoe93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++ + Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ + /5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA + zpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAN6QgH5898N + fyD2+9+arE+6Ad3pumD/gnB9nBHpBrQkGfxviDf8XxNr/L8y2oR0A0hO++RqAAAkI9ieo+gjUwAAAABJ + RU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + vAAADrwBlbxySQAAAW9JREFUOE+tkk0ow3EYx3dV3kq5uKBWDiPT8hISMiQsMiEyQ9qBg0hoFwcHUi7k + gIvkQFJSTrQ4zdvmrTW1/kuT0i74x+X3MRal/fEnv8tz+H2fz/N8vz0azX88PG6wmcDp4E881hYR3VUI + ixF2Nr+FcO2DlbnPGjaWoM+M6DAiOitgYUoR8rqhsJTBWG/kP6fOMKTegGjKh/7mTyIx0oUw58C0/Xub + LM8iKtPeQIx2gfcMJgbD0FBVlRE+D7QUhS2ZshANuTDQqq75fQIHe6GVcxHV6VCr/2VzQIKmAshOQNbH + c6+PhTqDOggBP5jzoDCJoLUaLo7fwr3VhSCr8z8EeHcLbSU8FCfjLU0nuL/70cB4Py5tDLL7UBnC8xMM + W6EkhRNdIsGt9QjhTXkGUnsN8rVf4Q72tpFzEnGlRiH1NIL8qDjJoY1DdjkVADNjSGnReI2ZIF196VW2 + 2+D8SAFw6YLJITjaV5e2qotSIXoBiiMDHEVvQ/IAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + vAAADrwBlbxySQAAAilJREFUOE+tk91Lk3EUx/cvdN9N0EW3NTWGa7EaPOUcyqphWBG9PZEv5dJlmqhY + mUYtXyBb4dJJy+kknFT4BqZIjaFMJUszV7TEoabYRDD49ju/6Pm1Mm/qB+fy8znPOef7qFT/4z17GgWV + r30Zbd4lPHYvoLEhgvuOGdTWfIL9dgg3yqdQWjKBwoLXyMsdxYXzQSi9CeztAWqqV7HRW1ldgzGtF4fT + nvBSBN7WRS6orPjyV57gyMIKdpufQ62WYTnkEQL3o3kuKC35vK7gJ/w+vIg4kw8Fl6dxwNwkBM76WS64 + ZHv3h+BXeGQygm2SF9accaSmOIWg7m6YC7KzRmMEv8ODwTA2692Q5QBMJocQVFd95AL5TEARrAf3+D9g + U2IDjhx9gaSkWiG4WTmN7i6wUwLHT76C5dgA3zYtjGamz6bOP+A+HLR0QpLsQnC1bBIdPrAMAE2ub+zu + X1F+fY4vlRZGM2dmBBU4ObUdBkOFEFwpHIenGXjoXGPBicKYnhNT5hM2pJ8r4p2TUxi83wO9vkwIbHlj + DAaq7kR5ZxJQSOK0EobezmJsag5y7jXsNbZxWLvHBZ2uSAgolo57UD6bBASfzb+FN6F5hGaWcLHYjni9 + i8GNiN/1ANrEfCHIzBhmcy/zmbcaPNiyQ0JLRz98XYPo7vNj4OUQ9pksUOvqkcDg7Zo6aDTWWMHpU/08 + npQwCgndmU5F26aF0czUlYrgnQnZQvAvf/R3bGg6a0rM640AAAAASUVORK5CYII= + + + \ No newline at end of file diff --git a/Nature Findings/Nature Findings/New_Find.vb b/Nature Findings/Nature Findings/New_Find.vb new file mode 100644 index 0000000..bc7b5df --- /dev/null +++ b/Nature Findings/Nature Findings/New_Find.vb @@ -0,0 +1,59 @@ +Public Class New_Find + + Private Sub Welcome_Screen_Button_Click() Handles Welcome_Screen_Button.Click + 'Loads the Welcome Screen and closes this form. + Welcome.Show() + Me.Close() + End Sub + + Private Sub My_Account_Button_Click() Handles My_Account_Button.Click + 'Loads the My Account Screen and closes this form. + My_Account.Show() + Me.Close() + End Sub + + Private Sub User_Species_LinkBindingNavigatorSaveItem_Click() Handles User_Species_LinkBindingNavigatorSaveItem.Click + If Add_Find_Clicked = True Then + + If Sight_DateDateTimePicker.Text = Nothing Or Species_IDTextBox.Text = Nothing Or Location_IDTextBox.Text = Nothing Or SeasonComboBox.Text = Nothing Then + MsgBox("Please fill in all the required fields", MsgBoxStyle.Exclamation) + Else + 'Automatically enters the User ID into the form so the entry is associated to that specific user. + User_IDTextBox.Text = User_ID + + 'This saves the new entry into the database. + Me.Validate() + Me.User_Species_LinkBindingSource.EndEdit() + Me.TableAdapterManager.UpdateAll(Me.Nature_Findings_Database) + + 'Sends a save confirmation to the user + MsgBox("Find Added") + + 'Resets the Add_Find_Clicked Variable + Add_Find_Clicked = False + End If + Else + MsgBox("Please Click Add New in the toolbar") + End If + End Sub + + Private Sub Species_ID_Button_Click() Handles Species_ID_Button.Click + 'Displays the Species and their assocaiated IDs. + Species_IDs.Show() + End Sub + + Private Sub Location_ID_Button_Click() Handles Location_ID_Button.Click + 'Displayes the Locations and their associated IDs + Location_IDs.Show() + End Sub + + Private Sub BindingNavigatorAddNewItem_Click() Handles BindingNavigatorAddNewItem.Click + 'Allows user to click save without error messages + Add_Find_Clicked = True + End Sub + + Private Sub BindingNavigatorDeleteItem_Click() Handles BindingNavigatorDeleteItem.Click + 'Resets the Add_Find_Clicked Variable + Add_Find_Clicked = False + End Sub +End Class \ No newline at end of file diff --git a/Nature Findings/Nature Findings/New_Location.Designer.vb b/Nature Findings/Nature Findings/New_Location.Designer.vb new file mode 100644 index 0000000..0c43ba6 --- /dev/null +++ b/Nature Findings/Nature Findings/New_Location.Designer.vb @@ -0,0 +1,369 @@ + _ +Partial Class New_Location + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim Location_NameLabel As System.Windows.Forms.Label + Dim AddressLabel As System.Windows.Forms.Label + Dim Location_OwnerLabel As System.Windows.Forms.Label + Dim Opening_TimesLabel As System.Windows.Forms.Label + Dim Contact_DetailsLabel As System.Windows.Forms.Label + Dim WebsiteLabel As System.Windows.Forms.Label + Dim Entry_PriceLabel As System.Windows.Forms.Label + Dim Opening_DateLabel As System.Windows.Forms.Label + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(New_Location)) + Me.Label2 = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.My_Account_Button = New System.Windows.Forms.Button() + Me.Welcome_Screen_Button = New System.Windows.Forms.Button() + Me.Nature_Findings_Database = New Nature_Findings_System.Nature_Findings_Database() + Me.LocationBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.LocationTableAdapter = New Nature_Findings_System.Nature_Findings_DatabaseTableAdapters.LocationTableAdapter() + Me.TableAdapterManager = New Nature_Findings_System.Nature_Findings_DatabaseTableAdapters.TableAdapterManager() + Me.LocationBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) + Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton() + Me.LocationBindingNavigatorSaveItem = New System.Windows.Forms.ToolStripButton() + Me.Location_NameTextBox = New System.Windows.Forms.TextBox() + Me.AddressTextBox = New System.Windows.Forms.TextBox() + Me.Location_OwnerTextBox = New System.Windows.Forms.TextBox() + Me.Opening_TimesTextBox = New System.Windows.Forms.TextBox() + Me.Contact_DetailsTextBox = New System.Windows.Forms.TextBox() + Me.WebsiteTextBox = New System.Windows.Forms.TextBox() + Me.Entry_PriceTextBox = New System.Windows.Forms.TextBox() + Me.Opening_DateDateTimePicker = New System.Windows.Forms.DateTimePicker() + Location_NameLabel = New System.Windows.Forms.Label() + AddressLabel = New System.Windows.Forms.Label() + Location_OwnerLabel = New System.Windows.Forms.Label() + Opening_TimesLabel = New System.Windows.Forms.Label() + Contact_DetailsLabel = New System.Windows.Forms.Label() + WebsiteLabel = New System.Windows.Forms.Label() + Entry_PriceLabel = New System.Windows.Forms.Label() + Opening_DateLabel = New System.Windows.Forms.Label() + CType(Me.Nature_Findings_Database, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LocationBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.LocationBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() + Me.LocationBindingNavigator.SuspendLayout() + Me.SuspendLayout() + ' + 'Location_NameLabel + ' + Location_NameLabel.AutoSize = True + Location_NameLabel.Location = New System.Drawing.Point(12, 74) + Location_NameLabel.Name = "Location_NameLabel" + Location_NameLabel.Size = New System.Drawing.Size(82, 13) + Location_NameLabel.TabIndex = 41 + Location_NameLabel.Text = "Location Name:" + ' + 'AddressLabel + ' + AddressLabel.AutoSize = True + AddressLabel.Location = New System.Drawing.Point(12, 100) + AddressLabel.Name = "AddressLabel" + AddressLabel.Size = New System.Drawing.Size(48, 13) + AddressLabel.TabIndex = 42 + AddressLabel.Text = "Address:" + ' + 'Location_OwnerLabel + ' + Location_OwnerLabel.AutoSize = True + Location_OwnerLabel.Location = New System.Drawing.Point(12, 126) + Location_OwnerLabel.Name = "Location_OwnerLabel" + Location_OwnerLabel.Size = New System.Drawing.Size(85, 13) + Location_OwnerLabel.TabIndex = 43 + Location_OwnerLabel.Text = "Location Owner:" + ' + 'Opening_TimesLabel + ' + Opening_TimesLabel.AutoSize = True + Opening_TimesLabel.Location = New System.Drawing.Point(12, 153) + Opening_TimesLabel.Name = "Opening_TimesLabel" + Opening_TimesLabel.Size = New System.Drawing.Size(81, 13) + Opening_TimesLabel.TabIndex = 44 + Opening_TimesLabel.Text = "Opening Times:" + ' + 'Contact_DetailsLabel + ' + Contact_DetailsLabel.AutoSize = True + Contact_DetailsLabel.Location = New System.Drawing.Point(12, 179) + Contact_DetailsLabel.Name = "Contact_DetailsLabel" + Contact_DetailsLabel.Size = New System.Drawing.Size(82, 13) + Contact_DetailsLabel.TabIndex = 45 + Contact_DetailsLabel.Text = "Contact Details:" + ' + 'WebsiteLabel + ' + WebsiteLabel.AutoSize = True + WebsiteLabel.Location = New System.Drawing.Point(12, 205) + WebsiteLabel.Name = "WebsiteLabel" + WebsiteLabel.Size = New System.Drawing.Size(49, 13) + WebsiteLabel.TabIndex = 46 + WebsiteLabel.Text = "Website:" + ' + 'Entry_PriceLabel + ' + Entry_PriceLabel.AutoSize = True + Entry_PriceLabel.Location = New System.Drawing.Point(12, 231) + Entry_PriceLabel.Name = "Entry_PriceLabel" + Entry_PriceLabel.Size = New System.Drawing.Size(61, 13) + Entry_PriceLabel.TabIndex = 47 + Entry_PriceLabel.Text = "Entry Price:" + ' + 'Opening_DateLabel + ' + Opening_DateLabel.AutoSize = True + Opening_DateLabel.Location = New System.Drawing.Point(12, 260) + Opening_DateLabel.Name = "Opening_DateLabel" + Opening_DateLabel.Size = New System.Drawing.Size(76, 13) + Opening_DateLabel.TabIndex = 48 + Opening_DateLabel.Text = "Opening Date:" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label2.Location = New System.Drawing.Point(140, 45) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(99, 18) + Me.Label2.TabIndex = 40 + Me.Label2.Text = "New Location" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(134, 28) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(111, 18) + Me.Label1.TabIndex = 39 + Me.Label1.Text = "Nature Findings" + ' + 'My_Account_Button + ' + Me.My_Account_Button.Location = New System.Drawing.Point(245, 28) + Me.My_Account_Button.Name = "My_Account_Button" + Me.My_Account_Button.Size = New System.Drawing.Size(75, 37) + Me.My_Account_Button.TabIndex = 37 + Me.My_Account_Button.Text = "My Account" + Me.My_Account_Button.UseVisualStyleBackColor = True + ' + 'Welcome_Screen_Button + ' + Me.Welcome_Screen_Button.Location = New System.Drawing.Point(61, 28) + Me.Welcome_Screen_Button.Name = "Welcome_Screen_Button" + Me.Welcome_Screen_Button.Size = New System.Drawing.Size(75, 37) + Me.Welcome_Screen_Button.TabIndex = 36 + Me.Welcome_Screen_Button.Text = "Welcome Screen" + Me.Welcome_Screen_Button.UseVisualStyleBackColor = True + ' + 'Nature_Findings_Database + ' + Me.Nature_Findings_Database.DataSetName = "Nature_Findings_Database" + Me.Nature_Findings_Database.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'LocationBindingSource + ' + Me.LocationBindingSource.DataMember = "Location" + Me.LocationBindingSource.DataSource = Me.Nature_Findings_Database + ' + 'LocationTableAdapter + ' + Me.LocationTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.LocationTableAdapter = Me.LocationTableAdapter + Me.TableAdapterManager.SpeciesTableAdapter = Nothing + Me.TableAdapterManager.UpdateOrder = Nature_Findings_System.Nature_Findings_DatabaseTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + Me.TableAdapterManager.User_Species_LinkTableAdapter = Nothing + Me.TableAdapterManager.UsersTableAdapter = Nothing + ' + 'LocationBindingNavigator + ' + Me.LocationBindingNavigator.AddNewItem = Me.BindingNavigatorAddNewItem + Me.LocationBindingNavigator.BindingSource = Me.LocationBindingSource + Me.LocationBindingNavigator.CountItem = Nothing + Me.LocationBindingNavigator.DeleteItem = Me.BindingNavigatorDeleteItem + Me.LocationBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorAddNewItem, Me.BindingNavigatorDeleteItem, Me.LocationBindingNavigatorSaveItem}) + Me.LocationBindingNavigator.Location = New System.Drawing.Point(0, 0) + Me.LocationBindingNavigator.MoveFirstItem = Nothing + Me.LocationBindingNavigator.MoveLastItem = Nothing + Me.LocationBindingNavigator.MoveNextItem = Nothing + Me.LocationBindingNavigator.MovePreviousItem = Nothing + Me.LocationBindingNavigator.Name = "LocationBindingNavigator" + Me.LocationBindingNavigator.PositionItem = Nothing + Me.LocationBindingNavigator.Size = New System.Drawing.Size(380, 25) + Me.LocationBindingNavigator.TabIndex = 41 + Me.LocationBindingNavigator.Text = "BindingNavigator1" + ' + 'BindingNavigatorAddNewItem + ' + Me.BindingNavigatorAddNewItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorAddNewItem.Image = CType(resources.GetObject("BindingNavigatorAddNewItem.Image"), System.Drawing.Image) + Me.BindingNavigatorAddNewItem.Name = "BindingNavigatorAddNewItem" + Me.BindingNavigatorAddNewItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorAddNewItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorAddNewItem.Text = "Add new" + ' + 'BindingNavigatorDeleteItem + ' + Me.BindingNavigatorDeleteItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorDeleteItem.Image = CType(resources.GetObject("BindingNavigatorDeleteItem.Image"), System.Drawing.Image) + Me.BindingNavigatorDeleteItem.Name = "BindingNavigatorDeleteItem" + Me.BindingNavigatorDeleteItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorDeleteItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorDeleteItem.Text = "Delete" + ' + 'LocationBindingNavigatorSaveItem + ' + Me.LocationBindingNavigatorSaveItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.LocationBindingNavigatorSaveItem.Image = CType(resources.GetObject("LocationBindingNavigatorSaveItem.Image"), System.Drawing.Image) + Me.LocationBindingNavigatorSaveItem.Name = "LocationBindingNavigatorSaveItem" + Me.LocationBindingNavigatorSaveItem.Size = New System.Drawing.Size(23, 22) + Me.LocationBindingNavigatorSaveItem.Text = "Save Data" + ' + 'Location_NameTextBox + ' + Me.Location_NameTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.LocationBindingSource, "Location_Name", True)) + Me.Location_NameTextBox.Location = New System.Drawing.Point(100, 71) + Me.Location_NameTextBox.Name = "Location_NameTextBox" + Me.Location_NameTextBox.Size = New System.Drawing.Size(268, 20) + Me.Location_NameTextBox.TabIndex = 42 + ' + 'AddressTextBox + ' + Me.AddressTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.LocationBindingSource, "Address", True)) + Me.AddressTextBox.Location = New System.Drawing.Point(100, 97) + Me.AddressTextBox.Name = "AddressTextBox" + Me.AddressTextBox.Size = New System.Drawing.Size(268, 20) + Me.AddressTextBox.TabIndex = 43 + ' + 'Location_OwnerTextBox + ' + Me.Location_OwnerTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.LocationBindingSource, "Location_Owner", True)) + Me.Location_OwnerTextBox.Location = New System.Drawing.Point(100, 123) + Me.Location_OwnerTextBox.Name = "Location_OwnerTextBox" + Me.Location_OwnerTextBox.Size = New System.Drawing.Size(268, 20) + Me.Location_OwnerTextBox.TabIndex = 44 + ' + 'Opening_TimesTextBox + ' + Me.Opening_TimesTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.LocationBindingSource, "Opening_Times", True)) + Me.Opening_TimesTextBox.Location = New System.Drawing.Point(100, 150) + Me.Opening_TimesTextBox.Name = "Opening_TimesTextBox" + Me.Opening_TimesTextBox.Size = New System.Drawing.Size(268, 20) + Me.Opening_TimesTextBox.TabIndex = 45 + ' + 'Contact_DetailsTextBox + ' + Me.Contact_DetailsTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.LocationBindingSource, "Contact_Details", True)) + Me.Contact_DetailsTextBox.Location = New System.Drawing.Point(100, 176) + Me.Contact_DetailsTextBox.Name = "Contact_DetailsTextBox" + Me.Contact_DetailsTextBox.Size = New System.Drawing.Size(268, 20) + Me.Contact_DetailsTextBox.TabIndex = 46 + ' + 'WebsiteTextBox + ' + Me.WebsiteTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.LocationBindingSource, "Website", True)) + Me.WebsiteTextBox.Location = New System.Drawing.Point(100, 202) + Me.WebsiteTextBox.Name = "WebsiteTextBox" + Me.WebsiteTextBox.Size = New System.Drawing.Size(268, 20) + Me.WebsiteTextBox.TabIndex = 47 + ' + 'Entry_PriceTextBox + ' + Me.Entry_PriceTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.LocationBindingSource, "Entry_Price", True)) + Me.Entry_PriceTextBox.Location = New System.Drawing.Point(100, 228) + Me.Entry_PriceTextBox.Name = "Entry_PriceTextBox" + Me.Entry_PriceTextBox.Size = New System.Drawing.Size(268, 20) + Me.Entry_PriceTextBox.TabIndex = 48 + ' + 'Opening_DateDateTimePicker + ' + Me.Opening_DateDateTimePicker.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.LocationBindingSource, "Opening_Date", True)) + Me.Opening_DateDateTimePicker.Location = New System.Drawing.Point(100, 254) + Me.Opening_DateDateTimePicker.Name = "Opening_DateDateTimePicker" + Me.Opening_DateDateTimePicker.Size = New System.Drawing.Size(268, 20) + Me.Opening_DateDateTimePicker.TabIndex = 49 + ' + 'New_Location + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.CornflowerBlue + Me.ClientSize = New System.Drawing.Size(380, 289) + Me.Controls.Add(Opening_DateLabel) + Me.Controls.Add(Me.Opening_DateDateTimePicker) + Me.Controls.Add(Entry_PriceLabel) + Me.Controls.Add(Me.Entry_PriceTextBox) + Me.Controls.Add(WebsiteLabel) + Me.Controls.Add(Me.WebsiteTextBox) + Me.Controls.Add(Contact_DetailsLabel) + Me.Controls.Add(Me.Contact_DetailsTextBox) + Me.Controls.Add(Opening_TimesLabel) + Me.Controls.Add(Me.Opening_TimesTextBox) + Me.Controls.Add(Location_OwnerLabel) + Me.Controls.Add(Me.Location_OwnerTextBox) + Me.Controls.Add(AddressLabel) + Me.Controls.Add(Me.AddressTextBox) + Me.Controls.Add(Location_NameLabel) + Me.Controls.Add(Me.Location_NameTextBox) + Me.Controls.Add(Me.LocationBindingNavigator) + Me.Controls.Add(Me.Label2) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.My_Account_Button) + Me.Controls.Add(Me.Welcome_Screen_Button) + Me.Name = "New_Location" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Nature Findings: New Loaction" + CType(Me.Nature_Findings_Database, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LocationBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.LocationBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit() + Me.LocationBindingNavigator.ResumeLayout(False) + Me.LocationBindingNavigator.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents My_Account_Button As System.Windows.Forms.Button + Friend WithEvents Welcome_Screen_Button As System.Windows.Forms.Button + Friend WithEvents Nature_Findings_Database As Nature_Findings_System.Nature_Findings_Database + Friend WithEvents LocationBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents LocationTableAdapter As Nature_Findings_System.Nature_Findings_DatabaseTableAdapters.LocationTableAdapter + Friend WithEvents TableAdapterManager As Nature_Findings_System.Nature_Findings_DatabaseTableAdapters.TableAdapterManager + Friend WithEvents LocationBindingNavigator As System.Windows.Forms.BindingNavigator + Friend WithEvents BindingNavigatorAddNewItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorDeleteItem As System.Windows.Forms.ToolStripButton + Friend WithEvents LocationBindingNavigatorSaveItem As System.Windows.Forms.ToolStripButton + Friend WithEvents Location_NameTextBox As System.Windows.Forms.TextBox + Friend WithEvents AddressTextBox As System.Windows.Forms.TextBox + Friend WithEvents Location_OwnerTextBox As System.Windows.Forms.TextBox + Friend WithEvents Opening_TimesTextBox As System.Windows.Forms.TextBox + Friend WithEvents Contact_DetailsTextBox As System.Windows.Forms.TextBox + Friend WithEvents WebsiteTextBox As System.Windows.Forms.TextBox + Friend WithEvents Entry_PriceTextBox As System.Windows.Forms.TextBox + Friend WithEvents Opening_DateDateTimePicker As System.Windows.Forms.DateTimePicker +End Class diff --git a/Nature Findings/Nature Findings/New_Location.resx b/Nature Findings/Nature Findings/New_Location.resx new file mode 100644 index 0000000..1d32d02 --- /dev/null +++ b/Nature Findings/Nature Findings/New_Location.resx @@ -0,0 +1,199 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + 17, 17 + + + 213, 17 + + + 390, 17 + + + 561, 17 + + + 734, 17 + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADr8AAA6/ATgFUyQAAAFNSURBVDhPY2AYtODuAvb/t+Zx/r86h+v/xRm8/0l26HWg + xj+PGv//edjw/+RkAdINOD+dF27AwR4R0g04PkkQaHvd/z8Pqv7vaBcnbMClmTz/z07l+38SqPFIv9D/ + fd0iQM3l///eK/q/vkHm/6oauf9LKxX/zy9V/j+rSBXTwFNAf/55WA/UVAvElf//3CsB4rz/f+9m/v97 + J/n/39tx///djADikP+TcjQxDTjUKwx27t/7pUCNBUCN2UCNqUCNCf//3YoGagz7/+9G0P9/1/3+d6Xp + Yhqws13i/5Zmqf/rwM6V/7+kQvH/31sxQI3h/6fmafyfkKX1vztD9397qv7/5kRDwmEyG+hPkHP/3Qj4 + 35OhQ1gDekIB+fPfDX8g9vvfmqxPugHd6bpg/4JwfZwR6Qa0JBn8b4g3/F8Ta/y/MtqEdANITvvkagAA + JCPYnqPoI1MAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADr8AAA6/ATgFUyQAAAFvSURBVDhPrZJNKMNxGMd3Vd5KubigVg4j0/ISEjIkLDIh + MkPagYNIaBcHB1Iu5ICL5EBSUk60OM3b5q01tf5Lk9Iu+Mfl9zEWpf3xJ7/Lc/h9n8/zfL89Gs1/PDxu + sJnA6eBPPNYWEd1VCIsRdja/hXDtg5W5zxo2lqDPjOgwIjorYGFKEfK6obCUwVhv5D+nzjCk3oBoyof+ + 5k8iMdKFMOfAtP17myzPIirT3kCMdoH3DCYGw9BQVZURPg+0FIUtmbIQDbkw0Kqu+X0CB3uhlXMR1elQ + q/9lc0CCpgLITkDWx3Ovj4U6gzoIAT+Y86AwiaC1Gi6O38K91YUgq/M/BHh3C20lPBQn4y1NJ7i/+9HA + eD8ubQyy+1AZwvMTDFuhJIUTXSLBrfUI4U15BlJ7DfK1X+EO9raRcxJxpUYh9TSC/Kg4yaGNQ3Y5FQAz + Y0hp0XiNmSBdfelVttvg/EgBcOmCySE42leXtqqLUiF6AYojAxxFb0PyAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADr8AAA6/ATgFUyQAAAIpSURBVDhPrZPdS5NxFMf3L3TfTdBFtzU1hmuxGjzlHMqq + YVgRvT2RL+XSZZqoWJlGLV8gW+HSScvpJJxU+AamSI2hTCVLM1e0xKGm2EQw+PY7v+j5tTJv6gfn8vM5 + zznn+6hU/+M9exoFla99GW3eJTx2L6CxIYL7jhnU1nyC/XYIN8qnUFoygcKC18jLHcWF80EovQns7QFq + qlex0VtZXYMxrReH057wUgTe1kUuqKz48lee4MjCCnabn0OtlmE55BEC96N5Ligt+byu4Cf8PryIOJMP + BZenccDcJATO+lkuuGR794fgV3hkMoJtkhfWnHGkpjiFoO5umAuys0ZjBL/Dg8EwNuvdkOUATCaHEFRX + feQC+UxAEawH9/g/YFNiA44cfYGkpFohuFk5je4usFMCx0++guXYAN82LYxmps+mzj/gPhy0dEKS7EJw + tWwSHT6wDABNrm/s7l9Rfn2OL5UWRjNnZgQVODm1HQZDhRBcKRyHpxl46FxjwYnCmJ4TU+YTNqSfK+Kd + k1MYvN8Dvb5MCGx5YwwGqu5EeWcSUEjitBKG3s5ibGoOcu417DW2cVi7xwWdrkgIKJaOe1A+mwQEn82/ + hTeheYRmlnCx2I54vYvBjYjf9QDaxHwhyMwYZnMv85m3GjzYskNCS0c/fF2D6O7zY+DlEPaZLFDr6pHA + 4O2aOmg01ljB6VP9PJ6UMAoJ3ZlORdumhdHM1JWK4J0J2ULwL3/0d2xoOmtKzOuNAAAAAElFTkSuQmCC + + + \ No newline at end of file diff --git a/Nature Findings/Nature Findings/New_Location.vb b/Nature Findings/Nature Findings/New_Location.vb new file mode 100644 index 0000000..954fabb --- /dev/null +++ b/Nature Findings/Nature Findings/New_Location.vb @@ -0,0 +1,65 @@ +Public Class New_Location + Private Location_Check As String + + Private Sub Welcome_Screen_Button_Click() Handles Welcome_Screen_Button.Click + 'Loads the Welcome Screen and closes this form. + Welcome.Show() + Me.Close() + End Sub + + Private Sub My_Account_Button_Click() Handles My_Account_Button.Click + 'Loads the My Account Screen and closes this form. + My_Account.Show() + Me.Close() + End Sub + + Private Sub LocationBindingNavigatorSaveItem_Click() Handles LocationBindingNavigatorSaveItem.Click + + If Add_Location_Clicked = True Then + + 'This checks if the Species already exists in the system + Location_Check = Me.LocationTableAdapter.Location_Check(Location_NameTextBox.Text) + If Location_Check = Nothing Then + Does_Location_Exist = False + Else + Does_Location_Exist = True + End If + + If Does_Species_Exist = False Then + + If Location_NameTextBox Is Nothing Then + MsgBox("Please enter a location name") + Else + If AddressTextBox Is Nothing Then + MsgBox("Please enter a location address") + Else + 'Saves the New Location entry to the database. + Me.Validate() + Me.LocationBindingSource.EndEdit() + Me.TableAdapterManager.UpdateAll(Me.Nature_Findings_Database) + + 'Sends a save confirmation to the user + MsgBox("Location Added") + End If + 'Resets the Add_New_Location and the Does_Location_Exist variable + Add_Location_Clicked = False + Does_Location_Exist = False + End If + Else + MsgBox("This Location already exists") + End If + Else + MsgBox("Please Click Add New in the toolbar") + End If + End Sub + + Private Sub BindingNavigatorAddNewItem_Click() Handles BindingNavigatorAddNewItem.Click + 'Allows user to click save without error messages + Add_Location_Clicked = True + End Sub + + Private Sub BindingNavigatorDeleteItem_Click() Handles BindingNavigatorDeleteItem.Click + 'Resets the Add_Find_Clicked Variable + Add_Location_Clicked = False + End Sub +End Class \ No newline at end of file diff --git a/Nature Findings/Nature Findings/New_Species.Designer.vb b/Nature Findings/Nature Findings/New_Species.Designer.vb new file mode 100644 index 0000000..c24aa2e --- /dev/null +++ b/Nature Findings/Nature Findings/New_Species.Designer.vb @@ -0,0 +1,219 @@ + _ +Partial Class New_Species + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim Species_NameLabel As System.Windows.Forms.Label + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(New_Species)) + Me.Label2 = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.My_Account_Button = New System.Windows.Forms.Button() + Me.Welcome_Screen_Button = New System.Windows.Forms.Button() + Me.Nature_Findings_Database = New Nature_Findings_System.Nature_Findings_Database() + Me.SpeciesBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.SpeciesTableAdapter = New Nature_Findings_System.Nature_Findings_DatabaseTableAdapters.SpeciesTableAdapter() + Me.TableAdapterManager = New Nature_Findings_System.Nature_Findings_DatabaseTableAdapters.TableAdapterManager() + Me.SpeciesBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) + Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton() + Me.SpeciesBindingNavigatorSaveItem = New System.Windows.Forms.ToolStripButton() + Me.Species_Name_Input = New System.Windows.Forms.TextBox() + Species_NameLabel = New System.Windows.Forms.Label() + CType(Me.Nature_Findings_Database, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SpeciesBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SpeciesBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SpeciesBindingNavigator.SuspendLayout() + Me.SuspendLayout() + ' + 'Species_NameLabel + ' + Species_NameLabel.AutoSize = True + Species_NameLabel.Location = New System.Drawing.Point(54, 58) + Species_NameLabel.Name = "Species_NameLabel" + Species_NameLabel.Size = New System.Drawing.Size(79, 13) + Species_NameLabel.TabIndex = 9 + Species_NameLabel.Text = "Species Name:" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label2.Location = New System.Drawing.Point(95, 29) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(95, 18) + Me.Label2.TabIndex = 8 + Me.Label2.Text = "New Species" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(87, 12) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(111, 18) + Me.Label1.TabIndex = 7 + Me.Label1.Text = "Nature Findings" + ' + 'My_Account_Button + ' + Me.My_Account_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel + Me.My_Account_Button.Location = New System.Drawing.Point(197, 12) + Me.My_Account_Button.Name = "My_Account_Button" + Me.My_Account_Button.Size = New System.Drawing.Size(75, 37) + Me.My_Account_Button.TabIndex = 6 + Me.My_Account_Button.Text = "My Account" + Me.My_Account_Button.UseVisualStyleBackColor = True + ' + 'Welcome_Screen_Button + ' + Me.Welcome_Screen_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel + Me.Welcome_Screen_Button.Location = New System.Drawing.Point(12, 12) + Me.Welcome_Screen_Button.Name = "Welcome_Screen_Button" + Me.Welcome_Screen_Button.Size = New System.Drawing.Size(75, 37) + Me.Welcome_Screen_Button.TabIndex = 5 + Me.Welcome_Screen_Button.Text = "Welcome Screen" + Me.Welcome_Screen_Button.UseVisualStyleBackColor = True + ' + 'Nature_Findings_Database + ' + Me.Nature_Findings_Database.DataSetName = "Nature_Findings_Database" + Me.Nature_Findings_Database.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'SpeciesBindingSource + ' + Me.SpeciesBindingSource.DataMember = "Species" + Me.SpeciesBindingSource.DataSource = Me.Nature_Findings_Database + ' + 'SpeciesTableAdapter + ' + Me.SpeciesTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.LocationTableAdapter = Nothing + Me.TableAdapterManager.SpeciesTableAdapter = Me.SpeciesTableAdapter + Me.TableAdapterManager.UpdateOrder = Nature_Findings_System.Nature_Findings_DatabaseTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + Me.TableAdapterManager.User_Species_LinkTableAdapter = Nothing + Me.TableAdapterManager.UsersTableAdapter = Nothing + ' + 'SpeciesBindingNavigator + ' + Me.SpeciesBindingNavigator.AddNewItem = Me.BindingNavigatorAddNewItem + Me.SpeciesBindingNavigator.BindingSource = Me.SpeciesBindingSource + Me.SpeciesBindingNavigator.CountItem = Nothing + Me.SpeciesBindingNavigator.DeleteItem = Me.BindingNavigatorDeleteItem + Me.SpeciesBindingNavigator.Dock = System.Windows.Forms.DockStyle.Bottom + Me.SpeciesBindingNavigator.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden + Me.SpeciesBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SpeciesBindingNavigatorSaveItem, Me.BindingNavigatorDeleteItem, Me.BindingNavigatorAddNewItem}) + Me.SpeciesBindingNavigator.Location = New System.Drawing.Point(0, 84) + Me.SpeciesBindingNavigator.MoveFirstItem = Nothing + Me.SpeciesBindingNavigator.MoveLastItem = Nothing + Me.SpeciesBindingNavigator.MoveNextItem = Nothing + Me.SpeciesBindingNavigator.MovePreviousItem = Nothing + Me.SpeciesBindingNavigator.Name = "SpeciesBindingNavigator" + Me.SpeciesBindingNavigator.PositionItem = Nothing + Me.SpeciesBindingNavigator.Size = New System.Drawing.Size(292, 25) + Me.SpeciesBindingNavigator.TabIndex = 9 + Me.SpeciesBindingNavigator.Text = "BindingNavigator1" + ' + 'BindingNavigatorAddNewItem + ' + Me.BindingNavigatorAddNewItem.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right + Me.BindingNavigatorAddNewItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorAddNewItem.Image = CType(resources.GetObject("BindingNavigatorAddNewItem.Image"), System.Drawing.Image) + Me.BindingNavigatorAddNewItem.Name = "BindingNavigatorAddNewItem" + Me.BindingNavigatorAddNewItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorAddNewItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorAddNewItem.Text = "Add new" + ' + 'BindingNavigatorDeleteItem + ' + Me.BindingNavigatorDeleteItem.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right + Me.BindingNavigatorDeleteItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.BindingNavigatorDeleteItem.Image = CType(resources.GetObject("BindingNavigatorDeleteItem.Image"), System.Drawing.Image) + Me.BindingNavigatorDeleteItem.Name = "BindingNavigatorDeleteItem" + Me.BindingNavigatorDeleteItem.RightToLeftAutoMirrorImage = True + Me.BindingNavigatorDeleteItem.Size = New System.Drawing.Size(23, 22) + Me.BindingNavigatorDeleteItem.Text = "Delete" + ' + 'SpeciesBindingNavigatorSaveItem + ' + Me.SpeciesBindingNavigatorSaveItem.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right + Me.SpeciesBindingNavigatorSaveItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.SpeciesBindingNavigatorSaveItem.Image = CType(resources.GetObject("SpeciesBindingNavigatorSaveItem.Image"), System.Drawing.Image) + Me.SpeciesBindingNavigatorSaveItem.Name = "SpeciesBindingNavigatorSaveItem" + Me.SpeciesBindingNavigatorSaveItem.Size = New System.Drawing.Size(23, 22) + Me.SpeciesBindingNavigatorSaveItem.Text = "Save Data" + ' + 'Species_Name_Input + ' + Me.Species_Name_Input.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.SpeciesBindingSource, "Species_Name", True)) + Me.Species_Name_Input.Location = New System.Drawing.Point(139, 55) + Me.Species_Name_Input.Name = "Species_Name_Input" + Me.Species_Name_Input.Size = New System.Drawing.Size(100, 20) + Me.Species_Name_Input.TabIndex = 10 + ' + 'New_Species + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.CornflowerBlue + Me.CancelButton = Me.Welcome_Screen_Button + Me.ClientSize = New System.Drawing.Size(292, 109) + Me.Controls.Add(Species_NameLabel) + Me.Controls.Add(Me.Species_Name_Input) + Me.Controls.Add(Me.SpeciesBindingNavigator) + Me.Controls.Add(Me.Label2) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.My_Account_Button) + Me.Controls.Add(Me.Welcome_Screen_Button) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog + Me.MaximizeBox = False + Me.MinimizeBox = False + Me.Name = "New_Species" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent + Me.Text = "Nature Findings: New Species" + CType(Me.Nature_Findings_Database, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SpeciesBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SpeciesBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit() + Me.SpeciesBindingNavigator.ResumeLayout(False) + Me.SpeciesBindingNavigator.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents Label2 As System.Windows.Forms.Label + Friend WithEvents Label1 As System.Windows.Forms.Label + Friend WithEvents My_Account_Button As System.Windows.Forms.Button + Friend WithEvents Welcome_Screen_Button As System.Windows.Forms.Button + Friend WithEvents Nature_Findings_Database As Nature_Findings_System.Nature_Findings_Database + Friend WithEvents SpeciesBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents SpeciesTableAdapter As Nature_Findings_System.Nature_Findings_DatabaseTableAdapters.SpeciesTableAdapter + Friend WithEvents TableAdapterManager As Nature_Findings_System.Nature_Findings_DatabaseTableAdapters.TableAdapterManager + Friend WithEvents SpeciesBindingNavigator As System.Windows.Forms.BindingNavigator + Friend WithEvents BindingNavigatorAddNewItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorDeleteItem As System.Windows.Forms.ToolStripButton + Friend WithEvents SpeciesBindingNavigatorSaveItem As System.Windows.Forms.ToolStripButton + Friend WithEvents Species_Name_Input As System.Windows.Forms.TextBox +End Class diff --git a/Nature Findings/Nature Findings/New_Species.resx b/Nature Findings/Nature Findings/New_Species.resx new file mode 100644 index 0000000..3e0f6be --- /dev/null +++ b/Nature Findings/Nature Findings/New_Species.resx @@ -0,0 +1,178 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + False + + + 17, 17 + + + 213, 17 + + + 384, 17 + + + 549, 17 + + + 17, 56 + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADr8AAA6/ATgFUyQAAAFNSURBVDhPY2AYtODuAvb/t+Zx/r86h+v/xRm8/0l26HWg + xj+PGv//edjw/+RkAdINOD+dF27AwR4R0g04PkkQaHvd/z8Pqv7vaBcnbMClmTz/z07l+38SqPFIv9D/ + fd0iQM3l///eK/q/vkHm/6oauf9LKxX/zy9V/j+rSBXTwFNAf/55WA/UVAvElf//3CsB4rz/f+9m/v97 + J/n/39tx///djADikP+TcjQxDTjUKwx27t/7pUCNBUCN2UCNqUCNCf//3YoGagz7/+9G0P9/1/3+d6Xp + Yhqws13i/5Zmqf/rwM6V/7+kQvH/31sxQI3h/6fmafyfkKX1vztD9397qv7/5kRDwmEyG+hPkHP/3Qj4 + 35OhQ1gDekIB+fPfDX8g9vvfmqxPugHd6bpg/4JwfZwR6Qa0JBn8b4g3/F8Ta/y/MtqEdANITvvkagAA + JCPYnqPoI1MAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADr8AAA6/ATgFUyQAAAFvSURBVDhPrZJNKMNxGMd3Vd5KubigVg4j0/ISEjIkLDIh + MkPagYNIaBcHB1Iu5ICL5EBSUk60OM3b5q01tf5Lk9Iu+Mfl9zEWpf3xJ7/Lc/h9n8/zfL89Gs1/PDxu + sJnA6eBPPNYWEd1VCIsRdja/hXDtg5W5zxo2lqDPjOgwIjorYGFKEfK6obCUwVhv5D+nzjCk3oBoyof+ + 5k8iMdKFMOfAtP17myzPIirT3kCMdoH3DCYGw9BQVZURPg+0FIUtmbIQDbkw0Kqu+X0CB3uhlXMR1elQ + q/9lc0CCpgLITkDWx3Ovj4U6gzoIAT+Y86AwiaC1Gi6O38K91YUgq/M/BHh3C20lPBQn4y1NJ7i/+9HA + eD8ubQyy+1AZwvMTDFuhJIUTXSLBrfUI4U15BlJ7DfK1X+EO9raRcxJxpUYh9TSC/Kg4yaGNQ3Y5FQAz + Y0hp0XiNmSBdfelVttvg/EgBcOmCySE42leXtqqLUiF6AYojAxxFb0PyAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADr8AAA6/ATgFUyQAAAIpSURBVDhPrZPdS5NxFMf3L3TfTdBFtzU1hmuxGjzlHMqq + YVgRvT2RL+XSZZqoWJlGLV8gW+HSScvpJJxU+AamSI2hTCVLM1e0xKGm2EQw+PY7v+j5tTJv6gfn8vM5 + zznn+6hU/+M9exoFla99GW3eJTx2L6CxIYL7jhnU1nyC/XYIN8qnUFoygcKC18jLHcWF80EovQns7QFq + qlex0VtZXYMxrReH057wUgTe1kUuqKz48lee4MjCCnabn0OtlmE55BEC96N5Ligt+byu4Cf8PryIOJMP + BZenccDcJATO+lkuuGR794fgV3hkMoJtkhfWnHGkpjiFoO5umAuys0ZjBL/Dg8EwNuvdkOUATCaHEFRX + feQC+UxAEawH9/g/YFNiA44cfYGkpFohuFk5je4usFMCx0++guXYAN82LYxmps+mzj/gPhy0dEKS7EJw + tWwSHT6wDABNrm/s7l9Rfn2OL5UWRjNnZgQVODm1HQZDhRBcKRyHpxl46FxjwYnCmJ4TU+YTNqSfK+Kd + k1MYvN8Dvb5MCGx5YwwGqu5EeWcSUEjitBKG3s5ibGoOcu417DW2cVi7xwWdrkgIKJaOe1A+mwQEn82/ + hTeheYRmlnCx2I54vYvBjYjf9QDaxHwhyMwYZnMv85m3GjzYskNCS0c/fF2D6O7zY+DlEPaZLFDr6pHA + 4O2aOmg01ljB6VP9PJ6UMAoJ3ZlORdumhdHM1JWK4J0J2ULwL3/0d2xoOmtKzOuNAAAAAElFTkSuQmCC + + + \ No newline at end of file diff --git a/Nature Findings/Nature Findings/New_Species.vb b/Nature Findings/Nature Findings/New_Species.vb new file mode 100644 index 0000000..02e776d --- /dev/null +++ b/Nature Findings/Nature Findings/New_Species.vb @@ -0,0 +1,63 @@ +Public Class New_Species + Private Species_Check As String + Private Sub Welcome_Screen_Button_Click() Handles Welcome_Screen_Button.Click + 'Loads the Welcome Screen and closes this form. + Welcome.Show() + Me.Close() + End Sub + + Private Sub My_Account_Button_Click() Handles My_Account_Button.Click + 'Loads the My Account Screen and closes this form. + My_Account.Show() + Me.Close() + End Sub + + Private Sub SpeciesBindingNavigatorSaveItem_Click() Handles SpeciesBindingNavigatorSaveItem.Click + + If Add_Species_Clicked = True Then + + 'This checks if the Species already exists in the system + Species_Check = Me.SpeciesTableAdapter.Species_Check(Species_Name_Input.Text) + If Species_Check = Nothing Then + Does_Species_Exist = False + Else + Does_Species_Exist = True + End If + + If Does_Species_Exist = False Then + + If Species_Name_Input Is Nothing Then + MsgBox("Please enter a species name") + Else + 'Saves the New Species entry to the database. + Me.Validate() + Me.SpeciesBindingSource.EndEdit() + Me.TableAdapterManager.UpdateAll(Me.Nature_Findings_Database) + + 'Sends a save confirmation to the user + MsgBox("Species Added") + + 'Resets the Add_New_Species and the Does_Species_Exist variable + Add_Species_Clicked = False + Does_Species_Exist = False + End If + + Else + MsgBox("This Species already exists") + End If + + Else + MsgBox("Please Click Add New in the toolbar") + End If + End Sub + + Private Sub BindingNavigatorAddNewItem_Click() Handles BindingNavigatorAddNewItem.Click + 'Allows user to click save without error messages + Add_Species_Clicked = True + End Sub + + Private Sub BindingNavigatorDeleteItem_Click() Handles BindingNavigatorDeleteItem.Click + 'Resets the Add_Find_Clicked Variable + Add_Species_Clicked = False + End Sub +End Class \ No newline at end of file diff --git a/Nature Findings/Nature Findings/Species_IDs.Designer.vb b/Nature Findings/Nature Findings/Species_IDs.Designer.vb new file mode 100644 index 0000000..c4c1a20 --- /dev/null +++ b/Nature Findings/Nature Findings/Species_IDs.Designer.vb @@ -0,0 +1,119 @@ + _ +Partial Class Species_IDs + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.Nature_Findings_Database = New Nature_Findings_System.Nature_Findings_Database() + Me.SpeciesBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.SpeciesTableAdapter = New Nature_Findings_System.Nature_Findings_DatabaseTableAdapters.SpeciesTableAdapter() + Me.TableAdapterManager = New Nature_Findings_System.Nature_Findings_DatabaseTableAdapters.TableAdapterManager() + Me.Species_ID_Table = New System.Windows.Forms.DataGridView() + Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() + CType(Me.Nature_Findings_Database, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SpeciesBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.Species_ID_Table, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'Nature_Findings_Database + ' + Me.Nature_Findings_Database.DataSetName = "Nature_Findings_Database" + Me.Nature_Findings_Database.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'SpeciesBindingSource + ' + Me.SpeciesBindingSource.DataMember = "Species" + Me.SpeciesBindingSource.DataSource = Me.Nature_Findings_Database + ' + 'SpeciesTableAdapter + ' + Me.SpeciesTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.LocationTableAdapter = Nothing + Me.TableAdapterManager.SpeciesTableAdapter = Me.SpeciesTableAdapter + Me.TableAdapterManager.UpdateOrder = Nature_Findings_System.Nature_Findings_DatabaseTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + Me.TableAdapterManager.User_Species_LinkTableAdapter = Nothing + Me.TableAdapterManager.UsersTableAdapter = Nothing + ' + 'Species_ID_Table + ' + Me.Species_ID_Table.AllowUserToAddRows = False + Me.Species_ID_Table.AllowUserToDeleteRows = False + Me.Species_ID_Table.AutoGenerateColumns = False + Me.Species_ID_Table.BackgroundColor = System.Drawing.Color.CornflowerBlue + Me.Species_ID_Table.BorderStyle = System.Windows.Forms.BorderStyle.None + Me.Species_ID_Table.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.Species_ID_Table.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn1, Me.DataGridViewTextBoxColumn2}) + Me.Species_ID_Table.DataSource = Me.SpeciesBindingSource + Me.Species_ID_Table.Dock = System.Windows.Forms.DockStyle.Fill + Me.Species_ID_Table.GridColor = System.Drawing.Color.SteelBlue + Me.Species_ID_Table.Location = New System.Drawing.Point(0, 0) + Me.Species_ID_Table.Name = "Species_ID_Table" + Me.Species_ID_Table.ReadOnly = True + Me.Species_ID_Table.Size = New System.Drawing.Size(249, 284) + Me.Species_ID_Table.TabIndex = 1 + ' + 'DataGridViewTextBoxColumn1 + ' + Me.DataGridViewTextBoxColumn1.DataPropertyName = "Species_ID" + Me.DataGridViewTextBoxColumn1.HeaderText = "Species ID" + Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" + Me.DataGridViewTextBoxColumn1.ReadOnly = True + ' + 'DataGridViewTextBoxColumn2 + ' + Me.DataGridViewTextBoxColumn2.DataPropertyName = "Species_Name" + Me.DataGridViewTextBoxColumn2.HeaderText = "Species Name" + Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" + Me.DataGridViewTextBoxColumn2.ReadOnly = True + ' + 'Species_IDs + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(249, 284) + Me.Controls.Add(Me.Species_ID_Table) + Me.MaximizeBox = False + Me.MinimizeBox = False + Me.Name = "Species_IDs" + Me.ShowIcon = False + Me.ShowInTaskbar = False + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent + Me.Text = "Species IDs" + CType(Me.Nature_Findings_Database, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SpeciesBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.Species_ID_Table, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents Nature_Findings_Database As Nature_Findings_System.Nature_Findings_Database + Friend WithEvents SpeciesBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents SpeciesTableAdapter As Nature_Findings_System.Nature_Findings_DatabaseTableAdapters.SpeciesTableAdapter + Friend WithEvents TableAdapterManager As Nature_Findings_System.Nature_Findings_DatabaseTableAdapters.TableAdapterManager + Friend WithEvents Species_ID_Table As System.Windows.Forms.DataGridView + Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn2 As System.Windows.Forms.DataGridViewTextBoxColumn +End Class diff --git a/Nature Findings/Nature Findings/Species_IDs.resx b/Nature Findings/Nature Findings/Species_IDs.resx new file mode 100644 index 0000000..35b2de7 --- /dev/null +++ b/Nature Findings/Nature Findings/Species_IDs.resx @@ -0,0 +1,132 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + 213, 17 + + + 384, 17 + + + 549, 17 + + \ No newline at end of file diff --git a/Nature Findings/Nature Findings/Species_IDs.vb b/Nature Findings/Nature Findings/Species_IDs.vb new file mode 100644 index 0000000..1da68e6 --- /dev/null +++ b/Nature Findings/Nature Findings/Species_IDs.vb @@ -0,0 +1,7 @@ +Public Class Species_IDs + + Private Sub Species_IDs_Load() Handles MyBase.Load + 'Shows the Species and their associated IDs + Me.SpeciesTableAdapter.Fill(Me.Nature_Findings_Database.Species) + End Sub +End Class \ No newline at end of file diff --git a/Nature Findings/Nature Findings/User_IDs.Designer.vb b/Nature Findings/Nature Findings/User_IDs.Designer.vb new file mode 100644 index 0000000..d0a94b7 --- /dev/null +++ b/Nature Findings/Nature Findings/User_IDs.Designer.vb @@ -0,0 +1,131 @@ + _ +Partial Class User_IDs + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + 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. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.Nature_Findings_Database = New Nature_Findings_System.Nature_Findings_Database() + Me.UsersBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.UsersTableAdapter = New Nature_Findings_System.Nature_Findings_DatabaseTableAdapters.UsersTableAdapter() + Me.TableAdapterManager = New Nature_Findings_System.Nature_Findings_DatabaseTableAdapters.TableAdapterManager() + Me.User_IDs_Table = New System.Windows.Forms.DataGridView() + Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.Contributor_Name = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.About_User = New System.Windows.Forms.DataGridViewTextBoxColumn() + CType(Me.Nature_Findings_Database, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.UsersBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.User_IDs_Table, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'Nature_Findings_Database + ' + Me.Nature_Findings_Database.DataSetName = "Nature_Findings_Database" + Me.Nature_Findings_Database.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'UsersBindingSource + ' + Me.UsersBindingSource.DataMember = "Users" + Me.UsersBindingSource.DataSource = Me.Nature_Findings_Database + ' + 'UsersTableAdapter + ' + Me.UsersTableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.LocationTableAdapter = Nothing + Me.TableAdapterManager.SpeciesTableAdapter = Nothing + Me.TableAdapterManager.UpdateOrder = Nature_Findings_System.Nature_Findings_DatabaseTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + Me.TableAdapterManager.User_Species_LinkTableAdapter = Nothing + Me.TableAdapterManager.UsersTableAdapter = Me.UsersTableAdapter + ' + 'User_IDs_Table + ' + Me.User_IDs_Table.AllowUserToAddRows = False + Me.User_IDs_Table.AllowUserToDeleteRows = False + Me.User_IDs_Table.AutoGenerateColumns = False + Me.User_IDs_Table.BackgroundColor = System.Drawing.Color.CornflowerBlue + Me.User_IDs_Table.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.User_IDs_Table.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn1, Me.DataGridViewTextBoxColumn2, Me.Contributor_Name, Me.About_User}) + Me.User_IDs_Table.DataSource = Me.UsersBindingSource + Me.User_IDs_Table.Dock = System.Windows.Forms.DockStyle.Fill + Me.User_IDs_Table.GridColor = System.Drawing.Color.SteelBlue + Me.User_IDs_Table.Location = New System.Drawing.Point(0, 0) + Me.User_IDs_Table.Name = "User_IDs_Table" + Me.User_IDs_Table.ReadOnly = True + Me.User_IDs_Table.Size = New System.Drawing.Size(463, 288) + Me.User_IDs_Table.TabIndex = 1 + ' + 'DataGridViewTextBoxColumn1 + ' + Me.DataGridViewTextBoxColumn1.DataPropertyName = "User ID" + Me.DataGridViewTextBoxColumn1.HeaderText = "User ID" + Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1" + Me.DataGridViewTextBoxColumn1.ReadOnly = True + ' + 'DataGridViewTextBoxColumn2 + ' + Me.DataGridViewTextBoxColumn2.DataPropertyName = "Username" + Me.DataGridViewTextBoxColumn2.HeaderText = "Username" + Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2" + Me.DataGridViewTextBoxColumn2.ReadOnly = True + ' + 'Contributor_Name + ' + Me.Contributor_Name.DataPropertyName = "Contributor Name" + Me.Contributor_Name.HeaderText = "Contributor Name" + Me.Contributor_Name.Name = "Contributor_Name" + Me.Contributor_Name.ReadOnly = True + ' + 'About_User + ' + Me.About_User.DataPropertyName = "About User" + Me.About_User.HeaderText = "About User" + Me.About_User.Name = "About_User" + Me.About_User.ReadOnly = True + ' + 'User_IDs + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(463, 288) + Me.Controls.Add(Me.User_IDs_Table) + Me.Name = "User_IDs" + Me.Text = "User IDs" + CType(Me.Nature_Findings_Database, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.UsersBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.User_IDs_Table, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + + End Sub + Friend WithEvents Nature_Findings_Database As Nature_Findings_System.Nature_Findings_Database + Friend WithEvents UsersBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents UsersTableAdapter As Nature_Findings_System.Nature_Findings_DatabaseTableAdapters.UsersTableAdapter + Friend WithEvents TableAdapterManager As Nature_Findings_System.Nature_Findings_DatabaseTableAdapters.TableAdapterManager + Friend WithEvents User_IDs_Table As System.Windows.Forms.DataGridView + Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents DataGridViewTextBoxColumn2 As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents Contributor_Name As System.Windows.Forms.DataGridViewTextBoxColumn + Friend WithEvents About_User As System.Windows.Forms.DataGridViewTextBoxColumn +End Class diff --git a/Nature Findings/Nature Findings/User_IDs.resx b/Nature Findings/Nature Findings/User_IDs.resx new file mode 100644 index 0000000..8ffc197 --- /dev/null +++ b/Nature Findings/Nature Findings/User_IDs.resx @@ -0,0 +1,138 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + 213, 17 + + + 373, 17 + + + 527, 17 + + + True + + + True + + \ No newline at end of file diff --git a/Nature Findings/Nature Findings/User_IDs.vb b/Nature Findings/Nature Findings/User_IDs.vb new file mode 100644 index 0000000..1eb6810 --- /dev/null +++ b/Nature Findings/Nature Findings/User_IDs.vb @@ -0,0 +1,7 @@ +Public Class User_IDs + + Private Sub User_IDs_Load() Handles MyBase.Load + 'Shows the Users and their associated IDs + Me.UsersTableAdapter.Fill(Me.Nature_Findings_Database.Users) + End Sub +End Class \ No newline at end of file diff --git a/Nature Findings/Nature Findings/Welcome_Screen.Designer.vb b/Nature Findings/Nature Findings/Welcome_Screen.Designer.vb new file mode 100644 index 0000000..74f89cc --- /dev/null +++ b/Nature Findings/Nature Findings/Welcome_Screen.Designer.vb @@ -0,0 +1,150 @@ + _ +Partial Class Welcome + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + 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. + _ + Private Sub InitializeComponent() + Me.New_Location_Button = New System.Windows.Forms.Button() + Me.Edit_Location_Button = New System.Windows.Forms.Button() + Me.New_Find_Button = New System.Windows.Forms.Button() + Me.Edit_Find_Button = New System.Windows.Forms.Button() + Me.Knowledge_Base_Button = New System.Windows.Forms.Button() + Me.Welcome_Screen_Heading = New System.Windows.Forms.Label() + Me.New_Species_Button = New System.Windows.Forms.Button() + Me.My_Account_Button = New System.Windows.Forms.Button() + Me.Welcome_Label = New System.Windows.Forms.Label() + Me.SuspendLayout() + ' + 'New_Location_Button + ' + Me.New_Location_Button.Location = New System.Drawing.Point(31, 108) + Me.New_Location_Button.Name = "New_Location_Button" + Me.New_Location_Button.Size = New System.Drawing.Size(75, 37) + Me.New_Location_Button.TabIndex = 0 + Me.New_Location_Button.Text = "Add New Location" + Me.New_Location_Button.UseVisualStyleBackColor = True + ' + 'Edit_Location_Button + ' + Me.Edit_Location_Button.Location = New System.Drawing.Point(112, 108) + Me.Edit_Location_Button.Name = "Edit_Location_Button" + Me.Edit_Location_Button.Size = New System.Drawing.Size(75, 37) + Me.Edit_Location_Button.TabIndex = 1 + Me.Edit_Location_Button.Text = "Edit Location" + Me.Edit_Location_Button.UseVisualStyleBackColor = True + ' + 'New_Find_Button + ' + Me.New_Find_Button.Location = New System.Drawing.Point(31, 151) + Me.New_Find_Button.Name = "New_Find_Button" + Me.New_Find_Button.Size = New System.Drawing.Size(75, 37) + Me.New_Find_Button.TabIndex = 2 + Me.New_Find_Button.Text = "Add New Find" + Me.New_Find_Button.UseVisualStyleBackColor = True + ' + 'Edit_Find_Button + ' + Me.Edit_Find_Button.Location = New System.Drawing.Point(111, 151) + Me.Edit_Find_Button.Name = "Edit_Find_Button" + Me.Edit_Find_Button.Size = New System.Drawing.Size(75, 37) + Me.Edit_Find_Button.TabIndex = 3 + Me.Edit_Find_Button.Text = "Edit Find" + Me.Edit_Find_Button.UseVisualStyleBackColor = True + ' + 'Knowledge_Base_Button + ' + Me.Knowledge_Base_Button.Location = New System.Drawing.Point(235, 65) + Me.Knowledge_Base_Button.Name = "Knowledge_Base_Button" + Me.Knowledge_Base_Button.Size = New System.Drawing.Size(75, 37) + Me.Knowledge_Base_Button.TabIndex = 4 + Me.Knowledge_Base_Button.Text = "Knowledge Base" + Me.Knowledge_Base_Button.UseVisualStyleBackColor = True + ' + 'Welcome_Screen_Heading + ' + Me.Welcome_Screen_Heading.AutoSize = True + Me.Welcome_Screen_Heading.Font = New System.Drawing.Font("Microsoft Sans Serif", 16.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Welcome_Screen_Heading.Location = New System.Drawing.Point(88, 9) + Me.Welcome_Screen_Heading.Name = "Welcome_Screen_Heading" + Me.Welcome_Screen_Heading.Size = New System.Drawing.Size(165, 26) + Me.Welcome_Screen_Heading.TabIndex = 5 + Me.Welcome_Screen_Heading.Text = "Nature Findings" + ' + 'New_Species_Button + ' + Me.New_Species_Button.Location = New System.Drawing.Point(72, 65) + Me.New_Species_Button.Name = "New_Species_Button" + Me.New_Species_Button.Size = New System.Drawing.Size(75, 37) + Me.New_Species_Button.TabIndex = 6 + Me.New_Species_Button.Text = "Add New Species" + Me.New_Species_Button.UseVisualStyleBackColor = True + ' + 'My_Account_Button + ' + Me.My_Account_Button.Location = New System.Drawing.Point(253, 12) + Me.My_Account_Button.Name = "My_Account_Button" + Me.My_Account_Button.Size = New System.Drawing.Size(75, 37) + Me.My_Account_Button.TabIndex = 7 + Me.My_Account_Button.Text = "My Account" + Me.My_Account_Button.UseVisualStyleBackColor = True + ' + 'Welcome_Label + ' + Me.Welcome_Label.AutoSize = True + Me.Welcome_Label.Location = New System.Drawing.Point(13, 41) + Me.Welcome_Label.Name = "Welcome_Label" + Me.Welcome_Label.Size = New System.Drawing.Size(84, 13) + Me.Welcome_Label.TabIndex = 8 + Me.Welcome_Label.Text = "Welcome_Label" + ' + 'Welcome + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.CornflowerBlue + Me.ClientSize = New System.Drawing.Size(340, 200) + Me.Controls.Add(Me.Welcome_Label) + Me.Controls.Add(Me.My_Account_Button) + Me.Controls.Add(Me.New_Species_Button) + Me.Controls.Add(Me.Welcome_Screen_Heading) + Me.Controls.Add(Me.Knowledge_Base_Button) + Me.Controls.Add(Me.Edit_Find_Button) + Me.Controls.Add(Me.New_Find_Button) + Me.Controls.Add(Me.Edit_Location_Button) + Me.Controls.Add(Me.New_Location_Button) + Me.MaximizeBox = False + Me.Name = "Welcome" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Nature Findings: Welcome Screen" + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents New_Location_Button As System.Windows.Forms.Button + Friend WithEvents Edit_Location_Button As System.Windows.Forms.Button + Friend WithEvents New_Find_Button As System.Windows.Forms.Button + Friend WithEvents Edit_Find_Button As System.Windows.Forms.Button + Friend WithEvents Knowledge_Base_Button As System.Windows.Forms.Button + Friend WithEvents Welcome_Screen_Heading As System.Windows.Forms.Label + Friend WithEvents New_Species_Button As System.Windows.Forms.Button + Friend WithEvents My_Account_Button As System.Windows.Forms.Button + Friend WithEvents Welcome_Label As System.Windows.Forms.Label +End Class diff --git a/Nature Findings/Nature Findings/Welcome_Screen.resx b/Nature Findings/Nature Findings/Welcome_Screen.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/Nature Findings/Nature Findings/Welcome_Screen.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/Nature Findings/Nature Findings/Welcome_Screen.vb b/Nature Findings/Nature Findings/Welcome_Screen.vb new file mode 100644 index 0000000..2149655 --- /dev/null +++ b/Nature Findings/Nature Findings/Welcome_Screen.vb @@ -0,0 +1,48 @@ +Public Class Welcome + + Private Sub New_Location_Button_Click() Handles New_Location_Button.Click + 'Loads the New Location Screen and closes this form. + New_Location.Show() + Me.Close() + End Sub + + Private Sub Edit_Location_Button_Click() Handles Edit_Location_Button.Click + 'Loads the Edit Location Screen and closes this form. + Edit_Location.Show() + Me.Close() + End Sub + + Private Sub New_Find_Button_Click() Handles New_Find_Button.Click + 'Loads the New Find Screen and closes this form. + New_Find.Show() + Me.Close() + End Sub + + Private Sub Edit_Find_Button_Click() Handles Edit_Find_Button.Click + 'Loads the Edit Find Screen and closes this form. + Edit_Find.Show() + Me.Close() + End Sub + + Private Sub Knowledge_Base_Button_Click() Handles Knowledge_Base_Button.Click + 'Loads the Knowledge Base Home Screen and closes this form. + Knowledge_Base_Home.Show() + Me.Close() + End Sub + + Private Sub New_Species_Button_Click() Handles New_Species_Button.Click + 'Displays the New Species Screen ontop of this form. + New_Species.ShowDialog() + End Sub + + Private Sub My_Account_Button_Click() Handles My_Account_Button.Click + 'Loads the My Account Screen and closes this form. + My_Account.Show() + Me.Close() + End Sub + + Private Sub Welcome_Load() Handles MyBase.Load + 'Displays a welcome message to the user + Welcome_Label.Text = "Hello " & Global_Variables.Contributor_Name + End Sub +End Class \ No newline at end of file diff --git a/Nature Findings/Nature Findings/app.config b/Nature Findings/Nature Findings/app.config new file mode 100644 index 0000000..e841bc0 --- /dev/null +++ b/Nature Findings/Nature Findings/app.config @@ -0,0 +1,32 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/Nature Findings/Nature Findings/bin/Debug/Nature Findings.application b/Nature Findings/Nature Findings/bin/Debug/Nature Findings.application new file mode 100644 index 0000000..a05cb1a --- /dev/null +++ b/Nature Findings/Nature Findings/bin/Debug/Nature Findings.application @@ -0,0 +1,22 @@ + + + + + + + + + + + + + + + + + + dliEYvjdzlCY0+SqXaMPhLYrd8k= + + + + \ No newline at end of file diff --git a/Nature Findings/Nature Findings/bin/Debug/Nature Findings.exe b/Nature Findings/Nature Findings/bin/Debug/Nature Findings.exe new file mode 100644 index 0000000..6bfd1bd Binary files /dev/null and b/Nature Findings/Nature Findings/bin/Debug/Nature Findings.exe differ diff --git a/Nature Findings/Nature Findings/bin/Debug/Nature Findings.exe.manifest b/Nature Findings/Nature Findings/bin/Debug/Nature Findings.exe.manifest new file mode 100644 index 0000000..1e4d7df --- /dev/null +++ b/Nature Findings/Nature Findings/bin/Debug/Nature Findings.exe.manifest @@ -0,0 +1,81 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + bvDnzIuw8hfUy0O7Vk8OTDoMSVM= + + + + + + + + + + MhMl8ab7cXVH7HfZbBncsDCEShA= + + + + + + + + + JBTGVJVRYmbccbVwdTowQrMVfhA= + + + + + + + + + + \ No newline at end of file diff --git a/Nature Findings/Nature Findings/bin/Debug/Nature Findings.pdb b/Nature Findings/Nature Findings/bin/Debug/Nature Findings.pdb new file mode 100644 index 0000000..308ae7c Binary files /dev/null and b/Nature Findings/Nature Findings/bin/Debug/Nature Findings.pdb differ diff --git a/Nature Findings/Nature Findings/bin/Debug/Nature Findings.vshost.exe b/Nature Findings/Nature Findings/bin/Debug/Nature Findings.vshost.exe new file mode 100644 index 0000000..551c0cd Binary files /dev/null and b/Nature Findings/Nature Findings/bin/Debug/Nature Findings.vshost.exe differ diff --git a/Nature Findings/Nature Findings/bin/Debug/WindowsApplication1.vshost.exe.manifest b/Nature Findings/Nature Findings/bin/Debug/WindowsApplication1.vshost.exe.manifest new file mode 100644 index 0000000..061c9ca --- /dev/null +++ b/Nature Findings/Nature Findings/bin/Debug/WindowsApplication1.vshost.exe.manifest @@ -0,0 +1,11 @@ + + + + + + + + + + + diff --git a/Nature Findings/Nature Findings/bin/Debug/app.publish/Application Files/Nature Findings_1_0_0_0/Nature Findings Database.accdb.deploy b/Nature Findings/Nature Findings/bin/Debug/app.publish/Application Files/Nature Findings_1_0_0_0/Nature Findings Database.accdb.deploy new file mode 100644 index 0000000..41f864b Binary files /dev/null and b/Nature Findings/Nature Findings/bin/Debug/app.publish/Application Files/Nature Findings_1_0_0_0/Nature Findings Database.accdb.deploy differ diff --git a/Nature Findings/Nature Findings/bin/Debug/app.publish/Application Files/Nature Findings_1_0_0_0/Nature Findings.exe.deploy b/Nature Findings/Nature Findings/bin/Debug/app.publish/Application Files/Nature Findings_1_0_0_0/Nature Findings.exe.deploy new file mode 100644 index 0000000..55f5aa3 Binary files /dev/null and b/Nature Findings/Nature Findings/bin/Debug/app.publish/Application Files/Nature Findings_1_0_0_0/Nature Findings.exe.deploy differ diff --git a/Nature Findings/Nature Findings/bin/Debug/app.publish/Application Files/Nature Findings_1_0_0_0/Nature Findings.exe.manifest b/Nature Findings/Nature Findings/bin/Debug/app.publish/Application Files/Nature Findings_1_0_0_0/Nature Findings.exe.manifest new file mode 100644 index 0000000..e708389 --- /dev/null +++ b/Nature Findings/Nature Findings/bin/Debug/app.publish/Application Files/Nature Findings_1_0_0_0/Nature Findings.exe.manifest @@ -0,0 +1,81 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + l1+/PJT6vdNIJ5OCZVeeGHEsp2E= + + + + + + + + + + v+iSUXUkNO4w5OePf87adfY423g= + + + + + + + + + JBTGVJVRYmbccbVwdTowQrMVfhA= + + + + + + + + + +8VWybASjaRAyOGPEQaFi8h8H9Zk=W2WWBMGwWHf9OktQmYE4hJMCpn+GgoSf08C66IqPAbxjM0cSs09V3PR/st8ziT1a/R9d+T/ltO5aet7BGSV5gKqFK2Ay+Js57BrJ9aSr5mfaYw920OP8rtDdGtvV2o0NMEpVn1o18oRKoR/nC2dN7qXnyAlZ1964hqnZKcH+GcY=pdTbdzgmPJDoh8P1iBtkIQ07iUtanbL8CZsoCvTvAKscU3BAKhT/E0x7gupuSJyoy8HLCXlEi5bh0hb7Vb1I9mMKHPuHfjh08wHgH9wK8IjrGCjWpdjlvx+rJCZrb/Z+qWTM257o+dqLvZyTarLsCQprLxxlQlxUNJ+floyK+TE=AQABCN=COUNDONCOURT\davale06IhRJBPn6k1jfpt9omFwxz1EXD3c=QUagzfaDtQJte6hk/f6+t/DOtirovvdYOHaQZIopcySFELTFdOFIebLCYugpHtBj6xHsNios10epBLTigM2wlltC77Zix4uge1HnN++Yd+dK7GyliRPWFxHyKvS4/lUQ22iCZtaCL0Qj7HyctA+p5sLIB1QXw06Gs7TuYfwza68=pdTbdzgmPJDoh8P1iBtkIQ07iUtanbL8CZsoCvTvAKscU3BAKhT/E0x7gupuSJyoy8HLCXlEi5bh0hb7Vb1I9mMKHPuHfjh08wHgH9wK8IjrGCjWpdjlvx+rJCZrb/Z+qWTM257o+dqLvZyTarLsCQprLxxlQlxUNJ+floyK+TE=AQABMIIB7TCCAVagAwIBAgIQO+Zgr8z0FI1N/TpxxQXqgDANBgkqhkiG9w0BAQUFADA1MTMwMQYDVQQDHioAQwBPAFUATgBEAE8ATgBDAE8AVQBSAFQAXABkAGEAdgBhAGwAZQAwADYwHhcNMTMwMzEzMTA0MzE5WhcNMTQwMzEzMTY0MzE5WjA1MTMwMQYDVQQDHioAQwBPAFUATgBEAE8ATgBDAE8AVQBSAFQAXABkAGEAdgBhAGwAZQAwADYwgZ8wDQYJKoZIhvcNAQEBBQADgY0AMIGJAoGBAKXU23c4JjyQ6IfD9YgbZCENO4lLWp2y/AmbKAr07wCrHFNwQCoU/xNMe4LqbkicqMvBywl5RIuW4dIW+1W9SPZjChz7h344dPMB4B/cCvCI6xgo1qXY5b8fqyQma2/2fqlkzNue6Pnai72ck2qy7AkKay8cZUJcVDSfn5aMivkxAgMBAAEwDQYJKoZIhvcNAQEFBQADgYEAlO714NMU7TQ+cOYURxZ3aUgHjqeMtOeI8zsQEiH/nTN8mEayTDog0gmMGzLZ9h1UNajQxTpdeNNGyV0kNsotlsmljdAOxLCHQ+eRh7vU/AyoWQWgdfWagdbHW89AxYEDZ0xdn5hrOHGstCQURxCH6CyxpY3oq1PKjnlH/K1Wu6g= \ No newline at end of file diff --git a/Nature Findings/Nature Findings/bin/Debug/app.publish/Nature Findings.application b/Nature Findings/Nature Findings/bin/Debug/app.publish/Nature Findings.application new file mode 100644 index 0000000..2b53999 --- /dev/null +++ b/Nature Findings/Nature Findings/bin/Debug/app.publish/Nature Findings.application @@ -0,0 +1,22 @@ + + + + + + + + + + + + + + + + + + fWZeYxSFPK1Vndqrg1Yo3cwyEVw= + + + +icSAdQhi9C234W4O86hajLFJGkw=MLRivKvhToyhdmFHJ3Btzah3NNKi8JsRtlghFSuJzHYxPVzUyCcRndaGgk4BWBq851BPMTYkAcAthjPu8FFJfV4VpEEdrO6Zk3e6XWcD0xtNst7UXHW3foqFpP8Wl8rtw66pE21BdUhXPGyAShF3RTnqE7+UGeCxo0RuusxXOTY=pdTbdzgmPJDoh8P1iBtkIQ07iUtanbL8CZsoCvTvAKscU3BAKhT/E0x7gupuSJyoy8HLCXlEi5bh0hb7Vb1I9mMKHPuHfjh08wHgH9wK8IjrGCjWpdjlvx+rJCZrb/Z+qWTM257o+dqLvZyTarLsCQprLxxlQlxUNJ+floyK+TE=AQABCN=COUNDONCOURT\davale06m3RoDO2q38nVAV8sOcBbGp+Pel4=nFPoo1hkHo3hUkeFpSkBiLl32IVzLn8+0mwZERcJh1bv/zrApN6bu6HNdfec4sn1MDIxth6EiphQLhGDMKOe2X9sIdxYa1aVJHme9bsR2RzAiqUbIekVmubwgvvcnPXf/VXqR6pLVGcKJQO6GAwDZAL2uXRoR8eJdgRRCWrKsfw=pdTbdzgmPJDoh8P1iBtkIQ07iUtanbL8CZsoCvTvAKscU3BAKhT/E0x7gupuSJyoy8HLCXlEi5bh0hb7Vb1I9mMKHPuHfjh08wHgH9wK8IjrGCjWpdjlvx+rJCZrb/Z+qWTM257o+dqLvZyTarLsCQprLxxlQlxUNJ+floyK+TE=AQABMIIB7TCCAVagAwIBAgIQO+Zgr8z0FI1N/TpxxQXqgDANBgkqhkiG9w0BAQUFADA1MTMwMQYDVQQDHioAQwBPAFUATgBEAE8ATgBDAE8AVQBSAFQAXABkAGEAdgBhAGwAZQAwADYwHhcNMTMwMzEzMTA0MzE5WhcNMTQwMzEzMTY0MzE5WjA1MTMwMQYDVQQDHioAQwBPAFUATgBEAE8ATgBDAE8AVQBSAFQAXABkAGEAdgBhAGwAZQAwADYwgZ8wDQYJKoZIhvcNAQEBBQADgY0AMIGJAoGBAKXU23c4JjyQ6IfD9YgbZCENO4lLWp2y/AmbKAr07wCrHFNwQCoU/xNMe4LqbkicqMvBywl5RIuW4dIW+1W9SPZjChz7h344dPMB4B/cCvCI6xgo1qXY5b8fqyQma2/2fqlkzNue6Pnai72ck2qy7AkKay8cZUJcVDSfn5aMivkxAgMBAAEwDQYJKoZIhvcNAQEFBQADgYEAlO714NMU7TQ+cOYURxZ3aUgHjqeMtOeI8zsQEiH/nTN8mEayTDog0gmMGzLZ9h1UNajQxTpdeNNGyV0kNsotlsmljdAOxLCHQ+eRh7vU/AyoWQWgdfWagdbHW89AxYEDZ0xdn5hrOHGstCQURxCH6CyxpY3oq1PKjnlH/K1Wu6g= \ No newline at end of file diff --git a/Nature Findings/Nature Findings/bin/Debug/app.publish/setup.exe b/Nature Findings/Nature Findings/bin/Debug/app.publish/setup.exe new file mode 100644 index 0000000..41e7e11 Binary files /dev/null and b/Nature Findings/Nature Findings/bin/Debug/app.publish/setup.exe differ diff --git a/Nature Findings/Nature Findings/bin/Release/Nature Findings Database.accdb b/Nature Findings/Nature Findings/bin/Release/Nature Findings Database.accdb new file mode 100644 index 0000000..1f35a4a Binary files /dev/null and b/Nature Findings/Nature Findings/bin/Release/Nature Findings Database.accdb differ diff --git a/Nature Findings/Nature Findings/bin/Release/Nature Findings.application b/Nature Findings/Nature Findings/bin/Release/Nature Findings.application new file mode 100644 index 0000000..c4eb246 --- /dev/null +++ b/Nature Findings/Nature Findings/bin/Release/Nature Findings.application @@ -0,0 +1,22 @@ + + + + + + + + + + + + + + + + + + XEz3M7k5AkqnaJBEdD/Xpdn6OWE= + + + + \ No newline at end of file diff --git a/Nature Findings/Nature Findings/bin/Release/Nature Findings.exe b/Nature Findings/Nature Findings/bin/Release/Nature Findings.exe new file mode 100644 index 0000000..f9c93c4 Binary files /dev/null and b/Nature Findings/Nature Findings/bin/Release/Nature Findings.exe differ diff --git a/Nature Findings/Nature Findings/bin/Release/Nature Findings.exe.manifest b/Nature Findings/Nature Findings/bin/Release/Nature Findings.exe.manifest new file mode 100644 index 0000000..1619dc4 --- /dev/null +++ b/Nature Findings/Nature Findings/bin/Release/Nature Findings.exe.manifest @@ -0,0 +1,81 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + C3eK1VVoI+fj7zUE575hfhfpQ7s= + + + + + + + + + + v+iSUXUkNO4w5OePf87adfY423g= + + + + + + + + + JBTGVJVRYmbccbVwdTowQrMVfhA= + + + + + + + + + + \ No newline at end of file diff --git a/Nature Findings/Nature Findings/bin/Release/Nature Findings.pdb b/Nature Findings/Nature Findings/bin/Release/Nature Findings.pdb new file mode 100644 index 0000000..9d611e2 Binary files /dev/null and b/Nature Findings/Nature Findings/bin/Release/Nature Findings.pdb differ diff --git a/Nature Findings/Nature Findings/obj/x86/Debug/DesignTimeResolveAssemblyReferences.cache b/Nature Findings/Nature Findings/obj/x86/Debug/DesignTimeResolveAssemblyReferences.cache new file mode 100644 index 0000000..8bc9203 Binary files /dev/null and b/Nature Findings/Nature Findings/obj/x86/Debug/DesignTimeResolveAssemblyReferences.cache differ diff --git a/Nature Findings/Nature Findings/obj/x86/Debug/DesignTimeResolveAssemblyReferencesInput.cache b/Nature Findings/Nature Findings/obj/x86/Debug/DesignTimeResolveAssemblyReferencesInput.cache new file mode 100644 index 0000000..770e8dc Binary files /dev/null and b/Nature Findings/Nature Findings/obj/x86/Debug/DesignTimeResolveAssemblyReferencesInput.cache differ diff --git a/Nature Findings/Nature Findings/obj/x86/Debug/GenerateResource.read.1.tlog b/Nature Findings/Nature Findings/obj/x86/Debug/GenerateResource.read.1.tlog new file mode 100644 index 0000000..1c6f95e Binary files /dev/null and b/Nature Findings/Nature Findings/obj/x86/Debug/GenerateResource.read.1.tlog differ diff --git a/Nature Findings/Nature Findings/obj/x86/Debug/GenerateResource.write.1.tlog b/Nature Findings/Nature Findings/obj/x86/Debug/GenerateResource.write.1.tlog new file mode 100644 index 0000000..38ff060 Binary files /dev/null and b/Nature Findings/Nature Findings/obj/x86/Debug/GenerateResource.write.1.tlog differ diff --git a/Nature Findings/Nature Findings/obj/x86/Debug/Nature Findings.vbproj.FileListAbsolute.txt b/Nature Findings/Nature Findings/obj/x86/Debug/Nature Findings.vbproj.FileListAbsolute.txt new file mode 100644 index 0000000..ed00c2b --- /dev/null +++ b/Nature Findings/Nature Findings/obj/x86/Debug/Nature Findings.vbproj.FileListAbsolute.txt @@ -0,0 +1,287 @@ +E:\Nature Findings\Nature Findings\bin\Debug\Nature Findings.exe.config +E:\Nature Findings\Nature Findings\bin\Debug\Nature Findings Database.accdb +E:\Nature Findings\Nature Findings\bin\Debug\Nature Findings.exe +E:\Nature Findings\Nature Findings\bin\Debug\Nature Findings.pdb +E:\Nature Findings\Nature Findings\bin\Debug\Nature Findings.xml +E:\Nature Findings\Nature Findings\obj\x86\Debug\Nature Findings.exe +E:\Nature Findings\Nature Findings\obj\x86\Debug\Nature Findings.xml +E:\Nature Findings\Nature Findings\obj\x86\Debug\Nature Findings.pdb +D:\Nature Findings\Nature Findings\bin\Debug\Nature Findings.exe.config +D:\Nature Findings\Nature Findings\obj\x86\Debug\Nature Findings.exe +D:\Nature Findings\Nature Findings\obj\x86\Debug\Nature Findings.xml +D:\Nature Findings\Nature Findings\obj\x86\Debug\Nature Findings.pdb +D:\Nature Findings\Nature Findings\bin\Debug\Nature Findings Database.accdb +D:\Nature Findings\Nature Findings\bin\Debug\Nature Findings.exe +D:\Nature Findings\Nature Findings\bin\Debug\Nature Findings.pdb +D:\Nature Findings\Nature Findings\bin\Debug\Nature Findings.xml +D:\Nature Findings\Nature Findings\obj\x86\Debug\ResolveAssemblyReference.cache +D:\Nature Findings\Nature Findings\obj\x86\Debug\GenerateResource.read.1.tlog +D:\Nature Findings\Nature Findings\obj\x86\Debug\GenerateResource.write.1.tlog +D:\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Knowledge_Base_Species.resources +D:\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.My_Account.resources +D:\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Knowledge_Base_Search.resources +D:\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Knowledge_Base_Location.resources +D:\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Life_List.resources +D:\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Login.resources +D:\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Welcome.resources +D:\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.New_Find.resources +D:\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Edit_Find.resources +D:\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.New_Location.resources +D:\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Edit_Location.resources +D:\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Resources.resources +\\ccscc101\C06\DavAle06\Computing\Nature Findings\Nature Findings\bin\Debug\Nature Findings.exe.config +\\ccscc101\C06\DavAle06\Computing\Nature Findings\Nature Findings\obj\x86\Debug\Nature Findings.exe +\\ccscc101\C06\DavAle06\Computing\Nature Findings\Nature Findings\obj\x86\Debug\Nature Findings.xml +\\ccscc101\C06\DavAle06\Computing\Nature Findings\Nature Findings\obj\x86\Debug\Nature Findings.pdb +\\ccscc101\C06\DavAle06\Computing\Nature Findings\Nature Findings\bin\Debug\Nature Findings Database.accdb +\\ccscc101\C06\DavAle06\Computing\Nature Findings\Nature Findings\bin\Debug\Nature Findings.exe +\\ccscc101\C06\DavAle06\Computing\Nature Findings\Nature Findings\bin\Debug\Nature Findings.pdb +\\ccscc101\C06\DavAle06\Computing\Nature Findings\Nature Findings\bin\Debug\Nature Findings.xml +\\ccscc101\C06\DavAle06\Computing\Nature Findings\Nature Findings\obj\x86\Debug\ResolveAssemblyReference.cache +\\ccscc101\C06\DavAle06\Computing\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Knowledge_Base_Species.resources +\\ccscc101\C06\DavAle06\Computing\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.My_Account.resources +\\ccscc101\C06\DavAle06\Computing\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Knowledge_Base_Search.resources +\\ccscc101\C06\DavAle06\Computing\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Knowledge_Base_Location.resources +\\ccscc101\C06\DavAle06\Computing\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Life_List.resources +\\ccscc101\C06\DavAle06\Computing\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Login.resources +\\ccscc101\C06\DavAle06\Computing\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Welcome.resources +\\ccscc101\C06\DavAle06\Computing\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.New_Find.resources +\\ccscc101\C06\DavAle06\Computing\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Edit_Find.resources +\\ccscc101\C06\DavAle06\Computing\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.New_Location.resources +\\ccscc101\C06\DavAle06\Computing\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Edit_Location.resources +\\ccscc101\C06\DavAle06\Computing\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Resources.resources +\\ccscc101\C06\DavAle06\Computing\Nature Findings\Nature Findings\obj\x86\Debug\GenerateResource.read.1.tlog +\\ccscc101\C06\DavAle06\Computing\Nature Findings\Nature Findings\obj\x86\Debug\GenerateResource.write.1.tlog +G:\Nature Findings\Nature Findings\bin\Debug\Nature Findings Database.accdb +G:\Nature Findings\Nature Findings\bin\Debug\Nature Findings.exe.config +G:\Nature Findings\Nature Findings\bin\Debug\Nature Findings.exe +G:\Nature Findings\Nature Findings\bin\Debug\Nature Findings.pdb +G:\Nature Findings\Nature Findings\bin\Debug\Nature Findings.xml +G:\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.My_Account.resources +G:\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Life_List.resources +G:\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Login.resources +G:\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Welcome.resources +G:\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.New_Find.resources +G:\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Edit_Find.resources +G:\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.New_Location.resources +G:\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Resources.resources +G:\Nature Findings\Nature Findings\obj\x86\Debug\Nature Findings.exe +G:\Nature Findings\Nature Findings\obj\x86\Debug\Nature Findings.xml +G:\Nature Findings\Nature Findings\obj\x86\Debug\Nature Findings.pdb +E:\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.My_Account.resources +E:\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Life_List.resources +E:\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Login.resources +E:\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Welcome.resources +E:\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.New_Find.resources +E:\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Edit_Find.resources +E:\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.New_Location.resources +E:\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Edit_Location.resources +E:\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Resources.resources +E:\Nature Findings\Nature Findings\obj\x86\Debug\Nature Findings.vbproj.GenerateResource.Cache +G:\Nature Findings\Nature Findings\obj\x86\Debug\ResolveAssemblyReference.cache +G:\Nature Findings\Nature Findings\obj\x86\Debug\GenerateResource.read.1.tlog +G:\Nature Findings\Nature Findings\obj\x86\Debug\GenerateResource.write.1.tlog +\\ccscc101\C06\DavAle06\Computing\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Location_IDs.resources +\\ccscc101\C06\DavAle06\Computing\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Species_IDs.resources +\\ccscc101\C06\DavAle06\Computing\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.New_Species.resources +\\ccscc101\C06\DavAle06\Computing\Nature Findings\Nature Findings\bin\Debug\Nature Findings.exe.manifest +\\ccscc101\C06\DavAle06\Computing\Nature Findings\Nature Findings\bin\Debug\Nature Findings.application +\\ccscc101\C06\DavAle06\Computing\Nature Findings\Nature Findings\obj\x86\Debug\Nature Findings.exe.manifest +\\ccscc101\C06\DavAle06\Computing\Nature Findings\Nature Findings\obj\x86\Debug\Nature Findings.application +H:\Computing\Nature Findings\Nature Findings\bin\Debug\Nature Findings.exe.config +H:\Computing\Nature Findings\Nature Findings\obj\x86\Debug\Nature Findings.exe +H:\Computing\Nature Findings\Nature Findings\obj\x86\Debug\Nature Findings.xml +H:\Computing\Nature Findings\Nature Findings\obj\x86\Debug\Nature Findings.pdb +D:\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.New_Species.resources +D:\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Location_IDs.resources +D:\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Species_IDs.resources +D:\Nature Findings\Nature Findings\bin\Debug\Nature Findings.exe.manifest +D:\Nature Findings\Nature Findings\bin\Debug\Nature Findings.application +D:\Nature Findings\Nature Findings\obj\x86\Debug\Nature Findings.exe.manifest +D:\Nature Findings\Nature Findings\obj\x86\Debug\Nature Findings.application +E:\Nature Findings\Nature Findings\bin\Debug\Nature Findings.exe.manifest +E:\Nature Findings\Nature Findings\bin\Debug\Nature Findings.application +E:\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.New_Species.resources +E:\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Location_IDs.resources +E:\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Species_IDs.resources +E:\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.User_IDs.resources +E:\Nature Findings\Nature Findings\obj\x86\Debug\Nature Findings.exe.manifest +E:\Nature Findings\Nature Findings\obj\x86\Debug\Nature Findings.application +E:\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Knowledge_Base_Finds.resources +E:\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Knowledge_Base_Home.resources +E:\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Knowledge_Base_Locations.resources +G:\Nature Findings\Nature Findings\bin\Debug\Nature Findings.exe.manifest +G:\Nature Findings\Nature Findings\bin\Debug\Nature Findings.application +G:\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.New_Species.resources +G:\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Knowledge_Base_Finds.resources +G:\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Location_IDs.resources +G:\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Knowledge_Base_Home.resources +G:\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Knowledge_Base_Locations.resources +G:\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Species_IDs.resources +G:\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.User_IDs.resources +G:\Nature Findings\Nature Findings\obj\x86\Debug\Nature Findings.exe.manifest +G:\Nature Findings\Nature Findings\obj\x86\Debug\Nature Findings.application +G:\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Edit_Location.resources +H:\Computing\Project Build\Nature Findings\Nature Findings\bin\Debug\Nature Findings.exe.config +H:\Computing\Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature Findings.exe +H:\Computing\Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature Findings.xml +H:\Computing\Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature Findings.pdb +H:\Computing\Project Build\Nature Findings\Nature Findings\bin\Debug\Nature Findings Database.accdb +H:\Computing\Project Build\Nature Findings\Nature Findings\bin\Debug\Nature Findings.exe.manifest +H:\Computing\Project Build\Nature Findings\Nature Findings\bin\Debug\Nature Findings.application +H:\Computing\Project Build\Nature Findings\Nature Findings\bin\Debug\Nature Findings.exe +H:\Computing\Project Build\Nature Findings\Nature Findings\bin\Debug\Nature Findings.pdb +H:\Computing\Project Build\Nature Findings\Nature Findings\bin\Debug\Nature Findings.xml +H:\Computing\Project Build\Nature Findings\Nature Findings\obj\x86\Debug\ResolveAssemblyReference.cache +H:\Computing\Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Edit_Location.resources +H:\Computing\Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.New_Species.resources +H:\Computing\Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Knowledge_Base_Finds.resources +H:\Computing\Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Location_IDs.resources +H:\Computing\Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.My_Account.resources +H:\Computing\Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Knowledge_Base_Home.resources +H:\Computing\Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Knowledge_Base_Locations.resources +H:\Computing\Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Life_List.resources +H:\Computing\Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Login.resources +H:\Computing\Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Species_IDs.resources +H:\Computing\Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.User_IDs.resources +H:\Computing\Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Welcome.resources +H:\Computing\Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.New_Find.resources +H:\Computing\Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Edit_Find.resources +H:\Computing\Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.New_Location.resources +H:\Computing\Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Resources.resources +H:\Computing\Project Build\Nature Findings\Nature Findings\obj\x86\Debug\GenerateResource.read.1.tlog +H:\Computing\Project Build\Nature Findings\Nature Findings\obj\x86\Debug\GenerateResource.write.1.tlog +H:\Computing\Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature Findings.exe.manifest +H:\Computing\Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature Findings.application +\\ccscc101\C06\DavAle06\Computing\Project Build\Nature Findings\Nature Findings\bin\Debug\Nature Findings.exe.config +\\ccscc101\C06\DavAle06\Computing\Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature Findings.exe +\\ccscc101\C06\DavAle06\Computing\Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature Findings.xml +\\ccscc101\C06\DavAle06\Computing\Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature Findings.pdb +\\ccscc101\C06\DavAle06\Computing\Project Build\Nature Findings\Nature Findings\bin\Debug\Nature Findings Database.accdb +\\ccscc101\C06\DavAle06\Computing\Project Build\Nature Findings\Nature Findings\bin\Debug\Nature Findings.exe.manifest +\\ccscc101\C06\DavAle06\Computing\Project Build\Nature Findings\Nature Findings\bin\Debug\Nature Findings.application +\\ccscc101\C06\DavAle06\Computing\Project Build\Nature Findings\Nature Findings\bin\Debug\Nature Findings.exe +\\ccscc101\C06\DavAle06\Computing\Project Build\Nature Findings\Nature Findings\bin\Debug\Nature Findings.pdb +\\ccscc101\C06\DavAle06\Computing\Project Build\Nature Findings\Nature Findings\bin\Debug\Nature Findings.xml +\\ccscc101\C06\DavAle06\Computing\Project Build\Nature Findings\Nature Findings\obj\x86\Debug\ResolveAssemblyReference.cache +\\ccscc101\C06\DavAle06\Computing\Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Edit_Location.resources +\\ccscc101\C06\DavAle06\Computing\Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.New_Species.resources +\\ccscc101\C06\DavAle06\Computing\Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Knowledge_Base_Finds.resources +\\ccscc101\C06\DavAle06\Computing\Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Location_IDs.resources +\\ccscc101\C06\DavAle06\Computing\Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.My_Account.resources +\\ccscc101\C06\DavAle06\Computing\Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Knowledge_Base_Home.resources +\\ccscc101\C06\DavAle06\Computing\Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Knowledge_Base_Locations.resources +\\ccscc101\C06\DavAle06\Computing\Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Life_List.resources +\\ccscc101\C06\DavAle06\Computing\Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Login.resources +\\ccscc101\C06\DavAle06\Computing\Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Species_IDs.resources +\\ccscc101\C06\DavAle06\Computing\Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.User_IDs.resources +\\ccscc101\C06\DavAle06\Computing\Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Welcome.resources +\\ccscc101\C06\DavAle06\Computing\Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.New_Find.resources +\\ccscc101\C06\DavAle06\Computing\Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Edit_Find.resources +\\ccscc101\C06\DavAle06\Computing\Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.New_Location.resources +\\ccscc101\C06\DavAle06\Computing\Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Resources.resources +\\ccscc101\C06\DavAle06\Computing\Project Build\Nature Findings\Nature Findings\obj\x86\Debug\GenerateResource.read.1.tlog +\\ccscc101\C06\DavAle06\Computing\Project Build\Nature Findings\Nature Findings\obj\x86\Debug\GenerateResource.write.1.tlog +\\ccscc101\C06\DavAle06\Computing\Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature Findings.exe.manifest +\\ccscc101\C06\DavAle06\Computing\Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature Findings.application +G:\Project Build\Nature Findings\Nature Findings\bin\Debug\Nature Findings Database.accdb +G:\Project Build\Nature Findings\Nature Findings\bin\Debug\Nature Findings.exe.config +G:\Project Build\Nature Findings\Nature Findings\bin\Debug\Nature Findings.exe.manifest +G:\Project Build\Nature Findings\Nature Findings\bin\Debug\Nature Findings.application +G:\Project Build\Nature Findings\Nature Findings\bin\Debug\Nature Findings.exe +G:\Project Build\Nature Findings\Nature Findings\bin\Debug\Nature Findings.pdb +G:\Project Build\Nature Findings\Nature Findings\bin\Debug\Nature Findings.xml +G:\Project Build\Nature Findings\Nature Findings\obj\x86\Debug\ResolveAssemblyReference.cache +G:\Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Edit_Location.resources +G:\Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.New_Species.resources +G:\Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Knowledge_Base_Finds.resources +G:\Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Location_IDs.resources +G:\Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.My_Account.resources +G:\Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Knowledge_Base_Home.resources +G:\Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Knowledge_Base_Locations.resources +G:\Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Life_List.resources +G:\Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Login.resources +G:\Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Species_IDs.resources +G:\Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.User_IDs.resources +G:\Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Welcome.resources +G:\Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.New_Find.resources +G:\Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Edit_Find.resources +G:\Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.New_Location.resources +G:\Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Resources.resources +G:\Project Build\Nature Findings\Nature Findings\obj\x86\Debug\GenerateResource.read.1.tlog +G:\Project Build\Nature Findings\Nature Findings\obj\x86\Debug\GenerateResource.write.1.tlog +G:\Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature Findings.exe.manifest +G:\Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature Findings.application +G:\Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature Findings.exe +G:\Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature Findings.xml +G:\Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature Findings.pdb +D:\Computing Project Build\Nature Findings\Nature Findings\bin\Debug\Nature Findings.exe.config +D:\Computing Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature Findings.exe +D:\Computing Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature Findings.xml +D:\Computing Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature Findings.pdb +D:\Computing Project Build\Nature Findings\Nature Findings\bin\Debug\Nature Findings Database.accdb +D:\Computing Project Build\Nature Findings\Nature Findings\bin\Debug\Nature Findings.exe.manifest +D:\Computing Project Build\Nature Findings\Nature Findings\bin\Debug\Nature Findings.application +D:\Computing Project Build\Nature Findings\Nature Findings\bin\Debug\Nature Findings.exe +D:\Computing Project Build\Nature Findings\Nature Findings\bin\Debug\Nature Findings.pdb +D:\Computing Project Build\Nature Findings\Nature Findings\bin\Debug\Nature Findings.xml +D:\Computing Project Build\Nature Findings\Nature Findings\obj\x86\Debug\ResolveAssemblyReference.cache +D:\Computing Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Edit_Location.resources +D:\Computing Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.New_Species.resources +D:\Computing Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Knowledge_Base_Finds.resources +D:\Computing Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Location_IDs.resources +D:\Computing Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.My_Account.resources +D:\Computing Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Knowledge_Base_Home.resources +D:\Computing Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Knowledge_Base_Locations.resources +D:\Computing Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Life_List.resources +D:\Computing Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Login.resources +D:\Computing Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Species_IDs.resources +D:\Computing Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.User_IDs.resources +D:\Computing Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Welcome.resources +D:\Computing Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.New_Find.resources +D:\Computing Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Edit_Find.resources +D:\Computing Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.New_Location.resources +D:\Computing Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Resources.resources +D:\Computing Project Build\Nature Findings\Nature Findings\obj\x86\Debug\GenerateResource.read.1.tlog +D:\Computing Project Build\Nature Findings\Nature Findings\obj\x86\Debug\GenerateResource.write.1.tlog +D:\Computing Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature Findings.exe.manifest +D:\Computing Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature Findings.application +\\ccscc101\C06\DavAle06\Computing Project Build\Nature Findings\Nature Findings\bin\Debug\Nature Findings.exe.config +\\ccscc101\C06\DavAle06\Computing Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature Findings.exe +\\ccscc101\C06\DavAle06\Computing Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature Findings.xml +\\ccscc101\C06\DavAle06\Computing Project Build\Nature Findings\Nature Findings\obj\x86\Debug\Nature Findings.pdb +\\ccscc101\C06\DavAle06\Computing\Computing Project Finished\Nature Findings\Nature Findings\bin\Debug\Nature Findings.exe.config +\\ccscc101\C06\DavAle06\Computing\Computing Project Finished\Nature Findings\Nature Findings\obj\x86\Debug\Nature Findings.exe +\\ccscc101\C06\DavAle06\Computing\Computing Project Finished\Nature Findings\Nature Findings\obj\x86\Debug\Nature Findings.xml +\\ccscc101\C06\DavAle06\Computing\Computing Project Finished\Nature Findings\Nature Findings\obj\x86\Debug\Nature Findings.pdb +\\ccscc101\C06\DavAle06\Computing\Computing Project Finished\Nature Findings\Nature Findings\bin\Debug\Nature Findings Database.accdb +\\ccscc101\C06\DavAle06\Computing\Computing Project Finished\Nature Findings\Nature Findings\bin\Debug\Nature Findings.exe.manifest +\\ccscc101\C06\DavAle06\Computing\Computing Project Finished\Nature Findings\Nature Findings\bin\Debug\Nature Findings.application +\\ccscc101\C06\DavAle06\Computing\Computing Project Finished\Nature Findings\Nature Findings\bin\Debug\Nature Findings.exe +\\ccscc101\C06\DavAle06\Computing\Computing Project Finished\Nature Findings\Nature Findings\bin\Debug\Nature Findings.pdb +\\ccscc101\C06\DavAle06\Computing\Computing Project Finished\Nature Findings\Nature Findings\bin\Debug\Nature Findings.xml +\\ccscc101\C06\DavAle06\Computing\Computing Project Finished\Nature Findings\Nature Findings\obj\x86\Debug\ResolveAssemblyReference.cache +\\ccscc101\C06\DavAle06\Computing\Computing Project Finished\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Edit_Location.resources +\\ccscc101\C06\DavAle06\Computing\Computing Project Finished\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.New_Species.resources +\\ccscc101\C06\DavAle06\Computing\Computing Project Finished\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Knowledge_Base_Finds.resources +\\ccscc101\C06\DavAle06\Computing\Computing Project Finished\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Location_IDs.resources +\\ccscc101\C06\DavAle06\Computing\Computing Project Finished\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.My_Account.resources +\\ccscc101\C06\DavAle06\Computing\Computing Project Finished\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Knowledge_Base_Home.resources +\\ccscc101\C06\DavAle06\Computing\Computing Project Finished\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Knowledge_Base_Locations.resources +\\ccscc101\C06\DavAle06\Computing\Computing Project Finished\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Life_List.resources +\\ccscc101\C06\DavAle06\Computing\Computing Project Finished\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Login.resources +\\ccscc101\C06\DavAle06\Computing\Computing Project Finished\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Species_IDs.resources +\\ccscc101\C06\DavAle06\Computing\Computing Project Finished\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.User_IDs.resources +\\ccscc101\C06\DavAle06\Computing\Computing Project Finished\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Welcome.resources +\\ccscc101\C06\DavAle06\Computing\Computing Project Finished\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.New_Find.resources +\\ccscc101\C06\DavAle06\Computing\Computing Project Finished\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Edit_Find.resources +\\ccscc101\C06\DavAle06\Computing\Computing Project Finished\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.New_Location.resources +\\ccscc101\C06\DavAle06\Computing\Computing Project Finished\Nature Findings\Nature Findings\obj\x86\Debug\Nature_Findings_System.Resources.resources +\\ccscc101\C06\DavAle06\Computing\Computing Project Finished\Nature Findings\Nature Findings\obj\x86\Debug\GenerateResource.read.1.tlog +\\ccscc101\C06\DavAle06\Computing\Computing Project Finished\Nature Findings\Nature Findings\obj\x86\Debug\GenerateResource.write.1.tlog +\\ccscc101\C06\DavAle06\Computing\Computing Project Finished\Nature Findings\Nature Findings\obj\x86\Debug\Nature Findings.exe.manifest +\\ccscc101\C06\DavAle06\Computing\Computing Project Finished\Nature Findings\Nature Findings\obj\x86\Debug\Nature Findings.application +C:\Users\Alexander\Google Drive\Coundon Court School Work\School Backup\Computing\Computing Project Finished\Nature Findings\Nature Findings\bin\Debug\Nature Findings.exe.config +C:\Users\Alexander\Google Drive\Coundon Court School Work\School Backup\Computing\Computing Project Finished\Nature Findings\Nature Findings\obj\x86\Debug\Nature Findings.exe +C:\Users\Alexander\Google Drive\Coundon Court School Work\School Backup\Computing\Computing Project Finished\Nature Findings\Nature Findings\obj\x86\Debug\Nature Findings.xml +C:\Users\Alexander\Google Drive\Coundon Court School Work\School Backup\Computing\Computing Project Finished\Nature Findings\Nature Findings\obj\x86\Debug\Nature Findings.pdb diff --git a/Nature Findings/Nature Findings/obj/x86/Debug/Nature Findings.vbproj.GenerateResource.Cache b/Nature Findings/Nature Findings/obj/x86/Debug/Nature Findings.vbproj.GenerateResource.Cache new file mode 100644 index 0000000..e71c1bf Binary files /dev/null and b/Nature Findings/Nature Findings/obj/x86/Debug/Nature Findings.vbproj.GenerateResource.Cache differ diff --git a/Nature Findings/Nature Findings/obj/x86/Debug/Nature_Findings_System.Edit_Location.resources b/Nature Findings/Nature Findings/obj/x86/Debug/Nature_Findings_System.Edit_Location.resources new file mode 100644 index 0000000..11293d9 Binary files /dev/null and b/Nature Findings/Nature Findings/obj/x86/Debug/Nature_Findings_System.Edit_Location.resources differ diff --git a/Nature Findings/Nature Findings/obj/x86/Debug/Nature_Findings_System.New_Location.resources b/Nature Findings/Nature Findings/obj/x86/Debug/Nature_Findings_System.New_Location.resources new file mode 100644 index 0000000..92d8ebf Binary files /dev/null and b/Nature Findings/Nature Findings/obj/x86/Debug/Nature_Findings_System.New_Location.resources differ diff --git a/Nature Findings/Nature Findings/obj/x86/Debug/Nature_Findings_System.New_Species.resources b/Nature Findings/Nature Findings/obj/x86/Debug/Nature_Findings_System.New_Species.resources new file mode 100644 index 0000000..5c01fc0 Binary files /dev/null and b/Nature Findings/Nature Findings/obj/x86/Debug/Nature_Findings_System.New_Species.resources differ diff --git a/Nature Findings/Nature Findings/obj/x86/Debug/TempPE/My Project.Resources.Designer.vb.dll b/Nature Findings/Nature Findings/obj/x86/Debug/TempPE/My Project.Resources.Designer.vb.dll new file mode 100644 index 0000000..b8d5186 Binary files /dev/null and b/Nature Findings/Nature Findings/obj/x86/Debug/TempPE/My Project.Resources.Designer.vb.dll differ diff --git a/Nature Findings/Nature Findings/obj/x86/Debug/TempPE/Nature_Findings_Database.Designer.vb.dll b/Nature Findings/Nature Findings/obj/x86/Debug/TempPE/Nature_Findings_Database.Designer.vb.dll new file mode 100644 index 0000000..6461267 Binary files /dev/null and b/Nature Findings/Nature Findings/obj/x86/Debug/TempPE/Nature_Findings_Database.Designer.vb.dll differ diff --git a/Nature Findings/Nature Findings/obj/x86/Release/DesignTimeResolveAssemblyReferences.cache b/Nature Findings/Nature Findings/obj/x86/Release/DesignTimeResolveAssemblyReferences.cache new file mode 100644 index 0000000..447b75b Binary files /dev/null and b/Nature Findings/Nature Findings/obj/x86/Release/DesignTimeResolveAssemblyReferences.cache differ diff --git a/Nature Findings/Nature Findings/obj/x86/Release/DesignTimeResolveAssemblyReferencesInput.cache b/Nature Findings/Nature Findings/obj/x86/Release/DesignTimeResolveAssemblyReferencesInput.cache new file mode 100644 index 0000000..1e89836 Binary files /dev/null and b/Nature Findings/Nature Findings/obj/x86/Release/DesignTimeResolveAssemblyReferencesInput.cache differ diff --git a/Nature Findings/Nature Findings/obj/x86/Release/GenerateResource.read.1.tlog b/Nature Findings/Nature Findings/obj/x86/Release/GenerateResource.read.1.tlog new file mode 100644 index 0000000..e7f7ef4 Binary files /dev/null and b/Nature Findings/Nature Findings/obj/x86/Release/GenerateResource.read.1.tlog differ diff --git a/Nature Findings/Nature Findings/obj/x86/Release/GenerateResource.write.1.tlog b/Nature Findings/Nature Findings/obj/x86/Release/GenerateResource.write.1.tlog new file mode 100644 index 0000000..831eb34 Binary files /dev/null and b/Nature Findings/Nature Findings/obj/x86/Release/GenerateResource.write.1.tlog differ diff --git a/Nature Findings/Nature Findings/obj/x86/Release/Nature Findings.vbproj.FileListAbsolute.txt b/Nature Findings/Nature Findings/obj/x86/Release/Nature Findings.vbproj.FileListAbsolute.txt new file mode 100644 index 0000000..95082f2 --- /dev/null +++ b/Nature Findings/Nature Findings/obj/x86/Release/Nature Findings.vbproj.FileListAbsolute.txt @@ -0,0 +1,39 @@ +\\ccscc101\C06\DavAle06\Computing\Project Build\Nature Findings\Nature Findings\bin\Release\Nature Findings Database.accdb +\\ccscc101\C06\DavAle06\Computing\Project Build\Nature Findings\Nature Findings\bin\Release\Nature Findings.exe.config +\\ccscc101\C06\DavAle06\Computing\Project Build\Nature Findings\Nature Findings\bin\Release\Nature Findings.exe.manifest +\\ccscc101\C06\DavAle06\Computing\Project Build\Nature Findings\Nature Findings\bin\Release\Nature Findings.application +\\ccscc101\C06\DavAle06\Computing\Project Build\Nature Findings\Nature Findings\bin\Release\Nature Findings.exe +\\ccscc101\C06\DavAle06\Computing\Project Build\Nature Findings\Nature Findings\bin\Release\Nature Findings.pdb +\\ccscc101\C06\DavAle06\Computing\Project Build\Nature Findings\Nature Findings\bin\Release\Nature Findings.xml +\\ccscc101\C06\DavAle06\Computing\Project Build\Nature Findings\Nature Findings\obj\x86\Release\ResolveAssemblyReference.cache +\\ccscc101\C06\DavAle06\Computing\Project Build\Nature Findings\Nature Findings\obj\x86\Release\Nature_Findings_System.Edit_Location.resources +\\ccscc101\C06\DavAle06\Computing\Project Build\Nature Findings\Nature Findings\obj\x86\Release\Nature_Findings_System.New_Species.resources +\\ccscc101\C06\DavAle06\Computing\Project Build\Nature Findings\Nature Findings\obj\x86\Release\Nature_Findings_System.Knowledge_Base_Finds.resources +\\ccscc101\C06\DavAle06\Computing\Project Build\Nature Findings\Nature Findings\obj\x86\Release\Nature_Findings_System.Location_IDs.resources +\\ccscc101\C06\DavAle06\Computing\Project Build\Nature Findings\Nature Findings\obj\x86\Release\Nature_Findings_System.My_Account.resources +\\ccscc101\C06\DavAle06\Computing\Project Build\Nature Findings\Nature Findings\obj\x86\Release\Nature_Findings_System.Knowledge_Base_Home.resources +\\ccscc101\C06\DavAle06\Computing\Project Build\Nature Findings\Nature Findings\obj\x86\Release\Nature_Findings_System.Knowledge_Base_Locations.resources +\\ccscc101\C06\DavAle06\Computing\Project Build\Nature Findings\Nature Findings\obj\x86\Release\Nature_Findings_System.Life_List.resources +\\ccscc101\C06\DavAle06\Computing\Project Build\Nature Findings\Nature Findings\obj\x86\Release\Nature_Findings_System.Login.resources +\\ccscc101\C06\DavAle06\Computing\Project Build\Nature Findings\Nature Findings\obj\x86\Release\Nature_Findings_System.Species_IDs.resources +\\ccscc101\C06\DavAle06\Computing\Project Build\Nature Findings\Nature Findings\obj\x86\Release\Nature_Findings_System.User_IDs.resources +\\ccscc101\C06\DavAle06\Computing\Project Build\Nature Findings\Nature Findings\obj\x86\Release\Nature_Findings_System.Welcome.resources +\\ccscc101\C06\DavAle06\Computing\Project Build\Nature Findings\Nature Findings\obj\x86\Release\Nature_Findings_System.New_Find.resources +\\ccscc101\C06\DavAle06\Computing\Project Build\Nature Findings\Nature Findings\obj\x86\Release\Nature_Findings_System.Edit_Find.resources +\\ccscc101\C06\DavAle06\Computing\Project Build\Nature Findings\Nature Findings\obj\x86\Release\Nature_Findings_System.New_Location.resources +\\ccscc101\C06\DavAle06\Computing\Project Build\Nature Findings\Nature Findings\obj\x86\Release\Nature_Findings_System.Resources.resources +\\ccscc101\C06\DavAle06\Computing\Project Build\Nature Findings\Nature Findings\obj\x86\Release\GenerateResource.read.1.tlog +\\ccscc101\C06\DavAle06\Computing\Project Build\Nature Findings\Nature Findings\obj\x86\Release\GenerateResource.write.1.tlog +\\ccscc101\C06\DavAle06\Computing\Project Build\Nature Findings\Nature Findings\obj\x86\Release\Nature Findings.exe.manifest +\\ccscc101\C06\DavAle06\Computing\Project Build\Nature Findings\Nature Findings\obj\x86\Release\Nature Findings.application +\\ccscc101\C06\DavAle06\Computing\Project Build\Nature Findings\Nature Findings\obj\x86\Release\Nature Findings.exe +\\ccscc101\C06\DavAle06\Computing\Project Build\Nature Findings\Nature Findings\obj\x86\Release\Nature Findings.xml +\\ccscc101\C06\DavAle06\Computing\Project Build\Nature Findings\Nature Findings\obj\x86\Release\Nature Findings.pdb +L:\Project Build\Project Build\Nature Findings\Nature Findings\bin\Release\Nature Findings.exe.config +L:\Project Build\Project Build\Nature Findings\Nature Findings\obj\x86\Release\Nature Findings.exe +L:\Project Build\Project Build\Nature Findings\Nature Findings\obj\x86\Release\Nature Findings.xml +L:\Project Build\Project Build\Nature Findings\Nature Findings\obj\x86\Release\Nature Findings.pdb +G:\Project Build\Nature Findings\Nature Findings\bin\Release\Nature Findings.exe.config +G:\Project Build\Nature Findings\Nature Findings\obj\x86\Release\Nature Findings.exe +G:\Project Build\Nature Findings\Nature Findings\obj\x86\Release\Nature Findings.xml +G:\Project Build\Nature Findings\Nature Findings\obj\x86\Release\Nature Findings.pdb diff --git a/Nature Findings/Nature Findings/obj/x86/Release/Nature_Findings_System.Edit_Location.resources b/Nature Findings/Nature Findings/obj/x86/Release/Nature_Findings_System.Edit_Location.resources new file mode 100644 index 0000000..7cb9a9d Binary files /dev/null and b/Nature Findings/Nature Findings/obj/x86/Release/Nature_Findings_System.Edit_Location.resources differ diff --git a/Nature Findings/Nature Findings/obj/x86/Release/Nature_Findings_System.New_Location.resources b/Nature Findings/Nature Findings/obj/x86/Release/Nature_Findings_System.New_Location.resources new file mode 100644 index 0000000..306a21f Binary files /dev/null and b/Nature Findings/Nature Findings/obj/x86/Release/Nature_Findings_System.New_Location.resources differ diff --git a/Nature Findings/Nature Findings/obj/x86/Release/Nature_Findings_System.New_Species.resources b/Nature Findings/Nature Findings/obj/x86/Release/Nature_Findings_System.New_Species.resources new file mode 100644 index 0000000..91a19b3 Binary files /dev/null and b/Nature Findings/Nature Findings/obj/x86/Release/Nature_Findings_System.New_Species.resources differ diff --git a/Nature Findings/Nature Findings/obj/x86/Release/TempPE/My Project.Resources.Designer.vb.dll b/Nature Findings/Nature Findings/obj/x86/Release/TempPE/My Project.Resources.Designer.vb.dll new file mode 100644 index 0000000..e94ba24 Binary files /dev/null and b/Nature Findings/Nature Findings/obj/x86/Release/TempPE/My Project.Resources.Designer.vb.dll differ diff --git a/Nature Findings/Nature Findings/obj/x86/Release/TempPE/Nature_Findings_Database.Designer.vb.dll b/Nature Findings/Nature Findings/obj/x86/Release/TempPE/Nature_Findings_Database.Designer.vb.dll new file mode 100644 index 0000000..5a142f1 Binary files /dev/null and b/Nature Findings/Nature Findings/obj/x86/Release/TempPE/Nature_Findings_Database.Designer.vb.dll differ diff --git a/User Guide Screens.pub b/User Guide Screens.pub new file mode 100644 index 0000000..4e4c5db Binary files /dev/null and b/User Guide Screens.pub differ