DYNAMIC LIST BASED ON TABLE


قائمة يتم تحميلها من جدول بحيث تعرض النص واثناء الاختيار يتم تخزين الكود بدلا من الاسم

في هذا المثال يتم عرض قائمة باسماء الموظفين وعند اختيار اسم الموظف يتم تخزين رقمه

1- قم بإنشاء Procedure جديد في الـ Program Units مثلا باسم : POPULATELIST

PROCEDURE POPULATELIST( LISTNAME VARCHAR2, GROUPNAME VARCHAR2)
IS
RG_ID RECORDGROUP;
ERRCODE NUMBER;
BEGIN
RG_ID := FIND_GROUP(GROUPNAME);
IF ID_NULL(RG_ID) THEN
MESSAGE('GROUP NAME IS NOT CORRECT');
END IF;
CLEAR_LIST(LISTNAME);
ERRCODE := POPULATE_GROUP(RG_ID);
POPULATE_LIST(LISTNAME,RG_ID);
EXCEPTION
WHEN OTHERS THEN
MESSAGE('CANNOT POPULATE LIST :'LISTNAME'WITH GROUP:'GROUPNAME);
END;

2- عمل ريكورد جروب تحتوي حقلين واحدد للعرض والاخر للقيمة ولكن بهذه الصيغة

SELECT ALL ename , to_char(empno) FROM emp ORDER BY 1

مع ملاحظة TO_CHAR

3- في كود التريجر PRE-FORM

POPULATELIST('EMP.EMP_CODE','RG1');

حيثRg1 تمثل إسم الريكورد جروب . EMP تمثل إسم البلوك . EMP_CODE تمثل إسم الحقل .

تعليقات

إرسال تعليق

المشاركات الشائعة من هذه المدونة

Data Block Based On Procedures

صورة
Using a Stored Procedure with Forms This sample demonstrates how a block can be based on stored procedures. This feature can be implemented in two ways: 1- A REF CURSOR 2- A PL/SQL table In addition to that, there are also two different locations where to implement this functionality: 1- The ON-xxx triggers 2- The transactionnal triggers In this sample uses a REF CURSOR with the ON-xxx triggers Step1: Create a table named Bonus CREATE TABLE BONUS ( EMPNO NUMBER PRIMARY KEY, ENAME VARCHAR2(50), JOB VARCHAR2(20), SAL NUMBER, COMM NUMBER ); Step2: Create a package spec at the database level create or replace PACKAGE bonus_pkg IS TYPE bonus_rec IS RECORD ( empno bonus.empno%TYPE, ename bonus.ename%TYPE, job bonus.job%TYPE, sal bonus.sal%TYPE, comm bonus.comm%TYPE ); TYPE b_cursor IS REF CURSOR RETURN bonus_rec; -- Statement below needed if block is based on Table of Records TYPE bontab IS TABLE OF bonus_rec INDEX BY BINARY_INTEGER; -- Statement below needed if using Ref Cursor PROCEDURE bo...
قراءة المزيد