datamodelpublic.vb

来自「<Visual Basic 数据库开发实例精粹（第二版）>一书首先介」· VB 代码 · 共 56 行

'自定义枚举，用于表示性别
Public Enum dmSex
  Male = 0
  Female = 1
End Enum

'连接数据库的类型
Public Enum dmDBType
  DBAccess = 0
  DBSQLServer = 1
End Enum

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'以下枚举用于“客户类型”对象的操作

'用于表示客户类型删除结果的枚举
Public Enum dmDelete
  DeleteOK = 0
  DeleteFail = 1          '未知原因导致不能删除
  DeleteSubExists = 2     '由于存在子类型，因此不能删除
  DeleteClientExists = 3  '该客户类型存在客户，不能删除
End Enum

'用于表示客户类型更新结果的枚举
Public Enum dmUpdate
  UpdateOK = 0
  UpdateFail = 1
  DuplicateName_Update = 2  '名字不可重复
  RecordNotExist = 3        '当前更新的记录不存在
End Enum

'用于表示客户类型新增结果的枚举
Public Enum dmAddNew
  AddNewOK = 0
  AddNewFail = 1
  DuplicateName_AddNew = 2  '名字不可重复
  SuperNotExist = 3         '指定的上级客户类型的ID不存在
End Enum

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

'用于提醒类别设置
Public Enum dmWarnType
  BirthdayWarn = 1    '生日提醒
  CommonWarn = 2      '定时提醒
End Enum

'用于对话框显示类别设置
Public Enum dmViewType
  vtadd = 0       '添加信息
  vtModify = 1    '修改信息
  vtInfo = 2      '查看信息
End Enum