jueves, 8 de septiembre de 2016

Manteminiento a las tablas De BD Antenor Orrego

use master
use BDAntenorOrrego
go


--Mantenimiento Tabla TCarrera********************************************************************************************************************************************** 
-------Agregar / insertar------
if OBJECT_ID('spAgregarCarrera') is not null
drop proc  spAgregarCarrera
go
create  proc  spAgregarCarrera
@CodCarrera char(5),
@Carrera varchar(50)
 as
 begin
   if  not  exists (select   CodCarrera from  Tcarrera  where  CodCarrera=@CodCarrera)
    begin
    insert into Tcarrera  (CodCarrera,Carrera) values (@CodCarrera,@Carrera)
    select  CodError=0,Mensaje='Carrera insertada en TCarrera'
   end
   else  select CodError=1,Menasaje='Error CodCarrera duplicada'
 end
 go
 exec  spAgregarCarrera 'C0011','Emfermeía'
 go

 -------Eliminar / Delete------
 if OBJECT_ID('spEliminarCarrera') is not null
 drop  proc spEliminarCarrera
 go

 create  proc spEliminarCarrera
 @CodCarrera char(5)
 as
 begin
    if exists(select  CodCarrera from  Tcarrera where CodCarrera=@CodCarrera)
    if not exists(select CodCarrera from  TAlumno where codCarrera=@CodCarrera)
     begin
      delete  Tcarrera where CodCarrera=@CodCarrera
      select  CodError=0,Mensaje='Carrera eliminada de TCarrera'
     end
     else select  CodError=1,Mensaje='Error:Codcarrera existe en TAlumno'
     else select  CodError=1,Mensaje='Error:CodCarrera no existe en TCarrera'
 end
 go
 exec spEliminarCarrera 'C0011'
 go
 
-------Actualkizar / Update------
if OBJECT_ID('spActualizarTCarrera')is not null
drop  proc  spActualizarTCarrera
go
create  proc  spActualizarTCarrera
@CodCarrera char(5),
@Carrera varchar(50)
as
begin
    if  exists(select  CodCarrera from Tcarrera where CodCarrera=@CodCarrera)
    begin
     update Tcarrera set Carrera=@Carrera where  CodCarrera=@CodCarrera
     select  CodError=0,Mensaje='Carrera actualizada de TCarrera'
    end
    else select CodError=1,Mensaje='Carrera actualizada de TCarrera'
   end
 go
 exec spActualizarTCarrera 'C0010','holaAA'
 go
 select  * from  Tcarrera
 
 --Mantenimiento Tabla TUsuario********************************************************************************************************************************************** 
-------Agregar / insertar------
if OBJECT_ID('spAgregarTUsuario') is not null
drop proc  spAgregarTUsuario
go
create  proc  spAgregarTUsuario
@CodUsuario char(5),
@Contraseña char(15)
 as
 begin
   if  not  exists (select   CodUsuario from  TUsuario  where  CodUsuario=@CodUsuario)
    begin
    insert into TUsuario  (CodUsuario,contraseña) values (@CodUsuario,@Contraseña)
    select  CodError=0,Mensaje='Usuario insertado en TUsuario'
   end
   else  select CodError=1,Menasaje='Error CodUsuario duplicado'
 end
 go
 exec  spAgregarTUsuario 'U0031','123'
 exec  spAgregarTUsuario 'U0032','222'
 go

 -------Eliminar / Delete------
 if OBJECT_ID('spActualizarTUsuario') is not null
 drop  proc spActualizarTUsuario
 go

create  proc spActualizarTUsuario
@CodUsuario char(5)
as
 begin
    if exists(select  CodUsuario from  TUsuario where CodUsuario=@CodUsuario)
    if not exists(select Usuario from  TAlumno where Usuario=@CodUsuario)
    if not exists(select  Usuario from   TDocente  where Usuario=@CodUsuario)
     begin
      delete  TUsuario where CodUsuario=@CodUsuario
      select  CodError=0,Mensaje='Usuario eliminado de TUsuario'
     end
     else select  CodError=1,Mensaje='Error:Usuario existe en TAlumno'
     else select  CodError=1,Mensaje='Error:Usuario existe en TDocente'
     else select  CodError=1,Mensaje='Error:Usuario no existe en TUsuario'
 end
 go
 exec spActualizarTUsuario 'U0031'
 go
 
