UNIVERSIDAD NACIONAL MAYOR DE SAN MARCOS

FACULTAD DE INGENIERÍA INDUSTRIAL

GUIA DE LABORATORIO:
MANTENIMIENTO DE LA TABLA: CONTRATISTA

BASE DE DATOS Y PROGRAMACION VISUAL

CURSO:
INGENIERIA DE SOFTWARE

PROFESOR: PONCE BENITES Wiler Arturo

Correo: ingeniería.software@industrial.unmsm.pe
Campus Virtual: campus.industrial.unmsm.edu.pe
Web: http://industrial.unmsm.edu.pe

Este material de apoyo académico a sido elaborado

por el profesor para uso exclusivo de los alumnos de
la Facultad de Ingeniería Industrial de la Universidad
Nacional Mayor de San Marcos y en concordancia
con lo dispuesto por la legislación sobre derechos
de autor: Decreto Legislativo 822.

2017

Página 1 de 17
Implementar una aplicación Windows Forms que permita realizar el mantenimiento de registro de la tabla
Contratista.

Se tiene en cuenta lo siguiente:

Implementar en SQL Server procedimientos almacenados que permitan listar, insertar, modificar y eliminar
un registro de la tabla contratista.

Configurar la cadena de conexión en el archivo app.config.

Crear la clase Conexión e implementar el método getConecta, el cual permita asociarse a la cadena de
conexión especificada en el archivo app.config.

Crear la clase LogicaNegocio e implementar los métodos necesarios para el mantenimiento de registro de
contratistas.

Agregar al proyecto un formulario MDI para el menú de opciones de la aplicación.

El menú Mantenimiento Contratista presenta las siguientes opciones:

El menú Listado Contratista presenta las siguientes opciones:

Página 2 de 17
GUI propuesto para las opciones del menú:

Formulario de listado de contratistas:

Formulario de registro del nuevo contratista:

Página 3 de 17
Formulario de actualización de datos del contratista.

Formulario de eliminación de registro de contratista:

Página 4 de 17
Solución:

Generación de la base de datos: CONTRATO

Scripts necesarios desarrollados con SQL-Transact

1.- Script creación de la base de datos CONTRATO

USE master
GO

CREATE DATABASE CONTRATO

ON PRIMARY
(
NAME=CONTRATO,
FILENAME='H:\BaseDatos\Contrato\BDatos\CONTRATO.mdf',
SIZE=3MB,
MAXSIZE=unlimited,
FILEGROWTH=3%
)
LOG ON
(
NAME=CONTRATO_log,
FILENAME='H:\BaseDatos\Contrato\BDatos\CONTRATO_log.ldf',
SIZE=3MB,
MAXSIZE=unlimited,
FILEGROWTH=1%
)
GO

2.- Script creación de la tabla CONTRATISTA

USE CONTRATO
GO

CREATE TABLE CONTRATISTA

(
IDE_CON CHAR(6) NOT NULL,
NOM_CON VARCHAR(30) NOT NULL,
PAT_CON VARCHAR(20) NOT NULL,
MAT_CON VARCHAR(20) NOT NULL,
FON_CON VARCHAR(15) NOT NULL,
EMA_CON VARCHAR(50) NOT NULL
)
GO

3.- Script creación de llave primaria

USE CONTRATO
GO

ALTER TABLE CONTRATISTA ADD PRIMARY KEY (IDE_CON)

GO

Página 5 de 17
4.- Diagrama de relaciones:

5.- Script para ingresar nuevos registros

/* MANTENIMIENTO DE TABLAS */
/* ADICIONANDO REGISTRO A TABLAS */
/* ***************************** */

-- Abrir la base de datos

USE CONTRATO
GO

-- REGISTROS DE LA TABLA: CONTRATISTA

INSERT INTO CONTRATISTA VALUES
('CON001','PEDRO','LOPEZ','SANCHEZ','983645364','PLOPEZ@HOTMAIL.COM'),
('CON002','LUIGUI','JARAMILLO','ORTIZ','983465451','LJARAMILLO@HOTMAIL.COM'),
('CON003','OSCAR','ZAMORA','ROSAS','946566755','OZAMORA@HOTMAIL.COM'),
('CON004','DICK', 'GALVEZ','CARBAJAL','998765436','DGALVEZ@GMAIL.COM'),
('CON005','RICHARD','VELEZMORO','SO','945678899','RVELEZMORO@HOTMAIL.COM'),
('CON006','NELSON','MEJIA','MEJIA', '923456788','NMEJIA@HOTMAIL.COM'),
('CON007','TOMAS', 'GONZALES','SANCHEZ','465780006','TGONZALES@GMAIL.COM'),
('CON008','CHRISTIAN','HUARAC','TORRES','267653441','CHUARAC@HOTMAIL.COM'),
('CON009','JORGE','CASIMIRO','SOTO', '345678980','JCASIMIRO@HOTMAIL.COM'),
('CON010','KEVIN', 'CARLOS','TARAZONA','967895448','KCARLOS@HOTMAIL.COM')
GO

