generalfunc.vb

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

Module generalfunc
    Public Function MakeStr(ByVal Str As String) As String
        MakeStr = Trim(Replace(Str, "'", "''"))
    End Function
   
    Public Function InsertTreeNode(ByVal tmptv As TreeView, ByVal tmpstr As String) As TreeNode
        If Trim(tmpstr) = "" Then
            Return Nothing
        Else
            Return tmptv.Nodes.Add(Trim(tmpstr))
        End If
    End Function
    Public Function In_Single(ByVal KeyAscii As Integer) As Boolean
        Dim Ch_Accept_Single(20) As String
        Dim i As Integer
        '可以接受的字符数组
        Ch_Accept_Single(0) = "0"
        Ch_Accept_Single(1) = "1"
        Ch_Accept_Single(2) = "2"
        Ch_Accept_Single(3) = "3"
        Ch_Accept_Single(4) = "4"
        Ch_Accept_Single(5) = "5"
        Ch_Accept_Single(6) = "6"
        Ch_Accept_Single(7) = "7"
        Ch_Accept_Single(8) = "8"
        Ch_Accept_Single(9) = "9"
        Ch_Accept_Single(10) = "."
        Ch_Accept_Single(11) = "-"
        Ch_Accept_Single(12) = Chr(8)
        '检查输入字符是否在数组中
        In_Single = False
        For i = 0 To 12
            If Chr(KeyAscii) = Ch_Accept_Single(i) Then
                In_Single = True
            End If
        Next
    End Function

    Public Function In_Int(ByVal KeyAscii As Integer) As Boolean
        Dim Ch_Accept_Int(20) As String
        '可以接受的字符数组
        Ch_Accept_Int(0) = "0"
        Ch_Accept_Int(1) = "1"
        Ch_Accept_Int(2) = "2"
        Ch_Accept_Int(3) = "3"
        Ch_Accept_Int(4) = "4"
        Ch_Accept_Int(5) = "5"
        Ch_Accept_Int(6) = "6"
        Ch_Accept_Int(7) = "7"
        Ch_Accept_Int(8) = "8"
        Ch_Accept_Int(9) = "9"
        Ch_Accept_Int(10) = Chr(8)
        '检查输入字符是否在数组中
        In_Int = False
        Dim i As Integer
        For i = 0 To 10
            If Chr(KeyAscii) = Ch_Accept_Int(i) Then
                In_Int = True
            End If
        Next
    End Function
    Public Sub EnterTAB(ByVal KeyAscii As Integer)
        If KeyAscii = 13 Then '13表示回车键
            SendKeys.Send("{TAB}")    '转换为TAB键
        End If
    End Sub
    Public Sub LoadMyOPerator(ByVal tmpnode As TreeNode, ByVal tmpuser As CUsers)
        Dim node(3) As TreeNode

        node(0) = New TreeNode("系统管理")
        node(0).ImageIndex = 1
        node(0).SelectedImageIndex = 1

        Dim nodearr(6) As TreeNode
        nodearr(0) = New TreeNode("选择科目")
        nodearr(0).ImageIndex = 4
        nodearr(0).SelectedImageIndex = 4
        node(0).Nodes.Add(nodearr(0))

        If IsAdmin(tmpuser) Then
            nodearr(1) = New TreeNode("用户注册")
            nodearr(1).ImageIndex = 5
            nodearr(1).SelectedImageIndex = 5
            node(0).Nodes.Add(nodearr(1))

            'nodearr(3) = New TreeNode("数据导入")
            ' nodearr(3).ImageIndex = 7
            ' nodearr(3).SelectedImageIndex = 7
            'node(0).Nodes.Add(nodearr(3))

            'nodearr(4) = New TreeNode("数据导出")
            'nodearr(4).ImageIndex = 8
            'nodearr(4).SelectedImageIndex = 8
            'node(0).Nodes.Add(nodearr(4))
        End If

        nodearr(2) = New TreeNode("密码更改")
        nodearr(2).ImageIndex = 6
        nodearr(2).SelectedImageIndex = 6
        node(0).Nodes.Insert(1, nodearr(2))

        nodearr(5) = New TreeNode("退出系统")
        nodearr(5).ImageIndex = 9
        nodearr(5).SelectedImageIndex = 9
        node(0).Nodes.Add(nodearr(5))

        node(1) = New TreeNode("试题管理")
        node(1).ImageIndex = 2
        node(1).SelectedImageIndex = 2

        Dim nodearrobj(3) As TreeNode

        nodearrobj(0) = New TreeNode("知识点设置")
        nodearrobj(0).ImageIndex = 10
        nodearrobj(0).SelectedImageIndex = 10
        node(1).Nodes.Add(nodearrobj(0))

        nodearrobj(1) = New TreeNode("试题编辑")
        nodearrobj(1).ImageIndex = 11
        nodearrobj(1).SelectedImageIndex = 11
        node(1).Nodes.Add(nodearrobj(1))

        nodearrobj(2) = New TreeNode("题型设置")
        nodearrobj(2).ImageIndex = 12
        nodearrobj(2).SelectedImageIndex = 12
        node(1).Nodes.Add(nodearrobj(2))

        node(2) = New TreeNode("试卷管理")
        node(2).ImageIndex = 3
        node(2).SelectedImageIndex = 3

        Dim nodearrtest(3) As TreeNode
        nodearrtest(0) = New TreeNode("手工出卷")
        nodearrtest(0).ImageIndex = 13
        nodearrtest(0).SelectedImageIndex = 13
        node(2).Nodes.Add(nodearrtest(0))

        'nodearrtest(1) = New TreeNode("自动出卷")
        'nodearrtest(1).ImageIndex = 14
        'nodearrtest(1).SelectedImageIndex = 14
        'node(2).Nodes.Add(nodearrtest(1))

        nodearrtest(2) = New TreeNode("试卷库")
        nodearrtest(2).ImageIndex = 15
        nodearrtest(2).SelectedImageIndex = 15
        node(2).Nodes.Add(nodearrtest(2))
        Dim i As Integer = 0

        For i = 0 To 2
            tmpnode.Nodes.Add(node(i))
        Next i
    End Sub
    Public Function IsAdmin(ByVal tmpuser As CUsers) As Boolean '读取用户操作权限
        If tmpuser.UserType = "操作员" Then
            Return False
        Else
            Return True
        End If
    End Function
    Public Function GetMemoString(ByVal tmpobj As Object) As String 'RTF类型转化为数据库类型
        Dim tmpstr As Object
        Dim s As String
        Dim Context As String = ""
        tmpstr = tmpobj
        Do While (Len(tmpstr)) > 0
            s = MakeStr(Microsoft.VisualBasic.Left(tmpstr, 100))
            If Len(tmpstr) - 100 > 0 Then
                tmpstr = Microsoft.VisualBasic.Right(tmpstr, Len(tmpstr) - 100)
            Else
                tmpstr = ""
            End If
            Context = Context & s
        Loop
        Return Context
    End Function
    Public Function GetMemoStringAndPROG(ByVal tmpobj As Object, ByVal tmpprb As ProgressBar) As String 'RTF类型转化为数据库类型
        Dim tmpstr As Object
        Dim s As String
        Dim Context As String = ""
        tmpstr = tmpobj
        tmpprb.Minimum = 0
        tmpprb.Maximum = Int(Len(tmpstr) / 100) + 1
        Do While (Len(tmpstr)) > 0
            s = MakeStr(Microsoft.VisualBasic.Left(tmpstr, 100))
            tmpprb.PerformStep()
            If Len(tmpstr) - 100 > 0 Then
                tmpstr = Microsoft.VisualBasic.Right(tmpstr, Len(tmpstr) - 100)
            Else
                tmpstr = ""
            End If
            Context = Context & s
        Loop
        Return Context
    End Function
    Public Function GetRowIndex(ByVal tmpset As DataSet, ByVal tmprow As DataRow) As Integer
        Dim i As Integer = 0
        Dim myrow As DataRow
        For Each myrow In tmpset.Tables(0).Rows
            If myrow Is tmprow Then
                Exit For
            Else
                i = i + 1
            End If
        Next
        Return i
    End Function

End Module