cpublic.cls

对客户管理的系统 运行相应EXE文件前

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

Public Enum gxcSex
    Male = 0
    Female = 1
End Enum


Public Enum gxcDBType
  DBAccess = 0
  DBSQLServer = 1
End Enum

Public Enum gxcDelete
  DeleteOK = 0
  DeleteFail = 1
  DeleteSubExists = 2
  DeleteClientExists = 3
End Enum


Public Enum gxcUpdate
  UpdateOK = 0
  UpdateFail = 1
  DuplicateName_Update = 2
  RecordNotExist = 3
End Enum


Public Enum gxcAddNew
  AddNewOK = 0
  AddNewFail = 1
  DuplicateName_AddNew = 2
  SuperNotExist = 3
End Enum


Public Enum gxcWarnType
  BirthdayWarn = 1
  CommonWarn = 2
End Enum


Public Enum gxcViewType
  vtadd = 0
  vtModify = 1
  vtInfo = 2
End Enum