4D Japan
テクニカルサポートブログ-
ダイナミックフォームの入力順を簡単にカスタマイズ
ダイナミックフォームの機能は、4D v16 R6で導入され、オブジェクト内でフォームを構築したり、テキストファイルからフォームをロードしたりすることで、その場でフォームを構築できます。これは、アプリケーションのニーズに合わせてフォームが頻繁に変更される世界ではとても便利です。
4Dでは、バイナリーフォームでもダイナミックフォームでも、入力順は典型的なz順に従います。4D v17 R6を使うと、z順に関連づけることなく入力順を定義できるようになりました。
フォーム定義の各ページには、z順に従って配置されたフォーム要素のリストを含む”object”属性があります。新しい”entryOrder”属性が追加され、独自のカスタマイズした入力順を指定できるようになりました。もしこの属性が未定義の場合は、4Dはz順（”objects”属性で定義された順序）を使います。
以下は、二つの入力フィールドとボタンを使ったダイナミックフォームの例です：
// Create inputs and button
$text1:=New object("type";"input"; "top";20; "left";140; "width";100; "height";18)
$text2:=New object("type";"input"; "top";20; "left";20; "width";100; "height";18)
$button:=New object("type";"button"; "text";"OK"; "top";60; "left";140; "width";100; "height";20)
// Create entry order collection
$entryOrder:=New Collection("text2";"text1")
// Create page with form objects and entry order
$page:=New object("objects";New object("text1";$text1; "text2";$text2; "button";$button); "entryOrder";$entryOrder)
// Create form
$form:=New object("pages"; New collection(Null;$page); "windowTitle";"My form"; "rightMargin";20; "bottomMargin";20)
// Load the form
$w:=Open form window($form)
DIALOG($form)これは次のように表すことができます：
{ "pages": [ null, { "objects": { "text1": { "type": "input", "top": 20, "left": 140, "width": 100, "height": 18, "events": ["onClick"] }, "text2": { "type": "input", "top": 20, "left": 20, "width": 20, "height": 18, "events": ["onClick"] }, "button": { "type": "button", "text": "OK", "top": 60, "left": 140, "width": 20, "height": 20, "events": ["onClick"] } }, "entryOrder": [ "text2", "text1" ] } ] }
-
4D View Pro : 4Dメソッド設定上でコントロールする
4D View ProはRリリース毎にさらに機能豊かになりつつあり、4D v17 R6も例外ではありません！新しいコマンドによって、4Dメソッドのパラメータ、名前、タイプとサマリーを特定することができます。そして、あなたのメソッドがより情報豊かで説明的になり、それらをエンドユーザーが使う助けになります。
日にちや時間を宣言したい場合は？そのメソッドが何をするのかをユーザーが理解するのを補助するために、短い説明を与えるのはいかがでしょう。VP SET ALLOWED METHODS コマンドで実行できるようになりました！
サンプルよりもこのコマンドを使う方法をより良く知る方法は何でしょう？あなたがサンプルの手順を読み終えて実行する頃までに、以下の結果が得られていることでしょう：
ステップ・バイ・ステップ・サンプル
VP SET ALLOWED METHODSコマンドは、4Dメソッドを実行する新しい方法を提供します。以下のデモは4D View Proの式中にある”Birth Information” メソッドを呼び出したい場合にどのようにするかを示しています：
C_TEXT($1)
C_DATE($2)
C_TIME($3)
C_TEXT($0)
// Create a string from parameters
$0:=$1+" was born on "+String($2)+" at "+String($3)
いかにしてメソッドを実行するか
オブジェクトを作成して、メソッドのコールネームを定義するためにオブジェクトの属性を使います：
$o:=New object
// Name of the method in 4D View Pro: "Birth Information"
$o.BIRTH_INFORMATION:=New object次に$o.BIRTH_INFORMATION オブジェクトの中で、呼び出す4Dメソッドを定義します：
$o.BIRTH_INFORMATION.method:="Birth Information"各パラメータに名前とタイプを追加する
メソッドのパラメータについて情報を持ったコレクションを追加します：
$o.BIRTH_INFORMATION.parameters:=New collection
$o.BIRTH_INFORMATION.parameters.push(New object("name";"First name";"type";Is text))
$o.BIRTH_INFORMATION.parameters.push(New object("name";"Birthday";"type";Is date))
$o.BIRTHparameters.push(New object("name";"Time of birth";"type";Is time))サマリーを追加する
コマンドが何をするのかについてサマリーを特定します：
$o.BIRTH_INFORMATION.summary:="Returns a string from birth information"パラメータの数を特定する
最後に、4D View Pro式の中にある引数の数を、最小値と最大値を追加することで制限できます。例えば、パラメータの全てが必須の場合：
$o.BIRTH_INFORMATION.minParams:=3
$o.BIRTH_INFORMATION.maxParams:=3メソッドが必要とする分だけ属性を作成することができます。それからメソッドオブジェクト($o)をVP SET ALLOWED METHODS コマンドに渡します：
VP SET ALLOWED METHODS ($o)
-
CHANGE CURRENT USERとパスワード
CHANGE CURRENT USERのドキュメントには，下記のような記載がありました。このコマンドを使用するためにはアクセス管理システムが有効化されている必要があります。言い換えると，Designer にパスワードが割り当てられている必要性があります。そうでない場合， CHANGE CURRENT USER には何の効力もなく，ユーザーを切り替えるための標準ウィンドウは表示されません。
v14以降，Designerのパスワードが設定されていない場合，
CHANGE CURRENT USERのパスワードチェックは省略されるようになりました。つまり，コマンドでカレントユーザーを切り替えるために，Designerのパスワードを設定する必要はありません。この点は，17r5以降のドキュメントに反映されています。
-
Undefinedでエラー
16r4以降，
Undefinedは「参照」ではなく「値」を受け取るように改定されました。下記のようなコードをコンパイルモードで実行した場合，「ポインターの使用法が正しくないか，不明な変数へのポインターです」というエラーが返されます。C_POINTER($W) $W:=Get pointer("toto") If (Undefined($W->)) ALERT("undefined") End if未定義のプロセス変数に対するポインターを検出したいのであれば，
Undefined($W->))ではなく，Type($W->)=Is undefinedのようなコードを記述することができます。
-
新しいORDAメソッドを使ってエンティティ・セレクションをソートする
前のブログ投稿で、ORDA クエリーの中で式を適用して、洗練された複雑な検索条件をどのように構築するかを説明しました。さらに完全で強力な開発ツールを使って提供できるのが、新しいORDA メソッドのorderByFomula() です。formulas の助けによって、プロジェクト・メソッドあるいは4D式の中で複雑な条件を使ってエンティティ・セレクションのソートができます。
ソート条件は、式がストリングあるいは Formula オブジェクトとしてorderByFormula() メソッドに与えられた時に評価されます。
Stringとして式をソートする
ここにデータクラス、Companiesがあります。これからこの企業を収益（収益 = 収入 - 支出）を基にソートします。
エンティティはThis コマンドでアクセスすることに注意しましょう。
C_OBJECT($companies;$orderedCompanies;$formula)
$formula:= Formula(This.revenue - This.costs)
$companies:=ds.Companies.all()
$orderedCompanies:=$companies.orderByFormula ($formula;dk descending)Formulaオブジェクトを使ったソート
では同じ条件を使って企業をソートしますが、ストリングの代わりに、Formula オブジェクトを使い、降順でソートします。
C_OBJECT($companies;$orderedCompanies;$formula)
$formula:= Formula(This.revenue - This.costs)
$companies:=ds.Companies.all()
$orderedCompanies:=$companies.orderByFormula ($formula;dk descending)Formula オブジェクトを使うことで、式をストリングとして使うよりもいくつかの利点（自動補完、コードエディター内の色指定、など）があります。
orderByFomula() メソッドはさらに多くのオプションがあります。詳しくはドキュメントをチェックし、上記のサンプルデータベース (HDI)をダウンロードしてください。
エンティティ・セレクションのソートについて
query() メンバーメソッド自体の内部にorder by ステートメントを挿入することができます。これはクラアント/サーバー・モードで使う場合には大きな利点で、クエリーとソートアクションを同じリクエスト中に組み合わせることができ、サーバーとネットワークトラフィックに送られるリクエストの数を減らします。
C_OBJECT($companies)
$companies:=ds.Companies.query("revenue> :1 order by costs desc";5000)