cpublic.cls

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 = "CPublic"
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 fygsbmDBType
  DBAccess = 0
  DBSQLServer = 1
End Enum

'以下枚举用于“费用归属部门”对象的操作

'用于表示费用归属部门信息删除结果的枚举
Public Enum fygsbmDelete
  '删除成功
  DeleteOK = 0
  '未知原因导致不能删除
  DeleteFail = 1
  '由于不存在该记录，因此不能删除
  DeleteNoExists = 2
End Enum

'用于表示费用归属部门信更新结果的枚举
Public Enum fygsbmUpdate
  '成功更新
  UpdateOK = 0
  '未知原因导致不能更新
  UpdateFail = 1
  '代码不能重复
  DuplicateDm_Update = 2
  '费用归属部门名称不能重复
  DuplicateGsbmmc_Update = 3
  '当前更新的记录不存在
  RecordNotExist = 4
End Enum

'用于表示费用归属部门信息新增结果的枚举
Public Enum fygsbmAddNew
   '成功添加
  AddNewOK = 0
  '未知原因导致不能添加
  AddNewFail = 1
  '部门代码不能重复
  DuplicateDm_AddNew = 2
  '部门名称不能重复
  DuplicateGsbmmc_AddNew = 3
End Enum

'用于表示费用归属部门信息查询结果的枚举
Public Enum fygsbmSearch
   '成功查询
  SearchOK = 0
  '未知原因导致不能查询
  SearchFail = 1
  '欲查询的部门代码不存在
  DmNotExist = 2
  '欲查询的部门名称不存在
  GsbmmcNotExist = 3
End Enum