Radio Button , enabled

Question

Hi All,
I have some problem with the radio button concept
i will tell u what i did so that u can help me out ,
I have an emp table , which has deptno, two radio buttons(name of radio button : Enter Directly", "Enter thro Database",), name , salry , the deptno is an lov and the there are two radio buttons which has the yes or no , so that the user can enter the details and the condition is such,
when the lov button is pressed , it will populate the dept no such as ,"10","20","30"etc...
when the deptno "10" is selected, both the radio buttons gets enabled , so that the user can choose the mode of entering , if the user selects the mode as enter thro Database , then the fields name and salry should be disabled, whereas when the user select the the vive versa radio button it should enable both the fiields , so that the user can enter via this form it self
when the dept 20 is selected the first radio button gets diabled
i have tried many steps , but could not do what i need , excatly
plz do tell me how can i solve this
can any one send me a sample code , so that i can undersatnd wat is to be done
eagerly waiting for u r reply
Bye

Answer 1

Hi Raja ,
Sending u the code ...
DECLARE
CURSOR C1 IS
SELECT DEPTNO
FROM DEPT
WHERE DEPTNO = :DEPTNO;
V_DEPTNO DEPT.DEPTNO%TYPE;
BEGIN
IF :DEPT IN (10) AND :MODE = 2 THEN
Set_Radio_Button_Property('MODE','M_MANUAL',VISIBLE,PROPERTY_TRUE);
Set_Radio_Button_Property('MODE','M_AUTOMATIC',VISIBLE,PROPERTY_TRUE);
SET_ITEM_PROPERTY('NAME',VISIBLE,PROPERTY_TRUE);
SET_ITEM_PROPERTY('SEX',VISIBLE,PROPERTY_TRUE);
Set_Radio_Button_Property('MODE','M_MANUAL',ENABLED,PROPERTY_TRUE); Set_Radio_Button_Property('MODE','M_AUTOMATIC',ENABLED,PROPERTY_TRUE);
SET_ITEM_PROPERTY('NAME',ENABLED,PROPERTY_TRUE);
SET_ITEM_PROPERTY('SEX',ENABLED,PROPERTY_TRUE);
SET_ITEM_PROPERTY('NAME',NAVIGABLE,PROPERTY_TRUE);
SET_ITEM_PROPERTY('SEX',NAVIGABLE,PROPERTY_TRUE);
ELSIF :EFNG_FORM_TYPE IN (10) AND :MODE = 1 THEN
SET_ITEM_PROPERTY('NAME',ENABLED,PROPERTY_FALSE);
SET_ITEM_PROPERTY('SEX',ENABLED,PROPERTY_FALSE);
ELSIF :EFNG_FORM_TYPE IN (20,30) THEN
     : MODE := 2;
Set_Radio_Button_Property(‘MODE','M_MANUAL',VISIBLE,PROPERTY_TRUE);
Set_Radio_Button_Property(‘MODE','M_AUTOMATIC',VISIBLE,PROPERTY_TRUE);
SET_ITEM_PROPERTY(‘NAME’,VISIBLE,PROPERTY_TRUE);
SET_ITEM_PROPERTY(SEX',VISIBLE,PROPERTY_TRUE);
Set_Radio_Button_Property(MODE','M_MANUAL',ENABLED,PROPERTY_FALSE); Set_Radio_Button_Property(MODE','M_AUTOMATIC',ENABLED,PROPERTY_TRUE);
SET_ITEM_PROPERTY(‘NAME',ENABLED,PROPERTY_TRUE);
SET_ITEM_PROPERTY('SEX',ENABLED,PROPERTY_TRUE);
SET_ITEM_PROPERTY(‘NAME’,NAVIGABLE,PROPERTY_TRUE);
SET_ITEM_PROPERTY('SEX',NAVIGABLE,PROPERTY_TRUE);
END IF ;
IF C1%ISOPEN THEN
     CLOSE C1;
     END IF;
     OPEN C1;
     FETCH C1 INTO V_DEPTNO;
     IF C1%NOTFOUND THEN
     CLOSE C1;
          END IF;
     CLOSE C1;
END;