Lokaz

Solo disponible en BuenasTareas
  • Páginas : 3 (528 palabras )
  • Descarga(s) : 7
  • Publicado : 5 de julio de 2010
Leer documento completo
Vista previa del texto
Public Class Lista_Productos

'Creamor Productos de la clase dataSet que es DsProductos y todo lo que creamos va ser igual a una nuevo metodo dsProductos
Dim Productos As DsProductos = NewDsProductos()

Sub CargaGridView()
'DATASOURCE= Obtiene o establece el origen de datos cuyos datos se están mostrando en el control DataGridView.

'Data source= Fuente dedatos ( Lugar de donde se rescata la información requerida.)
'de la tabla que agregamos DataGridView.se muestrea de PRODUCTOS que creamos.datatable producto
dgvProductos.DataSource =Productos.DTProductos
End Sub

'creamos una funcion privada ValidaCaptura de tipo boolean k es boolean para contener valores de dos estados
'como verdadero/falso, sí/no oactivado/desactivado.

Private Function ValidaCaptura() As Boolean
'si txtcodigo.text.trim() esta vacio o cadena vacia
If txtCodigo.Text.Trim() = String.Empty Then
' entoncesretorna un mensaje .....
MessageBox.Show("Por Favor Llene la lista")
' si es falso sigues...
Return False
End If
If txtProducto.Text.Trim =String.Empty Then
MessageBox.Show("Por Favor Capture la Descripcion del Producto")
Return False
End If
If txtPrecio.Text.Trim = String.Empty ThenMessageBox.Show("Por favor Capture el Precio del Producto")
Return False
End If
'si el txtprecio no es numerico..
If Not IsNumeric(txtPrecio.Text) Then'te muestra el mensaje....
MessageBox.Show("Por Favor capture un valor Numerico Valido")
Return False
End If
MessageBox.Show("Se Agrego El Producto")'retorna verdadero para mostrarse lo agregado
Return True
End Function

Public Sub AgregarProducto()
'creamos DrProducto de tipo DsProducto de clase DataSet.fila...
tracking img