Mantenimiento de trabajadores de diferentes áreas de una Empresa usando LINQ y Arrayslist VB.NET 2012 -2013

Los siguientes datos son la configuración que se realiza para determinar la interacción entre diferentes trabajadores de  diferentes áreas de una Empresa.
El Formulario 1 (Mantenimiento), permite optimizar el Mantenimiento General de una persona, desde el ingreso primario de datos (CmdNuevo), hasta la modificabilidad que pueden tener sus elementos.
Si se trata de un Mantenimiento debe ingresar las iniciales de lo buscado (CboNombres) a fin de ir filtrando la lista de todos los Nombre de los trabajadores de la empresa.
EL parámetro TxtBuscarld, va a ir mostrando el índice (número de ítems) encontrados o generales.
Una vez ubica a la persona se selecciona y aparecen sus datos en el Frame1.
Las operaciones restantes son de uso genérico.
Deberá agregar un Botón que me envíe al Formulario de visualización (FrmListado, Formulario 2), en donde se listaran toso los datos de los trabajadores, filtrados por área (CboAreas) y además se tendrá la posibilidad de ordenar los resultados dependiendo de los criterios de la tabla (CboCampos); estos resultados se podrán imprimir, para lo cual se podrá visualizar el reporte previo diseñado (Formulario 3). 

La consulta de realizara por letras o palabras:



Los botones Actualizar y Eliminar permiten realizar la actualización de datos y la eliminación de los trabajadores.

El botón reporte muestra a los trabajadores que fueron ingresados, de acuerdo la área seleccionada en el combobox.

El botón imprimir muestra a todos los trabajadores:

 

 

La clase que usa en esta aplicación es:

Public Class Trabajador

Private IDTRABAJADOR As String

Private NOMBRES As String

Private SEXO As String

Private FECHANAC As String

Private AREA As String

Private FECHAING As String

Private SUELDO As String

Sub New(ID As String, NOM As String, S As String, FN As String, AREA As String, FI As String, SU As String)

Me.IDTRABAJADOR = ID

Me.NOMBRES = NOM

Me.SEXO = S

Me.FECHANAC = FN

Me.AREA = AREA

Me.FECHAING = FI

Me.SUELDO = SU

End Sub

Public Function getID() As String

Return Me.IDTRABAJADOR

End Function

Public Function getNOMBRES() As String

Return Me.NOMBRES

End Function

Public Function getSEXO() As String

Return Me.SEXO

End Function

Public Function getFECHANACIMIENTO() As String

Return Me.FECHANAC

End Function

Public Function getAREA() As String

Return Me.AREA

End Function

Public Function getFECHAINGRESO() As String

Return Me.FECHAING

End Function

Public Function getSUELDO() As String

Return Me.SUELDO

End Function

Public Sub setID(ID As String)

Me.IDTRABAJADOR = ID

End Sub

Public Sub setNOMBRES(NOM As String)

Me.NOMBRES = NOM

End Sub

Public Sub setSEXO(S As String)

Me.SEXO = S

End Sub

Public Sub setFECHANACIMIENTO(F As String)

Me.FECHANAC = F

End Sub

Public Sub setAREA(A As String)

Me.AREA = A

End Sub

Public Sub setFECHAINGRESO(F As String)

Me.FECHAING = F

End Sub

Public Sub setSUELDO(S As String)

Me.SUELDO = S

End Sub

End Class


Código fuente solicitar a:
cgprognet@hotmail.com
cgprognet@gmail.com