关于保护数据窗口中各列的通用函数

关于保护数据窗口中各列的通用函数（绝对精彩）
//====================================================================
// [Function]: gf_setprotected()
//--------------------------------------------------------------------
// [Description]:ab_protect=true 对数据窗口的数据进行保护,使用户不可修改
// ab_protect=false对数据窗口的数据进行释放保护
//--------------------------------------------------------------------
// [Arguments]: 
// value datawindow adw_data 需要 保护/释放保护 的数据窗口 
// value boolean ab_protect 保护还是释放保护
//--------------------------------------------------------------------
// [Returns]: (none)
//--------------------------------------------------------------------
// [Author]: DoItNow Date: 2003.04.01
//--------------------------------------------------------------------
// [Modify History]: 
//====================================================================

Int li_i,li_feildcount

li_feildcount = Integer(adw_data.Object.DataWindow.Column.Count)

IF ab_protect = TRUE THEN
　　FOR li_i = 1 TO li_feildcount
　　　　adw_data.Modify("#" + String(li_i)+ ".Protect=1")
　　　　adw_data.Modify("#" + String(li_i)+ ".Background.Mode=1")
　　NEXT
ELSE
　　IF Integer(adw_data.DESCRIBE("DataWindow.Processing")) = 0 THEN
　　　　FOR li_i = 1 TO li_feildcount
　　　　　　adw_data.Modify("#" + String(li_i)+ ".Protect=0")
　　　　　　adw_data.Modify("#" + String(li_i)+ ".Background.Mode=0")
　　　　NEXT
　　ELSE
　　　　FOR li_i = 1 TO li_feildcount
　　　　　　adw_data.Modify("#" + String(li_i)+ ".Protect=0")
　　　　　　adw_data.Modify("#" + String(li_i)+ ".Background.Mode=1")
　　　　NEXT
　　END IF
END IF