Saltar al contenido

Aplicación para gestionar un Videoclub II

4. Codigo Fuente de la aplicación en vb.net

Aquí tenéis el código de la aplicación, podéis descargar un txt con el código haciendo click aquí

Para conectar con la base de datos, se emplean los dos tipos de conexión tanto el modo conectado como el modo desconectado (ado.net), no obstante podéis cambiar el código y utilizar solo uno si os interesa más así.

Public Class Form1
    Dim sCnn As String =
"Data Source=WIN-46V4OVUO3NF;Initial Catalog=VideoClub;Integrated Security=True"
 
    Dim sSelRec_All As String = "SELECT * from peliculas where activa='S'"
    Dim sSelUsr As String = "SELECT * FROM usuarios where activo='S'"
 
    Dim dadapter As SqlDataAdapter
    Dim dadapter2 As SqlDataAdapter
    Public dadapter3 As SqlDataAdapter
    Dim dt As New DataTable("usuarios")
    Dim dt2 As New DataTable("peliculas")
    Public dt3 As New DataTable("alquiler")
    Dim ds As New DataSet
    Dim nombreUsuario As String = "Nombre1"
    Dim DNIUsuario As String = "1"
    Dim controlBoton As Int16 = 0 'para el combo
    Dim opcionDeGrabacion As Int16 = 0
    Dim insertarOborrar As Int16 = 0

5.- Fase de Pruebas e implantación.

Si quereis probarlo una vez que tengais la bd y las tablas, de los pasos 2 y 3 podeis lanzar este script para cargar las tablas con datos.

/******************* Llenado de tablas para pruebas ***************/
/******************* Llenado de tabla usuarios          ***************/
DECLARE
@contador INT
SET @contador = 0
WHILE (@contador < 100)
BEGIN
SET @contador = @contador + 1
INSERT INTO usuarios VALUES (@contador, 'Nombre'+ CAST(@contador AS VARCHAR),
'Apell1' + CAST(@contador AS VARCHAR), 'Apell2' + CAST(@contador AS VARCHAR),
'640000000',’S’)
END
PRINT 'Registros en la tabla usuarios :' + CAST(@contador AS VARCHAR)
 
/******************* Llenado de tabla películas ***************/
 
DECLARE
@contador2 INT
SET @contador2 = 1
WHILE (@contador2 < 100)
BEGIN
SET @contador2 = @contador2 + 1
INSERT INTO peliculas (titulo, categoria, activa) VALUES ( 'Titulo '+ CAST(@contador2 AS VARCHAR),
'PRUEBA' ,'S')
END
PRINT 'Registros en la tabla peliculas: ' + CAST(@contador2 AS VARCHAR)
 
/**************** Llenamos 8 filas , de alquileres ***********************/
 
INSERT INTO alquiler (refpel,DNI_F,Dia_alquiler ,Dia_devolucion ) VALUES (1,1,SYSDATETIME(),SYSDATETIME())
INSERT INTO alquiler (refPel,DNI_F,Dia_alquiler ,Dia_devolucion ) VALUES (1,1,SYSDATETIME(),SYSDATETIME())
INSERT INTO alquiler (refPel,DNI_F,Dia_alquiler ,Dia_devolucion ) VALUES (2,2,SYSDATETIME(),SYSDATETIME())
INSERT INTO alquiler (refPel,DNI_F,Dia_alquiler ,Dia_devolucion ) VALUES (3,11,SYSDATETIME(),SYSDATETIME())
INSERT INTO alquiler (refPel,DNI_F,Dia_alquiler ,Dia_devolucion ) VALUES (4,2,SYSDATETIME(),NULL)
INSERT INTO alquiler (refPel,DNI_F,Dia_alquiler ,Dia_devolucion ) VALUES (5,2,SYSDATETIME(),NULL)
INSERT INTO alquiler (refPel,DNI_F,Dia_alquiler ,Dia_devolucion ) VALUES (31,1,SYSDATETIME(),NULL)
INSERT INTO alquiler (refPel,DNI_F,Dia_alquiler ,Dia_devolucion ) VALUES (21,1,SYSDATETIME(),NULL)

Continua en Aplicación para la gestión de un videoclub III