Find file
Fetching contributors…
Cannot retrieve contributors at this time
64 lines (53 sloc) 2.9 KB
Imports System.Data
Imports System.Data.OleDb
Public Class frmSurveyForm
Public accConnection As New OleDbConnection
Private Sub frmSurveyForm_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
'All this does, for now, is display the selected customer details.
'In the future, full survey details will be able to be entered by
'the user, however at this moment I cannot implement this due to
'time constraints, so it will be implemented in after-development.
'To show this to the user when he or she hunts around, there
'exists a placeholder text label that states that features are
'coming soon.
If frmLoginForm.accConnection.State <> ConnectionState.Open Then
End If
accConnection = frmLoginForm.accConnection
'Input customer name from the other form and attribute it to CN.
Dim cn As String = frmReportSurvey.txtcbReportSurvey.SelectedItem
Dim cmdString As String = "SELECT * FROM Customer WHERE cust_name = '" & cn & "'"
Dim accCommand As New OleDbCommand
Dim da As New OleDbDataAdapter(cmdString, accConnection)
Dim ds As New DataSet
da.Fill(ds, "Customer")
Dim dt As DataTable = ds.Tables(0)
Dim dr As DataRow '<- This is redundant.sss
'Populate the textboxes in the form with existing customer details.
'All the customer data text boxes are read-only to avoid data error:
'to edit those, edit the customer details directly, then come back.
'Populate the customer name textbox with the customer name
'from the other form, before getting info from db about others.
txtscn.Text = cn
If ds.Tables(0).Rows.Count <> 0 Then
cbsct.Text = ds.Tables(0).Rows(0).Item("cust_title")
txtscba.Text = ds.Tables(0).Rows(0).Item("cust_billaddress")
txtscbp.Text = ds.Tables(0).Rows(0).Item("cust_billpostcode")
txtscia.Text = ds.Tables(0).Rows(0).Item("cust_instaddress")
txtscip.Text = ds.Tables(0).Rows(0).Item("cust_instpostcode")
txtschtn.Text = ds.Tables(0).Rows(0).Item("cust_hometelno")
txtscmtn.Text = ds.Tables(0).Rows(0).Item("cust_mobtelno")
txtscmpan.Text = ds.Tables(0).Rows(0).Item("cust_mpan")
txtscea.Text = ds.Tables(0).Rows(0).Item("cust_email")
End If
accCommand.Connection = frmLoginForm.accConnection
accCommand.CommandType = CommandType.Text
accCommand.CommandText = cmdString
End Sub
Private Sub btnClose_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnClose.Click
End Sub
End Class