* Следующий пример создает пользовательское имя класса Employee.
* После того как класс Employee был создан с помощью CREATEOBJECT( ),
* структура WITH ... ENDWITH используется для установки нескольких
* свойств для класса. Затем отображаются значения свойств.

moemployee = CREATEOBJECT('employee')

WITH moemployee

.First_Name = 'John'

.Last_Name = 'Smith'

.Address = '16 Maple Lane'

.HireDate = {02/16/95}

ENDWITH

CLEAR

? moemployee.First_Name + ' '

?? moemployee.Last_Name

? moemployee.Address

? moemployee.HireDate

DEFINE CLASS employee AS CUSTOM

First_Name = SPACE(20)

Last_Name = SPACE(20)

Address = SPACE(30)

HireDate = { \ \ }

ENDDEFINE