Punto De Ventas Visual Studio

688 palabras 3 páginas
CREACIÓN DE UN SISTEMA DE BASE DE DATOS EN VISUAL BASIC 2010
PRIMERA PARTE Para el ejemplo se usará la siguiente base de datos con la relación siguiente (PRODUCTOS.accdb) de Access 2010:

Estructura de la tabla CLIENTES:

Estructura de la tabla PRODUCTOS:

Estructura de la tabla VENTAS:

Estructura de la tabla VENTAS_DETALLES:

NOTA: Los campos de tipo fecha/hora tienen el formato de Fecha Corta. Los campos de tipo texto, el tamaño del campo se adecua al contenido del campo.

CREACIÓN DEL PROYECTO EN VISUAL BASIC 2010 Se abre el Visual Studio 2010/Visual Basic 2010 y se crea un nuevo Proyecto de Visual Basic/Windows “Aplicación de Windows Forms”.

Una vez creado el proyecto se guarda en un directorio denominado Sistema de
…ver más…
onnection With {.ConnectionString = "Provider=Microsoft.ACE.OleDb.12.0;Data Source=" & Application.StartupPath & "/PRODUCTOS.accdb;"} Dim strSQL As New OleDbCommand Dim oData As OleDbDataReader Private Sub txtCodigo_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtCodigo.KeyPress

e.KeyChar = UCase(e.KeyChar) If (Asc(e.KeyChar) = 13 Or Asc(e.KeyChar) = 9) Then txtProducto.Focus() ElseIf InStr("0123456789.ABCDEFGHIJKLMNÑOPQRSTUVWYXZ" & vbBack, e.KeyChar) = 0 Then e.Handled = True End If End Sub Private Sub txtProducto_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtProducto.KeyPress e.KeyChar = UCase(e.KeyChar) If (Asc(e.KeyChar) = 13 Or Asc(e.KeyChar) = 9) Then txtPrecio.Focus() ElseIf InStr("0123456789.ABCDEFGHIJKLMNÑOPQRSTUVWYXZ- +#" & vbBack, e.KeyChar) = 0 Then e.Handled = True End If End Sub Private Sub txtPrecio_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtPrecio.KeyPress If (Asc(e.KeyChar) = 13 Or Asc(e.KeyChar) = 9) Then txtCaducidad.Focus() ElseIf InStr("0123456789." & vbBack, e.KeyChar) = 0 Then e.Handled = True End If End Sub Private Sub txtCaducidad_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtCaducidad.KeyPress If (Asc(e.KeyChar) = 13 Or Asc(e.KeyChar) = 9) Then txtExistencia.Focus() End If End Sub Private Sub txtExistencia_KeyPress(ByVal sender As Object, ByVal e As

Documentos relacionados

  • Punto De Venta Documentacion
    9241 palabras | 37 páginas
  • Logistica de distribucion y puntos de venta
    6167 palabras | 25 páginas
  • Software punto de venta en c++ builder
    5295 palabras | 22 páginas
  • Proyecto Implementacion De Un Punto De Venta
    3113 palabras | 13 páginas
  • Proyecto De Sitema De Punto De Venta De Repuesto De Moto
    1073 palabras | 5 páginas
  • Funciones administrador punto de venta
    1069 palabras | 5 páginas
  • 2.1.3 Distribucion: presencia en puntos de venta, inventarios, anaqueles, presencia numerica y ponderada
    2268 palabras | 10 páginas
  • Determinacion del emplazamiento del punto de venta
    1540 palabras | 7 páginas
  • 60 Propiedades De Visual Studio 2010
    1290 palabras | 6 páginas
  • Evolucion de visual basic
    2471 palabras | 10 páginas