mdlsystem.bas

Visual basic + sql server2000学员管理系统原代码

Attribute VB_Name = "MdlSystem"
Option Explicit

'存放登录时的用户名和密码
Public strUserName As String, strPassword As String

'intUserPermit = 权限PID标识,0 = 无权限,1 = 总部管理员,2 = 分部管理员
Public intUserPermit As Integer

'存放登录时的中心代码
Public strCenterCode As String

'MSFlexGrid控件的列数和行数
Public intCol As Long, intRow As Long

'GetColor函数返回值为颜色常数,设置本工程的整体背景效果
Public Function GetColor() As ColorConstants

GetColor = vbWhite
'常数      值         描述
'vbBlack   &H0        黑色
'vbRed     &HFF       红色
'vbGreen   &HFF00     绿色
'vbYellow  &HFFFF     黄色
'vbBlue    &HFF0000   兰色
'vbMagenta &HFF00FF   洋红
'vbCyan    &HFFFF00   青色
'vbWhite   &HFFFFFF   白色

End Function