SELECT * FROM CONTRATISTA

GO

6.- Script creación de procedimientos almacenados

-- pjMantenimiento Contratista
-- Procedimientos Almacenados

-- ABRIR BASE DE DATOS: CONTRATO

USE CONTRATO
GO

Página 6 de 17
-- PROCEDIMIENTO ALMACENADO QUE LISTA LOS CONTRATISTAS
IF OBJECT_ID ('SP_LISTACONTRATISTA') IS NOT NULL
DROP PROC SP_LISTACONTRATISTA
GO
CREATE PROC SP_LISTACONTRATISTA
AS
SELECT
C.IDE_CON AS CODIGO,
C.NOM_CON+' '+C.PAT_CON+' '+C.MAT_CON AS CONTRATISTA,
C.FON_CON AS TELEFONO,
C.EMA_CON AS CORREO
FROM CONTRATISTA C
GO

-- PROCEDIMIENTO ALMACENADO PARA EL ULTIMO CODIGO DE CONTRATISTA

IF OBJECT_ID('SP_ULTIMOCODIGO') IS NOT NULL
DROP PROC SP_ULTIMOCODIGO

GO
CREATE PROC SP_ULTIMOCODIGO
AS
SELECT TOP 1
C.IDE_CON AS CODIGO FROM CONTRATISTA C ORDER BY C.IDE_CON DESC
GO

-- PROCEDIMIENTO ALMACENADO PARA UN NUEVO CONTRATISTA

IF OBJECT_ID('SP_NUEVOCONTRATISTA') IS NOT NULL
DROP PROC SP_NUEVOCONTRATISTA
GO
CREATE PROC SP_NUEVOCONTRATISTA
(
@COD CHAR(6),@NOM VARCHAR(30),@PAT VARCHAR(20),
@MAT VARCHAR(20),@FON VARCHAR(15),@EMA VARCHAR(59)
)
AS
INSERT INTO CONTRATISTA VALUES
(
@COD,@NOM,@PAT,@MAT,@FON,@EMA
)
GO

-- PROCEDIMIENTO ALMACENADO QUE ACTUALIZA

-- LOS DATOS DEL CONTRATISTA
IF OBJECT_ID('SP_ACTUALIZACONTRATISTA') IS NOT NULL
DROP PROC SP_ACTUALIZACONTRATISTA
GO
CREATE PROC SP_ACTUALIZACONTRATISTA
(
@COD CHAR(6),@NOM VARCHAR(30),@PAT VARCHAR(20),
@MAT VARCHAR(20),@FON VARCHAR(15),@EMA VARCHAR(59)
)
AS
UPDATE CONTRATISTA SET
NOM_CON = @NOM,PAT_CON = @PAT, MAT_CON = @MAT,
FON_CON = @FON,EMA_CON = @EMA
WHERE IDE_CON = @COD
GO

Página 7 de 17
-- PROCEDIMIENTO ALMACENADO QUE PERMITE ELIMINAR
-- UN REGISTRO DE CONTRATISTA
IF OBJECT_ID('SP_ELIMINACONTRATISTA') IS NOT NULL
DROP PROC SP_ELIMINACONTRATISTA

GO
CREATE PROC SP_ELIMINACONTRATISTA
(
@COD CHAR(6)
)
AS
DELETE CONTRATISTA WHERE IDE_CON = @COD
GO

-- PROCEDIMIENTO ALMACENADO QUE MUESTRA LOS

-- DATOS DE CONTRATISTA.
IF OBJECT_ID('SP_BUSCACONTRATISTA') IS NOT NULL
DROP PROC SP_BUSCACONTRATISTA

