[Code Sample]loop trough all blocks of a form

最新推荐文章于 2019-07-31 19:17:00 发布

iteye_21199

最新推荐文章于 2019-07-31 19:17:00 发布

阅读量130

点赞数

本文介绍了一段代码，该代码用于遍历当前表单的所有块，并将每个块的插入、更新和删除权限设置为不允许，以此实现对数据的保护。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

.....
formname := NAME_IN('system.current_form');
blockname := GET_FORM_PROPERY(formname, FIRST_BLOCK);

WHILE (blockname is not null) LOOP

IF (GET_BLOCK_PROPERTY(blockname, BASE_TABLE) is not NULL) THEN

SET_BLOCK_PROPERTY(blockname, INSERT_ALLOWED, PROPERTY_FALSE);
SET_BLOCK_PROPERTY(blockname, UPDATE_ALLOWED, PROPERTY_FALSE);
SET_BLOCK_PROPERTY(blockname, DELETE_ALLOWED, PROPERTY_FALSE);

END IF;

blockname := GET_BLOCK_PROPERTY(blockname, NEXTBLOCK);

END LOOP;
.....

Related:
[Code Sample]loop trough all records of a block