home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a523 / 11.ddi / IADVIEW.SQL < prev    next >
Encoding:
Text File  |  1990-11-29  |  4.4 KB  |  188 lines
  1. Rem Copyright (c) 1988 by Oracle Corporation
  2. Rem NAME
  3. Rem    IADVIEWS.SQL - Create views to restrict table access.
  4. Rem  FUNCTION
  5. Rem  NOTES
  6. Rem  MODIFIED
  7. Rem   Giljum     11/26/90 - Un-cluster forms tables
  8. Rem   Eicher     02/05/90 - Creation
  9. Rem   Eicher     02/05/90 - Rename from iadviews.sql - rename spool file
  10. Rem   Eicher     12/06/89 - Add WITH CHECK OPTION
  11. Rem   Hsi        03/06/89 - Clustering tables (V3.0.5)
  12. Rem   Fine       01/25/89 - TOUCH
  13. Rem   Fine       12/08/88 - Fold in UNIX porting changes
  14. Rem   Hsi        08/31/88 - Change tables' name
  15. Rem   Hsi        08/26/88 - Creation
  16. Rem
  17.  
  18. spool iadview.lis
  19.  
  20. drop view form_app
  21. /
  22. drop view form_blk
  23. /
  24. drop view form_fld
  25. /
  26. drop view form_trigger
  27. /
  28. drop view form_trg
  29. /
  30. drop view form_sqltxt
  31. /
  32. drop view form_page
  33. /
  34. drop view form_map
  35. /
  36. drop view form_comment
  37. /
  38. drop view form_reference
  39. /
  40. drop view form_procedure
  41. /
  42. drop view form_authuser
  43. /
  44. drop view form_user
  45. /
  46. rename form_app to form_app_
  47. /
  48. rename form_blk to form_blk_
  49. /
  50. rename form_fld to form_fld_
  51. / 
  52. rename form_trigger to form_trigger_
  53. /
  54. rename form_trg to form_trg_
  55. /
  56. rename form_sqltxt to form_sqltxt_
  57. /
  58. rename form_page to form_page_
  59. /
  60. rename form_map to form_map_
  61. /
  62. rename form_comment to form_comment_
  63. /
  64. rename form_reference to form_reference_
  65. /
  66. rename form_procedure to form_procedure_
  67. /
  68. create table form_user_
  69. (
  70.    usrapowner   char(30)     not null,
  71.    usrapname    char(30)     not null,
  72.    usruser       char(30)        not null
  73. )
  74. /
  75. drop index iform_user
  76. /
  77. create unique index iform_user
  78. on form_user_(usrapowner,usrapname,usruser)
  79. /
  80. create view form_authuser as
  81.   select * from form_user_
  82.    where usruser = user
  83.       or usruser = 'PUBLIC'
  84.   with check option
  85. /
  86. create view form_user as
  87.   select * from form_user_
  88.    where usrapowner = user
  89.   with check option
  90. /
  91. create view form_app as 
  92.   select * from form_app_
  93.    where appowner = user
  94.       or ( appowner, appname ) in
  95.      ( select usrapowner, usrapname from form_authuser )
  96.   with check option
  97. /
  98. create view form_blk as
  99.   select * from form_blk_
  100.    where blkapowner = user
  101.       or ( blkapowner, blkapname ) in 
  102.      ( select usrapowner, usrapname from form_authuser )
  103.   with check option
  104. /
  105. create view form_fld as
  106.   select * from form_fld_
  107.    where fldapowner = user
  108.       or ( fldapowner, fldapname ) in
  109.      ( select usrapowner, usrapname from form_authuser )
  110.   with check option
  111. /
  112. create view form_trigger as
  113.   select * from form_trigger_
  114.    where trigapowner = user
  115.       or ( trigapowner, trigapname ) in
  116.      ( select usrapowner, usrapname from form_authuser )
  117.   with check option
  118. /
  119. create view form_trg as
  120.   select * from form_trg_
  121.    where trgapowner = user
  122.       or ( trgapowner, trgapname ) in
  123.      ( select usrapowner, usrapname from form_authuser )
  124.   with check option
  125. /
  126. create view form_sqltxt as
  127.   select * from form_sqltxt_
  128.    where sqtapowner = user
  129.       or ( sqtapowner, sqtapname ) in
  130.      ( select usrapowner, usrapname from form_authuser )
  131.   with check option
  132. /
  133. create view form_page as
  134.   select * from form_page_
  135.    where pagapowner = user
  136.       or ( pagapowner, pagapname ) in
  137.      ( select usrapowner, usrapname from form_authuser )
  138.   with check option
  139. /
  140. create view form_map as
  141.   select * from form_map_
  142.    where mapapowner = user
  143.       or ( mapapowner, mapapname ) in
  144.      ( select usrapowner, usrapname from form_authuser )
  145.   with check option
  146. /
  147. create view form_comment as
  148.   select * from form_comment_
  149.    where cmtapowner = user
  150.       or ( cmtapowner, cmtapname ) in 
  151.      ( select usrapowner, usrapname from form_authuser )
  152.   with check option
  153. /
  154. create view form_reference as
  155.   select * from form_reference_
  156.    where refapowner = user
  157.       or ( refapowner, refapname ) in 
  158.      ( select usrapowner, usrapname from form_authuser )
  159.   with check option
  160. /
  161. create view form_procedure as
  162.   select * from form_procedure_
  163.    where procapowner = user
  164.       or ( procapowner, procapname ) in 
  165.      ( select usrapowner, usrapname from form_authuser )
  166.   with check option
  167. /
  168. grant select
  169. on    system.form_authuser
  170. to    public
  171. /                  
  172. grant select, insert, update, delete
  173. on    system.form_user
  174. to    public
  175. /                  
  176. drop public synonym form_authuser
  177. /
  178. create public synonym form_authuser
  179. for    system.form_authuser
  180. /
  181. drop public synonym form_user
  182. /
  183. create public synonym form_user
  184. for    system.form_user
  185. /
  186.  
  187. spool off
  188.