VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "CPublic"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit
'該類無實(shí)際意義，只為保存一些自定義枚舉

'自定義枚舉，用于表示性別
Public Enum gxcSex
    Male = 0
    Female = 1
End Enum

'連接數(shù)據(jù)庫的類型
Public Enum gxcDBType
  DBAccess = 0
  DBSQLServer = 1
End Enum

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'以下枚舉用于“客戶類型”對象的操作

'用于表示客戶類型刪除結(jié)果的枚舉
Public Enum gxcDelete
  DeleteOK = 0
  DeleteFail = 1          '未知原因?qū)е虏荒軇h除
  DeleteSubExists = 2     '由于存在子類型，因此不能刪除
  DeleteClientExists = 3  '該客戶類型存在客戶，不能刪除
End Enum

'用于表示客戶類型更新結(jié)果的枚舉
Public Enum gxcUpdate
  UpdateOK = 0
  UpdateFail = 1
  DuplicateName_Update = 2  '名字不可重復(fù)
  RecordNotExist = 3        '當(dāng)前更新的記錄不存在
End Enum

'用于表示客戶類型新增結(jié)果的枚舉
Public Enum gxcAddNew
  AddNewOK = 0
  AddNewFail = 1
  DuplicateName_AddNew = 2  '名字不可重復(fù)
  SuperNotExist = 3         '指定的上級客戶類型的ID不存在
End Enum

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'用于提醒類別設(shè)置
Public Enum gxcWarnType
  BirthdayWarn = 1          '生日提醒
  CommonWarn = 2            '定時(shí)提醒
End Enum

'用于對話框顯示類別設(shè)置
Public Enum gxcViewType
  vtadd = 0                 '添加信息
  vtModify = 1              '修改信息
  vtInfo = 2                '查看信息
End Enum