Public Class FormMDI

Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click

Dim frm As New frmLogin

If frm.ShowDialog() = DialogResult.OK Then

Me.Cursor.Current = Cursors.WaitCursor

Me.StatusBar1.Text = "Connecting to " + Connection1.Database

Connection1.Database = frm.txtDatabase.Text

Connection1.Host = frm.txtHost.Text

Connection1.Port = frm.txtPort.Text

Connection1.User = frm.txtName.Text

Connection1.Password = frm.txtPassword.Text

If Connection1.open() Then

StatusBar1.Text = "Connected to " + Connection1.Database()

Else

StatusBar1.Text = "Could not connect to " + Connection1.Database

Dim connDB As New connDatabase

Select Case Connection1.Status

Case connDB.kDatabase_IllegalPassword, connDB.kDatabase_IllegalUser

MessageBox.Show("Illegal User Name or Password")

Case connDB.kDatabase_NoHost

MessageBox.Show("Host unreachable")

Case Else

MessageBox.Show("Connection Error")

End Select

End If

Me.Cursor.Current = Cursors.Default

End If

End Sub

Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click

Connection1.close()

End Sub

Private Sub MenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem5.Click

Me.Close()

End Sub

Private Sub MenuItem7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem7.Click

Dim frm As New frmCustomers

frm.MdiParent = Me

frm.Show()

End Sub

Private Sub MenuItem8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem8.Click

Dim frm As New frmCustomerList

frm.MdiParent = Me

frm.Show()

End Sub

Private Sub MenuItem9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem9.Click

Dim frm As New frmCustomerListUnbound

frm.MdiParent = Me

frm.Show()

End Sub

Private Sub MenuItem10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem10.Click

Dim frm As New frmOrders

frm.MdiParent = Me

frm.Show()

End Sub

End Class