企业管理

开发平台：

Visual Basic

clsDBbase.cls：源码内容

							VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsDBbase"
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"
Option Explicit
'保持属性值的局部变量
Private mvarID As Long '局部复制
Public Property Let ID(ByVal vData As Long)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.ID = 5
    mvarID = vData
End Property
Public Property Get ID() As Long
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.ID
    ID = mvarID
End Property
''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 函数名：AddNew
' 功能：向数据库中添加元素
' 参数：无
' 返回值：gxcAddNew
' 说明：需要先向类中属性赋值
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Function AddNew() As gxcAddNew
End Function
''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 函数名：Update
' 功能：更新数据库
' 参数：无
' 返回值：gxcUpdate
' 说明：需要先向类中属性赋值
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Function Update() As gxcUpdate
End Function
''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 函数名：Delete
' 功能：从数据库中删除当前的ID
' 参数：无
' 返回值：gxcDelete
' 说明：需要先向类中属性赋值
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Function Delete(Optional lngID As Long = -1) As gxcDelete
End Function
''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 函数名：DeleteEx
' 功能：向数据库中添加元素
' 参数：无
' 返回值：gxcDelete
' 说明：需要先向类中属性赋值
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Function DeleteEx() As gxcDelete
End Function

						