主窗体2.vb

来自「银行帐户管理系统」· VB 代码 · 共 31 行

Public Class 主窗体2

    Private Sub 主窗体2_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
        开户一.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
        定期查询.MdiParent = Me
        定期查询.Show()
    End Sub

    Private Sub 退出ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 退出ToolStripMenuItem.Click
        Me.Close()

    End Sub
End Class