主窗体.vb

银行帐户管理系统

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