メニュー処理：こんなのは？

過去の桐井戸端ＢＢＳ　（桐ver.７）

816	メニュー処理：こんなのは？	ikjun	1998/12/13-20:20
皆さんこんばんは、メニューがたくさんあることを考えて次のような処理を考えてみました。考え方としてはあらかじめ作った定義に変数として、タイトルや実行する一括処理の名前などを引き渡し、それによってメニューが実行されると言うものです。他に必要なものは"Menu.wfm"だけで、タイトルをテキストで＊販売管理メニュー変数宣言　文字列{&タイトル,&メニュー,&メニュー１,&メニュー２,&メニュー３,&メニュー４,&メニュー終了} 変数宣言　文字列{&一括メニュー１,&一括メニュー２,&一括メニュー３,&一括メニュー４,&一括メニュー終了} &タイトル="販売管理メニュー" &メニュー１ ="売上伝票入力",&一括メニュー１ ="販売管理_売上伝票" &メニュー２ ="各印刷処理", &一括メニュー２ ="販売管理_各印刷処理" &メニュー３ ="請求書発行", &一括メニュー３ ="販売管理_請求書発行" &メニュー４ ="マスター処理",&一括メニュー４ ="販売管理_マスター処理" &メニュー終了="終了", &一括メニュー終了="販売管理_終了" 手続き実行　メニュー実行(&タイトル,&メニュー１,&メニュー２,&メニュー３,&メニュー４,&メニュー終了,&一括メニュー１,&一括メニュー２,&一括メニュー３,&一括メニュー４,&一括メニュー終了) ＊　　　＊５行固定のメニューのライブラリー手続き定義開始　メニュー実行(文字列　&タイトル,文字列　&メニュー１, 文字列　&メニュー２,文字列　&メニュー３,文字列　&メニュー４,文字列　&メニュー終了,文字列　&一括メニュー１,文字列　&一括メニュー２,文字列　&一括メニュー３,文字列　&一括メニュー４,文字列　&一括メニュー終了) ＊宣言部　　　　　　　　　　　変数宣言　整数{&メニューHandle} 変数宣言　文字列{&ObjectName} メニュー表示部表　"環境設定.tbl",表番号=1,モード=参照 ,使用フォーム="Menu.WFM" &メニューHandle=1 ウィンドウ作成　フォーム,位置=(20,20),ハンドル=&メニューHandle &ObjectName="メニュー１" オブジェクト操作　ハンドル=&メニューHandle ,&ObjectName.標題 = &メニュー１ &ObjectName="メニュー２" オブジェクト操作　ハンドル=&メニューHandle ,&ObjectName.標題 = &メニュー２ &ObjectName="メニュー３" オブジェクト操作　ハンドル=&メニューHandle ,&ObjectName.標題 = &メニュー３ &ObjectName="メニュー４" オブジェクト操作　ハンドル=&メニューHandle ,&ObjectName.標題 = &メニュー４ &ObjectName="終了" オブジェクト操作　ハンドル=&メニューHandle ,&ObjectName.標題 = &メニュー終了＊一括処理の分岐処理ウィンドウ会話 &メニューHandle,ボタン = &メニュー / 押されたボタンによる処理 */ ケース開始ケース ( &メニュー = "メニュー１" ) 一括処理実行 &一括メニュー１ケース ( &メニュー = "メニュー２" ) 一括処理実行 &一括メニュー２ケース ( &メニュー = "メニュー３" ) 一括処理実行 &一括メニュー３ケース ( &メニュー = "メニュー４" ) 一括処理実行 &一括メニュー４ケース ( &メニュー = "終わり" ) 一括処理実行 &一括メニュー終了ケース終了手続き定義終了
817	Re:メニュー処理：こんなのは？間違えた！	ikjun	1998/12/13-20:51
記事番号816へのコメント　中途半端で送ってしまいました。済みません！以下が送るべき本文でした。一括処理の中身は変わらないです。　皆さんこんばんは、メニューがたくさんあることを考えて次のような処理を考えてみました。考え方としてはあらかじめ作った手続き処理に変数として、タイトルや実行する一括処理の名前などを引き渡し、それによってメニューが実行されると言うものです。　他に必要なものは"Menu.wfm"だけで、テキストで&タイトルが表示されるところと、コマンドボタンをメニュー１、メニュー２・・・・と定義します。　細部のアレンジは自分のセンスで好きなようにして下さい。　"環境設定.tbl"は実際には必要はないのですが、私は会社名や住所などをそこにいれて、表示するようにしてます。　これをライブラリ登録しておけば、実際に実行するプログラムは変数を直接入力すれば、一行で済んでしまいますので、使い方によっては便利かなと思います。　それとメニューの形がいつも同じというのも、統一感があって個人的には好きです。　なお、これはあくまでサンプルなので実際の運用では問題があると思います。もし使うなら各自で変更して使って下さい。もちろん、バグ等の責任はいっさいもちません。各自の責任です。　著作権どうのこうのというほどのものではありません。ただ、自分で作ったふりすることだけはしないでください。あとはフリーのサンプルとして好きにして下さい。　もっといい方法があれば、情報待ってます。
834	Re:メニュー処理：有り難うございます	小松	1998/12/17-06:56
記事番号817へのコメント ikjunさん、有り難うございます。今週は東京出張やらなにやらでバタバタしてインターネットも開けませんでした。早速メニュー処理を御考案いただき心より感謝申し上げます。私もメニューは、出来る限りシンプル、スッキリが好みです。 ikjunさんのメニューサンプルをじっくり勉強して、早く、ＤＯＳ時代のようなメニューを作り上げたいと思っております。現時点ではじっくり取り組む時間がないので、正月休みに頑張ります。有り難うございました。
851	メニューについて(No1 ikjun さん)	前田	1998/12/18-17:31
前掲載の「メニュー」早速活用させてもらいました。以前は変数に値を代入して処理の分岐を行っておりましたが初挑戦です。ただ私が未だウインドウ処理の理解が不十分のためうまく完動しません。アドバイスをいただけないでしょうか、また「／」で始まる行分が理解できません。よろしくお願いします。＊販売管理メニュー変数宣言　共通,文字列{&メニュー,&メニュー１,&メニュー２,&メニュー３,&メニュー４,&メニュー５,&メニュー６,&メニュー７,&メニュー８,&メニュー９,&メニュー１０,&メニュー１１,&メニュー１２,&メニュー終了} 変数宣言　文字列{&一括メニュー１,&一括メニュー２,&一括メニュー３,&一括メニュー４,&一括メニュー５,&一括メニュー６,&一括メニュー７,&一括メニュー８,&一括メニュー９,&一括メニュー１０,&一括メニュー１１,&一括メニュー１２,&一括メニュー終了} &メニュー１ ="売上入力" ,&一括メニュー１ ="Prg-01" &メニュー２ ="売上データ" ,&一括メニュー２ ="prg-011" &メニュー３ ="伝票入力" ,&一括メニュー３ ="prg-02" &メニュー４ ="入金データ" ,&一括メニュー４ ="prg-02" &メニュー５ ="台帳印刷" ,&一括メニュー５ ="prg-03" &メニュー６ ="台帳修正" ,&一括メニュー６ ="prg-03" &メニュー７ ="得意先Ｍ" ,&一括メニュー７ ="prg-06" &メニュー８ ="商品Ｍ" ,&一括メニュー８ ="prg-06" &メニュー９ ="請求先Ｍ" ,&一括メニュー９ ="prg-06" &メニュー１０ ="売上台帳" ,&一括メニュー１０ ="prg-06" &メニュー１１ ="請求書発行" ,&一括メニュー１１ ="prg-04" &メニュー１２ ="月次処理" ,&一括メニュー１２ ="prg-05" &メニュー終了 ="終了" ,&一括メニュー終了="終了" 手続き実行　メニュー実行(&メニュー１,&メニュー２,&メニュー３,&メニュー４,& メニュー５,&メニュー６,&メニュー７,&メニュー８,&メニュー９,&メニュー１０,&メニュー１１,&メニュー１２,&メニュー終了,&一括メニュー１,&一括メニュー２,&一括メニュー３,&一括メニュー４,&一括メニュー５,&一括メニュー６,&一括メニュー７,&一括メニュー８,&一括メニュー９,&一括メニュー１０,&一括メニュー１１,&一括メニュー１２,&一括メニュー終了) 手続き定義開始　メニュー実行(文字列　&メニュー１, 文字列 &メニュー２,文字列　&メニュー３,文字列　&メニュー４,文字列　&メニュー５,文字列　&メニュー６,文字列　&メニュー７,文字列　&メニュー８,文字列　&メニュー９,文字列　&メニュー１０,文字列　&メニュー１１,文字列　&メニュー１２,文字列　&メニュー終了,文字列　&一括メニュー１,文字列　&一括メニュー２,文字列　&一括メニュー３,文字列　&一括メニュー４,文字列　&一括メニュー５,文字列　&一括メニュー６,文字列　&一括メニュー７,文字列　&一括メニュー８,文字列　&一括メニュー９,文字列　&一括メニュー１０,文字列　&一括メニュー１１,文字列　&一括メニュー１２,文字列　&一括メニュー終了) 変数宣言　整数{&メニューHandle} 変数宣言　文字列{&ObjectName}
852	Re:メニューについて(No２ ikjun さん)	前田	1998/12/18-17:35
記事番号851へのコメント長すぎましたので２枚目です。メニュー表示部表　"menu.tbl",表番号=1,モード=参照 ,使用フォーム="menu.WFM" &メニューHandle=1 ウィンドウ作成　フォーム ,位置=(20,20),ハンドル=&メニューHandle &ObjectName="メニュー１" オブジェクト操作　ハンドル=&メニューHandle ,&ObjectName.標題 = &メニュー１ &ObjectName="メニュー２" オブジェクト操作　ハンドル=&メニューHandle ,&ObjectName.標題 = &メニュー２ &ObjectName="メニュー３" オブジェクト操作　ハンドル=&メニューHandle ,&ObjectName.標題 = &メニュー３ &ObjectName="メニュー４" オブジェクト操作　ハンドル=&メニューHandle ,&ObjectName.標題 = &メニュー４ &ObjectName="メニュー５" オブジェクト操作　ハンドル=&メニューHandle ,&ObjectName.標題 = &メニュー５ &ObjectName="メニュー６" オブジェクト操作　ハンドル=&メニューHandle ,&ObjectName.標題 = &メニュー６ &ObjectName="メニュー７" オブジェクト操作　ハンドル=&メニューHandle ,&ObjectName.標題 = &メニュー７ &ObjectName="メニュー８" オブジェクト操作　ハンドル=&メニューHandle ,&ObjectName.標題 = &メニュー８ &ObjectName="メニュー９" オブジェクト操作　ハンドル=&メニューHandle ,&ObjectName.標題 = &メニュー９ &ObjectName="メニュー１０" オブジェクト操作　ハンドル=&メニューHandle ,&ObjectName.標題 = &メニュー１０ &ObjectName="メニュー１１" オブジェクト操作　ハンドル=&メニューHandle ,&ObjectName.標題 = &メニュー１１ &ObjectName="メニュー１２" オブジェクト操作　ハンドル=&メニューHandle ,&ObjectName.標題 = &メニュー１２ &ObjectName="終了" オブジェクト操作　ハンドル=&メニューHandle ,&ObjectName.標題 = &メニュー終了＊一括処理の分岐処理ウィンドウ会話 &メニューHandle,ボタン = &メニュー / 押されたボタンによる処理 */ ケース開始ケース ( &メニュー = "メニュー１" ) 一括処理実行 &一括メニュー１ケース ( &メニュー = "メニュー２" ) 一括処理実行 &一括メニュー２　　ケース ( &メニュー = "メニュー３" ) 一括処理実行 &一括メニュー３ケース ( &メニュー = "メニュー４" ) 一括処理実行 &一括メニュー４　　ケース ( &メニュー = "メニュー５" ) 一括処理実行 &一括メニュー５ケース ( &メニュー = "メニュー６" ) 一括処理実行 &一括メニュー６　　ケース ( &メニュー = "メニュー７" ) 一括処理実行 &一括メニュー７ケース ( &メニュー = "メニュー８" ) 一括処理実行 &一括メニュー８　　ケース ( &メニュー = "メニュー９" ) 一括処理実行 &一括メニュー９ケース ( &メニュー = "メニュー１０" ) 一括処理実行 &一括メニュー１０　ケース ( &メニュー = "メニュー１１" ) 一括処理実行 &一括メニュー１１ケース ( &メニュー = "メニュー１２" ) 一括処理実行 &一括メニュー１２　ケース ( &メニュー = "終了" ) 一括処理実行 &一括メニュー終了ケース終了　　　手続き定義終了
868	Re:	ikjun	1998/12/21-02:26
記事番号852へのコメント　とりあえず、未完成のＷｅｂＰａｇｅに考え方を載せときました。そっちに忙しくて前田さんのソースはよく見ていません。とりあえず、ここを見てくれませんか？ http://ikjun.programmer.webjump.com/
870	Re:	小松	1998/12/21-06:49
記事番号868へのコメント早速、ikjunさんのＨＰ拝見致しました。メニュー作成の解説記事、これから大いに勉強いたします。ＨＰ自体わくわくするような内容で、早速ブックマークに登録しました。インターネットを開く楽しみが又一つ増えました。ご発展を大いに期待しております。とりあえず感想と御礼です。
872	Re:	ikjun	1998/12/21-16:01
記事番号870へのコメント >ＨＰ自体わくわくするような内容で、早速ブックマークに登録しました。 >インターネットを開く楽しみが又一つ増えました。ご発展を大いに期待しております。　えーと、あまり期待されてもちょっと困まります、ＷｅｂＰａｇｅそのものは完成するまで公開しない予定だったものなので、まあ、気長に考えて下さい。幅田さん、佐田さんとは違うことをしたいとは思っているのですが・・・・両者とも完成度が高いだけになかなか大変ですね！　内容はいま書いてあるメニューとは、全然違うものになる可能性があります。できあがったら結構つまんないものになっているかも知れません。　桐メニューライブラリは、もうちょっと何とかしようとは思ってますが？
884	Re:	前田	1998/12/23-19:02
記事番号872へのコメント大助かりです！私たち（失言、私）にとって幅広い情報が得られると言うのは大変助かります。またすごいことが出来るんだと再奮闘する勇気がわいて参ります。主題のメニューについては稼働中です、ありがとうございます。またオブジェクトの操作でボタンを非表示にしたり、ラベルに都度都度の状況を表示したりと多方面に活用できそうです。

戻る