?? cpublic.cls
字號:
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
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -