百货/超市行业

开发平台：

Visual Basic

clsPublic.cls：源码内容

							VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 1  'vbDataSource
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsPublic"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
'****************************************************************************
'人人为我，我为人人
'枕善居收藏整理
'发布日期：2008/01/21
'描    述：汽车维修管理系统SQL2000版
'网    站：http://www.Mndsoft.com/  (VB6源码博客)
'网    站：http://www.VbDnet.com/   (VB.NET源码博客,主要基于.NET2005)
'e-mail  ：Mndsoft@163.com
'e-mail  ：Mndsoft@126.com
'OICQ    ：88382850
'          如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************
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         '指定的上级客户类型的ID不存在
End Enum
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'用于提醒类别设置
Public Enum gxcWarnType
  BirthdayWarn = 1          '生日提醒
  CommonWarn = 2            '定时提醒
End Enum
'用于对话框显示类别设置
Public Enum gxcViewType
  vtadd = 0                 '添加信息
  vtModify = 1              '修改信息
  vtinfo = 2                '查看信息
End Enum

						