搜索表格 - 执行查询 - 当找到详细记录然后消息时

Question

我有一个搜索sales_orders/payment_details表格...

我正在通过Enter and Execute查询搜索记录，但是在某些情况下找不到详细记录，

例如：输入销售订单和执行付款记录，但尚未付款...

然后...然后我想提供消息（“找不到记录”）。.

请指导我触发器及其执行水平，

谢谢 javed

Answer 1

那是一种主详细信息。我建议您以这种方式创建它，并让表格担心默认数据处理（查询，插入，删除） - 使用数据块向导，它将竭尽所能，并创建数量的触发器，这些触发器将强制执行主尾关系。

完成后，一切都将只是工作 - 您不必编写一行代码。

由于我没有您的表格，我使用了Scott的Dept（Master）和EMP（详细信息）。如果您熟悉该模式，您会知道部门10、20和30中有一些员工，但是在部门40中没有人工作。

因此，您想在查询部门40时显示一些消息。在部门10上执行查询的输出端是输出的；右边是我们真正想要的（部门40，没有员工）：

如何做？导航到对象导航器中的“程序单位”，并编辑query_master_details触发 - 它是数据块向导创建的那些对象之一。

编辑其代码并添加一些行，以检查是否存在细节行；如果没有，请显示一条消息（请参阅第20行）：

PROCEDURE Query_Master_Details(rel_id Relation,detail VARCHAR2) IS
  oldmsg VARCHAR2(2);  -- Old Message Level Setting
  reldef VARCHAR2(5);  -- Relation Deferred Setting
BEGIN
  --
  -- Initialize Local Variable(s)
  --
  reldef := Get_Relation_Property(rel_id, DEFERRED_COORDINATION);
  oldmsg := :System.Message_Level;
  --
  -- If NOT Deferred, Goto detail and execute the query.
  --
  IF reldef = 'FALSE' THEN
    Go_Block(detail);
    Check_Package_Failure;
    :System.Message_Level := '10';
    Execute_Query;
    :System.Message_Level := oldmsg;
    
    -- I added this 4 lines:                            --> here
    if :employees.empno is null then
       message('No employees in that department');
       message('No employees in that department');
    end if; 
    -- End of lines added by LF

  ELSE
    --
    -- Relation is deferred, mark the detail block as un-coordinated
    --
    Set_Block_Property(detail, COORDINATION_STATUS, NON_COORDINATED);
  END IF;

EXCEPTION
    WHEN Form_Trigger_Failure THEN
      :System.Message_Level := oldmsg;
      RAISE;
END Query_Master_Details;

为简单起见，我使用了两个连续的消息调用，然后像警报一样起作用（否则，该消息将显示在状态行中在窗户的底部）。如果需要，可以使用“真实”警报；我把它留给你。