frmmain.vb

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

                Exit Function
            End If
        Next
        Return True
    End Function
    Private Sub frmmain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        HaveLoadOp = False
        CheckSelSub = False
        OpSubjt.Initials()
        OpenLogin(Me)
    End Sub

    Private Sub frmmain_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Resize
        Me.stab_frmmain.Panels(1).Width = 100
        Me.stab_frmmain.Panels(2).Width = 100
        Me.stab_frmmain.Panels(0).Width = 400
    End Sub


    Private Sub frmmain_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        If MsgBox("您真的要退出翼清考试管理系统吗?", _
    MsgBoxStyle.YesNo + MsgBoxStyle.Question, "退出系统") _
    = MsgBoxResult.Yes Then
            Application.Exit()
        Else
            e.Cancel = True
        End If
    End Sub

    Private Sub mi_login_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mi_login.Click
        OpenLogin(Me)
    End Sub

    Private Sub mi_exitsys_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mi_exitsys.Click
        Me.Close()
    End Sub

    Private Sub frmmain_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.GotFocus
        If LogInsuccess = False Then
            mi_objmanage.Visible = False
            mi_selsubj.Visible = False
            mi_testmanage.Visible = False
            mi_usermanage.Enabled = False
            mi_modifypwd.Enabled = False
            mi_dataimport.Enabled = False
            mi_dataexport.Enabled = False
            mi_windows.Visible = False
            tv_opmenu.Visible = False
            Splitter1.Visible = False
        Else
            If HaveLoadOp Then
                Dim tmpnode As TreeNode
                tmpnode = tv_opmenu.Nodes.Add(CurUser.UserType & "[" & CurUser.UserName & "]")
                tmpnode.ImageIndex = 0
                tmpnode.SelectedImageIndex = 0
                LoadMyOPerator(tmpnode, CurUser)
                tv_opmenu.ExpandAll()
                HaveLoadOp = False
            End If

            If OpSubjt.SubjectID <= 0 Then
                If CheckSelSub = False Then
                    CheckSelSub = True
                    OpenSelSubjt(Me)
                End If
            End If
            If IsAdmin(CurUser) = True Then
                mi_login.Enabled = False
                mi_objmanage.Visible = True
                mi_selsubj.Visible = True
                mi_testmanage.Visible = True
                mi_usermanage.Enabled = True
                mi_modifypwd.Enabled = True
                mi_dataimport.Enabled = True
                mi_dataexport.Enabled = True
                tv_opmenu.Visible = True
                Splitter1.Visible = True
            Else
                mi_login.Enabled = False
                mi_objmanage.Visible = True
                mi_selsubj.Visible = True
                mi_testmanage.Visible = True
                mi_usermanage.Enabled = False
                mi_modifypwd.Enabled = True
                mi_dataimport.Enabled = False
                mi_dataexport.Enabled = False
                tv_opmenu.Visible = True
                Splitter1.Visible = True
            End If
            Me.Text = "翼清测试题库系统--当前用户[ " & CurUser.UserName & " ]--当前科目[ " & OpSubjt.SubjectName & " ]"
            mi_windows.Visible = True
            Panel1.Visible = True
        End If
    End Sub

    Private Sub mi_aboutme_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mi_aboutme.Click
        Dim fmaboutme As New frmaboutme
        If OpenOnce(fmaboutme) Then
            fmaboutme.MdiParent = Me
            fmaboutme.Show()
        End If
    End Sub

    Private Sub mi_modifypwd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mi_modifypwd.Click
        OpenChangePwd(Me)
    End Sub
    Public Sub OpenMenu(ByVal tmpstr As String, ByVal fm As Form)
        If tmpstr = "" Then
            Exit Sub
        End If
        If tmpstr = CurUser.UserType & "[" & CurUser.UserName & "]" Then
            Exit Sub
        End If
        If tmpstr = "选择科目" Then
            OpenSelSubjt(fm)
            Exit Sub
        End If
        If tmpstr = "用户注册" Then
            OpenUserMan(fm)
            Exit Sub
        End If
        If tmpstr = "数据导入" Then
            OpenDataImport(fm)
            Exit Sub
        End If
        If tmpstr = "数据导出" Then
            OpenDataExport(fm)
            Exit Sub
        End If
        If tmpstr = "密码更改" Then
            OpenChangePwd(fm)
            Exit Sub
        End If
        If tmpstr = "退出系统" Then
            Me.Close()
            Exit Sub
        End If
        If tmpstr = "试题编辑" Then
            OpenObjectMan(fm)
            Exit Sub
        End If
        If tmpstr = "知识点设置" Then
            OpenKnowlegMan(fm)
            Exit Sub
        End If
        If tmpstr = "题型设置" Then
            OpenObjectType(fm)
            Exit Sub
        End If
        If tmpstr = "手工出卷" Then
            OpenProdByMan(fm)
            Exit Sub
        End If
        If tmpstr = "自动出卷" Then
            OpenProdByAuto(fm)
            Exit Sub
        End If
        If tmpstr = "试卷库" Then
            OpenTestDB(fm)
            Exit Sub
        End If
    End Sub

    Public Sub OpenChangePwd(ByVal fm As Form)    '密码更改
        Dim fmchengepwd As New frmchangepwd
        If OpenOnce(fmchengepwd) Then
            fmchengepwd.MdiParent = fm
            fmchengepwd.Show()
        End If
    End Sub
    Public Sub OpenLogin(ByVal fm As Form)    '用户登陆
        Dim fmlogin As New frmlogin
        If OpenOnce(fmlogin) Then
            fmlogin.MdiParent = fm
            fmlogin.Show()
        End If
    End Sub
    Public Sub OpenDataExport(ByVal fm As Form)      '数据导出
        Dim fmDataExport As New frmdataexport
        If OpenOnce(fmDataExport) Then
            fmDataExport.MdiParent = fm
            fmDataExport.Show()
        End If
    End Sub
    Public Sub OpenUserMan(ByVal fm As Form)    '用户注册
        Dim fmuserman As New frmUserman
        If OpenOnce(fmuserman) Then
            fmuserman.MdiParent = fm
            fmuserman.Show()
        End If
    End Sub
    Public Sub OpenObjectMan(ByVal fm As Form)    '试题编辑
        If OpSubjt.SubjectID <= 0 Then
            MsgBox("请您选择当前操作科目", MsgBoxStyle.Exclamation, "翼清测试题库系统V1.0")
            Exit Sub
        End If
        Dim fmobject As New frmobject
        If OpenOnce(fmobject) Then
            fmobject.MdiParent = fm
            fmobject.Show()
        End If
    End Sub
    Public Sub OpenSelSubjt(ByVal fm As Form)     '选择科目
        Dim fmselsubj As New frmselSubj
        If OpenOnce(fmselsubj) Then
            fmselsubj.MdiParent = fm
            fmselsubj.Show()
        End If
    End Sub
    Public Sub OpenTestDB(ByVal fm As Form)    '试卷库
        If OpSubjt.SubjectID <= 0 Then
            MsgBox("请您选择当前操作科目", MsgBoxStyle.Exclamation, "翼清测试题库系统V1.0")
            Exit Sub
        End If
        Dim fmtestdb As New frmtestdb
        If OpenOnce(fmtestdb) Then
            fmtestdb.MdiParent = fm
            fmtestdb.Show()
        End If
    End Sub
    Public Sub OpenProdByAuto(ByVal fm As Form)    '自动出卷
        Dim fmtestinfo As New frmtestInfo
        If OpenOnce(fmtestinfo) Then
            fmtestinfo.MdiParent = fm
            fmtestinfo.Show()
        End If

        If ProductTest Then
            Dim fmprodbyauto As New frmprodbyauto
            If OpenOnce(fmprodbyauto) Then
                fmprodbyauto.MdiParent = fm
                fmprodbyauto.Show()
            End If
        End If
    End Sub
    Public Sub OpenProdByMan(ByVal fm As Form)     '手工出卷
        Dim fmtestinfo As New frmtestInfo
        If OpenOnce(fmtestinfo) Then
            fmtestinfo.MdiParent = fm
            fmtestinfo.Show()
        End If
        If ProductTest Then
            Dim fmprodbyman As New frmprodbyman
            If OpenOnce(fmprodbyman) Then
                fmprodbyman.MdiParent = fm
                fmprodbyman.Show()
            End If
        End If
    End Sub
    Public Sub OpenObjectType(ByVal fm As Form)      '题型设置
        Dim fmobjecttype As New frmobjectman
        If OpenOnce(fmobjecttype) Then
            fmobjecttype.MdiParent = fm
            fmobjecttype.Show()
        End If
    End Sub
    Public Sub OpenKnowlegMan(ByVal fm As Form)    '知识点设置
        Dim fmknowleg As New frmknowlegeman
        If OpenOnce(fmknowleg) Then
            fmknowleg.MdiParent = fm
            fmknowleg.Show()
        End If
    End Sub
    Public Sub OpenDataImport(ByVal fm As Form)    '数据导入
        Dim fmDataimport As New frmdataimport
        If OpenOnce(fmDataimport) Then
            fmDataimport.MdiParent = fm
            fmDataimport.Show()
        End If
    End Sub

    Private Sub mi_usermanage_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mi_usermanage.Click, mi_modifypwd.Click, _
            mi_aboutme.Click, mi_dataexport.Click, mi_dataimport.Click, mi_exitsys.Click, mi_knowlegman.Click, _
            mi_login.Click, mi_objedit.Click, mi_objmanage.Click, mi_objtypeedit.Click, mi_prodbyauto.Click, mi_prodbymanu.Click, mi_selsubj.Click, _
            mi_selsubjitem.Click, mi_testdb.Click, mi_usermanage.Click
        Dim tmpmenuitem As MenuItem
        Dim tmpstr As String
        tmpstr = ""
        If sender Is mi_usermanage Then
            tmpmenuitem = sender
            tmpstr = tmpmenuitem.Text
        End If
        If sender Is mi_modifypwd Then
            tmpmenuitem = sender
            tmpstr = tmpmenuitem.Text
        End If
        If sender Is mi_aboutme Then
            tmpmenuitem = sender
            tmpstr = tmpmenuitem.Text
        End If
        If sender Is mi_dataexport Then
            tmpmenuitem = sender
            tmpstr = tmpmenuitem.Text
        End If
        If sender Is mi_dataimport Then
            tmpmenuitem = sender
            tmpstr = tmpmenuitem.Text
        End If
        If sender Is mi_exitsys Then
            tmpmenuitem = sender
            tmpstr = tmpmenuitem.Text
        End If
        If sender Is mi_knowlegman Then
            tmpmenuitem = sender
            tmpstr = tmpmenuitem.Text
        End If
        If sender Is mi_login Then
            tmpmenuitem = sender
            tmpstr = tmpmenuitem.Text
        End If
        If sender Is mi_objedit Then
            tmpmenuitem = sender
            tmpstr = tmpmenuitem.Text
        End If
        If sender Is mi_objmanage Then
            tmpmenuitem = sender
            tmpstr = tmpmenuitem.Text
        End If
        If sender Is mi_objtypeedit Then
            tmpmenuitem = sender
            tmpstr = tmpmenuitem.Text
        End If
        If sender Is mi_prodbyauto Then
            tmpmenuitem = sender
            tmpstr = tmpmenuitem.Text
        End If
        If sender Is mi_prodbymanu Then
            tmpmenuitem = sender
            tmpstr = tmpmenuitem.Text
        End If
        If sender Is mi_selsubjitem Then
            tmpmenuitem = sender
            tmpstr = tmpmenuitem.Text
        End If
        If sender Is mi_testdb Then
            tmpmenuitem = sender
            tmpstr = tmpmenuitem.Text
        End If
        OpenMenu(tmpstr, Me)
    End Sub

    Private Sub tv_opmenu_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles tv_opmenu.MouseDown
        tv_opmenu.SelectedNode = tv_opmenu.GetNodeAt(e.X, e.Y)
        If tv_opmenu.SelectedNode Is Nothing Then
            Exit Sub
        Else
            OpenMenu(tv_opmenu.SelectedNode.Text, Me)
        End If
    End Sub

End Class