dimvb.bas

排课系统

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 '是否新文件，用于提交到判断