Public Class 主窗體
    Dim result As String

    Private Sub 存款ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 存款ToolStripMenuItem1.Click
        定期存款.MdiParent = Me
        定期存款.Show()

    End Sub

    Private Sub 取款ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 取款ToolStripMenuItem1.Click
        定期取款.MdiParent = Me
        定期取款.Show()

    End Sub

    Private Sub 查詢ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 查詢ToolStripMenuItem1.Click
        定期查詢.MdiParent = Me
        定期查詢.Show()

    End Sub

    Private Sub 退出ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 退出ToolStripMenuItem.Click
        result = MessageBox.Show("確定退出系統？", "系統提示", MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation)
        If result = Windows.Forms.DialogResult.Yes Then
            Me.Close()
        End If

    End Sub

    Private Sub 開戶ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 開戶ToolStripMenuItem1.Click
        定期開戶.MdiParent = Me
        定期開戶.Show()

    End Sub

    Private Sub 開戶ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 開戶ToolStripMenuItem.Click
        開戶一.MdiParent = Me
        開戶一.Show()
    End Sub

    Private Sub 刪除用戶ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 刪除用戶ToolStripMenuItem.Click
        刪除用戶.MdiParent = Me
        刪除用戶.Show()
    End Sub

    Private Sub 添加用戶ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 添加用戶ToolStripMenuItem.Click
        添加用戶.MdiParent = Me
        添加用戶.Show()
    End Sub

    Private Sub 修改密碼ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 修改密碼ToolStripMenuItem.Click
        修改密碼.MdiParent = Me
        修改密碼.Show()
    End Sub

    Private Sub 存款ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 存款ToolStripMenuItem.Click
        存款.MdiParent = Me
        存款.Show()
    End Sub

    Private Sub 取款ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 取款ToolStripMenuItem.Click
        取款.MdiParent = Me
        取款.Show()
    End Sub

    Private Sub 查詢ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 查詢ToolStripMenuItem.Click
        查詢.MdiParent = Me
        查詢.Show()
    End Sub

    Private Sub 利率ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 利率ToolStripMenuItem.Click
        Form1.MdiParent = Me
        Form1.Show()
    End Sub

    Private Sub 主窗體_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub 掛失ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 掛失ToolStripMenuItem.Click
        掛失1.MdiParent = Me
        掛失1.Show()
    End Sub

    Private Sub 解掛ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 解掛ToolStripMenuItem.Click
        解掛一.MdiParent = Me
        解掛一.Show()
    End Sub

    Private Sub 注銷用戶ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 注銷用戶ToolStripMenuItem.Click
        Me.Close()


        登陸.Show()
    End Sub

    
    Private Sub DingToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DingToolStripMenuItem.Click
        定期帳戶刪除.MdiParent = Me
        定期帳戶刪除.Show()
    End Sub

    Private Sub 注銷帳戶ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 注銷帳戶ToolStripMenuItem.Click
        活期注銷用戶.MdiParent = Me
        活期注銷用戶.Show()
    End Sub
End Class