From freak, 1 Year ago, written in Text.
Embed
  1. --------------------------------------------------------
  2. -- Вставка
  3. --------------------------------------------------------
  4. create procedure p_Company_Insert
  5. (
  6.                 Name    varchar(64)
  7.         ,       Adress  varchar(64)
  8.         ,       IIN             varchar(64)
  9. )
  10. return
  11. (
  12.         ID_Company      integer
  13. )
  14. as
  15. begin
  16.         insert into Company (Name, Adress, IIN)
  17.         values (:Name, :Adress, :INN)
  18.         :ID_Company = (select max(ID_Company) from Company)
  19.         suspend
  20. end
  21. --------------------------------------------------------
  22. create procedure p_Contact_Person_Insert
  23. (
  24.                 ID_Company              integer
  25.         ,       Surname                 varchar(12)
  26.         ,       Name                    varchar(12)
  27.         ,       Patronymic              varchar(12)
  28.         ,       Position                varchar(12)
  29.         ,       Phone_Number    integer
  30.         ,       IIN                             varchar(64)
  31. )
  32. return
  33. (
  34.         ID_Contact_Person       integer
  35. )
  36. as
  37. begin
  38.         insert into Contact_Person (
  39.                         ID_Company             
  40.                 ,       Surname        
  41.                 ,       Name           
  42.                 ,       Patronymic     
  43.                 ,       Position       
  44.                 ,       Phone_Number
  45.                 ,       IIN)
  46.         values (
  47.                         :ID_Company            
  48.                 ,       :Surname               
  49.                 ,       :Name          
  50.                 ,       :Patronymic    
  51.                 ,       :Position      
  52.                 ,       :Phone_Number
  53.                 ,       :IIN)
  54.  
  55.         :ID_Contact_Person = (select max(ID_Contact_Person) from Contact_Person)
  56.         suspend
  57. end
  58. --------------------------------------------------------
  59. create procedure p_Candidate_Insert
  60. (              
  61.                 Surname                 varchar(12)
  62.         ,       Name                    varchar(12)
  63.         ,       Patronymic              varchar(12)
  64.         ,       DR                              date
  65. )
  66. return
  67. (
  68.         ID_Candidate    integer
  69. )
  70. as
  71. begin
  72.         insert into Candidate (                        
  73.                         Surname        
  74.                 ,       Name           
  75.                 ,       Patronymic     
  76.                 ,       DR)
  77.         values (
  78.                         :Surname               
  79.                 ,       :Name          
  80.                 ,       :Patronymic    
  81.                 ,       :DR)
  82.  
  83.         :ID_Candidate = (select max(ID_Candidate) from Candidate)
  84.         suspend
  85. end
  86. --------------------------------------------------------
  87. create procedure p_Vacancy_Insert
  88. (              
  89.                 ID_Company              integer
  90.         ,       Vacancy                 varchar(32)
  91.         ,       Position                varchar(32)    
  92. )
  93. return
  94. (
  95.         ID_Vacancy      integer
  96. )
  97. as
  98. begin
  99.         insert into Candidate (                        
  100.                         ID_Company     
  101.                 ,       Vacancy        
  102.                 ,       Position)
  103.                
  104.         values (
  105.                         :ID_Company    
  106.                 ,       :Vacancy               
  107.                 ,       :Position)     
  108.  
  109.         :ID_Vacancy = (select max(ID_Vacancy) from Vacancy)
  110.         suspend
  111. end
  112. --------------------------------------------------------
  113. create procedure p_Interview_Insert
  114. (              
  115.                 ID_Vacancy              integer
  116.         ,       ID_Candidate    integer
  117.         ,       Date                    date
  118.         ,       Result                  varchar(512)
  119.         ,       Bit                             integer        
  120. )
  121. return
  122. (
  123.         ID_Interview    integer
  124. )
  125. as
  126. begin
  127.         insert into Interview (                        
  128.                         ID_Vacancy             
  129.                 ,       ID_Candidate
  130.                 ,       Date           
  131.                 ,       Result         
  132.                 ,       Bit)           
  133.         values (
  134.                         :ID_Vacancy    
  135.                 ,       :ID_Candidate
  136.                 ,       :Date          
  137.                 ,       :Result        
  138.                 ,       :Bit)                  
  139.  
  140.         :ID_Interview = (select max(ID_Interview) from Interview)
  141.         suspend
  142. end
  143. --------------------------------------------------------
  144. -- Обновление
  145. --------------------------------------------------------
  146. create procedure p_Company_Update
  147. (
  148.                 ID_Company      integer
  149.         ,       Name    varchar(64)
  150.         ,       Adress  varchar(64)
  151.         ,       IIN             varchar(64)
  152. )
  153. as
  154. begin
  155.         update Interview                               
  156.         set
  157.                         Name     = :Name       
  158.                 ,       Adress   = :Adress     
  159.                 ,       IIN              = :IIN        
  160.         where
  161.                 ID_Company = :ID_Company
  162. end
  163. --------------------------------------------------------
  164. create procedure p_Interview_Update
  165. (              
  166.                 ID_Interview    integer
  167.         ,       ID_Vacancy              integer
  168.         ,       ID_Candidate    integer
  169.         ,       Date                    date
  170.         ,       Result                  varchar(512)
  171.         ,       Bit                             integer        
  172. )
  173. as
  174. begin
  175.         update Interview                               
  176.         set
  177.                         ID_Vacancy       = :ID_Vacancy         
  178.                 ,       ID_Candidate = :ID_Candidate
  179.                 ,       Date             = :Date               
  180.                 ,       Result           = :Result             
  181.                 ,       Bit                      = :Bit        
  182.         where
  183.                 ID_Intervier = :ID_Interview   
  184. end
  185. --------------------------------------------------------
  186. create procedure p_Contact_Person_Update
  187. (              
  188.                 ID_Contact_Person       integer
  189.         ,       ID_Company              integer
  190.         ,       Surname                 varchar(12)
  191.         ,       Name                    varchar(12)
  192.         ,       Patronymic              varchar(12)
  193.         ,       Position                varchar(12)
  194.         ,       Phone_Number    integer
  195.         ,       IIN                             varchar(64)    
  196. )
  197. as
  198. begin
  199.         update Contact_Person                          
  200.         set
  201.                         ID_Company       = :ID_Company         
  202.                 ,       Surname          = :Surname            
  203.                 ,       Name             = :Name               
  204.                 ,       Patronymic       = :Patronymic 
  205.                 ,       Position         = :Position   
  206.                 ,       Phone_Number = :Phone_Number
  207.                 ,       IIN                      = :IIN
  208.         where
  209.                 ID_Contact_Person = :ID_Contact_Person 
  210. end
  211. --------------------------------------------------------
  212. create procedure p_Candidate_Update
  213. (              
  214.                 ID_Candidate    integer
  215.         ,       Surname                 varchar(12)
  216.         ,       Name                    varchar(12)
  217.         ,       Patronymic              varchar(12)
  218.         ,       DR                              date
  219. )
  220. as
  221. begin
  222.         update Candidate                               
  223.         set
  224.                         Surname          = :Surname                            
  225.                 ,       Name             = :Name               
  226.                 ,       Patronymic       = :Patronymic 
  227.                 ,       DR                       = :DR         
  228.         where
  229.                 ID_Candidate = :ID_Candidate   
  230. end
  231. --------------------------------------------------------
  232. create procedure p_Vacancy_Update
  233. (              
  234.                 ID_Vacancy              integer
  235.         ,       ID_Company              integer
  236.         ,       Vacancy                 varchar(32)
  237.         ,       Position                varchar(32)
  238. )
  239. as
  240. begin
  241.         update Vacancy                         
  242.         set
  243.                         ID_Company       = :ID_Company         
  244.                 ,       Vacancy          = :Vacancy            
  245.                 ,       Position         = :Position   
  246.         where
  247.                 ID_Vacancy = :ID_Vacancy       
  248. end