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