How To Use FETCH_RECORDS In Oracle Forms

时间：2016-12-25 23:54:13 阅读：488 评论：0 收藏：0 [点我收藏+]

标签：last sig ext ddl oba order query build auto

When called from an On-Fetch trigger, initiates the default Form Builder processing for fetching records
that have been identified by SELECT processing.

FETCH_RECORDS examples
/*
** Built-in: FETCH_RECORDS
** Example: Perform Form Builder record fetch processing
during
** query time. Decide whether to use this built-in
** or a user exit based on a global flag setup at
** startup by the form, perhaps based on a
** parameter. The block property RECORDS_TO_FETCH
** allows you to know how many records Form Builder
** is expecting.
** trigger: On-Fetch
*/
DECLARE
numrecs NUMBER;
BEGIN
/*
** Check the global flag we set during form startup
*/
IF :Global.Using_Transactional_Triggers = ’TRUE’ THEN
/*
** How many records is the form expecting us to
** fetch?
*/
numrecs := Get_Block_Property(’EMP’,RECORDS_TO_FETCH);
/*
** Call user exit to determine if there are any
** more records to fetch from its cursor. User Exit
** will return failure if there are no more
** records to fetch.
*/
User_Exit(’my_fetch block=EMP remaining_records’);
/*
** If there ARE more records, then loop thru
** and create/populate the proper number of queried
** records. If there are no more records, we drop through
** and do nothing. Form Builder takes this as a signal that
** we are done.
*/
IF Form_Success THEN
/* Create and Populate ’numrecs’ records */
FOR j IN 1..numrecs LOOP
Create_Queried_Record;
/*
** User exit returns false if there are no more
** records left to fetch. We break out of the
** if we’ve hit the last record.
*/
User_Exit(’my_fetch block=EMP get_next_record’);
IF NOT Form_Success THEN
EXIT;
END IF;
END LOOP;
END IF;
/*
** Otherwise, do the right thing.
*/
ELSE
Fetch_Records;
END IF;
END;

标签：last sig ext ddl oba order query build auto

原文地址：http://www.cnblogs.com/quanweiru/p/6220589.html

踩

(0)

评论一句话评论（0）

分享档案

更多>

2021年07月29日 (22)
2021年07月28日 (40)
2021年07月27日 (32)
2021年07月26日 (79)
2021年07月23日 (29)
2021年07月22日 (30)
2021年07月21日 (42)
2021年07月20日 (16)
2021年07月19日 (90)
2021年07月16日 (35)

周排行