-------Actualizar / Update------
if OBJECT_ID('spActualizarTUsuario')is not null
drop  proc  spActualizarTUsuario
go
create  proc  spActualizarTUsuario
@CodUsuario char(5),
@Contraseña char(15)
 as
begin
    if  exists(select  CodUsuario from TUsuario where CodUsuario=@CodUsuario)
    begin
     update TUsuario set contraseña=@Contraseña where  CodUsuario=@CodUsuario
     select  CodError=0,Mensaje='Usuario actualizado de TUsuario'
    end
    else select CodError=1,Mensaje='Carrera actualizada de TCarrera'
   end
 go
 exec spActualizarTUsuario 'U0030','222'
 go
 select  * from  TUsuario
 go
 ------Formato de Fecha para insertar----
 set dateformat dmy
  --Mantenimiento Tabla TAlumno********************************************************************************************************************************************** 
go
-------Agregar / insertar------
if OBJECT_ID('spAgregarAlumno') is not null
drop proc spAgregarAlumno
go
create proc spAgregarAlumno
@CodAlumno char(5),
@Apepaterno varchar(50),
@ApeMaterno varchar(50),
@Nombres varchar(50),
@fechaNac datetime,
@Usuario char(5),
@CodCarrera char(5)
as
begin 
    if not exists(select CodAlumno from TAlumno where CodAlumno=@CodAlumno)
    if  exists (select  CodUsuario from TUsuario where CodUsuario=@Usuario)
    if  exists (select  CodCarrera from Tcarrera where CodCarrera=@CodCarrera)
      begin
         insert into  TAlumno (CodAlumno,Apepaterno,ApeMaterno,Nombres,fechaNac,Usuario,codCarrera)
         values (@CodAlumno,@Apepaterno,@ApeMaterno,@Nombres,@fechaNac,@Usuario,@CodCarrera)
        
         select CodError=0,Mensaje='Alumno insertado en TAlumno'
      end
      else select CodError=1,Mensaje='Error CodAlumno duplicado'
      else select CodError=1,Mensaje='Error: Usuario no existe en TUsuaio'
      else select CodError=1,Mensaje='Error: Carrera no existe en TCarrera'
end
go
exec spAgregarAlumno 'A0021','ZULCA','GARCIA','PERCY','06/05/1996','U0031','C0001'     
go
 -------Eliminar / Delete------
 if OBJECT_ID('spEliminarAlumno') is not  null
 drop proc spEliminarAlumno
 go
 create proc spEliminarAlumno
 @CodAlumno char(5)
 as
 begin
     if exists(select CodAlumno from TAlumno  where CodAlumno=@CodAlumno)
     if  not exists(select CodAlumno from TNotas where CodAlumno=@CodAlumno)
       begin
          delete TAlumno where CodAlumno=@CodAlumno
          select CodError=0,Mensaje='Alumno eliminado de TAlumno'
       end
     else select CodError=1,Mensaje='Error: Alumno existe en TNotas'
     else select CodError=1,Mensaje='Error: Alumno no existe en TAlumno'
