Sql 在oracle forms 6i中将值从一个表单传递到另一个表单

我是Oracle forms的新手，我正在设计用同样的方式编写应用程序。我在下面的场景中遇到了一个问题

我有一个表单（FORM1），用于显示未经授权的详细信息的项目列表。在授权项目之前，授权人必须查看详细信息。这将调用另一个表单（FORM2），只要选择了一个项目并选择了“查看”按钮，就会调用该表单。详细信息将显示在那里。在FORM2上还有按钮：拒绝、批准和返回

以下是“查看”按钮的“按下按钮”事件的表1：

DECLARE
list_id   ParamList;
USR_MSG NUMBER;
BEGIN  


IF :TBL_CONTRACT.CONTRACT_NO IS NULL THEN
    USR_MSG:=USER_ALERT('INFO_ALERT','Please select a valid contract no to View.');
    RAISE FORM_TRIGGER_FAILURE;
END IF;


list_id := Create_Parameter_List('PAR_CONTRACT');
Add_Parameter(list_id, 'CONTRACT_NO',TEXT_PARAMETER,:TBL_CONTRACT.CONTRACT_NO);
call_Form('T:\FRM_APPROVAL_VIEW.fmx',no_hide,no_replace, no_query_only,list_id);

END; 

我的目的是将合同id传递给FORM2，并查询数据库中的详细信息，这些信息将显示在表单上

下面是当发生新表单实例事件时Form2的代码

SET_WINDOW_PROPERTY(FORMS_MDI_WINDOW,WINDOW_STATE,MAXIMIZE);
BEGIN
  IF ( :PARAMETER.PAR_CONTRACT IS NOT NULL ) THEN 
    /* Use this value in the WHERE clause of MY_BLOCK */
    Set_Block_Property('TBL_CONTRACT',DEFAULT_WHERE, 'PAR_CONTRACT = :PARAMETER.PAR_CONTRACT');
    GO_BLOCK('TBL_CONTRACT');

    Execute_Query;
  END IF;
END; 

运行应用程序时遇到错误：FRM 47023，FRM\U APPROVAL\U视图中不存在名为Contract\u No的此类参数

有人会解释什么是错的和补救方法吗

---

提前感谢。

子表单中forms参数的名称应该是参数的名称（合同号），而不是参数列表的名称！如果您重命名forms参数并将代码更改为使用：parameter.CONTRACT\u NO，那么这应该适合您。

OFD 6i

这是一个非常旧的版本，不是吗？OFD 6i非常旧，我同意。但这正是我要做的