DELETE SELECTION
DELETE SELECTION {( aTable )}
引数 | 型 | 説明 | |
---|---|---|---|
aTable | Table | → | カレントセレクションを削除するテーブル, または 省略時、デフォルトテーブル |
説明
DELETE SELECTIONは、aTableのカレントセレクションのレコードを削除します。カレントセレクションが空の場合、DELETE SELECTIONは何も行いません。レコードが削除された後、カレントセレクションは空になります。トランザクション処理中に削除されたレコードは、トランザクション処理が実行または取り消されるまで、他のユーザや他のプロセスに対してロックされます。
警告: レコードの削除は、恒久的な操作です。削除が実行されると元に戻すことはできません。
テーブルインスペクターの「レコードを完全に削除」オプションの選択を解除すると、DELETE SELECTION使用時のレコード削除処理を高速にすることができます (4Dデザインリファレンスマニュアルのレコードを完全に削除参照)。
例題 1
以下の例は[People]テーブルのすべてのレコードを表示します。ユーザはこの中から削除したいものを選択します。この例には2つのメソッドがあります。第1のメソッドはレコードを表示します。第2は削除ボタンのオブジェクトメソッドです。以下は、第1のメソッドです:
ALL RECORDS([People]) // 全レコードをセレクションに
FORM SET OUTPUT([People];"Listing") // レコードを一覧するフォームを設定
DISPLAY SELECTION([People]) // 全レコードを表示
次に示すのは削除ボタンのオブジェクトメソッドで す。このボタンは出力フォームのフッタエリアにあります。このオブジェクトメソッドでは、セレクションを削除するために、ユーザが選択したレコード (UserSet) を使用します。ユーザがレコードを1件も選択しなかった場合、DELETE SELECTIONは何も行わないという点に注目してください。
// 本当にレコードを削除するか確認する
CONFIRM("You selected "+String(Records in set("UserSet"))+" people to delete."
+Char(13)+"Click OK to Delete them.")
If(OK=1)
USE SET("UserSet") // ユーザが選択したレコードを使用
DELETE SELECTION([People]) // レコードセレクションを削除
End if
ALL RECORDS([People]) // すべてのレコードを選択
例題 2
DELETE SELECTIONの実行中にロックされたレコードが見つかると、そのレコードは削除されません。ロックされたレコードはすべて"LockedSet"というセットに納められます。DELETE SELECTIONの実行後、"LockedSet"を調べて、ロックされているレコードが存在していたかどうかを知ることができます。次はループを使用してすべてのレコードを削除します:
Repeat // ロックされたレコードがある限り繰り返す
DELETE SELECTION([ThisTable])
$lockedRecords:=Records in set("LockedSet")
If($lockedRecords#0) // ロックされたレコードがあれば
USE SET("LockedSet") // ロックされたレコードのみをセレクションにする
End if
Until($lockedRecords=0) // ロックされたレコードがなくなるまで
参照
DISPLAY SELECTION
MODIFY SELECTION
TRUNCATE TABLE
セット
レコードのロック