Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Tree: f4b2a2a311
Fetching contributors…

Cannot retrieve contributors at this time

40 lines (34 sloc) 1.483 kB
Public Class frmRemove
Private Sub frmRemove_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
'Check if the database connection is breathing.
'If it isn't, resuscitate it. :-)
If frmLoginForm.accConnection.State <> ConnectionState.Open Then
frmLoginForm.accConnection.Open()
End If
cbtxtRemoveOptions.Items.Add("Customer")
cbtxtRemoveOptions.Items.Add("Supplier")
cbtxtRemoveOptions.Items.Add("Component")
End Sub
Private Sub btnShow_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnShow.Click
'According to the option selected, display the next form and hide
'this one.
If cbtxtRemoveOptions.Text = "Customer" Then
Me.Hide()
frmRemoveCustomer.Show()
ElseIf cbtxtRemoveOptions.Text = "Supplier" Then
Me.Hide()
frmRemoveSupplier.Show()
ElseIf cbtxtRemoveOptions.Text = "Component" Then
Me.Hide()
frmRemoveComponent.Show()
End If
End Sub
Private Sub btnClose_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnClose.Click
'Close this window and show the main menu.
Me.Close()
frmMainMenu.Show()
End Sub
End Class
Jump to Line
Something went wrong with that request. Please try again.