publicdef.bas

一个用VB6.0开发的简单餐会管理系统。在WIN2K

Attribute VB_Name = "PublicDef"

'''''''''''''''''''''
''''''静态值申明
Public Const JP_SET_NUM_YES = 1      'YES为1,
Public Const JP_SET_NUM_NO = 0       'NO为0
Public Const JP_SET_CH_YES = "是"
Public Const JP_SET_CN_NO = "否"
Public Const JP_SET_NUM_FEMALE = 1   '女姓为1,男性为0
Public Const JP_SET_NUM_MALE = 0
Public Const JP_SET_CH_FEMALE = "女"
Public Const JP_SET_CH_MALE = "男"
Public Const JP_SET_NUM_ADD = -1        '新增为0
Public Const JP_SET_NUM_FIN = -2
'Public Const JP_SET_NUM_CHG = 1     '修改为1

Public Const JP_VERSION = "版本号：  VER1.8"

'''''''''''''''''''''
''''用户结构
Public Type UserStru
    sUserName As String
'    sUserPaw As String
    sUserLev As String
End Type
Public tyUserStru As UserStru          '用户变量


'''''''''''''''''''''''
''''职级设定变量
Public Const JP_SET_USER_LEVEL1 = 1     '接待员
Public Const JP_SET_USER_LEVEL2 = 2     'ARM
Public Const JP_SET_USER_LEVEL3 = 3     'AM
Public Const JP_SET_USER_LEVEL4 = 4     'DM
Public Const JP_SET_USER_LEVEL5 = 5     'IT
Public Const JP_SET_USER_LCN1 = "接待员"
Public Const JP_SET_USER_LCN2 = "店经理"
Public Const JP_SET_USER_LCN3 = "AM"
Public Const JP_SET_USER_LCN4 = "DM"
Public Const JP_SET_USER_LCN5 = "IT"
Public Const JP_SET_USER_DJS = 5   '等级数量
Public Const JP_SET_USER_ON = 1     '是否使用该权限
Public Const JP_SET_USER_OFF = 0
Public strJPsetUserArray(JP_SET_USER_DJS) As Integer    '0代表不设置，1代表设置

'''''''''''''''''''''''''
'''''提醒对话框定义
Public Const JP_TX_ITEMCOUNT = 2           '提醒栏目数量
Public Const JP_TX_ITEM1 = 1               '"餐会预订信息"
Public Const JP_TX_ITEM2 = 2               '"最近生日信息"
Public Const JP_TX_ITEM3 = 3               '"基本资料信息"
Public Const JP_TX_ITEM4 = 4               '"完成生日餐会信息"

'''''''''''''''''''''''
''''''公共变量
'Public strSelNameId As Integer       '-1为空

'''''''''''''''''''''''''
''''''''''查询框
Public Const JP_SET_MBVIEW_COLS = 12        '基本表列数
Public Const JP_SET_MFVIEW_COLS = 18


Public Const JP_PRINT_FINISH = "打印完成"     ''打印完成