Oralce Form开发：判断BLOCK中的重复值

最新推荐文章于 2023-04-29 03:30:00 发布

原创最新推荐文章于 2023-04-29 03:30:00 发布 · 732 阅读

0 ·

CC 4.0 BY-SA版权

FORM图标同时被 2 个专栏收录

2 篇文章

订阅专栏

oracle ERP FORM图标

1 篇文章

订阅专栏

本文介绍了一种在Oracle数据库中检查重复记录的方法。通过创建自定义函数cux_com来比较两字符串是否一致，并在数据块Control中引入计数项COUNT_ITEM进行重复判断。利用BLOCK：Req_acc中的触发器实现当存在重复数据时抛出异常。

1. 创建函数：cux_com

Function cux_com(str1 Varchar2, str2 Varchar2) Return Number Is
  l_return Number := 0;
Begin
  If Upper(str1) = Upper(str2) Then
    l_return := 1;
  Else
    l_return := 0;
  End If;
  Return l_return;
End;

2．判断重复的BLOCK：Req_acc；控制BLOCK: Control

2.1 在BLOCK：Req_acc\ Control属性设置“查询所有记录” 为 “是”：

Contorl设置如下：

2.2. 在CONTROL 数据块中增加Item：
COUNT_ITEM （Data Type：Number）

2.3 PRE_DATA ：普通的char型item即可（用于）
2.4.在BLOCK：Req_ac中增加ITEM：
FLAG（Data Type：Number）：
增加公式：（下面的连接附，表示编号跟描述同时相同为重复）

cux_com(:Control.Pre_data,:Req_acc.Acc_code || :Req_acc.Acc_desc)

3. 添加BLOCK：Req_ac的when_validate_record触发器，触发器中的代码为：

:Control.Pre_data := :Req_acc.Acc_code || :Req_acc.Acc_desc; --用来判断重复的字符，多字段可以累加,对应flag公式
If :Control.Count_item > 1 Then
  fnd_message.debug('存在重复数据!');
  Raise form_trigger_failure;
End If;