User756459238 posted
Protected Sub IDLookupButton_Click(ByVal sender As Object, ByVal e As EventArgs)
' This module will attempt to lookup the student record from the table _FDMembers
' If a record is found, that information will be placed in the Web page.
' The user can only accept the information or clear it.
' The student cannot update thier information in this portion of the program,
' since it is unsecured, except for the email at the bottom
Try
Dim MessageLabel As New Label
MessageLabel = CType(FormView1.FindControl("Messagelabel"), Label)
Dim ID As New TextBox
ID = CType(FormView1.FindControl("IDtextbox"), TextBox)
Dim StudentID As String
StudentID = ID.Text.ToString
Dim Orgdropdown As New DropDownList
Orgdropdown = CType(FormView1.FindControl("OrgDropDownList"), DropDownList)
Dim OrgPlaceholder As New PlaceHolder
OrgPlaceholder = CType(FormView1.FindControl("OrgPlaceholder"), PlaceHolder)
Dim Orgtextbox As New TextBox
Orgtextbox = CType(FormView1.FindControl("Orgtextbox"), TextBox)
Dim FirstTextbox As New TextBox
FirstTextbox = CType(FormView1.FindControl("Firsttextbox"), TextBox)
Dim LastTextbox As New TextBox
LastTextbox = CType(FormView1.FindControl("Lasttextbox"), TextBox)
Dim AddressTextbox As New TextBox
AddressTextbox = CType(FormView1.FindControl("Addresstextbox"), TextBox)
Dim CityTextbox As New TextBox
CityTextbox = CType(FormView1.FindControl("Citytextbox"), TextBox)
Dim StateTextbox As New TextBox
StateTextbox = CType(FormView1.FindControl("Statetextbox"), TextBox)
Dim ZipTextBox As New TextBox
ZipTextBox = CType(FormView1.FindControl("ZipTextbox"), TextBox)
Dim ContactNumberTextbox As New TextBox
ContactNumberTextbox = CType(FormView1.FindControl("ContactNumbertextbox"), TextBox)
Dim DOBTextbox As New TextBox
DOBTextbox = CType(FormView1.FindControl("DOBtextbox"), TextBox)
Dim EMailTextbox As New TextBox
EMailTextbox = CType(FormView1.FindControl("EMailtextbox"), TextBox)
Dim ShowRegisteredbutton As Button
ShowRegisteredbutton = CType(FormView1.FindControl("ShowRegisteredbutton"), Button)
Dim DBConnection As New Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=|DataDirectory|vwd.mdb")
Dim SelectString As String
Dim DBConnection2 As New Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=|DataDirectory|StudentInfo.mdb")
Session("OrgID") = Nothing
Session("OrgName") = Nothing
Orgdropdown.SelectedValue = "00000"
FirstTextbox.Text = Nothing
LastTextbox.Text = Nothing
DOBTextbox.Text = Nothing
AddressTextbox.Text = Nothing
CityTextbox.Text = Nothing
StateTextbox.Text = Nothing
ZipTextBox.Text = Nothing
ContactNumberTextbox.Text = Nothing
EMailTextbox.Text = Nothing
Session("StudentID") = StudentID
Session("IDtextbox") = ID.Text.ToString
' Lookup ID in FDMembers table, if found, autofill registration form
DBConnection.Open()
SelectString = "SELECT * FROM [_FDMembers] Where [StudentID] = ?"
Dim DBCommand As Data.OleDb.OleDbCommand = New Data.OleDb.OleDbCommand(SelectString, DBConnection)
DBCommand.Parameters.Add("@p1", Data.OleDb.OleDbType.VarChar).Value = StudentID
Dim DBReader As Data.OleDb.OleDbDataReader = DBCommand.ExecuteReader(Data.CommandBehavior.Default)
If DBReader.HasRows Then
While DBReader.Read()
If DBReader("OrgID") = "99999" Then
' Other Org
OrgPlaceholder.Visible = True
Orgtextbox.Text = DBReader("Organization")
Else
Orgtextbox.Text = Nothing
OrgPlaceholder.Visible = False
End If
Orgdropdown.SelectedValue = DBReader("OrgID").ToString
Session("OrgID") = DBReader("OrgID").ToString
Session("OrgName") = DBReader("Organization").ToString
Orgtextbox.Text = Session("OrgName")
FirstTextbox.Text = DBReader("FirstName").ToString
Session("Firstname") = DBReader("FirstName").ToString
LastTextbox.Text = DBReader("LastName").ToString
Session("Lastname") = DBReader("LastName").ToString
DOBTextbox.Text = FormatDateTime(DBReader("DOB"), DateFormat.ShortDate)
Session("DOB") = FormatDateTime(DBReader("DOB"), DateFormat.ShortDate)
AddressTextbox.Text = DBReader("HomeAddress").ToString
Session("Address") = DBReader("HomeAddress").ToString
CityTextbox.Text = DBReader("HomeCity").ToString
Session("City") = DBReader("HomeCity").ToString
StateTextbox.Text = DBReader("HomeState").ToString
Session("State") = DBReader("HomeState").ToString
ZipTextBox.Text = DBReader("HomeZip").ToString
Session("Zip") = DBReader("HomeZip").ToString
ContactNumberTextbox.Text = DBReader("ContactNumber").ToString
Session("Contact") = DBReader("ContactNumber").ToString
EMailTextbox.Text = DBReader("EMail").ToString
Session("Email") = DBReader("EMail").ToString
MessageLabel.Text = "Verify the information below refers to you. Update as needed, then click the Register button."
MessageLabel.Visible = True
Orgdropdown.Enabled = True
FirstTextbox.ReadOnly = True
LastTextbox.ReadOnly = True
DOBTextbox.ReadOnly = True
AddressTextbox.Enabled = True
CityTextbox.Enabled = True
StateTextbox.Enabled = True
ZipTextBox.Enabled = True
ContactNumberTextbox.Enabled = True
If Not Session("OrgName") = "" Then
ShowRegisteredbutton.Visible = True
End If
End While
Else
' StudentID not found
MessageLabel.Text = "No match found for the ID entered. " _
& "Select HELP button for more info on the StudentID. After filling-in all text boxes, select the REGISTER button."
MessageLabel.Visible = True
' Hide the button which hides the ID info message if its visible
Dim InfoPlaceholder As New PlaceHolder
InfoPlaceholder = CType(FormView1.FindControl("InfoPlaceHolder"), PlaceHolder)
InfoPlaceholder.Visible = True
End If
'-- Close the data reader and database connection
DBReader.Close()
DBConnection.Close()
Catch ex As Exception
'MsgBox(ex.ToString)
Dim Errstr As String = ex.Message.ToString()
' Send an email to the programmer so this error can be resolved.
Dim ErrMsg As String
ErrMsg = "Error in Course Register in IDLookupButton_Click. The Student " & Session("StudentID") & ":"
ErrMsg = ErrMsg & " registering for the Course "
ErrMsg = ErrMsg & Session("CourseName") & " caused an exception error on " & Now() & "."
ErrMsg = ErrMsg & vbCrLf & Errstr
NotifyProgrammerOfError(ErrMsg)
End Try
End Sub