GO
CREATE PROC SP_BUSCACONTRATISTA
(
@COD CHAR(6)
)
AS
SELECT
C.IDE_CON AS CODIGO,
C.NOM_CON AS NOMBRE,
C.PAT_CON AS PATERNO,
C.MAT_CON AS MATERNO,
C.FON_CON AS TELEFONO,
C.EMA_CON AS CORREO
FROM CONTRATISTA C WHERE IDE_CON = @COD
GO

7.- Ahora continuamos con la programación en visual C#:

8.- Seleccionar Archivo > Nuevo Proyecto > Visual C# > Windows > Aplicación Windows Forms y asignar
por nombre: pjMantenimientoContratista.

9.- Agregar la referencia System.Configuration,

para lo cual, hacer clic derecho sobre el
proyecto luego: Agregar > Referencia. Después,
activar en la pestaña .NET, el nombre de
componente:

System.Configuration

Terminar haciendo clic en el botón OK.

10.- Ahora configurar la cadena de conexión en

el archivo App.config, según las siguientes
líneas de comando:

Página 8 de 17
App.config
<?xml version="1.0" encoding="utf-8" ?>
<configuration>
<connectionStrings>
<add name="cn"
connectionString="Data Source=.;Initial Catalog=CONTRATO;Integrated Security=True"
providerName="System.Data.SqlClient" />
</connectionStrings>
</configuration>

11.- Agregar la clase Conexion y colocar el siguiente Código:

Clase Conexión
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;

using System.Data;
using System.Data.SqlClient;
using System.Configuration;

namespace pjMantenimientoContratista
{
public class Conexion
{
public SqlConnection getConecta()
{
SqlConnection cn = new
SqlConnection(ConfigurationManager.ConnectionStrings["cn"].ConnectionString);
return cn;
}
}
}

12.- Agregar la clase Contratista y colocar el siguiente Código:

Clase Contratista
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;

namespace pjMantenimientoContratista
{
public class Contratista
{
public string codigo { get; set; }
public string nombre { get; set; }
public string paterno { get; set; }
public string materno { get; set; }
public string telefono { get; set; }
public string correo { get; set; }
}
}

Página 9 de 17
13.- Agregar la clase LogicaNegocio y colocar el siguiente Código:

Clase LogicaNegocio
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;

using System.Data.SqlClient;
using System.Data;

namespace pjMantenimientoContratista
{
public class LogicaNegocio
{
// Definición global
Conexion objCon = new Conexion();
SqlConnection cn = new SqlConnection();

string mensaje;

// Método que lista los contratistas

public DataTable listaContratistas()
{
cn = objCon.getConecta();
SqlDataAdapter da = new SqlDataAdapter("SP_LISTACONTRATISTA",cn);
DataTable dt = new DataTable();
da.Fill(dt);
return dt;
}

// Método que genere un nuevo codiigo de contratista

public string generaCodigo()
{
cn = objCon.getConecta();
cn.Open();
SqlCommand cmd = new SqlCommand("SP_ULTIMOCODIGO",cn);
return "CON" + (int.Parse(cmd.ExecuteScalar().ToString().Substring(3,3))+1).
ToString("0000");
}

// Método que registra un nuevo contratista

public string nuevoContratista(Contratista objC)
{
mensaje = "";
cn = objCon.getConecta();
cn.Open();
SqlCommand cmd = new SqlCommand("SP_NUEVOCONTRATISTA",cn);
cmd.CommandType = CommandType.StoredProcedure;
cmd.Parameters.Add("COD", SqlDbType.VarChar).Value = objC.codigo;
cmd.Parameters.Add("NOM", SqlDbType.VarChar).Value = objC.nombre;
cmd.Parameters.Add("PAT", SqlDbType.VarChar).Value = objC.paterno;
cmd.Parameters.Add("MAT", SqlDbType.VarChar).Value = objC.materno;
cmd.Parameters.Add("FON", SqlDbType.VarChar).Value = objC.telefono;
cmd.Parameters.Add("EMA", SqlDbType.VarChar).Value = objC.correo;
try
{
int n = cmd.ExecuteNonQuery();
mensaje = n.ToString()+" CONTRATISTA REGISTRADO CORRECTAMENTE";
}

Página 10 de 17
 catch(SqlException ex)
{
mensaje = ex.Message;
}
finally
{
cn.Close();
}
return mensaje;
}

// Método que busca los datos del contratista

public DataTable buscaContratista(Contratista objC)
{
cn = objCon.getConecta();
cn.Open();
SqlDataAdapter da = new SqlDataAdapter("SP_BUSCACONTRATISTA", cn);
da.SelectCommand.CommandType = CommandType.StoredProcedure;
da.SelectCommand.Parameters.Add("COD", SqlDbType.VarChar).Value = objC.codigo;
DataTable dt = new DataTable();
da.Fill(dt);
return dt;
}

// Método que actualiza los datos del contratista

public string actualizaContratista(Contratista objC)
{
mensaje = "";
cn = objCon.getConecta();
cn.Open();
SqlCommand cmd = new SqlCommand("SP_ACTUALIZACONTRATISTA", cn);
cmd.CommandType = CommandType.StoredProcedure;
cmd.Parameters.Add("COD", SqlDbType.VarChar).Value = objC.codigo;
cmd.Parameters.Add("NOM", SqlDbType.VarChar).Value = objC.nombre;
cmd.Parameters.Add("PAT", SqlDbType.VarChar).Value = objC.paterno;
cmd.Parameters.Add("MAT", SqlDbType.VarChar).Value = objC.materno;
cmd.Parameters.Add("FON", SqlDbType.VarChar).Value = objC.telefono;
cmd.Parameters.Add("EMA", SqlDbType.VarChar).Value = objC.correo;

try
{
int n = cmd.ExecuteNonQuery();
mensaje = n.ToString() + " CONTRATISTA ACTUALIZADO CORRECTAMENTE";
}
catch (SqlException ex)
{
mensaje = ex.Message;
}
finally
{
cn.Close();
}
return mensaje;
}

// Método que elimina un contratista

public string eliminaContratista(Contratista objC)
{
mensaje = "";
cn = objCon.getConecta();
cn.Open();
SqlCommand cmd = new SqlCommand("SP_ELIMINACONTRATISTA", cn);

Página 11 de 17
 cmd.CommandType = CommandType.StoredProcedure;
cmd.Parameters.Add("COD", SqlDbType.VarChar).Value = objC.codigo;

try
{
int n = cmd.ExecuteNonQuery();
mensaje = n.ToString() + " CONTRATISTA ELIMINADO CORRECTAMENTE";
}
catch (SqlException ex)
{
mensaje = ex.Message;
}
finally
{
cn.Close();
}
return mensaje;
}
}
}

