SET QUERY DESTINATION

 SET QUERY DESTINATION(Into current selection)

 SET QUERY DESTINATION(Into set;"mySet")

 SET QUERY DESTINATION(Into named selection;"myNamedSel")

 SET QUERY DESTINATION(Into variable;$vlResult)

 SET QUERY DESTINATION(Into variable;"";->$vlResult)

 // asRolodex
 Case of
  :(FORM Event.code=On Load)
 // フォームが表示される前に
 // rolodexと、検索が行われたかを示すブール配列を初期化
    ARRAY STRING(1;asRolodex;26)
    ARRAY BOOLEAN(abQueryDone;26)
    For($vlElem;1;26)
     asRolodex{$vlElem}:=Char(64+$vlElem)
     abQueryDone{$vlElem}:=False
    End for

  :(FORM Event.code=On Clicked)
 // タブコントロールがクリックされたら、対応するクエリが実行済みかどうか調べる
    If(Not(abQueryDone{asRolodex}))
 // 実行されていなければ、次のクエリ結果を命名セレクションに格納する
     SET QUERY DESTINATION(Into named selection;"temp")
 // クエリを実行
     QUERY([Phone Book];[Phone Book]Last name=asRolodex{asRolodex}+"@")
 // 通常のクエリモードに戻す
     SET QUERY DESTINATION(Into current selection)
 // 検索されたレコードを使用する
     USE NAMED SELECTION("temp")
     COPY NAMED SELECTION([Phone book];"Rolodex"+asRolodex{asRolodex})
 // 次回同じタブが選択された時は、クエリを行わない
     abQueryDone{asRolodex}:=True
    Else
 // 選択された文字に対応するレコードを表示するために命名セレクションを使用
     USE NAMED SELECTION("Rolodex"+asRolodex{asRolodex})
    End if

  :(FORM Event.code=On Unload)
 // フォームを閉じる際には
 // 作成された命名セレクションをクリアする
    For($vlElem;1;26)
     If(abQueryDone{$vlElem})
       CLEAR NAMED SELECTION("Rolodex"+asRolodex{$vlElem})
     End if
    End for
 // プロセス配列をクリアする
    CLEAR VARIABLE(asRolodex)
    CLEAR VARIABLE(abQueryDone)
 End case

 // Unique values プロジェクトメソッド
 // Unique values ( ポインタ; ポインタ{ ; ポインタ... } ) -> ブール
 // Unique values ( ->テーブル ; ->フィールド { ; ->フィールド2... } ) -> Yes or No

 var 0ドル : Boolean
 var ${1} : Pointer
 var $vlField;$vlNbFields;$vlFound;$vlCurrentRecord : Integer
 $vlNbFields:=Count parameters-1
 $vlCurrentRecord:=Record number(1ドル->)
 If($vlNbFields>0)
  If($vlCurrentRecord#-1)
    If($vlCurrentRecord<0)
 // カレントレコードはまだ保存されていない新規レコード (レコード番号= -3);
 // なので、少なくとも1つのレコードが見つかれば検索を停止できる
     SET QUERY LIMIT(1)
    Else
 // カレントレコードは既存のレコード;
 // なので、少なくとも2つのレコードが見つかれば検索を停止できる
     SET QUERY LIMIT(2)
    End if
 // クエリはカレントセレクションやカレントレコードを変更せずに
 // $vlFoundに結果を返す
    SET QUERY DESTINATION(Into variable;$vlFound)
 // 指定した数の\フィールドのクエリを行う
    Case of
     :($vlNbFields=1)
       QUERY(1ドル->;2ドル->=2ドル->)
     :($vlNbFields=2)
       QUERY(1ドル->;2ドル->=2ドル->;*)
       QUERY(1ドル->;&;3ドル->=3ドル->)
     Else
       QUERY(1ドル->;2ドル->=2ドル->;*)
       For($vlField;2;$vlNbFields-1)
        QUERY(1ドル->;&;${1+$vlField}->=${1+$vlField}->;*)
       End for
       QUERY(1ドル->;&;${1+$vlNbFields}->=${1+$vlNbFields}->)
    End case
    SET QUERY DESTINATION(Into current selection) // クエリモードを通常に戻す
    SET QUERY LIMIT(0) // クエリの上限をクリア
 // クエリ結果を処理
    Case of
     :($vlFound=0)
       0ドル:=True // 重複値はない
     :($vlFound=1)
       If($vlCurrentRecord<0)
        0ドル:=False // 未保存の新規レコードと同じ値を持つ既存のレコードを見つけた
       Else
        0ドル:=True // 重複値は見つからなかった
       End if
     :($vlFound=2)
       0ドル:=False // ケースに関わらず、値は重複している
    End case
  Else
    If(◊DebugOn) // Does not make sense; signal it if development version
     TRACE // WARNING! Unique values is called with NO current record
    End if
    0ドル:=False // Can't guarantee the result
  End if
 Else
  If(◊DebugOn) // Does not make sense; signal it if development version
    TRACE // WARNING! カレントレコードなしでメソッドが呼び出された
  End if
  0ドル:=False // 結果は保証できない
 End if

 // ...
 If(Unique values(->[Contacts];->[Contacts]Company);->[Contacts]Last name;->[Contacts]First name)
 // 固有の値を持つそのレコードに対して適切な処置をとる
 Else
  ALERT("There is already a Contact with this name for this Company.")
 End if
 // ...