HOME HELP 新規作成 新着記事 ツリー表示 スレッド表示 トピック表示 ファイル一覧 検索 過去ログ

■14121 / 1階層)  表番号の謎
□投稿者/ ONnoji -(2024/02/09(Fri) 10:23:43)
    2024/02/09(Fri) 10:39:50 編集(投稿者)

    > 表をフォームで表示することについては、
    > 表でほとんどやりたいことが足りてしまっており、
    > まだ使用したことがないに等しいです。

    確かに、ちょっとした作業を履歴機能よりも少しスマートに行いたいというのであれば、

    今回見せていただいた{ メニュー.WFX|メニュー.kex }のように、

    あたかも履歴のような、DOS桐/桐ver.7の一括処理を流用したようなイベント処理のプログラムでもOKだと思います。

    しかし、もう少し本格的なアプリケーションを目指すのであれば、不満な部分が多くなると思いますよ。
        ・・・・・・・・・・・・・・・・・・・・・・・・・

    > (この掲示板で紹介されていたONnojiさんのページの入門講座や
    > AKomeさんのページの入門講座は真似して作成してみましたが、
    > どのように学習していこうかと思案中です。)

    プログラムの書き方は自由ですから、これという決まりはありません。

    なので100人がプログラムを書けば、100通りのプログラムが出来上がります。

    そんなファジーなプログラムですが、

    私(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

    手続き定義終了

     ◇ ◇ ◇ ◇ ◇ ◇ ◇ ◇ ◇ ◇ ◇ ◇ ◇ ◇ ◇

    開始時実行コマンドボタンに関しては以下の拙作webページを参考にしてください

     桐の釣魚大全のトップ > フォームアプリケーション教書 第1部
     18.1 [名札 メイン]/[フォーム開始]/[実行コマンド:開始時]/[実行コマンド:終了時]/[フォーム終了]
     http://silicon7565.html.xdomain.jp/guide/guide_Part1.htm#section18-1

    また、あこめ(AKome)さんのwebページにも詳しい記事があるので、こちらもご参考にしてください。

     あこめの桐のプログラミング入門 桐10s by AKome
     Tips 起動・終了時に自動で
     http://akome409102.html.xdomain.jp/Kiri/Tips_auto_run.html


[メール受信/OFF] 削除キー/

→Re[2]: 表番号の謎 /桐太郎
 
前の記事(元になった記事) 次の記事(この記事の返信)
上記関連ツリー

Nomal 表番号の謎 / 桐太郎 (24/02/03(Sat) 00:33) #14103 1706888012.zip/13KB
Nomal Re[1]: 表番号の謎 / ONnoji (24/02/04(Sun) 11:43) #14104
│└Nomal Re[2]: 表番号の謎 / 桐太郎 (24/02/04(Sun) 19:59) #14106
│  └Nomal Re[3]: 表番号の謎 / ONnoji (24/02/04(Sun) 21:10) #14108
│    └Nomal Re[4]: 表番号の謎 / 桐太郎 (24/02/04(Sun) 22:46) #14109
Nomal Re[1]: 表番号の謎 / 悲しげ (24/02/04(Sun) 16:02) #14105
│└Nomal Re[2]: 表番号の謎 / 桐太郎 (24/02/04(Sun) 20:39) #14107
│  └Nomal Re[3]: 表番号の謎 / ONnoji (24/02/08(Thu) 16:21) #14117
│    └Nomal Re[4]: 表番号の謎 / 桐太郎 (24/02/09(Fri) 17:26) #14126
Nomal Re[1]: 表番号の謎 / 通りすがり (24/02/08(Thu) 17:02) #14118
│└Nomal Re[2]: 表番号の謎 / ONnoji (24/02/08(Thu) 17:34) #14120
│  └Nomal Re[3]: 表番号の謎 / 桐太郎 (24/02/09(Fri) 17:29) #14127 解決済み!
Nomal Re[1]: 表番号の謎 / 尾形 (24/02/08(Thu) 17:23) #14119
│└Nomal Re[2]: 表番号の謎 / 桐太郎 (24/02/09(Fri) 17:31) #14128
Nomal 表番号の謎 / ONnoji (24/02/09(Fri) 10:23) #14121 ←Now
  └Nomal Re[2]: 表番号の謎 / 桐太郎 (24/02/09(Fri) 17:34) #14129

All 上記ツリーを一括表示 / 上記ツリーをトピック表示
 
上記の記事へ返信

Mode/  Pass/

HOME HELP 新規作成 新着記事 ツリー表示 スレッド表示 トピック表示 ファイル一覧 検索 過去ログ

- Child Tree -
- Antispam Version -