Value = m_oEmployee.Access.NetworkLevel
.Cells(m_lngNewRowNum, 23).Value = m_oEmployee.Access.RemoteYN
.Cells(m_lngNewRowNum, 24).Value = m_oEmployee.Access.ParkingSpot
End With
End Sub
Notice the syntax used to retrieve the cPerson object??™s internal Address, Equipment, and
Access object data:
m_oEmployee.Address.StreetAddress
m_oEmployee.Equipment.PCType
m_oEmployee.Access.Building
Using an object within an object gives you the flexibility of categorizing information
within your objects. Anyone familiar with object-relational database technologies, such as
InterSystems Cache (www.intersystems.com), may recognize this type of syntax.
nNote Object-oriented databases use objects rather than tables to represent data. If you??™re interested in
object-oriented programming techniques and haven??™t checked out this technology, I highly recommend you
do. InterSystems offers a free single-user download on its web site. Also, the online resource Wikipedia has
a good article on the subject at http://en.wikipedia.org/wiki/Object_database.
Managing the Wizard
We??™ll build two classes to help us manage our wizard application. The first is a very simple
class that will hold configuration data for each step. Then we??™ll create a class that will hold a
collection of these ???wizard step??? objects. This class will manage the operation of the wizard
process for us.
Insert a new class module and name it cStep. Add the following code:
Private m_iOrder As Integer
Private m_iPage As Integer
Private m_sCaption As String
Public Property Get Order() As Integer
Order = m_iOrder
End Property
Public Property Let Order(newOrder As Integer)
m_iOrder = newOrder
End Property
CHAPTER 4 n USERFORMS 172
Public Property Get Page() As Integer
Page = m_iPage
End Property
Public Property Let Page(newPage As Integer)
m_iPage = newPage
End Property
Public Property Get Caption() As String
Caption = m_sCaption
End Property
Public Property Let Caption(newCaption As String)
m_sCaption = newCaption
End Property
The HRWizard.
Pages:
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181