Page History

Sorted array

...

コレクションは、サイズやソート順を動的に変えられるコンポーネントのコレクションで、インデックスにより検索することができます。インデックスには、常に 1 を基準とした値が付けられます。

この例で、フォームは、指定された順序でソートされたArray コレクションを返す再利用可能パーツを呼び出します。また、例では、社員の詳細を保存するための社員の再利用可能パーツを使用します。

リストをソートするフィールドの名前を入力し、取得 Listプッシュ・ボタンをクリックすると、ソートされたリストが表示されます。フィールドは、EMPNO、SURNAME、GIVENAME、POSTCODE、SALARY、およびDEPTMENTでソートできます。

Image RemovedImage Added

コレクションの定義とアイテムの追加

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)

...

リストをソートする再利用可能パーツ
この例では、コンポーネントの名前は#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 this list is finished with
     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