14.- Código del formulario: frmNuevoContratista se muestra a continuación.

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;

namespace pjMantenimientoContratista
{
public partial class frmNuevoContratista : Form
{
LogicaNegocio objL = new LogicaNegocio();

public frmNuevoContratista()
{
InitializeComponent();
}

private void frmNuevoContratista_Load(object sender, EventArgs e)

{
generaCodigo();
}

void generaCodigo()
{
lblCodigo.Text = objL.generaCodigo();
}

private void btnRegistrar_Click(object sender, EventArgs e)

{
Contratista objCo = new Contratista();

// Enviando los valores al objeto de la clase Contratista

objCo.codigo = lblCodigo.Text;
objCo.nombre = txtNombre.Text;
objCo.paterno = txtPaterno.Text;

Página 12 de 17
 objCo.materno = txtMaterno.Text;
objCo.telefono = txtFono.Text;
objCo.correo = txtCorreo.Text;

// Grabando el nuevo registro de contratista

string mensaje = objL.nuevoContratista(objCo);
MessageBox.Show(mensaje);
limpiarControles();
}

private void btnAnular_Click(object sender, EventArgs e)

{
limpiarControles();
}

void limpiarControles()
{
generaCodigo();
txtNombre.Clear();
txtPaterno.Clear();
txtMaterno.Clear();
txtFono.Clear();
txtCorreo.Clear();
txtNombre.Focus();
}

private void btnVerListado_Click(object sender, EventArgs e)

{
frmListadoContratista objListado = new frmListadoContratista();
objListado.Show();
}

private void btnSalir_Click(object sender, EventArgs e)

{
Close();
}
}
}

15.- Código del formulario: frmActualizaContratista se muestra a continuación.

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;

