mainform.vb

这是本人设计的一个软件

        'ToolBarButton1
        '
        Me.ToolBarButton1.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
        '
        'Tbb_in
        '
        Me.Tbb_in.ImageIndex = 1
        Me.Tbb_in.Text = "录入"
        Me.Tbb_in.ToolTipText = "数据录入"
        '
        'Tbb_modi
        '
        Me.Tbb_modi.ImageIndex = 2
        Me.Tbb_modi.Text = "维护"
        Me.Tbb_modi.ToolTipText = "数据的修改和删除"
        '
        'ToolBarButton2
        '
        Me.ToolBarButton2.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
        '
        'Tbb_cx
        '
        Me.Tbb_cx.ImageIndex = 3
        Me.Tbb_cx.Text = "查询"
        Me.Tbb_cx.ToolTipText = "根据确定的条件查询"
        '
        'Tbb_tree
        '
        Me.Tbb_tree.ImageIndex = 4
        Me.Tbb_tree.Text = "浏览"
        Me.Tbb_tree.ToolTipText = "使用树视图进行浏览"
        '
        'ToolBarButton3
        '
        Me.ToolBarButton3.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
        '
        'Tbb_note
        '
        Me.Tbb_note.ImageIndex = 5
        Me.Tbb_note.Text = "记事本"
        '
        'Tbb_cal
        '
        Me.Tbb_cal.ImageIndex = 7
        Me.Tbb_cal.Text = "计算器"
        '
        'ToolBarButton4
        '
        Me.ToolBarButton4.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
        '
        'Tbb_exit
        '
        Me.Tbb_exit.ImageIndex = 6
        Me.Tbb_exit.Text = "退出"
        '
        'mainform
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(456, 301)
        Me.Controls.Add(Me.ToolBar1)
        Me.IsMdiContainer = True
        Me.Menu = Me.MainMenu1
        Me.Name = "mainform"
        Me.Text = "mainform"
        Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
        Me.ResumeLayout(False)

    End Sub

#End Region

#Region "工具菜单点击"

    Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
        If e.Button Is Tbb_exit Then
            Menuexit.PerformClick()
        End If
        If e.Button Is TBB_sys Then
            menu_ssxx.PerformClick()
        End If
        If e.Button Is Tbb_note Then
            menutool_note.PerformClick()
        End If
        If e.Button Is Tbb_cal Then
            menutool_cal.PerformClick()
        End If
        If e.Button Is Tbb_in Then
            menudat_inter.PerformClick()
        End If
        If e.Button Is Tbb_modi Then
            menudat_modi.PerformClick()
        End If
        If e.Button Is Tbb_cx Then
            menuinf_tj.PerformClick()
        End If
        If e.Button Is Tbb_tree Then
            menuinf_tree.PerformClick()
        End If
    End Sub
#End Region

#Region "菜单上的退出"

    Private Sub Menuexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Menuexit.Click
        If MsgBox("您确认要退出吗?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
            Application.Exit()
        End If
    End Sub

#End Region

#Region "多文档界面的三种状态(平铺、水平、垂直)"

    Private Sub menuwin_pp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuwin_pp.Click
        Me.LayoutMdi(MdiLayout.TileVertical)  '水平
    End Sub

    Private Sub menuwin_sp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuwin_sp.Click
        Me.LayoutMdi(MdiLayout.Cascade) '平铺
    End Sub

    Private Sub menuwin_cz_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuwin_cz.Click
        Me.LayoutMdi(MdiLayout.TileHorizontal)   '垂直
    End Sub


#End Region

#Region "记事本调用"

    Private Sub menutool_note_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menutool_note.Click
        Shell("notepad.EXE", AppWinStyle.NormalFocus)  '属于系统工具调用,注意调用格式
    End Sub

#End Region

#Region "计算器调用"

    Private Sub menutool_cal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menutool_cal.Click
        Shell("CALC.EXE", AppWinStyle.NormalFocus)     '同记事本调用一样,均属于系统工具调用
    End Sub

#End Region

    Private Sub mainform_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Menuwin.MdiList = True  '打开的多文档的名称将陈列在“窗口”菜单项下
    End Sub

    '---------------调出界面部分-------------
#Region "调出人员管理界面"
    '调出人员管理界面
    Private Sub menudat_inter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menudat_inter.Click
        Dim ryxx As New 人员管理
        ryxx.MdiParent = Me
        ryxx.Show()
    End Sub

#End Region

#Region "调出人员修改界面"

    Private Sub menudat_modi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menudat_modi.Click
        Dim ryxg As New 修改
        ryxg.MdiParent = Me
        ryxg.Show()
    End Sub

#End Region

#Region "调出宿舍管理界面"
    '在多文档界面中调出宿舍管理界面
    Private Sub menu_ssxx_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menu_ssxx.Click

        Dim ssxx As New 宿舍管理
        ssxx.MdiParent = Me
        ssxx.Show()

    End Sub
#End Region

#Region "调出查询界面"
    '在多文档界面中调出查询界面
    Private Sub menuinf_tj_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuinf_tj.Click
        Dim cx As New 查询
        cx.MdiParent = Me
        cx.Show()
    End Sub
#End Region

#Region "调出浏览界面"

    Private Sub menuinf_tree_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles menuinf_tree.Click
        Dim ll As New 浏览
        ll.MdiParent = Me
        ll.Show()
    End Sub

#End Region

    '-------------调出界面部分结束------------



    '    Try
  
    '    Catch ex As Exception
    '        MsgBox("对不起,不能删除该用户")
    '    End Try

    '-----------这个try语句值得再深入研究一下啊-----------------------

    '删除的话准备采用单独文本框校验
    '但是那样就必须能读出来数据
    '比如说上下引用里的那样
    '上来就读取
    '所以可以考虑把这段代码放到  上下引用  里面去试试
    '要么就在这个框的基础上加一个  数据表格 
    '因为至少要知道被删除的人的ID
    '这就是以后的事情了



End Class