W ITH...ENDWITH 命 令

指定对象的多个属性

语 法

W ITH Ob jectName

[. cStatements ] ENDWITH

参 数 描 述

Ob jectName

指 定 对 象 名 ObjectName 可 以 是 对 象 名 或 者 对 象 引 用

.cStatements

该 参 数 可 以 由 大 量 的 V isualFoxPro 命 令 组 成 这 些 命 令 用 来 指 定 ObjectName

的 属 性 在 cStatement 之 前 加 一 个 点 号 表 明 它 为 ObjectName 的 属 性

说 明

WITH...ENDWITH 提供了 为 单个对象指定多个属性的方便途径注意 也可以在 WITH...ENDWITH 结构中执行方法

示 例

下面的示例创建了一个自定义的类名 Employee 用 CREATEOBJECT() 创建了类

Employee 后 WITH...ENDWITH 可用来为该类设置多个属性 然后显示属性值

moemployee=CREATEOBJECT('employee')

WITH moemployee

.First_Name='John'

.Last_Name='Smith'

.Address='16MapleLane'

.HireDate={^1998-02-16}

ENDWITH

CLEAR

?moemployee.First_Name+''

??moemployee.Last_Name

?moemployee.Address

?moemployee.HireDate

DEFINECLASSemployeeASCUSTOM

First_Name=SPACE(20) Last_Name=SPACE(20) Address=SPACE(30) HireDate={--}

ENDDEFINE

请 参 阅

::ScopeResolutionOperator,ADDCLASS,CREATECLASS,CREATECLASSLIB, CREATEOBJECT(),GETOBJECT(),MODIFYCLASS,RELEASECLASSLIB,SE TCLASSLIB