Page History

この例では、ドラッグ・アンド・ドロップ操作で複数の社員の詳細を操作し、その詳細を1つのEmployeeオブジェクトに保存することを除くとリスト・コレクションの例1と同じです。

Image Added

[ Image Removed |../../index.htm#lansa/l4wdev06_1075.htm]
現在地:

...

この例では、ドラッグ・アンド・ドロップ操作で複数の社員の詳細を操作し、その詳細を1つのEmployeeオブジェクトに保存することを除くとリスト・コレクションの例1と同じです。
Image Removed

Employeeオブジェクト

Employeeオブジェクトは、社員の詳細を保存するために使用されます。このオブジェクトは、その後、コレクション内でドラッグ・アンド・ドロップ操作で使用されます。
オブジェクトは、以下の社員のプロパティを定義し、公開しています。

• Empno
• GiveName
• SurName
• Deptment
• Salary
• PostCode

コレクションの定義

List コレクションは、このドラッグ操作でPayLoadとして動的に作成されます。#EmployeeオブジェクトのList コレクションです。コレクションに挿入されるEmployeeオブジェクトを保存するために#DragEmployee変数が作成されます。コレクションは動的なので、明示的にSET_REFコマンドで参照を設定する必要があります。  

     Define_

...

Com Class(#Prim_LCOL<#Employee>)

...

 Name(#PayLoadList)

...

 Reference(*Dynamic)
     Define_

...

Com Class(#Employee)

...

 Name(#DragEmployee)

...

 Reference(*Dynamic)
     Set_

...

Ref Com(#PayLoadList)

...

 To(*Create_

...

as #Prim_LCOL<#Employee>)

...

 コレクションへのアイテムの追加

コレクションへのアイテムの追加
選択されたEmployeeオブジェクトをList コレクションに追加するために、Selectlistループが使用されます。List コレクションは、ドラッグ操作のPayLoadとして割り当てられます。  
Selectlist Named

     Selectlist Named(#DRAG_LIST)

...

     Continue If('#Drag_List.Currentitem.

...

Selected *ne True')
     Set_

...

Ref Com(#DragEmployee)

...

 To(*Create_

...

as #Employee)
     Set Com(#DragEmployee)

...

 Pempno(#Empno)

...

 Pgivename(#GiveName)

...

 Psurname(#Surname)

...

 Psalary(#Salary)

...

 Pdepartment(#Deptment)

...

 Ppostcode(#PostCode)

...

     Invoke Method(#PayLoadList.Insert)

...

 Item(#DragEmployee)
     Endselect

...

     Set_

...

Ref Com(#PayLoad)

...

 To(#PayLoadList)

...

コレクションからのアイテムの取得
2つめのフォームのリストのDragDropイベントには、List コレクションが定義され、選択された社員のコレクションを含むPayLoadがキャストされます。
     Define_
...
Com Class(#Prim_LCOL<#Employee>)
...
 Name(#EmployeePayLoad)
...
 Reference(*Dynamic)
     Set_
...
Ref Com(#EmployeePayLoad)
...
 To(*
...
Dynamic #PayLoad)
...
List コレクションの先頭から末尾まで、For/EndForループで社員の詳細を取得します。 For Each
     For Each(#EmployeeObject)
...
 In(#EmployeePayLoad)
...

     Change Field(#EMPNO)
...
 To('#EMPLOYEEOBJECT.PEMPNO')
...

     Change Field(#GIVENAME)
...
 To('#EMPLOYEEOBJECT.PGIVENAME')
...

     Change Field(#SURNAME)
...
 To('#EMPLOYEEOBJECT.PSURNAME')
...

     Change Field(#POSTCODE)
...
 To('#EMPLOYEEOBJECT.PPOSTCODE')
     Add_
...
Entry To_List(#DROP_LIST)
...

     Endfor
List コレクションの例2のソース・コード
Employeeオブジェクト
オブジェクトを再利用可能パーツとして作成します。この例では、#Employeeという名前にします。 Function Options
     Function Options(*DIRECT)
     Begin_
...
Com Role(*
...
EXTENDS #PRIM_OBJT)
...

     * ----------------------------
...

     * This is an "Employee"
...
 object
     * ----------------------------
...

     * Define the member variables that define an "Employee"
...
 object ....
...

     Define_
...
Com Class(#Empno)
     Define_
...
Com Class(#GiveName)
     Define_
...
Com Class(#SurName)
     Define_
...
Com Class(#Deptment)
     Define_
...
Com Class(#Salary)
     Define_
...
Com Class(#PostCode)
...

     * Publish the properties that an "Employee"
...
 exposes .....
...

     Define_
...
Pty Name(pEmpno)
...
 Get(*
...
Auto #Empno) Set(*
...
Auto #Empno)
     Define_Pty Name(pGiveName)
...
 Get(*
...
Auto #GiveName) Set(*
...
Auto #GiveName)
     Define_Pty Name(pSurName)
...
 Get(*
...
Auto #SurName) Set(*
...
Auto #SurName)
     Define_Pty Name(pDepartment)
...
 Get(*
...
Auto #Deptment) Set(*
...
Auto #Deptment)
     Define_Pty Name(pSalary)
...
 Get(*
...
Auto #Salary) Set(*
...
Auto #Salary)
     Define_Pty Name(pPostCode)
...
 Get(*
...
Auto #PostCode) Set(*
...
Auto #PostCode)
     End_Com
...
初めのフォーム
...
     Function Options(*DIRECT) 
     Begin_
...
Com Role(*
...
EXTENDS #PRIM_FORM)
...
 Clientheight(319)
...
 Clientwidth(509)
...
 Dragstyle(Automatic)
...
 Height(346)
...
 Left(255)
...
 Top(111)
...
 Width(517)
...

     * The Drag List Definition. Note the use of the DragStyle(Automatic) property
     Define_Com Class(#PRIM_LTVW)
...
 Name(#DRAG_LIST)
...
 Displayposition(1)
...
 Dragstyle(Automatic)
...
 Fullrowselect(True)
...
 Height(285)
...
 Left(8)
...
 Parent(#COM_OWNER)
...
 Tabposition(1)
...
 Top(8)
...
 Width(465)
     Define_
...
Com Class(#PRIM_LVCL)
...
 Name(#LVCL_1)
...
 Displayposition(1)
...
 Parent(#DRAG_LIST)
...
 Source(#EMPNO)
...
 Width(18)
     Define_
...
Com Class(#PRIM_LVCL)
...
 Name(#LVCL_2)
...
 Displayposition(2)
...
 Parent(#DRAG_LIST)
...
 Source(#SALARY)
...
 Width(20)
     Define_
...
Com Class(#PRIM_LVCL)
...
 Name(#LVCL_3)
...
 Displayposition(3)
...
 Parent(#DRAG_LIST)
...
 Source(#SURNAME)
...
 Width(20)
     Define_
...
Com Class(#PRIM_LVCL)
...
 Name(#LVCL_4)
...
 Displayposition(4)
...
 Parent(#DRAG_LIST)
...
 Source(#GIVENAME)
...
 Width(20)
     Define_
...
Com Class(#PRIM_LVCL)
...
 Name(#LVCL_5)
...
 Displayposition(5)
...
 Parent(#DRAG_LIST)
...
 Source(#DEPTMENT)
...
 Width(11)
     Define_
...
Com Class(#PRIM_LVCL)
...
 Name(#LVCL_6)
...
 Displayposition(6)
...
 Parent(#DRAG_LIST)
...
 Source(#POSTCODE)
...
 Width(20)
...
 Widthtype(Remainder)
...

     * Define the drop form (change #LCOL00004 to the name you give to the second form)
     Define_Com Class(#LCOL00004)
     * ===============================
...

     * Handle main form initialization
     * ===============================
...

     Evtroutine Handling(#com_owner.Initialize)
...

     * Fill the drag list with employee details
     Select Fields(#DRAG_LIST)
...
 From_File(PSLMST)
     Add_
...
Entry To_List(#DRAG_LIST)
...

     Endselect
     * Show the drop list form (change #LCOL00004 to the name you give to the second form)
     Invoke Method(#LCOL00004.ShowForm)
...

     Endroutine
     * ==================================
...

     * Handle starting the drag operation
     * ==================================
...

     Evtroutine Handling(#Drag_List.StartDrag)
...
 Draglist(#DragList)
...
 Continue(#Continue)
...
 Payload(#PayLoad)
     Define_
...
Com Class(#Prim_LCOL<#Employee>)
...
 Name(#PayLoadList)
...
 Reference(*Dynamic)
     Define_
...
Com Class(#Employee)
...
 Name(#DragEmployee)
...
 Reference(*Dynamic)
...

     * Dynamically create the list collection that is to to be the "payload"
...

     * for this drag operation. It is a list collection of #Employee objects
     Set_Ref Com(#PayLoadList) To(*Create_
...
as #Prim_LCOL<#Employee>)
...

     * Now fill the list collection with the employees that are selected
     Selectlist Named(#DRAG_LIST)
...

     Continue If('#Drag_List.Currentitem.
...
Selected *ne True')
     Set_
...
Ref Com(#DragEmployee)
...
 To(*Create_
...
as #Employee)
     Set Com(#DragEmployee)
...
 Pempno(#Empno)
...
 Pgivename(#GiveName)
...
 Psurname(#Surname)
...
 Psalary(#Salary)
...
 Pdepartment(#Deptment)
...
 Ppostcode(#PostCode)
...

     Invoke Method(#PayLoadList.Insert)
...
 Item(#DragEmployee)
...

     Endselect
     ** Finished. Set the correct return values
     Set Com(#Continue) Value(True)
     Set_Ref Com(#PayLoad) To(#PayLoadList)
     Set Com(#DragList) Dragliststyle(Selection)
     Endroutine
     End_Com
2番目のフォーム
     Function Options(*DIRECT)
     Begin_Com Role(*EXTENDS #PRIM_FORM) Clientheight(433) Clientwidth(331) Dragstyle(Automatic) Formstyle(StayOnTopChild) Height(460) Left(453) Top(49) Width(339)
     * The Drop List Definition
     Define_Com Class(#PRIM_LTVW) Name(#DROP_LIST) Displayposition(1) Dragstyle(Automatic) Fullrowselect(True) Height(418) Left(6) Parent(#COM_OWNER) Tabposition(1) Top(7) Width(321)
     Define_Com Class(#PRIM_LVCL) Name(#LVCL_1) Displayposition(1) Parent(#DROP_LIST) Source(#EMPNO) Width(18)
     Define_Com Class(#PRIM_LVCL) Name(#LVCL_3) Displayposition(2) Parent(#DROP_LIST) Source(#SURNAME) Width(20)
     Define_Com Class(#PRIM_LVCL) Name(#LVCL_4) Displayposition(3) Parent(#DROP_LIST) Source(#GIVENAME) Width(40)
     Define_Com Class(#PRIM_LVCL) Name(#LVCL_6) Displayposition(4) Parent(#DROP_LIST) Source(#POSTCODE) Width(20) Widthtype(Remainder)
     * ===============================
...

     * Handle Drag Over the drop list
     * ===============================
...

     Evtroutine Handling(#Drop_List.DragOver)
...
 Acceptdrop(#AcceptDrop)
...
 Payload(#PayLoad)
...

     * If the payload to be dropped is a list collection of employees
     * then accept it otherwise reject it .....
...

     If_
...
Ref Com(#PayLoad)
...
 Is(*Instance_
...
of #Prim_LCol<#Employee>)
...

     Set Com(#AcceptDrop)
...
 Value(True)
...

     Else
     Set Com(#AcceptDrop)
...
 Value(False)
...

     Endif
     Endroutine
     * =========================================
...

     * Handle the actual drop into the drop list
     * =========================================
...

     Evtroutine Handling(#Drop_List.DragDrop)
...
 Payload(#PayLoad)
     Define_
...
Com Class(#Prim_LCOL<#Employee>)
...
 Name(#EmployeePayLoad)
...
 Reference(*Dynamic)
...

     * Cast the payload as a list collection of employee objects ....
...

     Set_
...
Ref Com(#EmployeePayLoad)
...
 To(*
...
Dynamic #PayLoad)
     * Fill drop list with all the employee numbers in the payload ...
     Clr_List Named(#DROP_LIST)
...

     For Each(#EmployeeObject)
...
 In(#EmployeePayLoad)
...

     Change Field(#EMPNO)
...
 To('#EMPLOYEEOBJECT.PEMPNO')
...

     Change Field(#GIVENAME)
...
 To('#EMPLOYEEOBJECT.PGIVENAME')
...

     Change Field(#SURNAME)
...
 To('#EMPLOYEEOBJECT.PSURNAME')
...

     Change Field(#POSTCODE)
...
 To('#EMPLOYEEOBJECT.PPOSTCODE')
     Add_
...
Entry To_List(#DROP_LIST)
...

     Endfor
     Endroutine
     End_Com