ORACLE中表中创建一个序列，这个序列能不能自动更新？

Question

oracle表单

Answer 1

这是Oracle form 的实现方法，希望对你有帮助
if :dbcczm_mx.XH is null then
:dbcczm_mx.XH:=:SYSTEM.CURSOR_RECORD;
end if;
delete_record;
declare
toprow number:=get_block_property('DBCCZM_MX',TOP_RECORD );
i number:=get_block_property('DBCCZM_MX',current_RECORD );--:system.cursor_record;
begin
LOOP
IF :SYSTEM.RECORD_STATUS<>'NEW' THEN
:DBCCZM_MX.XH:=:SYSTEM.CURSOR_RECORD;
END IF;
EXIT WHEN :SYSTEM.LAST_RECORD='TRUE';
NEXT_RECORD;
END LOOP;
go_record(toprow);
go_record(I);
end;