[ 
|../../index.htm#lansa/lansa048_3230.htm]
Visual LANSA フレームワーク ガイド > フレームワーク・プログラミング > インスタンスリストとインスタンスリスト・マネージャー > 独自のスナップイン・インスタンスリストの作成 > インスタンスリストに 11 個以上の英数字列や数値列を追加 > スナップイン・インスタンスリストのソース・コード例
スナップイン・インスタンスリストのソース・コード例
独自の VLF-ONE スナップイン・リストの作成は「独自の VLF-ONE インスタンスリスト・ブラウザの作成」を参照してください。
以下は、VLF-WIN のコード例です。
- =======================================================
- コンポーネント : XXXXXXXXXX
- タイプ : 再利用可能パーツ
- 説明 : スナップイン・インスタンスリスト・ブラウザの例
- インスタンスリストをツリー・コントロールとして表示
- 免責事項 : 以下のマテリアルは
- サンプル用としてのみ提供されています。このマテリアルおよびその利用に関しては、
- 明示または暗示を問わず、
- 全く保証されません。
- =======================================================
BEGIN_COM ROLE(*EXTENDS #VF_AC012) HEIGHT(181) LAYOUTMANAGER(#ATTACHMENT_MANAGER) WIDTH(482)
* 全体の添付レイアウト・マネージャ
DEFINE_COM CLASS(#PRIM_ATLM) NAME(#ATTACHMENT_MANAGER)
* 複数列対応のツリー
DEFINE_COM CLASS(#PRIM_TRVW) NAME(#VIS_Tree) COLUMNBUTTONHEIGHT(18) DISPLAYPOSITION(1) DRAGCOLUMNS(True) FULLROWSELECT(True) HEIGHT(181) LEFT(0) MULTIPLESELECTSTYLE(SameLevel) PARENT(#COM_OWNER) SELECTIONSTYLE(Multiple) TABPOSITION(1) TABSTOP(False) TOP(0) VIEWSTYLE(UnLevelled) VISUALSTYLE(#VF_VS101) WIDTH(482)
- レイアウト管理用添付アイテム
DEFINE_COM CLASS(#PRIM_ATLI) NAME(#TREE_ATTACHMENT_ITEM) ATTACHMENT(Center) MANAGE(#VIS_Tree) PARENT(#ATTACHMENT_MANAGER)
- ツリー内の全レベル用の標準 2 フィールド
DEFINE_COM CLASS(#PRIM_TVCL) NAME(#Tree_VID1) CAPTION('Code/Name') CAPTIONTYPE(Caption) DISPLAYPOSITION(1) LEVEL(1) PARENT(#VIS_Tree) SORTONCLICK(True) SOURCE(#VF_ELXVI1) WIDTH(17)
DEFINE_COM CLASS(#PRIM_TVCL) NAME(#Tree_VID2) CAPTION('Description') CAPTIONTYPE(Caption) DISPLAYPOSITION(2) LEVEL(1) PARENT(#VIS_Tree) SORTONCLICK(True) SOURCE(#VF_ELXVI2) WIDTH(16)
- 追加のサンプル英字 2 列
DEFINE_COM CLASS(#PRIM_TVCL) NAME(#Tree_acolumn1) CAPTION('Phone') CAPTIONTYPE(Caption) DISPLAYPOSITION(3) LEVEL(1) PARENT(#VIS_Tree) SORTONCLICK(True) SOURCE(#VF_ELXCA1) WIDTH(13)
DEFINE_COM CLASS(#PRIM_TVCL) NAME(#Tree_acolumn2) CAPTION('Address') CAPTIONTYPE(Caption) DISPLAYPOSITION(4) LEVEL(1) PARENT(#VIS_Tree) SORTONCLICK(True) SOURCE(#VF_ELXCA2) WIDTH(14)
- 追加のサンプル数値 1 列
DEFINE_COM CLASS(#PRIM_TVCL) NAME(#Tree_Visncolumn1) CAPTION('Zip Code') CAPTIONTYPE(Caption) COLUMNALIGN(Right) DISPLAYPOSITION(5) LEVEL(1) PARENT(#VIS_Tree) SORTONCLICK(True) SOURCE(#POSTCODE)
- 各ツリー項目の AKey1() AKey2() AKey3() BusinessObjectType() を追跡するための非表示列
DEFINE_COM CLASS(#PRIM_TVCL) NAME(#TREE_IAK1) LEVEL(1) PARENT(#VIS_Tree) SOURCE(#VF_ELXAK1) VISIBLE(False)
DEFINE_COM CLASS(#PRIM_TVCL) NAME(#TREE_IAK2) LEVEL(1) PARENT(#VIS_Tree) SOURCE(#VF_ELXAK2) VISIBLE(False)
DEFINE_COM CLASS(#PRIM_TVCL) NAME(#TREE_IAK3) LEVEL(1) PARENT(#VIS_Tree) SOURCE(#VF_ELXAK3) VISIBLE(False)
DEFINE_COM CLASS(#PRIM_TVCL) NAME(#TVCL_BOT) LEVEL(2) PARENT(#VIS_Tree) SOURCE(#VF_ELBOT) VISIBLE(False)
* 現在フォーカスのあるツリー項目
Define_com #Prim_Objt #FocusTreeItem Reference(*dynamic)
* UI コントロール定義
Define Field(#UI_ISDEAF) Reffld(#VF_ELBOOL)
Def_Cond Name(*UI_LISTEN) Cond('#UI_IsDeaf *ne TRUE')
- ツリー・ノード追跡 - 部門ノードおよび課ノードの追跡
DEFINE_COM CLASS(#Prim_kcol<#Prim_tvit #deptment>) NAME(#DepNodes) STYLE(Collection)
DEFINE_COM CLASS(#Prim_kcol<#Prim_tvit #std_texts>) NAME(#DepSecNodes) STYLE(Collection)
- ============================================================================
- メソッド定義
- ============================================================================
- ----------------------------------------------------------------------------
- 標準 uClearInstanceList メソッドの再定義
- ----------------------------------------------------------------------------
MthRoutine uClearInstanceList Options(*Redefine)
Invoke #DepNodes.RemoveAll
Invoke #DepSecNodes.RemoveAll
Clr_List #Vis_Tree
Set_ref #FocusTreeItem *null
EndRoutine
- -----------------------------------------------------------------------------
- 標準 uAddListEntry メソッドの再定義
- -----------------------------------------------------------------------------
Mthroutine Name(uAddListEntry) Options(*Redefine)
Define_com #Prim_tvit #DepParent Reference(*Dynamic)
Define_com #Prim_tvit #SecParent Reference(*Dynamic)
- フィルターにより SECTIONS と EMPLOYEES ビジネス・オブジェクトがインスタンスリストに提供されるが、
- このインスタンスリスト・ブラウザは、データのビジュアライズを少々異なる形で行うための
- 3 レベルのツリーがある。ビジネス・オブジェクトのタイプごとに別処理
CASE OF_FIELD(#BusinessObjectType.Value)
- ========================
- SECTIONS ビジネス・オブジェクト
- ========================
WHEN VALUE_IS(= SECTIONS)
- ツリー内の親の部門ノードを確認し、必要であれば追加
Set_ref #DepParent #DepNodes<#AKey1.Value>
If_ref #DepParent is(*null)
#VF_ELXAK1 := #AKey1.Value
#VF_ELXAK2 := ''
#VF_ELXAK3 := ''
#VF_ELBOT := ''
#VF_ELXVI1 := #AKey1.Value
#VF_ELXVI2 := 'Department ' + #AKey1.Value
#VF_ELXCA1 := ''
#VF_ELXCA2 := ''
#POSTCODE := 0
Add_Entry #Vis_Tree
Set_Ref #DepParent #Vis_Tree.CurrentItem
Set_Ref #DepNodes<#AKey1.Value> #DepParent
Endif
- Now add in the section node as a child of the department and keep a track of it
#VF_ELXAK1 := #AKey1.Value
#VF_ELXAK2 := #AKey2.Value
#VF_ELXAK3 := #AKey3.Value
#VF_ELBOT := #BusinessObjectType.Value
#VF_ELXVI1 := 'Section ' + #AKey2.Value
#VF_ELXVI2 := #AColumn1.Value
#VF_ELXCA1 := ''
#VF_ELXCA2 := ''
#POSTCODE := #Ncolumn1.Value
Add_Entry #Vis_Tree
Set #Vis_Tree.CurrentItem ParentItem(#DepParent)
Set_Ref #DepSecNodes<(#AKey1.Value + '.'+ #Akey2.Value)> #Vis_Tree.CurrentItem
- =========================
- EMPLOYEES ビジネス・オブジェクト
- =========================
WHEN VALUE_IS(= EMPLOYEES)
#VF_ELXAK1 := #AKey1.Value
#VF_ELXAK2 := #AKey2.Value
#VF_ELXAK3 := #AKey3.Value
#VF_ELBOT := #BusinessObjectType.Value
#VF_ELXVI1 := #VisualId1.Value
#VF_ELXVI2 := #VisualId2.Value
#VF_ELXCA1 := #AColumn1.Value
#VF_ELXCA2 := #AColumn2.Value
#POSTCODE := #NColumn1.Value
Add_Entry #Vis_Tree
- このツリーの親ノードとなる、(前回追加の) 最後のセクション・ノード
Set_Ref #SecParent #DepSecNodes<(#AKey1.Value + '.'+ #Akey2.Value)>
- エラー表示または親アイテムを正しく設定
If_ref #SecParent is(*null)
Use message_box_show ( ok ok error *Component 'Attempt to add employee with out a valid SECTIONS parent')
else
Set #Vis_Tree.CurrentItem ParentItem(#SecParent)
Endif
ENDCASE
- 終了
EndRoutine
- -------------------------------------------------------------------
- グリッドから新規セクションの選択を受け入れるかどうかを決定
- -------------------------------------------------------------------
EVTROUTINE HANDLING(#Vis_Tree.ItemGotFocusAccept #Vis_Tree.ItemGotSelectionAccept) Accept(#ACCEPT) OPTIONS(*NOCLEARMESSAGES *NOCLEARERRORS)
If (#vf_elbot *ne ' ')
If Cond('#avFrameworkManager.uCurrentLockStatus *EQ TRUE')
#ACCEPT := FALSE
#UI_ISDEAF := TRUE
Else
#ACCEPT := TRUE
#UI_ISDEAF := FALSE
Endif
Endif
ENDROUTINE
- -----------------------------------------
- ツリーのアイテム選択処理
- -----------------------------------------
EvtRoutine Handling(#Vis_Tree.ItemGotSelection) OPTIONS(*NOCLEARMESSAGES *NOCLEARERRORS)
If (#vf_elbot *ne ' ')
Signal SetSelectedInstance AKey1(#VF_ELXAK1) AKey2(#VF_ELXAK2) AKey3(#VF_ELXAK1) BusinessObjectType(#VF_ELBOT)
* Handle the special case where the focus did not fire correctly
If_ref #FocusTreeItem is(*null)
Set_ref #FocusTreeItem #Vis_Tree.CurrentItem
Signal SetCurrentInstance AKey1(#VF_ELXAK1) AKey2(#VF_ELXAK2) AKey3(#VF_ELXAK3) BusinessObjectType(#VF_ELBOT)
Endif
Endif
EndRoutine
- -------------------------------------------
- ツリーのアイテム選択解除処理
- -------------------------------------------
EvtRoutine Handling(#Vis_Tree.ItemLostSelection) OPTIONS(*NOCLEARMESSAGES *NOCLEARERRORS)
If (#vf_elbot *ne ' ')
Signal DropSelectedInstance AKey1(#VF_ELXAK1) AKey2(#VF_ELXAK2) AKey3(#VF_ELXAK3) BusinessObjectType(#VF_ELBOT)
Endif
EndRoutine
- -------------------------------------
- ツリーのアイテム・フォーカス処理
- -------------------------------------
EvtRoutine Handling(#Vis_Tree.ItemGotFocus) OPTIONS(*NOCLEARMESSAGES *NOCLEARERRORS)
If Cond(*UI_LISTEN)
If (#vf_elbot *ne ' ')
Signal SetCurrentInstance AKey1(#VF_ELXAK1) AKey2(#VF_ELXAK2) AKey3(#VF_ELXAK3) BusinessObjectType(#VF_ELBOT)
Endif
Endif
EndRoutine
- ---------------------------------------------
- ツリーのアイテム・フォーカス解除処理
- ---------------------------------------------
EvtRoutine Handling(#Vis_Tree.ItemLostFocus) OPTIONS(*NOCLEARMESSAGES *NOCLEARERRORS)
If (#vf_elbot *ne ' ')
Signal DropCurrentInstance AKey1(#VF_ELXAK1) AKey2(#VF_ELXAK2) AKey3(#VF_ELXAK3) BusinessObjectType(#VF_ELBOT)
Endif
EndRoutine
End_Com
[ |../../index.htm#lansa/lansa048_3230.htm]