□投稿者/ ONnoji -(2024/02/09(Fri) 10:23:43)
| 2024/02/09(Fri) 10:39:50 編集(投稿者)
> 表をフォームで表示することについては、
> 表でほとんどやりたいことが足りてしまっており、
> まだ使用したことがないに等しいです。
確かに、ちょっとした作業を履歴機能よりも少しスマートに行いたいというのであれば、
今回見せていただいた｛ メニュー.WFX｜メニュー.kex ｝のように、
あたかも履歴のような、ＤＯＳ桐／桐ver.7の一括処理を流用したようなイベント処理のプログラムでもＯＫだと思います。
しかし、もう少し本格的なアプリケーションを目指すのであれば、不満な部分が多くなると思いますよ。
・・・・・・・・・・・・・・・・・・・・・・・・・
> （この掲示板で紹介されていたONnojiさんのページの入門講座や
> AKomeさんのページの入門講座は真似して作成してみましたが、
> どのように学習していこうかと思案中です。）
プログラムの書き方は自由ですから、これという決まりはありません。
なので１００人がプログラムを書けば、１００通りのプログラムが出来上がります。
そんなファジーなプログラムですが、
私（ONnoji）なりの方法をご紹介するのでご参考にしてください。
なお、添付ファイルは数日を目途に削除しますのでお早めにダウンロードしてください。
添付ファイルを解凍すると以下のファイルがあります。
メニュー_modify.kex
メニュー_modify.WFX ← コマンドボタンに機能名：開くを利用したランチャーフォーム
売上.kex
売上.TBX
売上.WFX ← ランチャーフォームから開かれる売上のフォーム 開始時に自動的に販売.tbxを読み込みます
販売.TBX
＜重要＞
添付ファイルのダウンロードに成功するケースと失敗するケースがありますのでご注意ください。
この掲示板を http で閲覧する時と、 https で閲覧する時との違いで起きます。
〇 http://tayu.o0o0.jp/bbs/kiri/cbbs.cgi?H=T&no=0 ※従来のリンクを辿るとこっちになります
× https://tayu.o0o0.jp/bbs/kiri/cbbs.cgi?H=T&no=0 ※ググルとこっちになります(^^ゞ
◇ ◇ ◇ ◇ ◇ ◇ ◇ ◇ ◇ ◇ ◇ ◇ ◇ ◇ ◇ ◇
■メニュー_modify.WFX
フォーム
├ ファミリ
├ ワークスペース
└ フォーム明細部
└ cmd販売から売上へデータ移行
オブジェクト名： cmd販売から売上へデータ移行
標題 ： 販売から売上へデータ移行（ ランチャー版 ）
機能名 機能パラメータリスト
1 表示
2 開く "売上.WFX"
3 なし
4 なし
■メニュー_modify.kex
名札 メイン
＊
■売上.WFX
フォーム
├ ファミリ
├ ワークスペース
│ └ cmdStartup ← 開始時実行コマンドボタン
├ フォーム操作バー
├ フォームヘッダ部
│ ├ a
│ ├ a日付
│ ├ a会社名
│ ├ a商品名
│ ├ a単価
│ ├ a数量
│ └ a税抜金額
└ フォーム明細部
├ 行セレクタ
├ t日付
├ t会社名
├ t商品名
├ t単価
├ t数量
└ t税抜金額
オブジェクト名： cmdStartup
標題 ： 開始時実行コマンドボタン
機能名 機能パラメータリスト
1 表示
2 手続き実行 cmdStartupClick
3 なし
4 なし
■売上.kex
名札 メイン
変数宣言 局所，長整数｛ &mフォーム開始時のレコード数 ｝
変数宣言 局所，長整数｛ &m販売を読み込み後のレコード数 ｝
＊
手続き定義開始 cmdStartupClick( )
変数宣言 自動, 文字列｛ &title = "cmdStartupClick( )", &msg ｝
変数宣言 自動, 整数 ｛ &status, &ans ｝
&mフォーム開始時のレコード数 = #総件数
ジャンプ 行番号 = 終端
読み込み 表, 条件名 = "読込表 販売.tbx"，終了状態 = &status
&m販売を読み込み後のレコード数 = #総件数
&msg = "開始時実行コマンドボタン（ cmdStartup ）を実行しました"
&msg = &msg + "\n\nフォーム開始時のレコード数 = " + #str( &mフォーム開始時のレコード数 )
&msg = &msg + "\n\n販売を読み込み後のレコード数 = " + #str( &m販売を読み込み後のレコード数 )
&msg = &msg + "\n\n販売.tbx から " + #str( &m販売を読み込み後のレコード数 - &mフォーム開始時のレコード数 ) + " レコードを読み込みました"
メッセージボックス &title, &msg, アイコン = i, ボタン指定 = 1, 制御文字展開 = する, &ans
手続き定義終了
◇ ◇ ◇ ◇ ◇ ◇ ◇ ◇ ◇ ◇ ◇ ◇ ◇ ◇ ◇
開始時実行コマンドボタンに関しては以下の拙作ｗｅｂページを参考にしてください
桐の釣魚大全のトップ > フォームアプリケーション教書 第１部
１８．１ ［名札 メイン］／［フォーム開始］／［実行コマンド：開始時］／［実行コマンド：終了時］／［フォーム終了］
http://silicon7565.html.xdomain.jp/guide/guide_Part1.htm#section18-1
また、あこめ（AKome）さんのｗｅｂページにも詳しい記事があるので、こちらもご参考にしてください。
あこめの桐のプログラミング入門 桐10s by AKome
Tips 起動・終了時に自動で
http://akome409102.html.xdomain.jp/Kiri/Tips_auto_run.html
|
|
