variable.vb

来自「这个是本人写的题库系统,开发工具是vb.net.试题编辑,试卷编辑,可以在wor」· VB 代码 · 共 45 行

Module variable
    Public LogInsuccess As Boolean = False
    Public HaveLoadOp As Boolean = False
    Public CheckSelSub As Boolean = False
    Public ProductTest As Boolean = False
    '系统实体对象 Cur开头表示当前实体，My开头表示操作实体
    Public OBJQueryDbset As DataSet

    Public CurUser As New CUsers
    Public MyUser As New CUsers

    Public CurChp As New CChapters
    Public MyChp As New CChapters

    Public CurKnow As New CKnowlegs
    Public MyKnow As New CKnowlegs

    Public CurObjt As New CObjectDetails
    Public MyObjt As New CObjectDetails

    Public CurObjtType As New CObjectTypes
    Public MyObjtType As New CObjectTypes

    Public CurObjKD As New CObjectKnowDetails
    Public MyobjKD As New CObjectKnowDetails

    Public CurSubjt As New CSubjects
    Public OpSubjt As New CSubjects
    Public MySubjt As New CSubjects

    Public CurTestDeta As New CTestDetails
    Public MyTestDeta As New CTestDetails

    Public CurTest As New CTests
    Public MyTest As New CTests

    Public CurTestType As New CTestTypeDetails
    Public MyTestType As New CTestTypeDetails

    Public MyTestCon As New CTestContexts

    Public MyTestRes As New CTestResults

End Module