namespace pjMantenimientoContratista
{
public partial class frmActualizaContratista : Form
{
LogicaNegocio objL = new LogicaNegocio();

public frmActualizaContratista()
{
InitializeComponent();
}

Página 13 de 17
 private void btnBuscar_Click(object sender, EventArgs e)
{
Contratista objCo = new Contratista();
objCo.codigo = txtCodigo.Text;
DataRow fila = objL.buscaContratista(objCo).Rows[0];
txtNombre.Text=fila[1].ToString();
txtPaterno.Text=fila[2].ToString();
txtMaterno.Text=fila[3].ToString();
txtFono.Text=fila[4].ToString();
txtCorreo.Text=fila[5].ToString();
}

private void btnActualizar_Click(object sender, EventArgs e)

{
Contratista objCo = new Contratista();
objCo.codigo = txtCodigo.Text;
objCo.nombre = txtNombre.Text;
objCo.paterno = txtPaterno.Text;
objCo.materno = txtMaterno.Text;
objCo.telefono = txtFono.Text;
objCo.correo = txtCorreo.Text;

string mensaje = objL.actualizaContratista(objCo);

MessageBox.Show(mensaje);
}

private void btnAnular_Click(object sender, EventArgs e)

{
limpiarControles();
}

void limpiarControles()
{
txtCodigo.Clear();
txtNombre.Clear();
txtPaterno.Clear();
txtMaterno.Clear();
txtFono.Clear();
txtCorreo.Clear();
txtCodigo.Focus();
}

private void btnVerListado_Click(object sender, EventArgs e)

{
frmListadoContratista objListado = new frmListadoContratista();
objListado.Show();
}

private void btnSalir_Click(object sender, EventArgs e)

{
this.Close();
}

private void lblCodigo_Click(object sender, EventArgs e)

{

}
}
}

Página 14 de 17
16.- Código del formulario: frmEliminaContratista se muestra a continuación.

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;

namespace pjMantenimientoContratista
{
public partial class frmEliminaContratista : Form
{
LogicaNegocio objL = new LogicaNegocio();

public frmEliminaContratista()
{
InitializeComponent();
}

private void btnVerListado_Click(object sender, EventArgs e)

{
frmListadoContratista objListado = new frmListadoContratista();
objListado.Show();
}

private void btnBuscar_Click(object sender, EventArgs e)

{
Contratista objCo = new Contratista();
objCo.codigo = txtCodigo.Text;

DataRow fila = objL.buscaContratista(objCo).Rows[0];

txtNombre.Text = fila[1].ToString();
txtPaterno.Text = fila[2].ToString();
txtMaterno.Text = fila[3].ToString();
txtFono.Text = fila[4].ToString();
txtCorreo.Text = fila[5].ToString();
}

private void btnEliminar_Click(object sender, EventArgs e)

{
Contratista objCo = new Contratista();
objCo.codigo = txtCodigo.Text;

string mensaje = objL.eliminaContratista(objCo);

MessageBox.Show(mensaje);
limpiarControles();
}

private void btnAnular_Click(object sender, EventArgs e)

{
limpiarControles();
}

Página 15 de 17
 private void btnSalir_Click(object sender, EventArgs e)
{
this.Close();
}

void limpiarControles()
{
txtCodigo.Clear();
txtNombre.Clear();
txtPaterno.Clear();
txtMaterno.Clear();
txtFono.Clear();
txtCorreo.Clear();
txtCodigo.Focus();
}
}
}

17.- Código del formulario primario MDI: frmMenuPrincipal se muestra a continuación.

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;

namespace pjMantenimientoContratista
{
public partial class frmMenuPrincipal : Form
{
public frmMenuPrincipal()
{
InitializeComponent();
}

private void mnuNuevo_Click(object sender, EventArgs e)

{
foreach (Form formularios in MdiChildren)
{
formularios.Close();
}
frmNuevoContratista childForm = new frmNuevoContratista();
childForm.MdiParent = this;
childForm.Show();
}

private void mnuActualizar_Click(object sender, EventArgs e)

{
foreach (Form formularios in MdiChildren)
{
formularios.Close();
}
frmActualizaContratista chilForm = new frmActualizaContratista();
chilForm.MdiParent= this;
chilForm.Show();
}

Página 16 de 17
 private void mnuEliminar_Click(object sender, EventArgs e)
{
foreach (Form formularios in MdiChildren)
{
formularios.Close();
}

frmEliminaContratista chilForm = new frmEliminaContratista();

chilForm.MdiParent = this;
chilForm.Show();
}

private void mnuListadoGeneral_Click(object sender, EventArgs e)

{
foreach (Form formularios in MdiChildren)
{
formularios.Close();
}
frmListadoContratista chilForm = new frmListadoContratista();
chilForm.MdiParent = this;
chilForm.Show();
}

private void mnuSalir_Click(object sender, EventArgs e)

{
this.Close();
}
}
}

Página 17 de 17