HUAYHUA VARA RHENZO
SQL SERVER
CREATE DATABASE UNIVERSIDAD
USE UNIVERSIDAD
CREATE TABLE ALUMNOS(
NOCONTROL VARCHAR(10) PRIMARY KEY(NOCONTROL),
NOMBRE VARCHAR(50),
APATERNO VARCHAR(50),
AMATERNO VARCHAR(50))
GO
SELECT*FROM ALUMNOS
INSERT INTO ALUMNOS VALUES('M0001','PEDRO','SALAS','LOPEZ')
INSERT INTO ALUMNOS VALUES('M0002','ROSA','FERNANDEZ','TACURI')
INSERT INTO ALUMNOS VALUES('M0003','JUAN','GUERRA','ZAPATA')
INSERT INTO ALUMNOS VALUES('M0004','JOSEFINA','SALAS','BALCAZAR')
INSERT INTO ALUMNOS VALUES('M0005','RAUL','BARRIGA','SIERRA')
CREATE PROCEDURE ALTA_ALUMNOS(
@NC VARCHAR(10),
@NOM VARCHAR(50),
@AP VARCHAR(50),
@AM VARCHAR(50))
AS
INSERT INTO ALUMNOS
VALUES(@NC,@NOM,@AP,@AM)
GO
CREATE PROCEDURE EDITA_ALUMNOS(
@NC VARCHAR(10),
@NOM VARCHAR(50),
@AP VARCHAR(50),
@AM VARCHAR(50))
AS
UPDATE ALUMNOS
SET NOMBRE=@NOM,APATERNO=@AP,AMATERNO=@AM
WHERE NOCONTROL=@NC
GO
CREATE PROCEDURE VER_ALUMNOS(
@NC VARCHAR(10))
AS
SELECT*FROM ALUMNOS
WHERE NOCONTROL=@NC
GO
CREATE PROCEDURE BORRA_ALUMNOS(
@NC VARCHAR(10))
AS
DELETE FROM ALUMNOS
WHERE NOCONTROL=@NC
GO
VISUAL BASIC
Imports [Link]
Public Class FRMALUMNOS
Public CONEXION As [Link]
Public ACCION, NC, SQL As String
Dim RES As Integer
Dim NOM, AP, AM As String
Dim COM As SqlCommand, DR As [Link]
Dim DA As [Link], CB As [Link]
Dim DS As DataSet
Public Property FRMLISTADO As Object
Private Sub BTNBUSCAR_Click(sender As Object, e As EventArgs) Handles
[Link]
NC = InputBox("INGRESE EL NUMERO DE CONTROL")
SQL = "EXEC VER_ALUMNOS'" + NC + "'"
CONECTAR()
COM = New [Link](SQL, CONEXION)
DR = [Link]
If [Link] Then
[Link] = DR(0)
[Link] = DR(1)
[Link] = DR(2)
[Link] = DR(3)
Else
[Link]("EL ALUMNO NO EXISTE", "ALUMNOS")
End If
[Link]()
[Link]()
End Sub
Private Sub BTNBORRAR_Click(sender As Object, e As EventArgs) Handles
[Link]
NC = [Link]
RES = [Link]("QUIERE BORRAR AL ALUMNO", "ALUMNOS",
[Link], [Link])
If RES = vbYes Then
SQL = "EXEC BORRA_ALUMNOS'" + NC + "'"
CONECTAR()
COM = New [Link](SQL, CONEXION)
RES = [Link]
[Link]()
[Link]("REGISTRO BORRADO")
End If
LLENAR_GRID()
[Link] = False
[Link] = False
[Link] = False
[Link] = False
End Sub
Private Sub BTNSALIR_Click(sender As Object, e As EventArgs) Handles
[Link]
End
End Sub
Private Sub BTNGUARDAR_Click(sender As Object, e As EventArgs) Handles
[Link]
NC = [Link]
NOM = UCase([Link])
AP = UCase([Link])
AM = UCase([Link])
SQL = ""
If ACCION = "GUARDAR" Then
SQL = "EXEC VER_ALUMNOS'" + NC + "'"
CONECTAR()
COM = New [Link](SQL, CONEXION)
DR = [Link]
If [Link] Then
[Link]("EL NUMERO DE CONTROL YA EXISTE", "ALUMNOS",
[Link], [Link])
[Link]()
[Link]()
Else
SQL = "EXEC ALTA_ALUMNOS'" + NC + "','" + NOM + "','" + AP +
"','" + AM + "'"
CONECTAR()
COM = New [Link](SQL, CONEXION)
RES = [Link]
[Link]()
[Link]("REGISTRO GUARDADO")
End If
ElseIf ACCION = "EDITAR" Then
SQL = "EXEC EDITA_ALUMNOS'" + NC + "','" + NOM + "','" + AP + "','" +
AM + "'"
CONECTAR()
COM = New [Link](SQL, CONEXION)
RES = [Link]
[Link]()
[Link]("REGISTRO MODIFICADO")
End If
LLENAR_GRID()
[Link] = False
[Link] = False
[Link] = False
[Link] = False
End Sub
Private Sub BTNEDITAR_Click(sender As Object, e As EventArgs) Handles
[Link]
ACCION = "EDITAR"
[Link] = True
[Link] = True
[Link] = True
End Sub
Private Sub BTNNUEVO_Click(sender As Object, e As EventArgs) Handles
[Link]
ACCION = "GUARDAR"
[Link] = True
[Link] = ""
[Link] = True
[Link] = ""
[Link] = True
[Link] = ""
[Link] = True
[Link] = ""
[Link]()
End Sub
Public Sub CONECTAR()
CONEXION = New [Link]
[Link] = ("SERVER=(LOCAL);INITIAL
CATALOG=UNIVERSIDAD;INTEGRATED SECURITY=TRUE")
[Link]()
End Sub
Public Sub LLENAR_GRID()
SQL = "SELECT*FROM ALUMNOS"
CONECTAR()
DA = New [Link](SQL, CONEXION)
CB = New [Link](DA)
DS = New DataSet
[Link](DS, "ALUMNOS")
[Link] = DS
[Link] = "ALUMNOS"
[Link]()
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles [Link]
'TODO: esta línea de código carga datos en la tabla
'[Link]' Puede moverla o quitarla según sea necesario.
[Link]([Link])
LLENAR_GRID()
End Sub
End Class
BOTON GUARDAR
BOTON BUSCAR
BOTON BORRAR
BOTON EDITAR