frmmain.vb

这个是本人写的题库系统,开发工具是vb.net.试题编辑,试卷编辑,可以在word中编辑试题.由于时间关系,很多功能需要细化.

Public Class frmmain
    Inherits System.Windows.Forms.Form
    Dim mynode As TreeNode = Nothing
#Region " Windows 窗体设计器生成的代码 "

    Public Sub New()
        MyBase.New()

        '该调用是 Windows 窗体设计器所必需的。
        InitializeComponent()

        '在 InitializeComponent() 调用之后添加任何初始化

    End Sub

    '窗体重写 dispose 以清理组件列表。
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Windows 窗体设计器所必需的
    Private components As System.ComponentModel.IContainer

    '注意: 以下过程是 Windows 窗体设计器所必需的
    '可以使用 Windows 窗体设计器修改此过程。
    '不要使用代码编辑器修改它。
    Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu
    Friend WithEvents mi_sysmanage As System.Windows.Forms.MenuItem
    Friend WithEvents mi_login As System.Windows.Forms.MenuItem
    Friend WithEvents mi_usermanage As System.Windows.Forms.MenuItem
    Friend WithEvents mi_modifypwd As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem7 As System.Windows.Forms.MenuItem
    Friend WithEvents mi_dataimport As System.Windows.Forms.MenuItem
    Friend WithEvents mi_dataexport As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem9 As System.Windows.Forms.MenuItem
    Friend WithEvents mi_exitsys As System.Windows.Forms.MenuItem
    Friend WithEvents mi_objmanage As System.Windows.Forms.MenuItem
    Friend WithEvents mi_knowlegman As System.Windows.Forms.MenuItem
    Friend WithEvents mi_objedit As System.Windows.Forms.MenuItem
    Friend WithEvents mi_objtypeedit As System.Windows.Forms.MenuItem
    Friend WithEvents mi_testmanage As System.Windows.Forms.MenuItem
    Friend WithEvents mi_prodbymanu As System.Windows.Forms.MenuItem
    Friend WithEvents mi_prodbyauto As System.Windows.Forms.MenuItem
    Friend WithEvents mi_testdb As System.Windows.Forms.MenuItem
    Friend WithEvents mi_selsubj As System.Windows.Forms.MenuItem
    Friend WithEvents mi_selsubjitem As System.Windows.Forms.MenuItem
    Friend WithEvents mi_help As System.Windows.Forms.MenuItem
    Friend WithEvents mi_helpitem As System.Windows.Forms.MenuItem
    Friend WithEvents mi_aboutme As System.Windows.Forms.MenuItem
    Friend WithEvents stab_frmmain As System.Windows.Forms.StatusBar
    Friend WithEvents stabpopname As System.Windows.Forms.StatusBarPanel
    Friend WithEvents stabnum As System.Windows.Forms.StatusBarPanel
    Friend WithEvents stabtime As System.Windows.Forms.StatusBarPanel
    Friend WithEvents imgl_tv As System.Windows.Forms.ImageList
    Friend WithEvents mi_windows As System.Windows.Forms.MenuItem
    Friend WithEvents mi_pingpu As System.Windows.Forms.MenuItem
    Friend WithEvents mi_cuizhi As System.Windows.Forms.MenuItem
    Friend WithEvents mi_congdie As System.Windows.Forms.MenuItem
    Friend WithEvents Panel1 As System.Windows.Forms.Panel
    Friend WithEvents tv_opmenu As System.Windows.Forms.TreeView
    Friend WithEvents Splitter1 As System.Windows.Forms.Splitter
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container
        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmmain))
        Me.MainMenu1 = New System.Windows.Forms.MainMenu
        Me.mi_sysmanage = New System.Windows.Forms.MenuItem
        Me.mi_login = New System.Windows.Forms.MenuItem
        Me.mi_usermanage = New System.Windows.Forms.MenuItem
        Me.mi_modifypwd = New System.Windows.Forms.MenuItem
        Me.MenuItem7 = New System.Windows.Forms.MenuItem
        Me.mi_dataimport = New System.Windows.Forms.MenuItem
        Me.mi_dataexport = New System.Windows.Forms.MenuItem
        Me.MenuItem9 = New System.Windows.Forms.MenuItem
        Me.mi_exitsys = New System.Windows.Forms.MenuItem
        Me.mi_objmanage = New System.Windows.Forms.MenuItem
        Me.mi_knowlegman = New System.Windows.Forms.MenuItem
        Me.mi_objedit = New System.Windows.Forms.MenuItem
        Me.mi_objtypeedit = New System.Windows.Forms.MenuItem
        Me.mi_testmanage = New System.Windows.Forms.MenuItem
        Me.mi_prodbymanu = New System.Windows.Forms.MenuItem
        Me.mi_prodbyauto = New System.Windows.Forms.MenuItem
        Me.mi_testdb = New System.Windows.Forms.MenuItem
        Me.mi_selsubj = New System.Windows.Forms.MenuItem
        Me.mi_selsubjitem = New System.Windows.Forms.MenuItem
        Me.mi_windows = New System.Windows.Forms.MenuItem
        Me.mi_pingpu = New System.Windows.Forms.MenuItem
        Me.mi_cuizhi = New System.Windows.Forms.MenuItem
        Me.mi_congdie = New System.Windows.Forms.MenuItem
        Me.mi_help = New System.Windows.Forms.MenuItem
        Me.mi_helpitem = New System.Windows.Forms.MenuItem
        Me.mi_aboutme = New System.Windows.Forms.MenuItem
        Me.stab_frmmain = New System.Windows.Forms.StatusBar
        Me.stabpopname = New System.Windows.Forms.StatusBarPanel
        Me.stabnum = New System.Windows.Forms.StatusBarPanel
        Me.stabtime = New System.Windows.Forms.StatusBarPanel
        Me.imgl_tv = New System.Windows.Forms.ImageList(Me.components)
        Me.Panel1 = New System.Windows.Forms.Panel
        Me.tv_opmenu = New System.Windows.Forms.TreeView
        Me.Splitter1 = New System.Windows.Forms.Splitter
        CType(Me.stabpopname, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.stabnum, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.stabtime, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.Panel1.SuspendLayout()
        Me.SuspendLayout()
        '
        'MainMenu1
        '
        Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mi_sysmanage, Me.mi_objmanage, Me.mi_testmanage, Me.mi_selsubj, Me.mi_windows, Me.mi_help})
        '
        'mi_sysmanage
        '
        Me.mi_sysmanage.Index = 0
        Me.mi_sysmanage.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mi_login, Me.mi_usermanage, Me.mi_modifypwd, Me.MenuItem7, Me.mi_dataimport, Me.mi_dataexport, Me.MenuItem9, Me.mi_exitsys})
        Me.mi_sysmanage.Shortcut = System.Windows.Forms.Shortcut.CtrlS
        Me.mi_sysmanage.Text = "系统管理"
        '
        'mi_login
        '
        Me.mi_login.Index = 0
        Me.mi_login.Text = "系统登陆"
        '
        'mi_usermanage
        '
        Me.mi_usermanage.Enabled = False
        Me.mi_usermanage.Index = 1
        Me.mi_usermanage.Text = "用户注册"
        '
        'mi_modifypwd
        '
        Me.mi_modifypwd.Enabled = False
        Me.mi_modifypwd.Index = 2
        Me.mi_modifypwd.Text = "密码更改"
        '
        'MenuItem7
        '
        Me.MenuItem7.Index = 3
        Me.MenuItem7.Text = "-"
        '
        'mi_dataimport
        '
        Me.mi_dataimport.Enabled = False
        Me.mi_dataimport.Index = 4
        Me.mi_dataimport.Text = "数据导入"
        Me.mi_dataimport.Visible = False
        '
        'mi_dataexport
        '
        Me.mi_dataexport.Enabled = False
        Me.mi_dataexport.Index = 5
        Me.mi_dataexport.Text = "数据导出"
        Me.mi_dataexport.Visible = False
        '
        'MenuItem9
        '
        Me.MenuItem9.Index = 6
        Me.MenuItem9.Text = "-"
        Me.MenuItem9.Visible = False
        '
        'mi_exitsys
        '
        Me.mi_exitsys.Index = 7
        Me.mi_exitsys.Text = "退出系统"
        '
        'mi_objmanage
        '
        Me.mi_objmanage.Index = 1
        Me.mi_objmanage.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mi_knowlegman, Me.mi_objedit, Me.mi_objtypeedit})
        Me.mi_objmanage.Shortcut = System.Windows.Forms.Shortcut.CtrlO
        Me.mi_objmanage.Text = "试题管理"
        Me.mi_objmanage.Visible = False
        '
        'mi_knowlegman
        '
        Me.mi_knowlegman.Index = 0
        Me.mi_knowlegman.Text = "知识点设置"
        '
        'mi_objedit
        '
        Me.mi_objedit.Index = 1
        Me.mi_objedit.Text = "试题编辑"
        '
        'mi_objtypeedit
        '
        Me.mi_objtypeedit.Index = 2
        Me.mi_objtypeedit.Text = "题型设置"
        '
        'mi_testmanage
        '
        Me.mi_testmanage.Index = 2
        Me.mi_testmanage.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mi_prodbymanu, Me.mi_prodbyauto, Me.mi_testdb})
        Me.mi_testmanage.Shortcut = System.Windows.Forms.Shortcut.CtrlT
        Me.mi_testmanage.Text = "试卷管理"
        Me.mi_testmanage.Visible = False
        '
        'mi_prodbymanu
        '
        Me.mi_prodbymanu.Index = 0
        Me.mi_prodbymanu.Text = "手工出卷"
        '
        'mi_prodbyauto
        '
        Me.mi_prodbyauto.Index = 1
        Me.mi_prodbyauto.Text = "自动出卷"
        Me.mi_prodbyauto.Visible = False
        '
        'mi_testdb
        '
        Me.mi_testdb.Index = 2
        Me.mi_testdb.Text = "试卷库"
        '
        'mi_selsubj
        '
        Me.mi_selsubj.Index = 3
        Me.mi_selsubj.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mi_selsubjitem})
        Me.mi_selsubj.Shortcut = System.Windows.Forms.Shortcut.CtrlI
        Me.mi_selsubj.Text = "选择科目"
        Me.mi_selsubj.Visible = False
        '
        'mi_selsubjitem
        '
        Me.mi_selsubjitem.Index = 0
        Me.mi_selsubjitem.Text = "选择科目"
        '
        'mi_windows
        '
        Me.mi_windows.Index = 4
        Me.mi_windows.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mi_pingpu, Me.mi_cuizhi, Me.mi_congdie})
        Me.mi_windows.Text = "窗口"
        Me.mi_windows.Visible = False
        '
        'mi_pingpu
        '
        Me.mi_pingpu.Index = 0
        Me.mi_pingpu.Text = "平铺"
        '
        'mi_cuizhi
        '
        Me.mi_cuizhi.Index = 1
        Me.mi_cuizhi.Text = "垂直"
        '
        'mi_congdie
        '
        Me.mi_congdie.Index = 2
        Me.mi_congdie.Text = "层叠"
        '
        'mi_help
        '
        Me.mi_help.Index = 5
        Me.mi_help.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mi_helpitem, Me.mi_aboutme})
        Me.mi_help.Shortcut = System.Windows.Forms.Shortcut.CtrlH
        Me.mi_help.Text = "帮助"
        '
        'mi_helpitem
        '
        Me.mi_helpitem.Index = 0
        Me.mi_helpitem.Text = "目录"
        '
        'mi_aboutme
        '
        Me.mi_aboutme.Index = 1
        Me.mi_aboutme.Text = "关于翼清测试题库软件"
        '
        'stab_frmmain
        '
        Me.stab_frmmain.Location = New System.Drawing.Point(0, 395)
        Me.stab_frmmain.Name = "stab_frmmain"
        Me.stab_frmmain.Panels.AddRange(New System.Windows.Forms.StatusBarPanel() {Me.stabpopname, Me.stabnum, Me.stabtime})
        Me.stab_frmmain.ShowPanels = True
        Me.stab_frmmain.Size = New System.Drawing.Size(696, 22)
        Me.stab_frmmain.TabIndex = 1
        '
        'stabpopname
        '
        Me.stabpopname.Style = System.Windows.Forms.StatusBarPanelStyle.OwnerDraw
        Me.stabpopname.Width = 200
        '
        'imgl_tv
        '
        Me.imgl_tv.ImageSize = New System.Drawing.Size(30, 30)
        Me.imgl_tv.ImageStream = CType(resources.GetObject("imgl_tv.ImageStream"), System.Windows.Forms.ImageListStreamer)
        Me.imgl_tv.TransparentColor = System.Drawing.Color.Transparent
        '
        'Panel1
        '
        Me.Panel1.Controls.Add(Me.tv_opmenu)
        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Left
        Me.Panel1.Location = New System.Drawing.Point(0, 0)
        Me.Panel1.Name = "Panel1"
        Me.Panel1.Size = New System.Drawing.Size(256, 395)
        Me.Panel1.TabIndex = 8
        Me.Panel1.Visible = False
        '
        'tv_opmenu
        '
        Me.tv_opmenu.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                    Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.tv_opmenu.BackColor = System.Drawing.Color.Teal
        Me.tv_opmenu.Font = New System.Drawing.Font("楷体_GB2312", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.tv_opmenu.ForeColor = System.Drawing.Color.Yellow
        Me.tv_opmenu.ImageList = Me.imgl_tv
        Me.tv_opmenu.ItemHeight = 34
        Me.tv_opmenu.Location = New System.Drawing.Point(0, 0)
        Me.tv_opmenu.Name = "tv_opmenu"
        Me.tv_opmenu.Size = New System.Drawing.Size(256, 395)
        Me.tv_opmenu.TabIndex = 6
        '
        'Splitter1
        '
        Me.Splitter1.BackColor = System.Drawing.Color.BlueViolet
        Me.Splitter1.Location = New System.Drawing.Point(256, 0)
        Me.Splitter1.Name = "Splitter1"
        Me.Splitter1.Size = New System.Drawing.Size(3, 395)
        Me.Splitter1.TabIndex = 9
        Me.Splitter1.TabStop = False
        '
        'frmmain
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.BackColor = System.Drawing.SystemColors.ControlLight
        Me.BackgroundImage = CType(resources.GetObject("$this.BackgroundImage"), System.Drawing.Image)
        Me.ClientSize = New System.Drawing.Size(696, 417)
        Me.Controls.Add(Me.Splitter1)
        Me.Controls.Add(Me.Panel1)
        Me.Controls.Add(Me.stab_frmmain)
        Me.ForeColor = System.Drawing.Color.ForestGreen
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.IsMdiContainer = True
        Me.Menu = Me.MainMenu1
        Me.Name = "frmmain"
        Me.Text = "翼清测试题库系统"
        Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
        CType(Me.stabpopname, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.stabnum, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.stabtime, System.ComponentModel.ISupportInitialize).EndInit()
        Me.Panel1.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region
    Public Function OpenOnce(ByVal frm As Form) As Boolean
        Dim mdifrm As Form
        For Each mdifrm In Me.MdiChildren
            If frm.Text = mdifrm.Text Then
                mdifrm.Activate()
                Return False