end
go
exec spEliminarAlumno 'A0021'
go               
-------Actualizar / Update------
if OBJECT_ID('spActualizarAlumno') is not null
drop proc spActualizarAlumno
go
Create proc spActualizarAlumno
@CodAlumno char(5),
@Apepaterno varchar(50),
@ApeMaterno varchar(50),
@Nombres varchar(50),
@fechaNac datetime,
@Usuario char(5),
@CodCarrera char(5)
as
begin 
    if exists(select CodAlumno from TAlumno where CodAlumno=@CodAlumno)
    if  exists (select  CodUsuario from TUsuario where CodUsuario=@Usuario)
    if  exists (select  CodCarrera from Tcarrera where CodCarrera=@CodCarrera)
      begin
         update TAlumno set Apepaterno=@Apepaterno,ApeMaterno=@ApeMaterno,Nombres=@Nombres,
         fechaNac=@fechaNac,Usuario=@Usuario,codCarrera=@CodCarrera where CodAlumno=@CodAlumno
        
         select CodError=0,Mensaje='Alumno Actualizado en TAlumno'
      end
      else select CodError=1,Mensaje='Error: Alumno no existe en TAlumno'
      else select CodError=1,Mensaje='Error: Usuario no existe en TUsuaio'
      else select CodError=1,Mensaje='Error: Carrera no existe en TCarrera'
end
go
exec spActualizarAlumno 'A0021','ZULCA','GARCIA','holaaaa','06/05/1996','U0031','C0001'
go
 --Mantenimiento Tabla TDocente********************************************************************************************************************************************** 
go
-------Agregar / insertar------
if object_id('spAgregarDocente') is not null
drop proc spAgregarDocente
go
create proc spAgregarDocente
@CodDocente char(5),
@Apepaterno varchar(50),
@ApeMaterno varchar(50),
@Nombres varchar(50),
@Usuario char(5)
as
begin
    if not exists(select Coddocente from TDocente where Coddocente=@CodDocente)
    if  exists (select  CodUsuario from TUsuario where CodUsuario=@Usuario)
     begin
       
        insert into TDocente (Coddocente,Apepaterno,ApeMaterno,Nombres,Usuario)
        values (@CodDocente,@Apepaterno,@ApeMaterno,@Nombres,@Usuario)
        Select  CodError=0,Mensaje='Docente Insertado en TDocente'
     end
     else select CodError=1,Mensaje='Error: CodDocente Duplicado'
     else select CodError=1,Mensaje='Error: Usuario no existe en TUsuaio'
end
go
exec spAgregarDocente 'D0021','VELASQUEZ', 'QUISPE','JULIO','U0032'
go
-------Eliminar / Delete------
if OBJECT_ID('spEliminarDocente') is not null
drop proc spEliminarDocente
go
create  proc  spEliminarDocente
@CodDocente char(5)
as
begin
    if exists(select Coddocente from TDocente where Coddocente=@CodDocente)
    if not exists(select CodDocente from TCarga where CodDocente=@CodDocente)
     begin
        
         delete TDocente where Coddocente=@CodDocente
         select  CodError=0,Mensaje='Docente Eliminado de TDocente'
     end
     Else select CodError=1,Mensaje='Error: Docente existe en TCarga'
     Else select CodError=1,Mensaje='Error: Docente no existe en TDocente'
end
go
exec spEliminarDocente 'D0021'
go
-------Actualizar / Update------
if object_id('spActualizarDocente') is not null
drop proc spActualizarDocente
go
create proc spActualizarDocente
@CodDocente char(5),
@Apepaterno varchar(50),
@ApeMaterno varchar(50),
@Nombres varchar(50),
@Usuario char(5)
as
begin
    if  exists(select Coddocente from TDocente where Coddocente=@CodDocente)
    if  exists (select  CodUsuario from TUsuario where CodUsuario=@Usuario)
     begin
       
        update TDocente set Apepaterno=@ApeMaterno,ApeMaterno=@ApeMaterno,Nombres=@Nombres,
        Usuario=@Usuario where Coddocente=@CodDocente
        Select  CodError=0,Mensaje='Docente Actualizado en TDocente'
     end
     else select CodError=1,Mensaje='Error: CodDocente no existe en TDocente'
     else select CodError=1,Mensaje='Error: Usuario no existe en TUsuaio'
end
go   
exec spActualizarDocente 'D0021','VELASQUEZ', 'QUISPE','holaaaa','U0032'
go
----Mantenimiento Tabla TAsigantura********************************************************************************************************************************************** 
 go
