[ |../../index.htm#lansa/lansa050_2555.htm]
現在地: RAMP-TSガイド > VLF-ONE における RAMP への切り替え > 主な相違点 > VLF-WIN と VLF-ONE コードの比較

VLF-WIN と VLF-ONE コードの比較

 
VLF-WIN フィルターから検索を行う典型的なコード

• リスト更新の開始を示して、フレームワークをビジーに設定
  Invoke Method(#avListManager.BeginListUpdate)
   
   
• 名前 (姓) の順に姓の全部または一部を使って社員レコードを選択し、インスタンスリストに追加
  Select Fields(#EMPNO #GIVENAME #SURNAME #DEPTMENT #SECTION #ADDRESS1 #PHONEHME #POSTCODE) From_File(PSLMST2) With_Key(#SURNAME) Generic(*YES)
   
• フィルターの右のインスタンスリストにエントリー追加
   
  Invoke Method(#avListManager.AddtoList) Visualid1(#Empno) Visualid2(#FullName) Akey1(#Deptment) Akey2(#Section) Akey3(#Empno) Acolumn1(#Phonehme) Acolumn2(#Address1) Ncolumn1(#PostCode)
   
  Endselect
   
• リスト更新の終了を示す
  Invoke Method(#avListManager.EndListUpdate)
   
   
  VLF-ONE フィルターから検索を行う典型的なコード
  クライアントとサーバー側の両方のプログラムが必要となります。
  クライアント側 (再利用可能パーツ、ターゲット プラットフォーム Web - サンプル DF_T41F1O を参照)
  サーバー側への呼び出しを行い、データを受け取ってリストに戻し、リストのデータをインスタンスリストに書き込みます。
• サーバーの社員データ取得のために使用するサーバー・モジュールのメソッド・ルーチンの定義
  Define_Com Class(#DF_T42DSO.FindPSLMST2) Name(#Find)
   
• サーバー モジュール DF_T42DSO にサーバーのデータ取得を指示
  #Find.ExecuteAsync( #SearchSurname #GIVENAME #PSLMSTList )
   
• 同期的呼び出しのため、呼び出し終了後にイベントが発生
  Evtroutine Handling(#Find.Completed)
   
   
• サーバー・モジュール DF_T42DSO によって戻されたリストの読み込み
  Selectlist Named(#PSLMSTList)
   
• 詳細をインスタンスリストに追加
   
  #avListManager.AddtoList Visualid1(#EMPNO) Visualid2(#SURNAME + ' ' + #GIVENAME) Akey1(#EMPNO)
   
  Endselect
   
  Endroutine
   
   
  サーバー側のプログラム (サーバー・モジュール - サンプル DF_T42DSO を参照)
  データベース I/O を行い、データをクライアント・プログラムにリストとして引き渡します。
  Srvroutine Name(FindPSLMST2) Session(*REQUIRED)
  Field_Map For(*Input) Field(#SURNAME)
  Field_Map For(*Input) Field(#GIVENAME)
  List_Map For(*Output) List(#PSLMSTList)
  Field_Map For(*Output) Field(#io$sts)
   
• 一部またはすべてのキーを使ってファイルからすべてのレコードを取得
  Select Fields(#PSLMSTList) From_File(PSLMST2) With_Key(#SURNAME #GIVENAME) Nbr_Keys(*Compute) Generic(*Yes) Io_Error(*Next)
   
  Add_Entry To_List(#PSLMSTList)
   
  Endselect
   
  Endroutine
   
   
  [ |../../index.htm#lansa/lansa050_2555.htm]