程序代码：

of = CREATEOBJECT("form1")
of.show(1)
RETURN

DEFINE CLASS form1 as Form
    ADD OBJECT cmd1 as commandbutton WITH top=10,left=10,height=25,caption="查询"
    PROCEDURE cmd1.click
        IF EMPTY(this.tag)  && 可定义其他查询状态标志
            this.tag = "1"
            MESSAGEBOX("随机查询")
        ELSE
             this.tag = ""
             MESSAGEBOX("条件查询")
        ENDIF
    ENDPROC
ENDDEFINE