掌握VBAccess编程：创建类、属性与方法

掌握VBAccess编程：创建类、属性与方法

背景简介

在VBAccess编程中，创建类模块是一种将数据和功能封装在一起的有效方式。通过类模块，可以创建对象来执行特定任务，从而提高代码的可重用性和组织性。本文将详细介绍如何在VBAccess中创建类、定义其属性和方法，并通过实例展示如何将这些对象实例化。

创建类模块

在添加和重命名类模块之后，下一步是声明将存储在自定义对象中的数据的变量。类变量称为数据成员，并使用Private关键字声明。Private关键字隐藏数据成员，防止应用程序的其他部分直接引用它们。只有在类模块内部的程序才能修改这些变量的值。

声明类成员

例如，CEmployee类对象将具有ID、FirstName、LastName和Salary属性。以下是CEmployee类模块中的声明行：

Option Explicit
Private m_LastName As String
Private m_FirstName As String
Private m_Salary As Currency
Private m_ID As String

定义属性过程

属性过程有三种类型：Property Get、Property Let和Property Set。这些过程用于获取或设置对象属性的值。例如，Property Get过程可以返回对象的姓氏：

Property Get LastName() As String
   LastName = m_LastName
End Property

创建Property Let过程

除了获取属性值，还应创建Property Let过程以允许其他程序更改这些值。例如，设置员工的姓氏：

Property Let LastName(L As String)
   m_LastName = L
End Property

创建类方法

类方法是对象可以执行的动作，可以操纵存储在类对象中的数据。例如，一个计算新薪水的方法：

Public Function CalcNewSalary(choice As Integer, curSalary As Currency, amount As Long) As Currency
   Select Case choice
     Case 1
       CalcNewSalary = curSalary + ((curSalary * amount) / 100)
     Case 2
       CalcNewSalary = curSalary + amount
   End Select
End Function

创建类的实例

在类模块中为VBA数据库应用程序创建了所有必要的属性获取、属性设置、子程序或函数程序后，就可以根据所创建的新类创建对象了。对象变量必须在标准模块中声明以存储对象的引用。例如，创建CEmployee类的一个新实例：

Dim emp As New CEmployee

通过这种方式，可以创建多个对象实例，每个对象都是具有不同属性的独立实体。

总结与启发

通过本文的学习，您应该能够理解VBAccess中类的创建、属性和方法的定义以及对象的实例化。类与对象的区别在于，类是模板，对象是根据类创建的实例。掌握了这些概念和技巧，您将能够创建可重用、组织良好的组件，以提高开发效率和程序质量。

在未来的编程实践中，建议您尝试创建自己的类，并在实际项目中应用它们。这不仅能加深对类、属性和方法的理解，还能提升您的编程能力。此外，探索不同的类设计和属性访问控制（如Public和Private），将有助于您设计更为健壮和灵活的软件系统。