VB Example 5

Work Examples

Home Return Next Example Previous ExampleCert/Awards Courses About

VB Example 5

Child Query Form

Public Class FormChildQuery

Private Sub btnGo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGo.Click

Me.CHILDTableAdapter.Fill(Me.DsFindChild.CHILD, txtLastName.Text)

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Me.Hide()

frmQuery.Show()

End Sub

Private Sub CloseToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

CloseToolStripMenuItem.Click

Me.Close()

frmQuery.Show()

End Sub

Private Sub ParentToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

ParentToolStripMenuItem.Click

Me.Hide()

Dim frm As New frmSearchParent

frm.ShowDialog()

End Sub

Private Sub FormChildQuery_FormClosed(ByVal sender As Object, ByVal e As

System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed

frmQuery.Show()

End Sub

Private Sub SearchByToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

SearchByToolStripMenuItem.Click

End Sub

Private Sub MedicalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

MedicalToolStripMenuItem.Click

Me.Hide()

Dim frm As New frmSearchMedical

frm.ShowDialog()

End Sub

Private Sub CheckinToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles

CheckinToolStripMenuItem.Click

Me.Hide()

Dim frm As New frmSearchCheckIn

frm.ShowDialog()

End Sub

End Class