-------Agregar / insertar------
 if object_id('spAgregarAsignatura') is not null
 drop proc spAgregarAsignatura
 go
 create proc spAgregarAsignatura
 @CodAsignatura char(5),
 @Asigantura varchar(50),
 @CodRequisito char(5)
 as
 begin
     if  not exists(select codAsignatura from  TAsignatura where codAsignatura=@CodAsignatura)
       begin
           insert into  TAsignatura (codAsignatura,Asigantura,CodRequisito)
           values (@CodAsignatura,@Asigantura,@CodRequisito)
           select CodError=0,Mensaje='Asignatura insertado en TAsignatura'
       end
       else select CodError=1,Mensaje='Error: CodAsignatura duplicado'
 end
 go
 exec spAgregarAsignatura 'S0021','IGN','S0010'
 go
 -------Eliminar / Delete------
 if OBJECT_ID('spEliminarAsignatura') is not null
 drop proc spEliminarAsignatura
 go
 create proc spEliminarAsignatura
 @CodAsignatura char(5)
 as
 begin
     if exists(select codAsignatura from TAsignatura where codAsignatura=@CodAsignatura)
     if not exists(select codAsignatura from TCarga where codAsignatura=@CodAsignatura)
     if not exists(select codAsignatura from TNotas where codAsignatura=@CodAsignatura)
      begin
         
          delete TAsignatura where codAsignatura=@CodAsignatura
          select CodError=0,Mensaje='Asignatura eliminada de TAsigantura'
      end
      else select CodError=1,Mensaje='Error: Asignatura existe en TCarga'
      else select CodError=1,Mensaje='Error: Asignatura existe en TNotas' 
 end
 go
 exec  spEliminarAsignatura 'S0021'
 go
 -------Actualizar / Update------
 if object_id('spActualizarAsignatura') is not null
 drop proc spActualizarAsignatura
 go
 create proc spActualizarAsignatura
 @CodAsignatura char(5),
 @Asigantura varchar(50),
 @CodRequisito char(5)
 as
 begin
     if  exists(select codAsignatura from  TAsignatura where codAsignatura=@CodAsignatura)
       begin
          
           update TAsignatura set Asigantura=@Asigantura,CodRequisito=@CodRequisito
           where codAsignatura=@CodAsignatura
           select CodError=0,Mensaje='Asignatura actualizada en TAsignatura'
       end
       else select CodError=1,Mensaje='Error: CodAsignatura no existe en TAsignatura'
 end
 go
 exec spActualizarAsignatura 'S0021','Holaaaa','S0010'
 go

 --Mantenimiento Tabla TCarga********************************************************************************************************************************************** 
go
-------Agregar / insertar------
 if OBJECT_ID('spAgregarCarga') is not null
 drop proc spAgregarCarga
 go
 create proc spAgregarCarga
 @IdCarga char(5),
 @CodDocente char(5),
 @CodAsignatura char(5),
 @Semestre varchar(50)
 as
 begin
    if not exists(select IdCarga from TCarga where IdCarga=@IdCarga)
    begin
       
        insert  into  TCarga (IdCarga,CodDocente,codAsignatura,Semestre)
        values (@IdCarga,@CodDocente,@CodAsignatura,@Semestre)
        select CodError=0,Mensaje='Carga insertada en TCarga'
    end
    else select CodError=1,Mensaje='Error: IdCarga duplicada'
end
go
exec  spAgregarCarga 'C0021','D0010','S0010','IV'
go

-------Eliminar / Delete------
if OBJECT_ID('spEliminarCarga') is not null
drop proc    spEliminarCarga
go
create proc spEliminarCarga
@IdCarga char(5)
as
begin
   if exists (select IdCarga from TCarga where IdCarga=@IdCarga)
    begin
       
        delete  TCarga where IdCarga=@IdCarga
        select CodError=0,Mensaje='Carga elimnado de TCarga'
    end
    else select CodError=1,Mensaje='Error: Cargo no existe en TCarga'
