| 2024/05/22(Wed) 18:13:16 編集(投稿者)
添付ファイルを解凍すると次のファイルがあります。
期間指定絞込.kex 期間指定絞込.wfx 日付絞り込み.kex 日付絞り込み.tbx 日付絞り込み.wfx
■日付絞り込み.wfx
フォーム ├ ファミリ ├ ワークスペース ├ フォームヘッダ部 │ ├ a │ ├ lbl日付 │ └ cmd期間指定絞込 └ フォーム明細部 ├ 行セレクタ └ txt日付
オブジェクト名: cmd期間指定絞込 標題 : 期間指定絞込
機能名 機能パラメータリスト 1 表示 2 なし #代入( &gRefinementStartDate, [日付] ), #代入( &gRefinementEndDate, [日付] ) 3 モーダルフォーム "期間指定絞込.wfx" 4 手続き実行 cmd期間指定絞込Click
■日付絞り込み.kex
名札 メイン 変数宣言 固有,整数{ &gAnswer } 変数宣言 固有,日時{ &gRefinementStartDate, &gRefinementEndDate }
*
手続き定義開始 cmd期間指定絞込Click( ) 変数宣言 自動,文字列{ &title = "cmd期間指定絞込Click( )", &msg } 変数宣言 自動,整数 { &traceON }
&traceON = 1 条件 ( &traceON ) トレース出力 &title + "を実行開始しました"
┌if ( &gAnswer = 1 ) │ │ &msg = "debug モーダルフォームから戻りました" │ &msg = &msg + "\n\n&gAnswer = " + #str( &gAnswer ) │ &msg = &msg + "\n\n&gRefinementStartDate = " + #日時文字列( &gRefinementStartDate, 0, 4, 0 ) │ &msg = &msg + "\n\n&gRefinementEndDate = " + #日時文字列( &gRefinementEndDate, 0, 4, 0 ) │ &msg = &msg + "\n\n変数の値は以上です" │ &msg = &msg + "\n\n変数の値を利用して絞り込む部分はご自身で作成してください (^^ok" │ メッセージボックス &title, &msg, アイコン = i, ボタン指定 = 1, 制御文字展開 = する │ ├else │ │ &msg = "debug モーダルフォームから戻りました" │ &msg = &msg + "\n\n&gAnswer = " + #str( &gAnswer ) │ &msg = &msg + "\n\n&gRefinementStartDate = " + #日時文字列( &gRefinementStartDate, 0, 4, 0 ) │ &msg = &msg + "\n\n&gRefinementEndDate = " + #日時文字列( &gRefinementEndDate, 0, 4, 0 ) │ &msg = &msg + "\n\n変数の値は以上です" │ メッセージボックス &title, &msg, アイコン = i, ボタン指定 = 1, 制御文字展開 = する └end
条件 ( &traceON ) トレース出力 &title + "を実行終了しました" 手続き定義終了
■期間指定絞込.wfx
フォーム ├ ファミリ ├ ワークスペース │ └ cmdStartup ├ フォームヘッダ部 │ └ tタイトル ├ フォーム明細部 │ ├ txtgRefinementStartDate │ │ └ lblgRefinementStartDate │ └ txtgRefinementEndDate │ └ lblgRefinementEndDate └ フォームフッタ部 ├ cmdOK └ cmdキャンセル
オブジェクト名: cmdStartup 標題 : 開始時実行コマンド:cmdStartup
機能名 機能パラメータリスト 1 訂正 2 なし 3 なし 4 なし
オブジェクト名: cmdOK 標題 : OK
機能名 機能パラメータリスト 1 実行条件 ( &gRefinementStartDate <= &gRefinementEndDate ) 2 なし #代入( &gAnswer, 1 ) 3 閉じる 4 なし
オブジェクト名: cmdキャンセル 標題 : キャンセル
機能名 機能パラメータリスト 1 閉じる 2 なし 3 なし 4 なし
■期間指定絞込.kex
名札 メイン
**---- 変数が宣言されていなければ変数を宣言する ------** 条件 ( #配列要素数( "gAnswer" ) <> 0 ) 変数宣言 固有,整数{ &gAnswer } 条件 ( #配列要素数( "gRefinementStartDate" ) <> 0 ) 変数宣言 固有,日時{ &gRefinementStartDate } 条件 ( #配列要素数( "gRefinementEndDate" ) <> 0 ) 変数宣言 固有,日時{ &gRefinementEndDate } **---- 変数が宣言されていなければ変数を宣言する ------**
&gAnswer = 0 /* 初期値は0:キャンセル */ *
|