Form - CHECKBOX全选功能

FORM BUILDER开发，遇到这样一个需求：
添加一个CHECKBOX完成全选功能，红框为新添加的CHECKBOX（如图示）

Try to use APP_RECORD.FOR_ALL_RECORDS
ex：Soure Block：TEST  Soure Item：CHECK(is a Checkbox Item)
一、BLOCK：CONTROL(Non Database Data Block) Add a Checkbox Item(Item Name：ALL_CHECK)
二、CONTROL.ALL_CHECK add Trigger(Item Level) -- WHEN-CHECKBOXBOX-CHANGED
     ---------------------------------------------------------------------------
     BEGIN
        APP_RECORD.FOR_ALL_RECORDS ('TEST'                 --Source Block
                                                           ,'ALL_CHECK'       --Source Block Trigger
                                                          );
     END;
     ---------------------------------------------------------------------------
三、Block：TEST  add User-define Trigger(Block Level), Trigger Name：ALL_CHECK
     ---------------------------------------------------------------------------
     BEGIN
         IF :CONTROL.ALL_CHECK = 'Y' THEN
           :TEST.CHECK = 'Y';
         ELSE
            :TEST.CHECK = 'N';
         END IF;
     END;
     ---------------------------------------------------------------------------