Category : Files from Magazines
Archive   : DBMS0690.ZIP
Filename : BUTLER5

Listing 5.


clear
@ 4,15 to 10,65 double
@ 5,30 say 'Statement Permissions'
@ 6,20 say s_per[1,1]+':' get s_per[1,2] picture 'L'
@ 6,42 say s_per[2,1]+':' get s_per[2,2] picture 'L'
@ 7,20 say s_per[3,1]+':' get s_per[3,2] picture 'L'
@ 7,42 say s_per[4,1]+':' get s_per[4,2] picture 'L'
@ 8,20 say s_per[5,1]+':' get s_per[5,2] picture 'L'
@ 8,42 say s_per[6,1]+':' get s_per[6,2] picture 'L'
@ 9,20 say s_per[7,1]+':' get s_per[7,2] picture 'L'
@ 9,42 say s_per[8,1]+':' get s_per[8,2] picture 'L'
read
activate window fldlst
p = 'N'
clear typeahead
@ 1,5 SAY 'Save change of statement permission ?';
get p picture 'Y'
read
deactivate window fldlst
if p = 'Y' .or. p = 'y'
rc = 0
do while rc < 8
if s_per[rc,2] <> s_per[rc,3] && if the user changed [rc,2]
if s_per[rc,2] = .T.
cc = 'Grant '
else
cc = 'Revoke'
endif
query = 'query ' + cc + s_per[rc,1] + ' from' + lname
* The SQL query built here will be something like
* "Grant Create Procedure from lname"

@12, 15 say query
call dbsql with query, sql_stu, sql_row, sql_msg
do chkmsg
endif