(10) Procedures for this application: Access rights
•'----------------------------------------Data Access---------------------------------------------------
•'set up for table-name,can-edit,can-add,can-delete,can-edit-all-fields
•
•SUB SetupViews
•  DIM bEnable
•  bEnable=IIF(cGroup="SYSTEM" OR cGroup="DBMS",TRUE,FALSE)
•  InitializeQueryView "View.Applications",bEnable,(cGroup="DBMS"),bEnable,bEnable
•  InitializeQueryView "View.Application",TRUE,TRUE,bEnable,TRUE
•  InitializeQueryView "Lookup_Payment_Type",bEnable,bEnable,bEnable,bEnable
•  InitializeQueryView "Lookup_Status_",bEnable,bEnable,bEnable,bEnable
•END SUB
•
•