[ |../../index.htm#lansa/l4wdev06_1080.htm]
現在地:

2.17.4.4 Sorted array コレクションの例

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 object   Set_Ref Com(#ObjectEmployee) To(*Dynamic #Object) Set_Ref Com(#SubjectEmployee) To(*Dynamic #Subject)   * Now compare the objects based on the current #R_OrderBy value   Case 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 reference   Define_Com Class(#Employee) Name(#SortedEmployee) Reference(*Dynamic)   * Make the requested order by parameter visible to the #SortEmployeeList.Compare routine   Change Field(#R_ORDERBY) To('#ORDERBY.VALUE')   * Dynamically create a new sorted array list to contain the employee objects   Set_Ref Com(#SortedEmployeeList) To(*Create_as #Prim_SACO<#Employee>)   * Fill the sorted array collection list with employee objects   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   * Return a refernence to the list that was created   Set_Ref Com(#EmployeeList) To(#SortedEmployeeList)   * Drop the reference in this component as we have finished with the list   Set_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 object   Set_Ref Com(#ObjectEmployee) To(*Dynamic #Object) Set_Ref Com(#SubjectEmployee) To(*Dynamic #Subject)   * Now compare the objects based on the current #R_OrderBy value   Case 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 routine   Mthroutine 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) Endif Endif   Endroutine   * Numeric compare routine   Mthroutine 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) Endif Endif   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 initialization   Evtroutine Handling(#com_owner.Initialize)   Set Com(#Sort_By_Field) Value(SALARY)   Endroutine   Evtroutine Handling(#PHBN_Get_List.Click)   * Define a reference to the employee list that will be returned   Define_Com Class(#Prim_SACO<#Employee>) Name(#ReturnedList) Reference(*Dynamic)   * Invoke the method that returns the sorted list of employees   Invoke Method(#LCOL00002.GetEmployees) Employeelist(#ReturnedList) Orderby(#Sort_By_Field)   * Now go through the returned list and add the entries to the visible #Emp_List   Clr_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
[ |../../index.htm#lansa/l4wdev06_1080.htm]