clspublic.cls

<Visual Basic 数据库开发实例精粹（第二版）>一书首先介绍了Visual Basic(简称VB)开发的技巧和重点技术

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsPublic"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Option Explicit
'=======================================================
'以下枚举用于对象的操作结果
'用于表示添加记录的枚举
Public Enum gxcAddNew
  AddNewOK = 0                '添加成功
  AddNewFail = 1              '未知原因导致添加失败
  RecordNotExist_AddNew = 2   '当前添加的记录某字段值不存在（数据库外键冲突）
  DuplicateName_AddNew = 3    '名字不可重复（违反数据库唯一约束）
End Enum

'用于表示更新记录的枚举
Public Enum gxcUpdate
  UpdateOK = 0                '更新成功
  UpdateFail = 1              '未知原因导致更新失败
  RecordNotExist_Update = 2   '当前更新的记录不存在
  DuplicateName_Update = 3    '名字不可重复（违反数据库唯一约束）
End Enum

'用于表示删除记录的枚举
Public Enum gxcDelete
  DeleteOK = 0                '删除成功
  DeleteFail = 1              '未知原因导致删除失败
  RecordNotExist_Delete = 2   '当前删除的记录不存在
  DeleteNotAllowed = 3        '不允许删除（数据库外键冲突）
End Enum
'=======================================================

'=======================================================
'以下枚举用于用户登录结果
'用于描述用户登录结果的枚举
Public Enum gxcLoginResult
  DBError = 0           '数据库连接错误
  ValidUser = 1         '合法用户
  WrongUserName = 2     '用户名错误
  WrongPassword = 3     '密码错误
End Enum
'=======================================================