| 2020/06/04(Thu) 09:58:48 編集(投稿者)
2020/05/29(Fri) 18:02:25 編集(投稿者)
> こちらの理解が浅いので、なかなか正確さにかけてしまい申し訳ございません。
フォームのオブジェクトの名称などは、桐以外のソフトでも似たりよったりですよ。
入力域は、［テキストボックス］だったり、ボタンは［コマンドボタン］だっったり、etc.
用語・名称が不明な場合には、ヘルプ等で用語・名称を調べるようにしてください。
> この表示(出力？)の横にでも配置しようかと考えております。
フォームの明細部は、レコードを項目を繰り返し表示する部分なので、明細部にコマンドボタンを配置するのは適当ではありません。
サンプルでは、フォームヘッダ部の第一のコマンドボタンの右側に第二のコマンドボタンを配置しました。
論より証拠、添付のサンプルを見てください。
なお、添付のサンプルの内容に関する質疑には応じますが、それ以外の質疑はお断りしますのでよろしく。
さようなら(@^^@)/~~~
グッドラック！。
＜参考＞
■fromフォーム.wfm ※以下のツリーは整形ユーティリティの［フォームの定義リスト：INF_ObjectList.wfm］を用いて作図
ﾌｫｰﾑ
├ ﾌｧﾐﾘ
├ ﾜｰｸｽﾍﾟｰｽ
│ ├ cmd書き出した表を開く
│ └ cmd終了時実行コマンドボタン
├ ﾌｫｰﾑ操作ﾊﾞｰ
├ ﾌｫｰﾑﾍｯﾀﾞ部
│ ├ a
│ ├ lblNum
│ ├ lblDate
│ ├ lblReview
│ ├ lblComment
│ ├ lblPermit
│ ├ lblPro
│ ├ lblFlag
│ ├ cmd絞り込んで書き出し別ウィンドウで表示
│ ├ cmdTest
│ ├ txt検索文字列 ← 追加
│ │ └ lbl検索文字列
│ ├ cmd検索文字列で絞り込む ← 追加
│ ├ cmdさらに絞り込む ← 追加
│ └ cmd絞り込み解除 ← 追加
├ ﾌｫｰﾑ明細部
│ ├ 行ｾﾚｸﾀ
│ ├ txtNum
│ ├ txtDate
│ ├ txtReview
│ ├ txtComment
│ ├ txtPermit
│ ├ txtPpro
│ └ txtFflag
└ ﾌｫｰﾑﾌｯﾀ部
オブジェクト名： cmd検索文字列で絞り込む
標題 ： ←検索文字列で絞り込む
機能名 機能パラメータリスト
1 表示
2 手続き実行 cmd検索文字列で絞り込むClick
3 なし
4 なし
オブジェクト名： cmdさらに絞り込む
標題 ： さらに "*" と "-" で絞り込む
機能名 機能パラメータリスト
1 実行条件 ( #変数( "mコマンドボタン実行条件" ) = 1 )
2 表示
3 手続き実行 cmdさらに絞り込むClick
4 なし
オブジェクト名： cmd絞り込み解除
標題 ： 絞り込み解除
機能名 機能パラメータリスト
1 表示
2 絞り込み_解除 *, "保持する"
3 なし #代入( &mコマンドボタン実行条件, 0 )
4 なし
オブジェクト名：txt検索文字列 分類：ﾃﾞｰﾀ
プロパティ名 設定値
ｿｰｽ &m検索文字列
ﾃﾞｰﾀ型 文字列
入力支援ﾎﾞﾀﾝ なし
編集属性式
オブジェクト名：lbl検索文字列 分類：ﾃﾞｰﾀ
プロパティ名 設定値
標題 検索文字列
■fromフォーム.kev
名札 メイン
変数宣言 局所，文字列｛ &m検索文字列 ｝ /* 整合性チェックで引っ掛からないように、フォーム定義の変数管理においても宣言してあります */
変数宣言 局所，文字列｛ &mTargetTblName ｝
変数宣言 局所，整数 ｛ &mコマンドボタン実行条件 = 0 ｝ /* 整合性チェックで引っ掛からないように、フォーム定義の変数管理においても宣言してあります */
&mTargetTblName = #一括パス名 + "to表.tbl" /* #一括パス名 は、イベント処理ファイル( .kev )のフォルダ名を返します */
＊
手続き定義開始 cmd検索文字列で絞り込むClick( )
変数宣言 自動，文字列｛ &icon, &title = "cmd検索文字列で絞り込むClick( )", &msg ｝
変数宣言 自動，整数 ｛ &ans ｝
&msg = "コマンドボタンを実行しました"
&msg = &msg + "\n\n&m検索文字列 = " + &m検索文字列
&msg = &msg + "\n\n絞り込み成功と判定しますか？"
&msg = &msg + "\n\nはい … ［cmdさらに絞り込む］が使用可能になります"
&msg = &msg + "\n\nいいえ … ［cmdさらに絞り込む］が使用不可になります"
メッセージボックス &title, &msg, アイコン = ?, ボタン指定 = 5, 制御文字展開 = する, &ans
** 6 [はい]
** 7 [いいえ]
&mコマンドボタン実行条件 = 0
if ( &ans = 6 ) /* 6 [はい] 7 [いいえ] */
&mコマンドボタン実行条件 = 1
end
** 定番の処理
**絞り込み解除 *
**検索 &fieldName_&expression
**if ( .not #eof )
** 比較式を満たすレコードがある、つまり探索成功
**else
** 比較式を満たすレコードがない、つまり探索不成功
**end
**
** または、別の一般手続きを呼び出す
**
**手続き実行 別の一般手続き名( )
手続き定義終了
手続き定義開始 cmdさらに絞り込むClick( )
変数宣言 自動，文字列｛ &icon, &title = "cmdさらに絞り込むClick( )", &msg ｝
&msg = "コマンドボタンを実行しました"
&msg = &msg + "\n\nこのように、実際に機能を実装していなくても"
&msg = &msg + "\n\nユーザインターフェースのテストは可能なのですゾ！"
メッセージボックス &title, &msg, アイコン = i, 制御文字展開 = する
手続き定義終了
＜追伸＞
質問内容が解決したならば、解決済み投稿をよろしく。
↓
解決済み! BOX/ 解決したらチェックしてください!
|
