Auto Data Entry Form’s
Muchos de los lectores de este blog muestran interés por ejemplos entorno a Windows forms y SQL Express, no hay duda y soy consciente de que este articulo no forma parte de esos “avances que están por venir” ni representa a ninguna novedad tecnológica actual; obviamente lejos de herramientas tan actuales como LightSwitch, sin embargo me complace compartirlo con vosotros pues creo que puede ser un buen soporte para ayudar en la comprensión de ciertos usos y técnicas sobre todo para los que empiezan.
Como digo, este es uno de esos artículos intemporales en varios aspectos, pues describe metodologías “retro” utilizando los clásicos SQL y Forms… si embargo no quiero que perdáis de vista que los “usos” y “técnicas” utilizadas pueden traspasar esa barrera atemporal y utilizarse en cualquier escenario actual… incluso en las nuevas aplicaciones “Metro Style” J
Al diseñar algunos ejemplos, disfruto partiendo de una plantilla de “Consola”, pues debido a la naturaleza y el propósito del mismo, esta concesión me permite “Salirme fuera de pistas” de lo que sería una aplicación comercial, pero a su vez me permite disfrutar de la libertad de construir algo desde los cimientos.
Como su nombre indica el objetivo del siguiente laboratorio es interactuar con la conocida base de datos para pruebas “NorthWnd”, utilizaremos la estructura de cualquiera de sus tablas para “Autogenerar” nuestro form de entrada (con todos sus textboxes) que nos permita añadir un nuevo registro a la tabla a través de un “Enlazador”. A modo de flecos para darle un poco mas de interés, he creído divertido incluir una pequeña funcionalidad que nos permita recorrer la tabla buscando todos los registros según la coincidencia del país introducido el textbox de búsqueda (con LINQ), y un par de botones para recorrer el enlazador, avanzando o retrocediendo a partir de la posición actual en el datagridview.
No creo que sea necesario un detalle mas exhaustivo, prefiero pasar al código, aunque antes quedo a vuestra disposición para continuar y desarrollar esta conversación según consideréis de interés.
Que disfrutéis J
PepLluis,
Imports System.Drawing
Imports System.Windows.Forms
Imports System.Data
Imports System.Data.SqlClient
'
'
' Establecer un punto de entrada. Esto es una aplicacion VB
'
Module MiAplicacion
Sub Main()
Dim Ventana As New frmDinamico
Ventana.Show()
Application.Run()
End Sub
End Module
Public Class frmDinamico
Inherits Form
'Punto de Inicializacion de nuestra ventana
'Definicion de Variables de contexto
Private MiConexion As New SqlConnection(
"Data Source=.\SQLEXPRESS;" +
"AttachDbFilename=D:\Bd_App\NORTHWND.MDF;" +
"Integrated Security=True;Connect Timeout=30;User Instance=True")
' Adaptador, Enlazador y juego de datos para la tabla clientes
Private MiAdaptador As New SqlDataAdapter("Select * from Customers", MiConexion)
Private MiEnlazador As New BindingSource
Private MiDataSet As New DataSet
''' <summary>
''' Al lanzar la ejecucion de la app
''' </summary>
''' <remarks></remarks>
Sub New()
Try
Inicializacion()
Catch fallo As Exception
Messagebox.Show(fallo.Message, "Error Grave... no puedo continuar")
End
End Try
End Sub
''' <summary>
''' Inicializar/Construir los objetos de la aplicacions
''' </summary>
''' <remarks></remarks>
Sub Inicializacion()
Me.Text = "Auto Entry Data Form"
' Crear y Enlazar datos
Dim MiCommandBuild As New SqlCommandBuilder(MiAdaptador)
MiConexion.Open()
MiAdaptador.Fill(MiDataSet)
MiENlazador.DataSource = MiDataSet.Tables(0)
Dim MiDataGridView As New DataGridView
MiDataGridView.DataSource = MiENlazador
MiDataGridView.Anchor = AnchorStyles.Left Or AnchorStyles.Right Or AnchorStyles.Top
MiDataGridView.Dock = DockStyle.Top
'
' Añadir los controles al Form
Me.Controls.Add(MiDataGridView)
Me.Controls.AddRange({
New TextBox With {.Name = "Buscar", .Text = "", .Dock = DockStyle.Bottom},
New Button With {.Name = "Añadir", .Text = .Name, .Dock = DockStyle.Bottom},
New Button With {.Name = "Avanza", .Text = .Name, .Dock = DockStyle.Bottom},
New Button With {.Name = "Retrocede", .Text = .Name, .Dock = DockStyle.Bottom}
})
' Apuntar los handlers a sus funciones
AddHandler Me.Controls("Añadir").Click, AddressOf Nuevo
AddHandler Me.Controls("Avanza").Click, AddressOf Avanzar
AddHandler Me.Controls("Retrocede").Click, AddressOf Retroceder
AddHandler Me.Controls("Buscar").TextChanged, AddressOf Seleccionar
Me.Controls("Buscar").Focus()
End Sub
''' <summary>
''' Al final la ejecucion de la app
''' </summary>
''' <remarks></remarks>
Sub Fin() Handles Me.FormClosed
Application.ExitThread()
End
End Sub
''' <summary>
''' Query para seleccionar solo los registros coincidentes
''' con la cadena de texto introducida en el TextBox 'Buscar'
''' </summary>
''' <remarks></remarks>
Sub Seleccionar()
MiENlazador.DataSource =
(
From S In MiDataSet.Tables(0)
Where S.Item("Country").Contains(Me.Controls("Buscar").Text)
Select Nombre = S.Item("CompanyName"),
Ciudad = S.Item("City")
).ToList
End Sub
''' <summary>
''' Enlazador : MoveNext
''' </summary>
''' <remarks></remarks>
Sub Avanzar()
MiEnlazador.MoveNext()
End Sub
''' <summary>
''' Enlazador : MovePrevious
''' </summary>
''' <remarks></remarks>
Sub Retroceder()
MiEnlazador.MovePrevious()
End Sub
''' <summary>
''' Crear un nuevo form conteniendo un TextBox y una etiqueta
''' con su descripcion para cada columna de la tabla
''' </summary>
''' <remarks></remarks>
Sub Nuevo()
Dim AutoForm As New Form
AutoForm.Name = "Nuevo"
AutoForm.Text = "Data Entry Form"
Dim Pos_x As Integer = 5
Dim Pos_y As Integer = 10
Dim Etiqueta As Label
Dim Entrada As TextBox
For Each col As DataColumn In MiDataSet.Tables(0).Columns
Etiqueta = New Label
Etiqueta.Location = New Point(Pos_x, Pos_Y)
Etiqueta.Text = Col.ColumnName
Pos_X += Etiqueta.Width
Entrada = New TextBox
Entrada.tag = Etiqueta.Text
Entrada.Location = New Point(Pos_X, Pos_Y)
AutoForm.Controls.AddRange(New Control() {Etiqueta, Entrada})
Pos_x = 5
Pos_Y += Etiqueta.Height + 5
Next
AutoForm.height = Pos_y + 75
AutoForm.Show()
End Sub
End Class