|目次|前ページ|次ページ| ───────────────────────────────────── ■高機能サブルーチン[ZVCS*](Cache用) ───────────────────────────────────── ◆◆◆評価版には添付されません。◆◆◆ ※※※非常に汎用性が高く利用価値の高い実用的サブルーチンとなっています ───────────────────────────────────── ◆以下にすぐ使える高機能サブルーチン[ZVCS*]プログラム(Cache用)を記載しています。 ※※※追加、変更されている可能性がありますので※※※ ※※※最新の仕様は<<プログラムリスト>>を確認してください※※※ ◆ ここに記載が無いサブルーチンについてはプログラムリストを見てください ───────────────────────────────────── [1] ZVCSCBA --> ※ 少量の選択肢をデータベースからコンボボックスに全件表示します。 ただし添字の異なった次元にデータを持つ場合には使用出来ません <<<入力変数>>> ※※※ テーブルに関する情報変数 ※※※ TTYPE => 定型テーブル名と添字の深さ TNAMEとLEVEL,SUBSCR(i) は (場合によってはPOSも)自動的に決定されます ※※他の入力変数は指定した値がそのまま有効です null/<undef>の時はTNAME,LEVELで指定します TNAME => 汎用テーブル名(グローバル名) ex. LIST TUCI => テーブルuci TVOL => テーブルvol LEVEL => テーブルグローバルの添字の深さ(次元)1,2,3... SUBSCR(i) => グローバルの添字の文字列(固定定数) ex. LEVEL=3 ならば SUBSCR(1)とSUBSCR(2)を設定する ※※※ コンボボックス表示に関する情報変数 ※※※ POS => テーブル名称文字列の位置($P)デリミタの何番目か DELIM => デリミタ文字(^)がデフォルト) TOP => コンボボックスの上端の行位置 LEFT => コンボボックスの左端の桁位置 WIDTH => コンボボックスの幅 HEIGHT=> コンボボックスの高さ id -> VCM control id番号 PARENT -> 親のフォームcid FORM -> フォーム番号 GROUP -> グループ番号 -----<<<リストボックスに1回に全件表示する>>>-------- INITSTR -> コンボボックスに初期表示する文字列(入力結果) OPT --> 1:シンプルコンボボックス(結果=INITSTR) 2:ドロップダウンリスト(結果=INITSTR と SELECT) 3:ドロップダウン(結果=INITSTR) SELECT -> 予め選択された選択肢の添字(LEVEL)(選択結果) -----<<<以下RECT,opt,pm1,...パラメタを参照>>>-------- font -> font番号 color -> 色番号 パラメタ他にもあります ───────────────────────────────────── [使い方] ※ <<<ローカル変数初期化>>> D KILL^ZVCSCBA ※ <<<作成時呼び出し>>> D CREATE^ZVCSCBA ※ <<<選択時呼び出し>>> D SELECTED^ZVCSCBA ※ <<<フォーカスを失った時呼び出し>>> D KILLFOCUS^ZVCSCBA ※ <<<廃棄時呼び出し>>> D DESTROY^ZVCSCBA ※ラベル(TEST)から(CREATE)の前迄は、使い方のサンプルです。 ※ラベル(CREATE)以降は、<<<共通サブルーチン部>>>です。 ※ご注意[cid=990,991,992,993,994は予約されています] ※このルーチンをコピーして自分で都合良く変更しても結構です。 ───────────────────────────────────── [2] ZVCSCBB --> ※※※多量のデータベースからコンボボックスに一部分表示します ただし添字の異なった次元にデータを持つ場合には 使用出来ません <<<入力変数>>> ※※※ テーブルに関する情報変数 ※※※ TTYPE => 定型テーブル名と添字の深さ TNAMEとLEVEL,SUBSCR(i) は (場合によってはPOSも)自動的に決定されます ※※他の入力変数は指定した値がそのまま有効です null/<undef>の時はTNAME,LEVELで指定します TNAME => 汎用テーブル名(グローバル名) ex. LIST TUCI => テーブルuci TVOL => テーブルvol LEVEL => テーブルグローバルの添字の深さ(次元)1,2,3... SUBSCR(i) => グローバルの添字の文字列(固定定数) ex. LEVEL=3 ならば SUBSCR(1)とSUBSCR(2)を設定する ※※※ コンボボックス表示に関する情報変数 ※※※ POS => テーブル名称文字列の位置($P)デリミタの何番目か DELIM => デリミタ文字(^)がデフォルト) TOP => コンボボックスの上端の行位置 LEFT => コンボボックスの左端の桁位置 WIDTH => コンボボックスの幅 HEIGHT=> コンボボックスの高さ id -> VCM control id番号 PARENT -> 親のフォームcid FORM -> フォーム番号 GROUP -> グループ番 READCNT -> コンボボックスに1回に表示する選択肢の数 INITSTR -> コンボボックスに初期表示する文字列(入力結果) OPT --> 1:シンプルコンボボックス(結果=INITSTR) 2:ドロップダウンリスト(結果=INITSTR と SELECT) 3:ドロップダウン(結果=INITSTR) SELECT -> 予め選択された選択肢の添字(LEVEL)(選択結果) -----<<<以下RECT,opt,pm1,...パラメタを参照>>>-------- font -> font番号 color -> 色番号 パラメタ他にもあります ───────────────────────────────────── [使い方] ※ <<<ローカル変数初期化>>> D KILL^ZVCSCBB ※ <<<呼び出し>>> D CREATE^ZVCSCBB ※ <<<選択時呼び出し>>> D SELECTED^ZVCSCBB ※ <<<フォーカスを失った時呼び出し>>> D KILLFOCUS^ZVCSCBB ※ <<<廃棄時呼び出し>>> D DESTROY^ZVCSCBB ※ <<<パラメタ再設定>>> D SETUPPM^ZVCSCBB ※ <<<操作不能設定>>> D DISGRP^ZVCSCBB ※ <<<操作可能設定>>> D ENAGRP^ZVCSCBB ※ <<<先頭ページ表示>>> D TOPPG^ZVCSCBB ※ <<<前ページ表示>>> D PREVPG^ZVCSCBB ※ <<<次ページ表示>>> D NEXTPG^ZVCSCBB ※ <<<末尾ページ表示>>> D TOPPG^ZVCSCBB ※ラベル(TEST)から(CREATE)の前迄は、使い方のサンプルです。 ※ラベル(CREATE)以降は、<<<共通サブルーチン部>>>です。 ※ご注意[cid=990,991,992,993,994は予約されています] ※このルーチンをコピーして自分で都合良く変更しても結構です。 ───────────────────────────────────── [3] ZVCSGRA --> ※※※少量のデータベースからグリッドに全件表示します ただし添字の異なった次元にデータを持つ場合には 使用出来ません <<<入力変数>>> ※※※ テーブルに関する情報変数 ※※※ TTYPE => 定型テーブル名と添字の深さ TNAMEとLEVEL,SUBSCR(i) は (場合によってはPOSも)自動的に決定されます ※※他の入力変数は指定した値がそのまま有効です null/<undef>の時はTNAME,LEVELで指定します TNAME => 汎用テーブル名(グローバル名) ex. STTJ TUCI => テーブルuci TVOL => テーブルvol LEVEL => テーブルグローバルの添字の深さ(次元)1,2,3... SUBSCR(i) => グローバルの添字の文字列(固定定数) ex. LEVEL=3 ならば SUBSCR(1)とSUBSCR(2)を設定する ※※※ グリッド表示に関する情報変数 ※※※ POS => 今回は使用しないがカスタマイズで利用可能 DELIM => デリミタ文字(^)がデフォルト) TOP => グリッドの上端の行位置 LEFT => グリッドの左端の桁位置 WIDTH => グリッドの幅 HEIGHT=> グリッドの高さ id -> VCM control id番号 PARENT -> 親のフォームcid FORM -> フォーム番号 GROUP -> グループ番号 -----<<<リストボックスに1回に全件表示する>>>-------- SELECT -> 予め選択された選択肢の添字(LEVEL)(選択結果) HEADER -> 先頭行に表示する固定ヘッダー(nullは非表示) (桁0,桁1,桁2,桁3,...,桁n)の様に指定 EVENT -> 0:イベント無(表示のみの時) 1:イベント発生有(入力有) [2]width <- 各カラムの幅(index1の幅;2の幅;3の幅;...) [3]height<- Rowの高さ [4]scroll <- スクロール1:無 2:水平 3:垂直 4:両方 [5]columns <- 仮のCulumn全体数 [6]rows <- 仮のRow全体数 [7]Fcolumns <- 固定部のRow数 [8]Frow <- 固定部のCulumn数(指定できません)[自動決定される] [9]Lindex <- 可変部の先頭行左端に表示されるCulumnのindex(0,1,2,...) [10]Tindex <- 可変部の先頭桁上端に表示されるRowのindex(0,1,2,...) [11]Fcolor <- 固定部の色番号(0->199) [12]editmode <- 1:エデット可 NULL:参照のみ [13]options <- オプション(1;2;3;...) [14]delopts <- 削除オプション(1;2;3;...) [15]respkeys <- リスポンス応答で取得されるセルの文字列を指定 する左端からのColumn数 key部の桁数(左端より) -----<<<以下RECT,opt,pm1,...パラメタを参照>>>-------- font -> font番号 color -> 色番号 パラメタ他にもあります ───────────────────────────────────── [使い方] ※ <<<ローカル変数初期化>>> D KILL^ZVCSGRA ※ <<<作成時呼び出し>>> D CREATE^ZVCSGRA ※ <<<選択時呼び出し>>> D SELECTED^ZVCSGRA ※ <<<フォーカスを失った時呼び出し>>> D KILLFOCUS^ZVCSGRA ※ <<<廃棄時呼び出し>>> D DESTROY^ZVCSGRA ※ラベル(TEST)から(CREATE)の前迄は、使い方のサンプルです。 ※ラベル(CREATE)以降は、<<<共通サブルーチン部>>>です。 ※ご注意[cid=990,991,992,993,994は予約されています] ※このルーチンをコピーして自分で都合良く変更しても結構です。 ───────────────────────────────────── [4] ZVCSGRB / ZVCSGRB2 --> ※※※多量のデータベースからグリッドに一部分表示します ただし添字の異なった次元にデータを持つ場合には 使用出来ません <<<入力変数>>> ※※※ テーブルに関する情報変数 ※※※ TTYPE => 定型テーブル名と添字の深さ TNAMEとLEVEL,SUBSCR(i) は (場合によってはPOSも)自動的に決定されます ※※他の入力変数は指定した値がそのまま有効です null/<undef>の時はTNAME,LEVELで指定します TNAME => 汎用テーブル名(グローバル名) ex. STTJ TUCI => テーブルuci TVOL => テーブルvol LEVEL => テーブルグローバルの添字の深さ(次元)1,2,3... SUBSCR(i)=> グローバルの添字の文字列(固定定数) ex. LEVEL=3 ならば SUBSCR(1)とSUBSCR(2)を設定する ※※※ グリッド表示に関する情報変数 ※※※ POS => 今回は使用しないがカスタマイズで利用可能 DELIM => デリミタ文字(^)がデフォルト) TOP => グリッドの上端の行位置 LEFT => グリッドの左端の桁位置 WIDTH => グリッドの幅 HEIGHT=> グリッドの高さ id -> VCM control id番号 PARENT -> 親のフォームcid FORM -> フォーム番号 GROUP -> グループ番号 READCNT -> グリッドに1回に表示する行の数 SELECT -> 予め選択された選択肢の添字(LEVEL)(選択結果) HEADER -> 先頭行に表示する固定ヘッダー(nullは非表示) (桁0,桁1,桁2,桁3,...,桁n)の様に指定 EVENT -> 0:イベント無(表示のみの時) 1:イベント発生有(入力有) [2]width <- 各カラムの幅(index1の幅;2の幅;3の幅;...) [3]height <- Rowの高さ [4]scroll <- スクロール1:無 2:水平 3:垂直 4:両方 [5]columns <- 仮のCulumn全体数 [6]rows <- 仮のRow全体数 [7]Fcolumns <- 固定部のRow数 [8]Frow <- 固定部のCulumn数(指定できません)[自動決定される] [9]Lindex <- 可変部の先頭行左端に表示されるCulumnのindex(0,1,2,...) [10]Tindex <- 可変部の先頭桁上端に表示されるRowのindex(0,1,2,...) [11]Fcolor <- 固定部の色番号(0->199) [12]editmode <- 1:エデット可 NULL:参照のみ [13]options <- オプション(1;2;3;...) [14]delopts <- 削除オプション(1;2;3;...) [15]respkeys <- リスポンス応答で取得されるセルの文字列を指定 する左端からのColumn数 key部の桁数(左端より) -----<<<以下RECT,opt,pm1,...パラメタを参照>>>-------- font -> font番号 color -> 色番号 パラメタ他にもあります ───────────────────────────────────── [使い方] ※ <<<ローカル変数初期化>>> D KILL^ZVCSGRB ※ <<<呼び出し>>> D CREATE^ZVCSGRB ※ <<<選択時呼び出し>>> D SELECTED^ZVCSGRB ※ <<<フォーカスを失った時呼び出し>>> D KILLFOCUS^ZVCSGRB ※ <<<廃棄時呼び出し>>> D DESTROY^ZVCSGRB ※ <<<パラメタ再設定>>> D SETUPPM^ZVCSGRB ※ <<<操作不能設定>>> D DISGRP^ZVCSGRB ※ <<<操作可能設定>>> D ENAGRP^ZVCSGRB ※ <<<先頭ページ表示>>> D TOPPG^ZVCSGRB ※ <<<前ページ表示>>> D PREVPG^ZVCSGRB ※ <<<次ページ表示>>> D NEXTPG^ZVCSGRB ※ <<<末尾ページ表示>>> D TOPPG^ZVCSGRB ※[ZVCSGRB2]のラベル(TEST)から(CREATE)の前迄は、使い方のサンプルです。 ※[ZVCSGRB]のラベル(CREATE)以降は、<<<共通サブルーチン部>>>です。 ※ご注意[cid=990,991,992,993,994は予約されています] ※このルーチンをコピーして自分で都合良く変更しても結構です。 ───────────────────────────────────── [5] ZVCSLSA --> ※※※少量のデータベースからリストボックスに全件表示します ただし添字の異なった次元にデータを持つ場合には 使用出来ません <<<入力変数>>> ※※※ テーブルに関する情報変数 ※※※ TTYPE => 定型テーブル名と添字の深さ TNAMEとLEVEL,SUBSCR(i) は (場合によってはPOSも)自動的に決定されます ※※他の入力変数は指定した値がそのまま有効です null/<undef>の時はTNAME,LEVELで指定します TNAME => 汎用テーブル名(グローバル名) ex. STTJ TUCI => テーブルuci TVOL => テーブルvol LEVEL => テーブルグローバルの添字の深さ(次元)1,2,3... SUBSCR(i)=> グローバルの添字の文字列(固定定数) ex. LEVEL=3 ならば SUBSCR(1)とSUBSCR(2)を設定する ※※※ リストボックス表示に関する情報変数 ※※※ POS => テーブル名称文字列の位置($P)デリミタの何番目か DELIM => デリミタ文字(^)がデフォルト) TOP => リストボックスの上端の行位置 LEFT => リストボックスの左端の桁位置 WIDTH => リストボックスの幅 HEIGHT=> リストボックスの高さ id -> VCM control id番号 PARENT -> 親のフォームcid FORM -> フォーム番号 GROUP -> グループ番号 -----<<<リストボックスに1回に全件表示する>>>-------- SELECT -> 予め選択された選択肢の添字(LEVEL)(選択結果) -----<<<以下RECT,opt,pm1,...パラメタを参照>>>-------- font -> font番号 color -> 色番号 パラメタ他にもあります ───────────────────────────────────── [使い方] ※ <<<ローカル変数初期化>>> D KILL^ZVCSLSA ※ <<<作成時呼び出し>>> D CREATE^ZVCSLSA ※ <<<選択時呼び出し>>> D SELECTED^ZVCSLSA ※ <<<フォーカスを失った時呼び出し>>> D KILLFOCUS^ZVCSLSA ※ <<<廃棄時呼び出し>>> D DESTROY^ZVCSLSA ※ラベル(TEST)から(CREATE)の前迄は、使い方のサンプルです。 ※ラベル(CREATE)以降は、<<<共通サブルーチン部>>>です。 ※ご注意[cid=990,991,992,993,994は予約されています] ※このルーチンをコピーして自分で都合良く変更しても結構です。 ───────────────────────────────────── [6] ZVCSLSB --> ※※※多量のデータベースからリストボックスに一部分表示します ただし添字の異なった次元にデータを持つ場合には 使用出来ません <<<入力変数>>> ※※※ テーブルに関する情報変数 ※※※ TTYPE => 定型テーブル名と添字の深さ TNAMEとLEVEL,SUBSCR(i) は (場合によってはPOSも)自動的に決定されます ※※他の入力変数は指定した値がそのまま有効です null/<undef>の時はTNAME,LEVELで指定します TNAME => 汎用テーブル名(グローバル名) ex. STTJ TUCI => テーブルuci TVOL => テーブルvol LEVEL => テーブルグローバルの添字の深さ(次元)1,2,3... SUBSCR(i)=> グローバルの添字の文字列(固定定数) ex. LEVEL=3 ならば SUBSCR(1)とSUBSCR(2)を設定する ※※※ リストボックス表示に関する情報変数 ※※※ POS => テーブル名称文字列の位置($P)デリミタの何番目か DELIM => デリミタ文字(^)がデフォルト) TOP => リストボックスの上端の行位置 LEFT => リストボックスの左端の桁位置 WIDTH => リストボックスの幅 HEIGHT=> リストボックスの高さ id -> VCM control id番号 PARENT -> 親のフォームcid FORM -> フォーム番号 GROUP -> グループ番号 READCNT -> リストボックスに1回に表示する選択肢の数 SELECT -> 予め選択された選択肢の添字(LEVEL)(選択結果) -----<<<以下RECT,opt,pm1,...パラメタを参照>>>-------- font -> font番号 color -> 色番号 パラメタ他にもあります ───────────────────────────────────── [使い方] ※ <<<ローカル変数初期化>>> D KILL^ZVCSLSB ※ <<<呼び出し>>> D CREATE^ZVCSLSB ※ <<<選択時呼び出し>>> D SELECTED^ZVCSLSB ※ <<<フォーカスを失った時呼び出し>>> D KILLFOCUS^ZVCSLSB ※ <<<廃棄時呼び出し>>> D DESTROY^ZVCSLSB ※ <<<パラメタ再設定>>> D SETUPPM^ZVCSLSB ※ <<<操作不能設定>>> D DISGRP^ZVCSLSB ※ <<<操作可能設定>>> D ENAGRP^ZVCSLSB ※ <<<先頭ページ表示>>> D TOPPG^ZVCSLSB ※ <<<前ページ表示>>> D PREVPG^ZVCSLSB ※ <<<次ページ表示>>> D NEXTPG^ZVCSLSB ※ <<<末尾ページ表示>>> D TOPPG^ZVCSLSB ※ラベル(TEST)から(CREATE)の前迄は、使い方のサンプルです。 ※ラベル(CREATE)以降は、<<<共通サブルーチン部>>>です。 ※ご注意[cid=990,991,992,993,994は予約されています] ※このルーチンをコピーして自分で都合良く変更しても結構です。 ───────────────────────────────────── [7] ZVCSMMB --> ※※※多量のデータベースからメモに全行表示します ただし添字の異なった次元にデータを持つ場合には 使用出来ません さらに編集結果データがデータベース格納されます ※※※データベース格納添字と次元は特定の制限があります <<<入力変数>>> ※※※ テーブルに関する情報変数 ※※※ TTYPE => 定型テーブル名と添字の深さ TNAMEとLEVEL,SUBSCR(i) は (場合によってはPOSも)自動的に決定されます ※※他の入力変数は指定した値がそのまま有効です null/<undef>の時はTNAME,LEVELで指定します TNAME => 汎用テーブル名(グローバル名) ex. STTJ TUCI => テーブルuci TVOL => テーブルvol LEVEL => テーブルグローバルの添字の深さ(次元)1,2,3... SUBSCR(i) => グローバルの添字の文字列(固定定数) ex. LEVEL=3 ならば SUBSCR(1)とSUBSCR(2)を設定する ※※※ メモ表示に関する情報変数 ※※※ TOP => メモの上端の行位置 LEFT => メモの左端の桁位置 WIDTH => メモの幅 HEIGHT=> メモの高さ id -> VCM control id番号 PARENT -> 親のフォームcid FORM -> フォーム番号 GROUP -> グループ番号 READONLY -> 変更不可(1) EVENT -> 0:イベント無(表示のみの時) 1:イベント発生有(入力有) keycode -> 終了イベントキーセットを指定する -----<<<以下RECT,opt,pm1,...パラメタを参照>>>-------- font -> font番号 color -> 色番号 opt <- スクロールバー(0:無 1:垂直 2:水平 3:両方) pm1 <- 1:左 2:中央 3:右にそろえる pm2 <- 1:右マジンで折り返す 2:<Enter>を入力しない限り<改行>は挿入されない pm3 <- 1:<改行>を入力可能 2:<改行>を入力不可 pm4 <- 0:<CR>は除去される 1:<CR>を<LF>に変換して送信(U 0:PASTHRU) pm5 <- 0:<TAB>は入力不可 1:<TAB>入力可能(Tab順に影響) パラメタ他にもあります ───────────────────────────────────── [使い方] ※ <<<ローカル変数初期化>>> D KILL^ZVCSMMB ※ <<<作成時呼び出し>>> D CREATE^ZVCSMMB ※ <<<選択時呼び出し>>> D KEYPRESS^ZVCSMMB ※ <<<フォーカスを失った時呼び出し>>> D KILLFOCUS^ZVCSMMB ※ <<<廃棄時呼び出し>>> D DESTROY^ZVCSMMB ※ラベル(TEST)から(CREATE)の前迄は、使い方のサンプルです。 ※ラベル(CREATE)以降は、<<<共通サブルーチン部>>>です。 ※ご注意[cid=990,991,992,993,994は予約されています] ※このルーチンをコピーして自分で都合良く変更しても結構です。 ※<ご注意>メモ応答オプション設定に注意してください。(結果を返すか?) ───────────────────────────────────── 910-1 |目次|前ページ|次ページ|