dimvb.bas

智能排课系统:支持双数据库,以最简单的操作完成智能的排课,支持EXECL和报表输出与打印功能,关于排课的管理还有一些也许还没有实现,需要大家给出意见和建议,作品将在以后开发基于各种学校的都可以使用的

Attribute VB_Name = "dimvb"
Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

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 server As String
Public loginname As String
Public password As String