我已经构建了一个表单,用户可以在其中查看从表中提取的多行数据。用户可以选择一行,然后按下按钮拒绝该行中的数据(在某些状态字段中标记为拒绝)。
我还设计了一个拒绝确认对话框,用户可以输入一些评论或拒绝理由。
我已将对话框画布设置为出现在其自己的窗口中,并将 Type proeperty 设置为 Dialog。
当用户选择要拒绝的行时,执行以下代码:
BEGIN
GO_BLOCK('BLK_ALL_RECORDS');
FIRST_RECORD;
IF :FRM_ALL_ROWS.CHK_SELECT = 1 THEN
:FRM_REJECTION.ID := :FRM_ALL_ROWS.ID;
GO_BLOCK('BLK_REJECTION');
SHOW_VIEW('CNV_REJECTION');
EXIT;
ELSE
NEXT_RECORD;
END IF;
END;
并且拒绝表有两个按钮,一个是确认,一个是取消。现在让我们只关注取消按钮。这是按下取消按钮后执行的代码:
:BLK_ALL_ROWS.CHK_SELECT := 0; /* Forces removal of the check mark */
GO_BLOCK('BLK_ALL_RECORDS');
HIDE_VIEW('CNV_REJECTION');
唯一的问题是:一旦对话框表单出现,它就会隐藏父表单,直到表单被关闭。如何在父表单的顶部显示对话框表单,并且它们都可见(以模态方式?)