dimvb.bas

VB 设计的排课管理系统,轻松解决排课难的问题！

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