SET  ::WM_DROPFILES                    =0x0233
SET  ::WM_MOUSEHOVER                   =0x02A1
SET  ::WM_MOUSELEAVE                   =0x02A3
SET  ::WM_MOUSEENTER                   =0x1000

WIN2

_SUB WIN2,W360H440,PECMD2012功能演示,,#1,
    EDIT EDIT1,L28T14W158H29,0,,
    ITEM ITEM1,L32T82W60H30,查询,  CALL OnButton1,
    ITEM ITEM2,L117T81W60H30,设置, CALL OnButton2,
    ENVI &&YEAR=2012
    LABE LABE3,L29T147W287H36,LABE3,,
    DTIM Dtim1,L29T299W258H30,2008;5;12,CALL  OnButton1,0x200     //USERCTRL
    DTIM Dtim2,L30T345W252H24,8;5;12,CALL  OnTime2,0x40
    LABE LABE2,L30T192W285H71,LABE2,,
    ENVI @Dtim1.MSG=%&WM_MOUSEENTER%: ENVI @LABE2=欢迎进入Dtim1
    ENVI @Dtim1.MSG=0x02A1: ENVI @LABE2=欢迎惠顾Dtim1
    ENVI @Dtim1.MSG=0x02A3: ENVI @LABE2=欢迎再来Dtim1
_END

_SUB OnButton1  
    TEAM ENVI @Dtim1.VAL=?&&D1;&&D2;&&D3;&&D4;&&D5|  ENVI @LABE3=  [%&D1%] [%&D2%] [%&D3%] [%&D4%] [%&D5%]
_END

_SUB OnButton2  
    TEAM CALC #&YEAR=%&YEAR% + 1| ENVI @Dtim1.VAL=%&YEAR%;1;1
_END


_SUB OnTime2
    TEAM ENVI @Dtim2.VAL=?&&D1;&&D2;&&D3;&&D4;&&D5|  ENVI @LABE3=  [%&D1%] [%&D2%] [%&D3%] [%&D4%] [%&D5%]
_END