end
go
exec spEliminarCarga 'C0021'
go
-------Actualizar / Update------
 if OBJECT_ID('spActualizarCarga') is not null
 drop proc spActualizarCarga
 go
 create proc spActualizarCarga
 @IdCarga char(5),
 @CodDocente char(5),
 @CodAsignatura char(5),
 @Semestre varchar(50)
 as
 begin
    if  exists(select IdCarga from TCarga where IdCarga=@IdCarga)
    begin
        update TCarga set CodDocente=@CodDocente,codAsignatura=@CodAsignatura,Semestre=@Semestre
        where IdCarga=@IdCarga
        select CodError=0,Mensaje='Carga actualizada en TCarga'
    end
    else select CodError=1,Mensaje='Error: IdCarga no existe en TCarga' 
end
go
exec spActualizarCarga 'C0021','D0010','S0010','holaa'
go
--Mantenimiento Tabla TNotas********************************************************************************************************************************************** 
 go
-------Agregar / insertar------
if OBJECT_ID('spAgregarNota') is not null
drop proc spAgregarNota
go
create proc spAgregarNota
@CodAlumno char(5),
@CodAsignatura char(5),
@Semestre char(3),
@practica1 decimal(10,2),
@practica2 decimal(10,2)
as
begin
   if not exists(select CodAlumno,codAsignatura,semestre from TNotas where CodAlumno=@CodAlumno and codAsignatura=@CodAsignatura
   and semestre=@Semestre)
     begin
         insert into TNotas (CodAlumno,codAsignatura,semestre,practica1,practica2)
         values (@CodAlumno,@CodAsignatura,@Semestre,@practica1,@practica2)
         select CodError=0,Mensaje='Nota insertada en TNotas'
     end
     else select CodError=1,Mensaje='Error: Nota duplicada '
end
go
exec   spAgregarNota 'A0021','S0010','II','17.04','17.10'
go
-------Eliminar / Delete------
if OBJECT_ID('spEliminarTNotas') is not null
drop proc spEliminarTNotas
go
create proc spEliminarTNotas
@CodAlumno char(5),
@CodAsignatura char(5),
@Semestre char(3)
as
begin
    if exists(select  CodAlumno,codAsignatura,semestre from TNotas where CodAlumno=@CodAlumno
     and codAsignatura=@CodAsignatura and semestre=@Semestre)
      begin
          delete TNotas where CodAlumno=@CodAlumno  and codAsignatura=@CodAsignatura
          and semestre=@Semestre
          select CodError=0,Mensaje='Nota Eliminada de TNotas'
      end
      else select CodError=1,Mensaje='Error: Nota no existe'
end
go
exec  spEliminarTNotas  'A0021','S0010','II'
go
-------Actualizar / Update------
if OBJECT_ID('spActualizarNota') is not null
drop proc spActualizarNota
go
create proc spActualizarNota
@CodAlumno char(5),
@CodAsignatura char(5),
@Semestre char(3),
@practica1 decimal(10,2),
@practica2 decimal(10,2)
as
begin
   if  exists(select CodAlumno,codAsignatura,semestre from TNotas where CodAlumno=@CodAlumno and codAsignatura=@CodAsignatura
   and semestre=@Semestre)
     begin
         update TNotas set practica1=@practica1,practica2=@practica2  where CodAlumno=@CodAlumno
         and codAsignatura=@CodAsignatura and semestre=@Semestre
         select CodError=0,Mensaje='Nota actualizada en TNotas'
     end
     else select CodError=1,Mensaje='Error: Nota no existe en TNotas'
end
go
exec spActualizarNota 'A0021','S0010','II','10.10','10.10'
go


 --go
 --use BDAntenorOrrego
select * from TAlumno
select * from TAsignatura
select * from TCarga
select * from Tcarrera
select * from TDocente
select * from TNotas
select  * from TUsuario


Publicadas por a la/s

No hay comentarios.:

Publicar un comentario

Gracias por participar ..!!

Suscribirse a: Comentarios de la entrada (Atom)