Embedded Files
Parent Information Form
Imports System.Windows.Forms
Public Class frmParent
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim assist As Boolean
If rdbAssist.Checked = True Then
assist = True
Else
assist = False
End If
Try
PARENTTableAdapter.Insert(CStr(txtFirstName.Text), CStr(txtMiddleName.Text), CStr(txtLastName.Text), _
CDbl(txtHomePhone.Text), CStr(txtStreet.Text + " " + txtCity.Text + " " + txtState.Text + " " +
txtZip.Text), _
CStr(txtEmployer.Text), assist, CStr(rtxtAssistance.Text), CDbl(txtMobilePhone.Text), CDbl
(txtWorkPhone.Text), _
CStr(txtEmail.Text))
Me.PARENTTableAdapter.Fill(Me.ModelDataSet1.PARENT)
CHILDTableAdapter.Update(Me.DsModel.CHILD)
PARENTTableAdapter.Update(Me.ModelDataSet1.PARENT)
Catch ex As Exception
MessageBox.Show(ex.Message, "error")
End Try
Dim frm As New frmChildCheckIn
Me.Hide()
frm.ShowDialog()
End Sub
Private Sub frmParent_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
'TODO: This line of code loads data into the 'ModelDataSet1.PARENT' table. You can move, or remove it, as
needed.
Me.PARENTTableAdapter.Fill(Me.ModelDataSet1.PARENT)
End Sub
Private Sub frmParent_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs)
Handles Me.FormClosed
Form1.Show()
End Sub
Private Sub frmParent_Load_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'ModelDataSet1.PARENT' table. You can move, or remove it, as
needed.
Me.PARENTTableAdapter.Fill(Me.ModelDataSet1.PARENT)
'TODO: This line of code loads data into the 'DsModel.PARENT' table. You can move, or remove it, as needed.
Me.CHILDTableAdapter.Fill(Me.DsModel.CHILD)
'TODO: This line of code loads data into the 'ModelDataSet1.PARENT' table. You can move, or remove it, as
needed.
Me.PARENTTableAdapter.Fill(Me.ModelDataSet1.PARENT)
End Sub
End Class
Page updated
Google Sites
Report abuse