oracle園地

PACKAGE BODY F_CURSOR IS

  --當鼠標指針改變為插入光標位于文本項時的正常形狀
  PROCEDURE CUR_DEFAULT IS
  BEGIN       
    SET_APPLICATION_PROPERTY(CURSOR_STYLE,'DEFAULT');    
  END CUR_DEFAULT;    
  --對過程的等待
  PROCEDURE CUR_BUSY IS
  BEGIN       
    SET_APPLICATION_PROPERTY(CURSOR_STYLE,'BUSY');    
  END CUR_BUSY;   
  --帶箭頭的幫助標記
  PROCEDURE CUR_HELP IS
  BEGIN       
    SET_APPLICATION_PROPERTY(CURSOR_STYLE,'HELP');    
  END CUR_HELP;
  --鼠標放在文本項上
  PROCEDURE CUR_INSERTION IS
  BEGIN       
    SET_APPLICATION_PROPERTY(CURSOR_STYLE,'INSERTION');    
  END CUR_INSERTION;
  --特殊的指針
  PROCEDURE CUR_CROSSHAIR IS
  BEGIN       
    SET_APPLICATION_PROPERTY(CURSOR_STYLE,'CROSSHAIR');    
  END CUR_CROSSHAIR;
  --鼠標指針位于文本項的箭頭形狀
  PROCEDURE CUR_ARROW IS
  BEGIN       
    SET_APPLICATION_PROPERTY(CURSOR_STYLE,'ARROW');    
  END CUR_ARROW; 
  --拖曳或復制
  PROCEDURE CUR_COPY IS
  BEGIN       
    SET_APPLICATION_PROPERTY(CURSOR_STYLE,'COPY');
  END CUR_COPY; 
  --表示對選擇項拖拉有效
  PROCEDURE CUR_DRAGGABLE IS
  BEGIN       
    SET_APPLICATION_PROPERTY(CURSOR_STYLE,'DRAGGABLE');
  END CUR_DRAGGABLE; 
  --手的形狀
  PROCEDURE CUR_HAND IS
  BEGIN       
    SET_APPLICATION_PROPERTY(CURSOR_STYLE,'HAND');
  END CUR_HAND; 
  --拖拉一個鏈或者快捷鍵
  PROCEDURE CUR_LINK IS
  BEGIN       
    SET_APPLICATION_PROPERTY(CURSOR_STYLE,'LINK');
  END CUR_LINK;
  --用于縮放的放大鏡 
  PROCEDURE CUR_MAGNIFY IS
  BEGIN       
    SET_APPLICATION_PROPERTY(CURSOR_STYLE,'MAGNIFY');
  END CUR_MAGNIFY; 
  --拖拉形狀
  PROCEDURE CUR_MOVE IS
  BEGIN       
    SET_APPLICATION_PROPERTY(CURSOR_STYLE,'MOVE');
  END CUR_MOVE;
  --拖拉無效的項
  PROCEDURE CUR_NODROP IS
  BEGIN       
    SET_APPLICATION_PROPERTY(CURSOR_STYLE,'NODROP');
  END CUR_NODROP;
  --調整水平大小
  PROCEDURE CUR_RESIZEH IS
  BEGIN       
    SET_APPLICATION_PROPERTY(CURSOR_STYLE,'RESIZEH');
  END CUR_RESIZEH;
  --調整垂直大小
  PROCEDURE CUR_RESIZEV IS
  BEGIN       
    SET_APPLICATION_PROPERTY(CURSOR_STYLE,'RESIZEV');
  END CUR_RESIZEV;
  --調整左上角或右下角  
  PROCEDURE CUR_RESIZEUL IS
  BEGIN       
    SET_APPLICATION_PROPERTY(CURSOR_STYLE,'RESIZEUL');
  END CUR_RESIZEUL;
  --調整右上角或左下角 
  PROCEDURE CUR_RESIZEUP IS
  BEGIN       
    SET_APPLICATION_PROPERTY(CURSOR_STYLE,'RESIZEUP');
  END CUR_RESIZEUP;
  --調整列 
  PROCEDURE CUR_SIZECOL IS
  BEGIN       
    SET_APPLICATION_PROPERTY(CURSOR_STYLE,'SIZECOL');
  END CUR_SIZECOL; 
  --調整行
  PROCEDURE CUR_SIZEROW IS
  BEGIN       
    SET_APPLICATION_PROPERTY(CURSOR_STYLE,'SIZEROW');
  END CUR_SIZEROW; 
  --水平拆分
  PROCEDURE CUR_SPLITH IS
  BEGIN       
    SET_APPLICATION_PROPERTY(CURSOR_STYLE,'SPLITH');
  END CUR_SPLITH; 
  --垂直拆分
  PROCEDURE CUR_SPLITV IS
  BEGIN       
    SET_APPLICATION_PROPERTY(CURSOR_STYLE,'SPLITV');
  END CUR_SPLITV; 
  --返回當前光標的形狀
  FUNCTION SHAPE RETURN VARCHAR2 IS 
    CUR_SHAPE VARCHAR2(100);
  BEGIN
    CUR_SHAPE:=GET_APPLICATION_PROPERTY(CURSOR_STYLE);  
    RETURN  CUR_SHAPE; 
  END;
  
END F_CURSOR;