You are viewing an old version of this page. View the current version.

Compare with Current View Page History

Version 1 Current »

[ |../../index.htm#lansa/vlfonetutorials_0395.htm]
Visual LANSA フレームワーク ガイド > チュートリアル > VLF-ONE Web アプリケーションのチュートリアル > フィルターとコマンド・ハンドラーの手動作成 > フィルターの手動によるコーディングとスナップイン > フィルター用の再利用可能パーツを作成

フィルター用の再利用可能パーツを作成

Visual LANSA エディターで、[ファイル] > [作成] > [再利用可能パーツ] を選択します。

 
[VLF-ONE 再利用可能パーツ] の [基本フィルター] を選択します。

 
フィルターの名前と記述を入力し、ターゲット プラットフォームは Web ブラウザにします。

 
[作成] をクリックします。
フィルターがエディターで開かれたら、これをダブルクリックして詳細を表示します。祖先が、すべての VLF-ONE フィルターの共通祖先である #VF_AC007O になっていることに注意してください。

 
[ソース] タブに切り替えて、コードを次のコードに置き換えます。
Function Options(*DIRECT)
Begin_Com Role(*EXTENDS #VF_AC007O) Layoutmanager(*NULL) Width(249) Height(161)
 
 
Define_Com Class(#xEmployeeSurname.Visual) Name(#SearchSurname) Displayposition(1) Height(25) Parent(#COM_OWNER) Tabposition(1) Width(209) Labeltype(Caption) Marginleft(0) Top(48) Left(8)
Define_Com Class(#PRIM_LABL) Name(#Label1) Caption('Specify full or partial surname:') Displayposition(2) Ellipses(Word) Height(25) Left(12) Parent(#COM_OWNER) Tabposition(2) Tabstop(False) Top(27) Verticalalignment(Center) Width(197)
 
 

  • Used to save and restore search values
    Def_List Name(#Save_Keys) Fields(#xEmployeeSurname #xEmployeeGivenNames) Type(*Working) Entrys(1)
     
  • The list used to receive data from the server module
    Def_List Name(#xEmployeeList) Fields(#xEmployeeIdentification #xEmployeeSurname #xEmployeeGivenNames #xEmployeeStreet #xEmployeeCity #xEmployeeState #xEmployeePostalCode #xEmployeeHomeTelephone #xEmployeeBusinessTelephone #xEmployeeStartDate #xEmployeeTerminationDate #xDepartmentCode #xEmployeeSalary) Counter(#ListCount) Type(*Working) Entrys(*Max)
     
  • --------------------------------------------------------------------------
    Mthroutine Name(uInitialize) Options(*REDEFINE)
  • Do ancestor first
    #COM_ANCESTOR.uInitialize
     
    Endroutine
  • --------------------------------------------------------------------------
     
    Evtroutine Handling(#SearchSurname.Enter)
     
  • Clear all messages
    #AVFRAMEWORKMANAGER.avClearMessages Requester(#COM_OWNER)
     
  • Only search if a search value has been entered
    If (#SearchSurname.Trim <> "")
    #COM_OWNER.SelectEmployeeData
  • Otherwise issue a message
    Else
    #AVFRAMEWORKMANAGER.avIssueMessage Text("Enter some part of the surname") Requester(#COM_OWNER) Type(WARN)
    Endif
     
    Endroutine
    Mthroutine Name(SelectEmployeeData)
     
  • Define the Server Module method routine used to get employee data from the server
    Define_Com Class(#SModule1.FindxEmployeeBySurna) Name(#Find)
     
  • Save the current key values from overwrites done by the select loop
    Inz_List Named(#Save_Keys)
     
  • indicate to the user that we are busy
    #COM_OWNER.avGotoBusyState Showbusytext('Searching') Animated(False)
     
  • Ask Server Module SModule1 to get the data from the server
    #Find.ExecuteAsync( #SearchSurname #xEmployeeGivenNames #xEmployeeList )
     
  • The call is asynchronous so we have an event that occurs when the call is finished
    Evtroutine Handling(#Find.Completed)
     
  • Read the list returned by Server Module SModule1
    Selectlist Named(#xEmployeeList)
     
    #avListManager.AddtoList Visualid1(#xEmployeeIdentification) Visualid2(#xEmployeeSurname + ', ' + #xEmployeeGivenNames) Akey1(#xEmployeeIdentification)
     
    Endselect
     
  • Restore the saved key values
    Get_Entry Number(1) From_List(#Save_Keys)
     
  • Go back to display free state
    #com_Owner.avGotoFreeState
     
    Endroutine
    Endroutine

  • --------------------------------------------------------------------------
    End_Com
     
    [デザイン] タブに切り替えて、をフィルターのユーザー・インターフェースを確認します。

     
    フィルターをコンパイルします。
     
    [ |../../index.htm#lansa/vlfonetutorials_0395.htm]

  • No labels