modpub.bas

通用书店管理系统

Attribute VB_Name = "modPub"
Option Explicit
Public Const strSysName = "书店管理系统" ' 系统名称，用于权限管理等
Public Const strVer = "3.0.7" '系统版本号
Public Const blnOmitCent As Boolean = True  ' 系统参数。销售时是否舍弃分位

Public cN As New ADODB.Connection '与服务器数据库连接
Public strDBFile As String  ' 数据库文件路径
Public strPWD As String     ' 数据库密码
Public strDBString As String  ' 与服务器数据库的ADO连接串

'Public blnLoginOK  ' 是否登录成功
Public blnChangPwdOK As Boolean ' 修改口令是否成功
Public strUserName As String '操作员代号
Public strUserTrueName As String ' 操作员名称
Public strUserPasswd As String ' 用户密码
Public strCompanyName As String ' 书店名称
 
Public strDate As Date '传递服务器时间
Public strFind As String '树型视图查询条件
Public strSql As String '传递SQL语句
Public strStorage As String '库区名称
Public blnRoundSelect As Boolean '查询时是否回绕
Public blnMatchSelect As Boolean '查询时是否全字匹配

'Public CurrentOperator As String  ' 当前操作员
'Public CurrentPassword As String  ' 当前口令

'--------------常量定义--------------
Public Const gColor_LockedText = &HE0FFFF            '锁定文本框的颜色
Public Const gColor_NormalText = &HFFFFFF            '一般文本框的颜色
Public Const gColor_GridTitle = &HF0E18C              '标题列的颜色




'全局枚举变量，用于确定编辑状态
Public Enum ModifyMode
    ModNormal
    modadd
    modEdit
    modBrowsing
End Enum