DbServer.Deleted 属性 |
命名空间: VO
1CLASS Sales INHERIT DBServer 2... 3FUNCTION IgnoreDeleted() 4LOCAL oDBSales AS Sales 5oDBSales := Sales{} 6oDBSales:SetFilter(!oDBSales:Deleted) 7oDBSales:GoTop() 8. 9. <处理记录> 10. 11oDBSales:ClearFilter()
1CLASS Players INHERIT DBServer 2... 3FUNCTION pbResetFilter() 4Local cFilter 5cFilter := [Season = '] + SELF:cSeason + [' .and. .not. empty(TeamNr) ] 6cFilter += [ .and. empty(HomePhone)] 7cFilter += [ .and. Gender = '] + SELF:cGender + ['] 8SELF:oPlayersServer:SetFilter(, cFilter ) // 注意逗号参数的位置 9SELF:oPlayersServer:GoTop() 10. 11. <处理记录> 12. 13SELF:oPlayersServer:ClearFilter()