一個小技巧：工資超過5000元的員工，用紅色指示

2024-07-21 02:35:55

字體：大中小

來源：轉載

供稿：網友

　　需求:
　　在很多系統里面要求對不同的狀態采取不同的顏色給用戶提示.
　　例如:　有一張工資單,當某個員工的工資超過5000時,用戶需要系統能用紅色來指示員工的姓名和工資.
　　做法:
　　我們新做一張form,按常規建好block和item并建一個visual　attributes　v1(background　color　=　red).在相應的block　level上新建一個post-query　trigger并編寫代碼如下:
　　----------------------
　　...
　　--　假如工資(block.item1)大于5000
　　if　block.item1　>　5000　then
　　　　　　　　　　 --　指示出相應的員工姓名(block.item2)
　　set_item_instance_PRoperty('block.item2',To_Number(:SYSTEM.TRIGGER_RECORD),VISUAL_ATTRIBUTE,'v1');
　　　　　　　　　　 --　指示出相應的工資(block.item3)
　　　　　　　　　　 set_item_instance_property('block.item3',To_Number(:SYSTEM.TRIGGER_RECORD),VISUAL_ATTRIBUTE,'v1');
　　end　if;
　　------------------------
　　compile　and　run　the　form.查詢員工工資時,大于5000的員工信息被系統用紅色背景指示.
　　
　　題外思考:　　1.朋友們想一想,為什么不用set_item_property　build-in　procedure呢?
　　　　　　　　　　 2.:system　variables都有哪些內容呢?
　　參考:　form　online　help　document　and　http://www.tek-tips.com
　　
　　set_item_property　　會整行變成紅色，而不是工資超出5000元的員工變紅色。
　　
　　其它系統變量　，可以在forms的help里，輸入　system　就可以查出。
　　一個小技巧：工資超過5000元的員工，用紅色指示

　　set_item_property:假如是表格的話不能實現你說的功能。
　　　　　　　　 SYSTEM.BLOCK_STATUS
　　SYSTEM.COORDINATION_OperaTION　
　　SYSTEM.CURRENT_BLOCK　
　　SYSTEM.CURRENT_DATETIME　
　　SYSTEM.CURRENT_FORM
　　SYSTEM.CURRENT_ITEM　
　　SYSTEM.CURRENT_VALUE　
　　SYSTEM.CURSOR_BLOCK　
　　SYSTEM.CURSOR_ITEM　
　　SYSTEM.CURSOR_RECORD　
　　SYSTEM.CURSOR_VALUE　
　　SYSTEM.DATE_THRESHOLD*　
　　SYSTEM.EFFECTIVE_DATE*　
　　SYSTEM.EVENT_WINDOW
　　SYSTEM.FORM_STATUS
　　SYSTEM.LAST_QUERY　
　　SYSTEM.LAST_RECORD　
　　SYSTEM.MASTER_BLOCK　
　　SYSTEM.MESSAGE_LEVEL*　
　　SYSTEM.MODE　
　　SYSTEM.MOUSE_BUTTON_PRESSED　
　　SYSTEM.MOUSE_BUTTON_SHIFT_STATE　
　　SYSTEM.MOUSE_ITEM　
　　SYSTEM.MOUSE_CANVAS　
　　SYSTEM.MOUSE_X_POS　
　　SYSTEM.MOUSE_Y_POS　
　　SYSTEM.MOUSE_RECORD　
　　SYSTEM.MOUSE_RECORD_OFFSET　
　　SYSTEM.RECORD_STATUS　
　　SYSTEM.SUPPRESS_WORKING*　
　　SYSTEM.TAB_NEW_PAGE
　　SYSTEM.TAB_PREVIOUS_PAGE
　　SYSTEM.TRIGGER_BLOCK　
　　SYSTEM.TRIGGER_ITEM　
　　SYSTEM.TRIGGER_RECORD　
　　FW:沒錯,set_item_property只能使整行變紅.
　　通過這個例子,能學到關于set_item_property與set_item_instance_property的區別以及SYSTEM變量的用法.
　　呵呵,大家很積極.希望能更多的人參與到一些比較實際的技術討論中來,這也是我發這篇文章的用意.

上一篇：[經驗]FORM6i 及 sys_context

下一篇：[范例]如何編寫排序菜單sort_popmenu