メインコンテンツまでスキップ
バージョン: 20 R7 BETA

FORM SET INPUT

FORM SET INPUT ( {aTable ;} form {; userForm {; *}} )

引数型説明
aTableTable→入力フォームを設定するテーブル, または 省略した場合、デフォルトテーブル
formText, Object→(プロジェクトまたはテーブル)フォーム名(文字列)、
あるいはフォームを定義した.jsonファイルへのPOSIXパス(文字列)、
あるいは開くフォームを定義したオブジェクト
userFormText→使用するユーザフォーム名
*Operator→自動ウィンドウサイズ

このコマンドはスレッドセーフではないため、プリエンプティブなコードには使えません。

説明​

FORM SET INPUT コマンドは、aTableのカレント入力フォームをformまたはuserFormに設定します。フォームはaTableに属していなければなりません。

このコマンドのスコープは、カレントプロセスです。各テーブルは、プロセスごとに個々の入力フォームを持っています。

form 引数で表示したいフォームを指定します。以下のいづれかを渡すことができます:

  • フォーム名
  • 使用するフォームの詳細を格納している有効な.josn ファイルへのパス(POSIX シンタックス、フォームファイルパス 参照)
  • フォームの詳細を格納しているオブジェクト

注: 構造的な理由から、このコマンドはプロジェクトフォームと互換がありません。プロジェクトフォームをformに渡しても、コマンドは何も行いません。

FORM SET INPUT はフォームを表示しません。データ入力や読み込み、他のコマンドで使用するフォームを指定するだけです。フォームの作成に関する詳細は4D Design Referenceマニュアルを参照してください。

デフォルト入力フォームはテーブルごとにエクスプローラウィンドウで指定します。このデフォルト入力フォームは、FORM SET INPUT コマンドで入力フォームを指定しない場合や、指定したフォームが存在しない場合に使用されます。

入力フォームはak edit subrecord あるいはak add subrecord といった標準アクションにおいても自動的に使用されます。

任意の引数userForm を使用して、(formを基に作成された) ユーザフォームをデフォルトの入力フォームとして設定することができます。有効なユーザフォーム名を渡すと、カレントプロセスの入力フォームに代わり、このフォームがデフォルトとして使用されます。これにより、(_o_CREATE USER FORM コマンドで生成された) 複数の異なるカスタムユーザフォームを同時に使用できるようになり、現在の状況で適切なフォームを使用することができます。

ユーザフォームに関する詳細はユーザフォームの概要 の節を参照してください。

入力フォームは多くのコマンドで表示されますが、一般にデータの入力や修正に使用されます。以下のコマンドは、データ入力や検索用に入力フォームを表示します:

DISPLAY SELECTION やMODIFY SELECTION コマンドは、出力フォームを使用してレコードのリストを表示します。ユーザがリスト上のレコードをダブルクリックすると、入力フォームを表示します。

データ読み込みコマンドIMPORT TEXT、IMPORT SYLK およびIMPORT DIF は、レコードの読み込みにカレント入力フォームを使用します。

オプション引数 * は、デザインモードのフォームプロパティウィンドウおよびOpen window で使用されます。* を指定することにより、(ダイアログボックスや入力フォームとして) 次回フォームを使用する際、フォームプロパティの設定をもとに自動的にウィンドウサイズを変更するよう4Dに指示します。詳しくはOpen window の節を参照してください。

注: オプション引数 * を使用するしないに関係なく、FORM SET INPUT コマンドはテーブルの入力フォームを変更します。

例題 1​

以下の例は、FORM SET INPUTコマンドの一般的な使用方法です:

 FORM SET INPUT([Companies];"New Comp") // 新しい会社を追加するフォーム
 ADD RECORD([Companies]) // 新しい会社の追加

例題 2​

複数の会社を処理する請求書データベースでは、対応するユーザフォームを用いて請求書を作成しなくてはなりません:

 Case of
    :(company="4D SAS")
       FORM SET INPUT([Invoices];"Input";"4D_SAS")
    :(company="4D Inc")
       FORM SET INPUT([Invoices];"Input";"4D_Inc")
    :(company="Acme")
       FORM SET INPUT([Invoices];"Input";"ACME")
 End case
 ADD RECORD([Factures])

例題 3​

以下の例では.json フォームへのパスを使用して従業員リストにレコードを入力する場合を考えます:

 FORM SET INPUT([Personnel];"/RESOURCES/PersonnelForm.json")
 ADD RECORD([Personnel])

結果は以下のようになります:

参照​

_o_CREATE USER FORM
ADD RECORD
DISPLAY RECORD
DISPLAY SELECTION
FORM SET OUTPUT
IMPORT DIF
IMPORT SYLK
IMPORT TEXT
MODIFY RECORD
MODIFY SELECTION
Open window
QUERY BY EXAMPLE