過去の桐井戸端BBS (桐ver.9)
21809 イベントで絞り込みをしたい 大田弘 2003/08/09-00:03
大変役立っています。

質問です。
売上管理を作っています。

売上.wfmで
[分類C]を入力すると、次の項目は[品C]ですが、
イベントで分類Cを&分類Cに代入し、
商品.tblで&分類Cを絞り込みたいのですが
どうすればできるでしょうか?

お願いいたします。

21810 分類経由で商品マスターから取得する(イベント編) 悲しげ 2003/08/09-01:17
記事番号21809へのコメント
どもっ、大田さん
「イベントで」と云うことは、単なるコマンドボタンや入力支援ボタン
だけではなく、本格的に「kevを使って」と云う意味だと解します。
となると、簡単に語るのは難しいですが、要点だけを例示してみます。

1.[分類C]に相当するテキストオブジェクト「t分類C」(仮称)に、
例えば「ソース値更新」イベントを設定。その手続き定義の中味は
  &分類C=[分類C]
  フォーム呼び出し "商品.wfm"
  if(&実行リターン=1)
   行訂正 [品C]=&品C,[品名]=&品名,[売価]=&売価,[数量]=1・・・
   メソッド呼び出し @t数量.フォーカス設定()
   メソッド呼び出し @フォーム.更新モード設定(2)
   ・・・・・
  end

2.商品.wfmは[分類C]がグループ項目になっているフォームとする。
「フォーム開始」イベントで
  グループ検索 {[分類C]=&分類C},終了状態=&OK
として当該分類を初期表示させる(存在しなかった場合の対応は略)。

3.商品.wfmに「キーダウン」イベントを設定し
  if(&仮想キーコード=13) /*[Enter]キー*/
   &処理中止=1,&実行リターン=1
   &品C=[品C],&品名=[品名],&売価=[売価]・・・・・・
   メソッド呼び出し @b閉じる.実行()
  else if(&仮想キーコード=27) /*[Esc]キー*/
   &処理中止=1,&実行リターン=0
   &品C="",&品名="",&売価=""・・・・・・
   メソッド呼び出し @b閉じる.実行()
  ・・・・・
  *閉じるボタンの機能名はもちろん「閉じる」

のような感じではいかがでしょう?(あくまで一例)

21828 例を補完BBSに 悲しげ 2003/08/09-18:38
記事番号21810へのコメント
大田弘さんと未熟者さんへの共通例を
こちらに
挙げておきました。

戻る