FORMULARIOS: Insertar/Registrar:

Ahora comencemos con los formularios. Todos tienen la misma logística en cuanto al código, sin embargo se van cambiando los datos según los campos de la Base de Datos que se vayan utilizando.

Como ejemplo tomaremos el Módulo de Empleados, comenzando por la función de Insertar o Registrar.

Dim l_nss As String = Txt_nss.Text

        Dim l_nombre As String = Trim(UCase(Txt_nombre.Text))

        Dim l_paterno As String = Trim(UCase(Txt_paterno.Text))

        Dim l_materno As String = Trim(UCase(Txt_materno.Text))

        Dim l_direccion As String = Trim(UCase(Txt_direccion.Text))

        Dim l_telefono As String = Txt_telefono.Text

        Dim bd As Class1

        bd = New Class1()

        Dim l_cadena As String = "Insert into Empleados (NSS, Nombre, Ap_Paterno, Ap_Materno, Direccion, Telefono)" & _

                               "Values ('" & l_nss & "','" & l_nombre & "','" & l_paterno & "','" & l_materno & "','" & l_direccion & "','" & l_telefono & "')"

'Validaciones

        If Trim(Me.Txt_nss.Text) = "" Or Trim(Me.Txt_nombre.Text) = "" Or Trim(Me.Txt_paterno.Text) = "" Or Trim(Me.Txt_materno.Text) = "" Or Trim(Me.Txt_direccion.Text) = "" Or _

        Trim(Me.Txt_telefono.Text) = "" Or IsNumeric(Me.Txt_nss.Text) = False Or IsNumeric(Me.Txt_nombre.Text) = True Or _

        IsNumeric(Me.Txt_paterno.Text) = True Or IsNumeric(Me.Txt_materno.Text) = True Or _

        IsNumeric(Me.Txt_direccion.Text) = True Or IsNumeric(Me.Txt_telefono.Text) = False Or IsDate(Me.Txt_nss.Text) = True Or IsDate(Me.Txt_nombre.Text) = True Or _

        IsDate(Me.Txt_paterno.Text) = True Or IsDate(Me.Txt_materno.Text) = True Or IsDate(Me.Txt_direccion.Text) = True Or IsDate(Me.Txt_telefono.Text) = True Or _

        Len(Me.Txt_direccion.Text) >= 150 Or Len(Me.Txt_nombre.Text) >= 50 Or Len(Me.Txt_paterno.Text) >= 50 Then

            MsgBox("Rellene los datos correctamente")

        Else

            bd.Registra(l_cadena)

            Lbl_mensaje.Text = Txt_nombre.Text & " " & Txt_paterno.Text & " " & Txt_materno.Text & " Se ha registrado satisfactoriamente "

            Call refresca_grid(l_where)

        End If

    End Sub

Aquí tenemos las declaraciones de todas las variables que estemos utilizando, en este caso son cinco, sin embargo como ya se mencionó, todos los módulos utilizan la misma logística en estos procedimientos.

En ésta parte de código es dónde se hace la inserción de información en la base de datos, en otras palabras sirve para registrar, en él se puede ver la cadena de los campos que hay en la Base de Datos y la forma en la que van a ser acomodados los datos dentro de la misma.

También se puede observar una condición en dónde comienzan a aparecer las validaciones para proteger nuestro programa, por otra parte, ya tenemos en la parte de abajo dónde se está mandando llamar al método en la clase para que éste haga su función.