テーブル・アクセス用のサーバー・モジュールを作成

フィルターを作成する前に、フィルターが利用するテーブルへのアクセスを制御するサーバー・モジュールを作成します。

Visual LANSA エディターで、[ファイル] > [作成] > [サーバー モジュール] を選択します。

 

サーバー・モジュールの名前、記述を入力し、サーバー・モジュールによりアクセスされるテーブルに xEmployee を指定します。

エディタでサーバー・モジュールを開き、サーバー・モジュール FindxEmployeeBySurna を探します。ルーチン内の Select ステートメントを次のようにコメントにします。

* Select Fields(#xEmployeeList) From_File(xEmployeeBySurname) With_Key(#xEmployeeSurname #xEmployeeGivenNames) Nbr_Keys(*Compute) Generic(*Yes)

 

そして、この後に次のコード行を貼り付けます。

Define_Com Class(#xEmployeeSurname) Name(#SearchEmployeeSurname)

#SearchEmployeeSurname := #xEmployeeSurname.UpperCase

Select Fields(#xEmployeeList) From_File(xEmployeeBySurname) Where(#xEmployeeSurname.UpperCase.Contains( #SearchEmployeeSurname ))

 

(Where() 句は SELECT ステートメントがテーブル全体を読み込むことを意味することに注意してください。自身のアプリケーションでは、SELECT_SQL ステートメントを調べて、大きなテーブルの効果的な検索方法についても学習してください。)

 

サーバー・モジュールをコンパイルします。