关于Forms_ddl的应用一例.pdfVIP

关于Forms_ddl 的应用一例 最近开发一个Form,需要用动态SQL,在网上搜索，发现可以用Forms_ddl 来 实现。试了很久，不成功，后发现是字符串连接的方式有问题，修正后终于OK. 以下是代码，供大家参考！ DECLARE CURSOR c1 IS SELECT COUNT (1) FROM inv_customs_items WHERE inventory_items = :find.inventory_items; v_count NUMBER; p_attribute_no VARCHAR2 (30); p_attribute VARCHAR2 (30); p_sql VARCHAR2 (200); p_inventory_items VARCHAR2 (30); p_user_id NUMBER; BEGIN IF :find.inventory_items IS NULL THEN show_alert_message (Inventory_items 必须输入！); RAISE form_trigger_failure; END IF; OPEN c1; FETCH c1 INTO v_count; CLOSE c1; IF v_count 1 THEN INSERT INTO inv_customs_items (inventory_items, created_by, creation_date ) VALUES (:find.inventory_items, :parameter.user_id, SYSDATE ); END IF; p_user_id:= :parameter.user_id; GO_BLOCK (item); FIRST_RECORD; LOOP EXIT WHEN :item.attribute_name IS NULL; p_attribute_no := :item.attribute_no; p_attribute := :item.ATTRIBUTE; p_inventory_items := :find.inventory_items; BEGIN p_sql := update INV_CUSTOMS_ITEMS set LAST_UPDATE_DATE=sysdate,LAST_UPDATED_BY= ||to_char(p_user_id) || , || p_attribute_no || = || p_attribute || where inventory_items = || p_inventory_items || ; FORMS_DDL (p_sql); EXCEPTION WHEN OTHERS THEN show_alert_message (保存失败！); RAISE form_trigger_failure; END; NEXT_RECORD; END LOOP; COMMIT_FORM; FIRST_RECORD; show_alert_message (恭喜您，保存成功); END;