熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> Oracle >> 正文

如何編寫排序菜單sort

2013-11-13 16:00:43  來源: Oracle 

  在要排序的塊上建立whenmouseclick trigger代碼
  :globalmouserecord := :systemmouse_record;
  :globalmouseitem := :systemmouse_item;
  
  建立排序彈出菜單
  正排序代碼sort_asc(substr(:globalmouseiteminstr(:globalmouseitem))); 括號內的是鼠標所在的塊名
  反排序代碼sort_desc(substr(:globalmouseiteminstr(:globalmouseitem))); 
  不排序代碼sort_no(substr(:globalmouseiteminstr(:globalmouseitem))); 
  
  建立三個排序程序單元
  PROCEDURE sort_asc(blockname varchar) IS
  BEGIN
   set_block_property(blocknameorder_bysubstr(:globalmouseiteminstr(:globalmouseitem)+));
   go_block(blockname);
   execute_query;
  
   go_record(:globalmouserecord);
   go_item(:globalmouseitem);
  END;
  
  PROCEDURE sort_desc(blockname varchar) IS
  BEGIN
   set_block_property(blocknameorder_bysubstr(:globalmouseiteminstr(:globalmouseitem)+)|| desc);
   go_block(blockname);
   execute_query;
  
   go_record(:globalmouserecord);
   go_item(:globalmouseitem);
  END;
  
  PROCEDURE sort_no(blockname varchar) IS
  BEGIN
   set_block_property(blocknameorder_by);
   go_block(blockname);
   execute_query;
  
   go_record(:globalmouserecord);
   go_item(:globalmouseitem);
  END;
  
  在字段上指定彈出菜單的名稱
From:http://tw.wingwit.com/Article/program/Oracle/201311/17670.html
  • 上一篇文章:

  • 下一篇文章:
  • 推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.