Page History
[ 
|../../index.htm#lansa/l4wdev06_1080.htm]
現在地:
...
Sorted array コレクションは、サイズやソート順を動的に変えられるコンポーネントのコレクションで、インデックスにより検索することができます。インデックスには、常に1を基準とした値が付けられます。
この例で、フォームは、指定された順序でソートされたArray コレクションを返す再利用可能パーツを呼び出します。また、例では、社員の詳細を保存するための社員の再利用可能パーツを使用します。
リストをソートするフィールドの名前を入力し、取得 Listプッシュ・ボタンをクリックすると、ソートされたリストが表示されます。フィールドは、EMPNO、SURNAME、GIVENAME、POSTCODE、SALARY、およびDEPTMENTでソートできます。
...
コレクションの定義とアイテムの追加
Sorted array コレクションは、社員をソートするための再利用可能パーツで定義されます。社員の詳細はPSLMSTから取得され、#SortedEmployeeオブジェクトは#Employeeオブジェクトに基づいて作成され、取得された社員の詳細を割り当てられます。その後コレクションに#SortedEmployeeオブジェクトが埋め込まれます。
Set_
...
Ref Com(#SortedEmployeeList)
...
To(*Create_
...
as #Prim_SACO<#Employee>)
...
Select Fields(#EMPNO #GIVENAME #SURNAME #DEPTMENT #SALARY #POSTCODE) From_File(PSLMST)Set_Ref Com(#SortedEmployee) To(*Create_as #Employee)Set Com(#SortedEmployee) Pempno(#Empno) Pgivename(#GiveName) Psurname(#Surname) Psalary(#Salary) Pdepartment(#Deptment) Ppostcode(#PostCode)Invoke Method(#SortedEmployeeList.Insert) Item(#SortedEmployee)Endselect
...
アイテムがコレクションに追加されるたびに、Compareイベントがトリガーされます。このイベントは、コレクションをソートするロジックを提供します。社員を比較するObjectパラメータと#Subjectパラメータとして使用される#ObjectEmployeeオブジェクトと#SubjectEmployeeオブジェクトが作成されます。
Evtroutine Handling(#SortedEmployeeList.Compare) Object(#Object) Subject(#Subject) Result(#Result)Define_Com Class(#Employee) Name(#ObjectEmployee) Reference(*Dynamic)Define_
...
Com Class(#Employee)
...
Name(#SubjectEmployee)
...
Reference(*Dynamic)
...
* Cast the object and subject objects to the Employee objectSet_Ref Com(#ObjectEmployee) To(*Dynamic #Object)Set_
...
Ref Com(#SubjectEmployee)
...
To(*
...
Dynamic #Subject)
...
* Now compare the objects based on the current #R_OrderBy valueCase Of_Field(#R_ORDERBY)
...
When Value_Is('= GiveName')
...
Invoke Method(#Com_Owner.CompareAlpha)
...
Object(#ObjectEmployee.pGiveName)
...
Subject(#SubjectEmployee.pGiveName)
...
Result(#Result)
...
When Value_Is('= Surname')
...
Invoke Method(#Com_Owner.CompareAlpha)
...
Object(#ObjectEmployee.pSurName)
...
Subject(#SubjectEmployee.pSurName)
...
Result(#Result)
...
When Value_Is('= Deptment')
...
Invoke Method(#Com_Owner.CompareAlpha)
...
Object(#ObjectEmployee.pDepartment)
...
Subject(#SubjectEmployee.pDepartment)
...
Result(#Result)
...
When Value_Is('= Salary')
...
Invoke Method(#Com_Owner.CompareNumeric)
...
Object(#ObjectEmployee.pSalary)
...
Subject(#SubjectEmployee.pSalary)
...
Result(#Result)
...
When Value_Is('= PostCode')
...
Invoke Method(#Com_Owner.CompareNumeric)
...
Object(#ObjectEmployee.pPostCode)
...
Subject(#SubjectEmployee.pPostCode)
...
Result(#Result)
...
Otherwise
...
Invoke Method(#Com_Owner.CompareAlpha)
...
Object(#ObjectEmployee.pEmpNo)
...
Subject(#SubjectEmployee.pEmpNo)
...
Result(#Result)
...
Endcase
...
Endroutine
...
コレクションのアイテムの取得
社員のリストの参照を定義し、再利用可能パーツの社員を取得するメソッドを呼び出すことにより、フォームはソート済コレクションの値を取得します。
Define_
...
Com Class(#Prim_SACO<#Employee>)
...
Name(#ReturnedList)
...
Reference(*Dynamic)
...
Invoke Method(#LCOL00002.GetEmployees)
...
Employeelist(#ReturnedList)
...
Orderby(#Sort_By_Field)
...
表示される#Emp_Listにエントリーを追加するために、コレクションが繰り替えされます。
...
For Each(#EmployeeObject)
...
In(#ReturnedList) Change Field(#EMPNO) To('#EMPLOYEEOBJECT.PEMPNO')Change Field(#GIVENAME) To('#EMPLOYEEOBJECT.PGIVENAME')Change Field(#SURNAME) To('#EMPLOYEEOBJECT.PSURNAME')Change Field(#POSTCODE) To('#EMPLOYEEOBJECT.PPOSTCODE')Change Field(#DEPTMENT) To('#EMPLOYEEOBJECT.PDEPARTMENT')
...
Change Field(#SALARY)
...
To('#EMPLOYEEOBJECT.PSALARY')
...
Add_
...
Entry To_List(#EMP_LIST)
...
Endfor
...
Sorted array コレクションの例のソース
Employeeオブジェクト
このオブジェクトを再利用可能パーツとして作成します。この例では、#Employeeという名前にします。
...
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
...
リストをソートする再利用可能パーツ
この例では、コンポーネントの名前は#LCOL00002とします。
...
Function Options(*DIRECT)Begin_
...
Com Role(*
...
EXTENDS #PRIM_OBJT)
...
Define_
...
Com Class(#Prim_SACO<#Employee>)
...
Name(#SortedEmployeeList)
...
Reference(*Dynamic)
...
Define Field(#R_ORDERBY)
...
Reffld(#STD_TEXTS)
...
* This method is passed an OrderBy() parameter set to EMPNO, SURNAME, GIVENAME,* SALARY, DEPTMENT or ZIPCODE.It extracts a list of all employees in the PSLMST* table and returns their details as a sorted array colelction of employee objects.Mthroutine Name(GetEmployees)Define_Map For(*Output) Class(#Prim_SACO<#Employee>)
...
Name(#EmployeeList)
...
Pass(*By_Reference)Define_
...
Map For(*input)
...
Class(#Std_Texts)
...
Name(#OrderBy)
...
* Define an Employee object referenceDefine_
...
Com Class(#Employee)
...
Name(#SortedEmployee)
...
Reference(*Dynamic)
...
* Make the requested order by parameter visible to the #SortEmployeeList.Compare routineChange Field(#R_ORDERBY)
...
To('#ORDERBY.VALUE')
...
* Dynamically create a new sorted array list to contain the employee objectsSet_Ref Com(#SortedEmployeeList)
...
To(*Create_
...
as #Prim_SACO<#Employee>)
...
* Fill the sorted array collection list with employee objectsSelect Fields(#EMPNO #GIVENAME #SURNAME #DEPTMENT #SALARY #POSTCODE) From_File(PSLMST)
...
Set_
...
Ref Com(#SortedEmployee)
...
To(*Create_
...
as #Employee)Set Com(#SortedEmployee)
...
Pempno(#Empno)
...
Pgivename(#GiveName)
...
Psurname(#Surname)
...
Psalary(#Salary)
...
Pdepartment(#Deptment)
...
Ppostcode(#PostCode)
...
Invoke Method(#SortedEmployeeList.Insert)
...
Item(#SortedEmployee)
...
Endselect
...
* Return a refernence to the list that was createdSet_Ref Com(#EmployeeList)
...
To(#SortedEmployeeList)
...
* Drop the reference in this component as we have finished with the listSet_Ref Com(#SortedEmployeeList)
...
To(*null)
...
Endroutine
...
* This routine is invoked to compare the employees in #SortEmployeeList as they are added* by the GetEmployees method above.Evtroutine Handling(#SortedEmployeeList.Compare)
...
Object(#Object)
...
Subject(#Subject)
...
Result(#Result)Define_
...
Com Class(#Employee)
...
Name(#ObjectEmployee)
...
Reference(*Dynamic)Define_
...
Com Class(#Employee)
...
Name(#SubjectEmployee)
...
Reference(*Dynamic)
...
* Cast the object and subject objects to the Employee objectSet_Ref Com(#ObjectEmployee)
...
To(*
...
Dynamic #Object)Set_
...
Ref Com(#SubjectEmployee)
...
To(*
...
Dynamic #Subject)
...
* Now compare the objects based on the current #R_OrderBy valueCase Of_Field(#R_ORDERBY)
...
When Value_Is('=
...
GiveName')
...
Invoke Method(#Com_Owner.CompareAlpha)
...
Object(#ObjectEmployee.pGiveName)
...
Subject(#SubjectEmployee.pGiveName)
...
Result(#Result)
...
When Value_Is('=
...
Surname')
...
Invoke Method(#Com_Owner.CompareAlpha)
...
Object(#ObjectEmployee.pSurName)
...
Subject(#SubjectEmployee.pSurName)
...
Result(#Result)
...
When Value_Is('=
...
Deptment')
...
Invoke Method(#Com_Owner.CompareAlpha)
...
Object(#ObjectEmployee.pDepartment)
...
Subject(#SubjectEmployee.pDepartment)
...
Result(#Result)
...
When Value_Is('=
...
Salary')
...
Invoke Method(#Com_Owner.CompareNumeric)
...
Object(#ObjectEmployee.pSalary)
...
Subject(#SubjectEmployee.pSalary)
...
Result(#Result)
...
When Value_Is('=
...
PostCode')
...
Invoke Method(#Com_Owner.CompareNumeric)
...
Object(#ObjectEmployee.pPostCode)
...
Subject(#SubjectEmployee.pPostCode)
...
Result(#Result)
...
Otherwise
...
Invoke Method(#Com_Owner.CompareAlpha)
...
Object(#ObjectEmployee.pEmpNo)
...
Subject(#SubjectEmployee.pEmpNo)
...
Result(#Result)
...
Endcase
...
Endroutine
...
* Alpha compare routineMthroutine Name(CompareAlpha)Define_
...
Map For(*input)
...
Class(#Std_TextL)
...
Name(#Object)Define_
...
Map For(*input)
...
Class(#Std_TextL)
...
Name(#Subject)Define_
...
Map For(*output)
...
Class(#Std_Texts)
...
Name(#Result)
...
If Cond('#Subject.
...
Value < #Object.Value')
...
Set Com(#Result)
...
Value(Less)Else
...
If Cond('#Subject.
...
Value > #Object.Value')
...
Set Com(#Result)
...
Value(Greater)Else
...
Set Com(#Result)
...
Value(Equal)EndifEndif
...
Endroutine
...
* Numeric compare routineMthroutine Name(CompareNumeric)Define_
...
Map For(*input)
...
Class(#dem_dptot)
...
Name(#Object)Define_
...
Map For(*input)
...
Class(#dem_dptot)
...
Name(#Subject)Define_
...
Map For(*output)
...
Class(#Std_Texts)
...
Name(#Result)
...
If Cond('#Subject.
...
Value < #Object.Value')
...
Set Com(#Result)
...
Value(Less)Else
...
If Cond('#Subject.
...
Value > #Object.Value')
...
Set Com(#Result)
...
Value(Greater)Else
...
Set Com(#Result)
...
Value(Equal)EndifEndif
...
Endroutine
...
End_Com
...
フォーム
...
Function Options(*DIRECT)Begin_
...
Com Role(*
...
EXTENDS #PRIM_FORM)
...
Clientheight(330)
...
Clientwidth(657)
...
Height(357)
...
Left(219)
...
Top(173)
...
Visualstyle(#VS_NORM)
...
Width(665)
...
* Define the component that returns the sorted employee number list Define_Com Class(#PRIM_LTVW)
...
Name(#Emp_LIst)
...
Componentversion(1)
...
Displayposition(1)
...
Fullrowselect(True)
...
Height(233)
...
Left(27)
...
Parent(#COM_OWNER)
...
Showsortarrow(True)
...
Tabposition(1)
...
Top(72)
...
Width(606)Define_
...
Com Class(#PRIM_LVCL)
...
Name(#LVCL_1)
...
Displayposition(1)
...
Parent(#Emp_LIst)
...
Source(#EMPNO)
...
Width(12)Define_
...
Com Class(#PRIM_LVCL)
...
Name(#LVCL_2)
...
Displayposition(2)
...
Parent(#Emp_LIst)
...
Source(#SURNAME)
...
Width(20)Define_
...
Com Class(#PRIM_LVCL)
...
Name(#LVCL_3)
...
Displayposition(3)
...
Parent(#Emp_LIst)
...
Source(#GIVENAME)
...
Width(20)Define_
...
Com Class(#PRIM_LVCL)
...
Name(#LVCL_4)
...
Displayposition(4)
...
Parent(#Emp_LIst)
...
Source(#POSTCODE)
...
Width(20)Define_
...
Com Class(#PRIM_LVCL)
...
Name(#LVCL_5)
...
Displayposition(5)
...
Parent(#Emp_LIst)
...
Source(#SALARY)
...
Width(20)Define_
...
Com Class(#PRIM_LVCL)
...
Name(#LVCL_6)
...
Displayposition(6)
...
Parent(#Emp_LIst)
...
Source(#DEPTMENT)
...
Width(20)
...
Widthtype(Remainder)Define_
...
Com Class(#STD_OBJ.Visual)
...
Name(#Sort_By_Field)
...
Caption('
...
Get List Sorted by Field Named')
...
Displayposition(2)
...
Height(19)
...
Labeltype(Caption)
...
Left(24)
...
Parent(#COM_OWNER)
...
Tabposition(2)
...
Top(24)
...
Width(233)Define_
...
Com Class(#PRIM_PHBN)
...
Name(#PHBN_Get_List)
...
Caption('
...
Get List')
...
Displayposition(3)
...
Left(272)
...
Parent(#COM_OWNER)
...
Tabposition(3)
...
Top(24)
...
* Define the component that builds the sorted employee lists * (in this example it is called #LCOL00002, change it to the name you have * given to the reusable part)Define_Com Class(#LCOL00002)* Handle form initializationEvtroutine Handling(#com_owner.Initialize)
...
Set Com(#Sort_By_Field)
...
Value(SALARY)
...
EndroutineEvtroutine Handling(#PHBN_Get_List.Click)
...
* Define a reference to the employee list that will be returnedDefine_Com Class(#Prim_SACO<#Employee>)
...
Name(#ReturnedList)
...
Reference(*Dynamic)
...
* Invoke the method that returns the sorted list of employeesInvoke Method(#LCOL00002.GetEmployees)
...
Employeelist(#ReturnedList)
...
Orderby(#Sort_By_Field)
...
* Now go through the returned list and add the entries to the visible #Emp_ListClr_List Named(#EMP_LIST)
...
For Each(#EmployeeObject)
...
In(#ReturnedList)
...
Change Field(#EMPNO)
...
To('#EMPLOYEEOBJECT.PEMPNO')
...
Change Field(#GIVENAME)
...
To('#EMPLOYEEOBJECT.PGIVENAME')
...
Change Field(#SURNAME)
...
To('#EMPLOYEEOBJECT.PSURNAME')
...
Change Field(#POSTCODE)
...
To('#EMPLOYEEOBJECT.PPOSTCODE')
...
Change Field(#DEPTMENT)
...
To('#EMPLOYEEOBJECT.PDEPARTMENT')
...
Change Field(#SALARY)
...
To('#EMPLOYEEOBJECT.PSALARY')
...
Add_
...
Entry To_List(#EMP_LIST)
...
Endfor
...
Endroutine
...
End_Com
...