日時ピッカー
日時ピッカーを使用して、ユーザーが日時を選択できるようにします。
ピッカーから戻される値はDateTimeフィールドです。
以下の例をコピー・貼り付けして、日時ピッカーがどのように動作するかを確認することができます。
Function Options(*DIRECT)
Begin_Com Role(*EXTENDS #PRIM_FORM) Caption('DateTime Tester') Clientheight(127) Clientwidth(489) Componentversion(1) Formposition(ScreenCenter) Height(163) Left(445) Top(147) Width(505)
Define_Com Class(#PRIM_DTIM) Name(#DATETIME) Displayposition(1) Height(25) Hint('Test Hint') Left(8) Parent(#COM_OWNER) Tabposition(4) Top(16) Visualstyle(#VS_NORM) Width(265)
Define_Com Class(#PRIM_DTIM) Name(#MIN) Displayposition(3) Height(25) Left(72) Parent(#COM_OWNER) Tabposition(2) Top(56) Width(120)
Define_Com Class(#PRIM_DTIM) Name(#MAX) Displayposition(2) Height(25) Left(72) Parent(#COM_OWNER) Tabposition(1) Top(88) Width(120)
Define_Com Class(#PRIM_LABL) Name(#LABL_1) Caption('Min Date') Displayposition(5) Height(25) Left(8) Parent(#COM_OWNER) Tabposition(5) Tabstop(False) Top(56)
Define_Com Class(#PRIM_LABL) Name(#LABL_2) Caption('Man Date') Displayposition(4) Height(22) Left(8) Parent(#COM_OWNER) Tabposition(3) Tabstop(False) Top(88)
Define_Com Class(#PRIM_GPBX) Name(#GPBX_1) Caption('Format') Displayposition(6) Height(108) Left(288) Parent(#COM_OWNER) Tabposition(6) Tabstop(False) Top(8) Width(185)
Define_Com Class(#PRIM_RDBN) Name(#RDBN_1) Buttonchecked(True) Caption('SystemLongDate') Displayposition(1) Height(17) Left(8) Parent(#GPBX_1) Tabposition(1) Top(16)
Define_Com Class(#PRIM_RDBN) Name(#RDBN_2) Caption('UserTime') Displayposition(2) Height(15) Left(8) Parent(#GPBX_1) Tabposition(2) Top(82)
Define_Com Class(#PRIM_RDBN) Name(#RDBN_3) Caption('SystemDate') Displayposition(3) Height(17) Left(8) Parent(#GPBX_1) Tabposition(3) Top(32)
Define_Com Class(#PRIM_RDBN) Name(#RDBN_4) Caption('UserDate') Displayposition(4) Height(17) Left(8) Parent(#GPBX_1) Tabposition(4) Top(64)
Define_Com Class(#PRIM_RDBN) Name(#RDBN_5) Caption('SystemTime') Displayposition(5) Height(17) Left(8) Parent(#GPBX_1) Tabposition(5) Top(48)
Evtroutine Handling(#COM_OWNER.CreateInstance) Options(*NOCLEARMESSAGES *NOCLEARERRORS)
Set Com(#DATETIME) Value(*DateTime)
Set Com(#MIN) Value(#DATETIME.mindate)
Set Com(#MAX) Value(#DATETIME.maxdate)
Set Com(#DATETIME) Dateformat(SystemLongDate)
Endroutine
Evtroutine Handling(#RDBN_1.Click)
* Set SystemLongDate
Set Com(#DATETIME) Dateformat(SystemLongDate)
Endroutine
Evtroutine Handling(#RDBN_2.Click)
* Set SystemShortDate
Set Com(#DATETIME) Dateformat(SystemDate)
Endroutine
Evtroutine Handling(#RDBN_3.Click)
* Set SystemTime
Set Com(#DATETIME) Timeformat(SystemTime)
Endroutine
Evtroutine Handling(#RDBN_4.Click)
* Set UserShortDate
Set Com(#DATETIME) Dateformat(UserDate)
Endroutine
Evtroutine Handling(#RDBN_5.Click)
* Set UserTime
Set Com(#DATETIME) Timeformat(UserTime)
Endroutine
Evtroutine Handling(#MIN.Changed) Options(*NOCLEARMESSAGES *NOCLEARERRORS)
Set Com(#DATETIME) Mindate(#MIN.Value)
Endroutine
Evtroutine Handling(#MAX.Changed) Options(*NOCLEARMESSAGES *NOCLEARERRORS)
Set Com(#DATETIME) Maxdate(#MAX.Value)
Endroutine
End_Com