?? 主窗體.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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -