バリアント コンポーネント

祖先 - データクラス (PRIM_DC) オブジェクト (PRIM_OBJT)

詳細

Variant は、コンパイル時にデータ型が不明な値を表すために使用されます。 
ValueType のプロパティは、データタイプをテストするために使用されます。
LANSA は強く型付けされた環境です。通常、アプリケーションで使用されるフィールドと変数は、データ型が固定されている特定のデータベース表の列に関連しています。アプリケーションで複雑なジェネリックプログラミングが必要な場合を除き、ほとんどの開発目的では PRIM_MENU は必須ではありません。

例

この例では、グリッド内でデータが変更されたときに EditorChanged イベントが値を返しています。イベントは任意の列型に対して定義されるため、その値はバリアントでなければなりません。
Prim_Var は、変更されるデータ値の種類に関するフィードバックを提供するためにここで使用されます。

     Function Options(*DIRECT)
     Begin_Com Role(*EXTENDS #PRIM_FORM) Clientheight(440) Clientwidth(975) Height(479) Layoutmanager(#TableLayout_1) Left(152) Top(225) Width(991) 

        Define_Com Class(#PRIM_TBLO) Name(#TableLayout_1)
        Define_Com Class(#PRIM_TBLO.Row) Name(#Row_1) Displayposition(1) Parent(#TableLayout_1)
        Define_Com Class(#PRIM_TBLO.Column) Name(#Column_1) Displayposition(1) Parent(#TableLayout_1)
        Define_Com Class(#PRIM_TBLO.Item) Name(#LayoutItem1) Column(#Column_1) Manage(#Grid) Parent(#TableLayout_1) Row(#Row_1) 

        Define_Com Class(#PRIM_GRID) Name(#Grid) Captionnoblanklines(True) Columnscroll(False) Componentversion(1) Displayposition(1) Height(440) Left(0) Parent(#COM_OWNER) Showselection(True) Showselectionhilight(False) Showsortarrow(True) Tabposition(1) Top(0) Width(975) Columnbuttonheight(22) Rowheight(22)
        Define_Com Class(#PRIM_GDCL) Name(#GridColumn1) Displayposition(1) Parent(#Grid) Source(#EMPNO) Width(12) Widthtype(Fixed)
        Define_Com Class(#PRIM_GDCL) Name(#GridColumn2) Displayposition(2) Parent(#Grid) Source(#SURNAME) Width(25) Widthtype(Fixed) Readonly(False)
        Define_Com Class(#PRIM_GDCL) Name(#GridColumn3) Displayposition(3) Parent(#Grid) Source(#GIVENAME) Width(25) Widthtype(Fixed) Readonly(False)
        Define_Com Class(#PRIM_GDCL) Name(#GridColumn4) Displayposition(4) Parent(#Grid) Source(#SALARY) Width(25) Widthtype(Fixed) Readonly(False) 

        Evtroutine Handling(#Com_owner.CreateInstance) 

           #Com_owner.Load 

        Endroutine 

        Mthroutine Name(Load) 

           Select Fields(*All) From_File(PSLMST) 

              Add_Entry To_List(#Grid) 

           Endselect 

        Endroutine 

        Evtroutine Handling(#Grid.EditorChanged) Value(#Value) 

           Define_Com Class(#prim_var) Name(#VariantValue) 

           #VariantValue := #Value 

           #Com_owner.Caption := ("&1 - &2").Substitute( #VariantValue.ValueType #VariantValue ) 

        Endroutine 

     End_Com

プロパティ

イベント

メソッド

参照

すべてのコンポーネント クラス
テクニカル リファレンス