過去の桐井戸端BBS (桐ver.9)
18760 商品台帳の伝票フォームでグループ項目の[区分]にAが入ったら[長さ]を非表示にしてBが入ったら表示したい 宇崎裕子 2003/01/30-18:53
桐のご指導をお願いします。

商品台帳で、質問します。
伝票フォームで商品台帳を作っています。
いろいろな商品があり、入力する項目が様々です。

グループ項目は、商品分類、区分
テキスト項目は、品名、規格、長さ、品C、販売単価、仕入単価、備考
となっています。

グループ項目の、区分にAが入ったら
テキスト項目の、長さを非表示にしたいのです。

グループ項目の、区分にBがはいったら
テキスト項目の、長さを表示したいのですが、

いろいろ調べた結果、イベントを組んだら出来るようなのですが、
どうすればいいのでしょか?

ご指導お願いいたします。
18765 値によって入力項目を変化させるイベント処理 佐田 守弘 2003/01/30-21:50
記事番号18760へのコメント
宇崎裕子さん

可能です。
と言いましても、イベント機能の性格上、「これをそのまま使って下さい」は不可能です。
まったく同じ例題として、私の以下のサイトに解説とサンプルを掲載してありますので、
これを参考にご自身で作ってみて下さい。

http://www.ne.jp/asahi/m.sada/kiri/QA/EVENT/EVNT_02.html

佐田守弘(KS-00119)
18771 Re:値によって入力項目を変化させるイベント処理 宇崎裕子 2003/01/31-08:38
記事番号18765へのコメント
佐田 守弘さんは はじめまして。
ご指導いただきありがとうございます。
ところで、佐田様のサンプルは、カード型フォームですが
私のは伝票型フォームなんですがグループ項目とテキストの間で
うまく動作するのでしょか?
18776 Re:商品台帳 ONnoji 2003/01/31-13:26
記事番号18760へのコメント
宇崎裕子さん、こんにちは。

あくまでもご参考とにいうことでありますが…
桐で伝票フォームを作ると以下のようなものが出来あがると思います。

◇ フォーム
├── フォーム操作バー
├── グループ操作バー
├◇ フォームヘッダ部
│├◇ u商品分類 (グループ項目)
││└ a商品分類 ( ラベル )
│├◇ u区分 (グループ項目)
││└ a区分 ( ラベル )
│├─ a ( ラベル )
│├─ a品名 ( ラベル )
│├─ a規格 ( ラベル )
│├─ a長さ ( ラベル )
│├─ a品C ( ラベル )
│├─ a販売単価 ( ラベル )
│├─ a仕入単価 ( ラベル )
│└─ a備考 ( ラベル )
├◇ フォーム明細部
│├─ 行セレクタ 行セレクタ
│├─ t品名 ( テキストボックス )
│├─ t規格 ( テキストボックス )
│├─ t長さ ( テキストボックス ) ← これ!
│├─ t品C ( テキストボックス )
│├─ t販売単価 ( テキストボックス )
│├─ t仕入単価 ( テキストボックス )
│└─ t備考 ( テキストボックス )
└◇ フォームフッタ部
 ├─ a計 ( ラベル )
 ├─ u長さ ( グループ項目 )
 ├─ u販売単価 ( グループ項目 )
 └─ u仕入単価 ( グループ項目 )

つづく
18777 Re:つづき ONnoji 2003/01/31-13:27
記事番号18776へのコメント
このフォームの次の4つイベントをオンにして、

・行訂正開始
・行訂正終了
・行挿入開始
・行挿入終了

※チェックを忘れると動きません。(^^ゞ

次のようなイベント( .kev )を作れば…
[区分] = "A" の時に、[長さ]項目の背景色がパールグレーで入力が出来なくなります。

※ホントに[長さ]項目を非表示にしてしまうと、ぽっかりとそこの部分が抜けてしまいます。
※背景色グレーにすれば入力できなくても、使う人は納得するのではないでしょうか?

他にも色々と手を加えればもっと良くなると思いますが…この位で(^^ゞ

なお、掲示板では半角カタカナは全角カタカナに置き換わりますのでご注意ください。

*-------------------------*
名札 メイン

 *


手続き定義開始 フォーム::行訂正開始(長整数 &明細番号) /* フォームは半角カナ */
 手続き実行 prc長さ項目の表示設定( )
手続き定義終了

手続き定義開始 フォーム::行訂正終了(長整数 &明細番号,長整数 &モード) /* フ
ォームは半角カナ */
 手続き実行 prc長さ項目の表示リセット( )
手続き定義終了

手続き定義開始 フォーム::行挿入開始(長整数 &明細番号) /* フォームは半角カナ */
 手続き実行 prc長さ項目の表示設定( )
手続き定義終了

手続き定義開始 フォーム::行挿入終了(長整数 &明細番号,長整数 &モード) /* フ
ォームは半角カナ */
 手続き実行 prc長さ項目の表示リセット( )
手続き定義終了

手続き定義開始 prc長さ項目の表示リセット( )
 オブジェクト操作 @t長さ.フォーカスの設定 = "自動" /* フォーカスは半角カナ */
 オブジェクト操作 @t長さ.背景モード = "指定色" /* モードは半角カナ */
 オブジェクト操作 @t長さ.背景色 = "白"
手続き定義終了

手続き定義開始 prc長さ項目の表示設定( )
 if ( [区分] = "A" )
  オブジェクト操作 @t長さ.フォーカスの設定 = "禁止" /* フォーカスは半角カナ */
  オブジェクト操作 @t長さ.背景モード = "指定色" /* モードは半角カナ */
  オブジェクト操作 @t長さ.背景色 = "パールグレイ"
  * 確認 "A"
 else
  オブジェクト操作 @t長さ.フォーカスの設定 = "自動" /* フォーカスは半角カナ */
  オブジェクト操作 @t長さ.背景モード = "指定色" /* モードは半角カナ */
  オブジェクト操作 @t長さ.背景色 = "白"
  * 確認 "その他"
 end
手続き定義終了
*-------------------------*

戻る