Attribute VB_Name = "dimvb"
Public nknumber As Integer '每天的課數目
Public hang, hang1, ne1 As Integer
Public kctable As String '當前操作表
Public numberkc As Integer '表列數
Public kcsave As Boolean
Public kcedit As Boolean
Public kcdel As Boolean
Public kcreturn As Boolean '設置是否可返回狀態
Public n As Integer '當前數據允許排列行數
Public vde As Boolean '確定當前是否為未生成課程表狀態
Public dkyesno As Boolean '當前是否課程表顯示狀態，是否能執行調課菜單
Public jehang, jene As Integer
Public admin As Boolean
Public KeyWord As String '查詢關鍵字
Public VersionN As String '當前版本號
Public NEW_VersionN As String '新版本號
Public UPIP As String '升級服務器IP
Public UPURL As String '升級文件路徑
Public UPlist As String '升級文件說明路徑
Public EXIT_UP As Boolean '是否跳過了升級
Public Msgboxstr1 As String '提示不允許操作
Public FileName As String '升級文件名與路徑
Public filesize As Double '文件大小
Public UPboolean As Boolean '是否已經結束文件的發送
Public bAppend As Boolean '是否新文件，用于提交到判斷