oracle form 自动序号,form开发关于line_number 自动+1

在Oracle Form中，如何实现自动编号(行号)的功能 方法一、只需要将“序号”定义成公式，并将公式设置为：get_block_property('block_name',current_record) 就可以实现了，或者把这行语句放到“When-Create-Record”触发器中。缺点：增改删时，行号不能自动刷新。方法二、在block的三个触发器中添加相应的代码： Key-Crerec: DECLARE LINE NUMBER; BEGIN LINE := :SYSTEM.CURSOR_RECORD; LOOP IF :SYSTEM.LAST_RECORD = 'TRUE' THEN EXIT; ELSE NEXT_RECORD; :blk.ID := :SYSTEM.CURSOR_RECORD + 1; END IF; END LOOP; GO_RECORD(LINE); CREATE_RECORD; :blk.ID := :SYSTEM.CURSOR_RECORD; END; Key - Delrec： DECLARE LINE NUMBER; BEGIN DELETE_RECORD; LINE := :SYSTEM.CURSOR_RECORD; LOOP :blk.ID := :SYSTEM.CURSOR_RECORD; IF :SYSTEM.LAST_RECORD = 'TRUE' THEN EXIT; ELSE NEXT_RECORD; END IF; END LOOP; GO_RECORD(LINE); END; When - Create - Record： :blk.ID := :SYSTEM.TRIGGER_RECORD; 缺点：对于记录数很少的table适用，当table中的记录很多时，由于使用了循环操作，所以会影响效率。三 采用 record_max_line 在 block 上面添加一个 item 计数项，用来记录 line_num 的最大值 item 计算 汇总函数--最大 汇总块：当前的block 汇总项：当前的 item--line_num bolck when_create_record 事件 将最大的line_num 赋值即可 SELECT nvl(MAX(t.line_number),0) INTO l_max_db_line FROM cux_po_agreement_lines_all t WHERE t.agreement_header_id = :agreement_headers.agreement_header_id; IF l_max_db_line >= nvl(:agreement_lines.max_ui_line,0) THEN l_max_ui_line := l_max_db_line + 1; ELSE l_max_ui_line := nvl(:agreement_lines.max_ui_line,0) + 1; END IF; app_form.set_message_level(25); :agreement_lines.line_number := l_max_ui_line;

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/30403620/viewspace-1805321/，如需转载，请注明出处，否则将追究法律责任。