Imports System.Data.SqlClient
Module conexion
Public conn As New SqlConnection()
Public Function Conecta(strUsuario As String, strPassword As String) As Boolean
Conecta = False
Try
conn.ConnectionString = "Data Source=JOUSOFT\DEVELOPER;Initial Catalog=ventas;Persist Security Info=True;User ID= " & strUsuario & ";Password= " & strPassword
conn.Open()
Conecta = True
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Function
End Module
Mantenimiento:
Imports System.Data.SqlClient
Public Class frmABC_Bodega
Public gintEstado As Integer
Private Sub frmABC_Bodega_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: esta línea de código carga datos en la tabla 'DataBodega.BODEGA' Puede moverla o quitarla según sea necesario.
Me.BODEGATableAdapter.Fill(Me.DataBodega.BODEGA)
End Sub
Sub Mantenimento(intOpcion As Integer)
' 1 - Alta
' 2 - Baja
' 3 - Cambio
Dim strMensaje As String
prgEstado.Value = 0
prgEstado.Maximum = 100
prgEstado.Minimum = 0
Select Case intOpcion
Case 1
strMensaje = " ingresar "
Case 2
strMensaje = " eliminar "
Case 3
strMensaje = " modificar "
Case -1
Beep()
Exit Sub
End Select
Dim strEstado As String
strEstado = cbmEstado.SelectedIndex
prgEstado.Value = prgEstado.Value + 20
Try
prgEstado.Value = prgEstado.Value + 20
Me.BODEGATableAdapter.SP_ABC_BODEGA(intOpcion, txtCodigo.Text, txtFila.Text, txtColumna.Text, txtDescripcion.Text, strEstado)
prgEstado.Value = prgEstado.Value + 20
Me.BODEGATableAdapter.Fill(Me.DataBodega.BODEGA)
Catch ex As Exception
MsgBox(ex.Message & " No se pudo " & strMensaje & " el registro ", MsgBoxStyle.Critical, "ERROR")
End Try
prgEstado.Value = prgEstado.Maximum
End Sub
Private Sub dgBodega_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgBodega.CellClick
Habilitar(2)
gintEstado = -1
Llenado(e.RowIndex)
End Sub
Public Sub Llenado(intIndex As Integer)
Try
txtCodigo.Text = dgBodega.Item(0, intIndex).Value
txtDescripcion.Text = dgBodega.Item(1, intIndex).Value
txtFila.Text = dgBodega.Item(2, intIndex).Value
txtColumna.Text = dgBodega.Item(3, intIndex).Value
If dgBodega.Item(4, intIndex).Value = 0 Then
cbmEstado.SelectedIndex = 0
Else
cbmEstado.SelectedIndex = 1
End If
Catch ex As Exception
dgBodega.FirstDisplayedScrollingRowIndex = 0
End Try
End Sub
Private Sub dgBodega_KeyDown(sender As Object, e As KeyEventArgs) Handles dgBodega.KeyDown
If e.KeyCode = Keys.Delete Then
If (MsgBox("Desea eliminar el registro ? ", vbYesNo)) Then
Mantenimento(2)
End If
End If
End Sub
Private Sub opAlta_CheckedChanged(sender As Object, e As EventArgs) Handles opAlta.CheckedChanged
gintEstado = 1
Habilitar(1)
txtCodigo.Focus()
End Sub
Private Sub opBaja_CheckedChanged(sender As Object, e As EventArgs) Handles opBaja.CheckedChanged
gintEstado = 2
Habilitar(2)
End Sub
Private Sub opCambio_CheckedChanged(sender As Object, e As EventArgs) Handles opCambio.CheckedChanged
gintEstado = 3
Habilitar(3)
txtDescripcion.Focus()
End Sub
Private Sub btnAceptar_Click(sender As Object, e As EventArgs) Handles btnAceptar.Click
Me.prgEstado.Visible = True
Mantenimento(gintEstado)
Me.prgEstado.Visible = False
Habilitar(2)
gintEstado = -1
End Sub
Public Sub Habilitar(intOpcion As Integer)
Select Case intOpcion
Case 1 'alta
Me.txtCodigo.Enabled = True
Me.txtColumna.Enabled = True
Me.txtFila.Enabled = True
Me.txtDescripcion.Enabled = True
Me.cbmEstado.Enabled = True
Case 2 ' baja
Me.txtCodigo.Enabled = False
Me.txtColumna.Enabled = False
Me.txtFila.Enabled = False
Me.txtDescripcion.Enabled = False
Me.cbmEstado.Enabled = False
Case 3 'cambio
Me.txtCodigo.Enabled = False
Me.txtColumna.Enabled = True
Me.txtFila.Enabled = True
Me.txtDescripcion.Enabled = True
Me.cbmEstado.Enabled = True
End Select
End Sub
Private Sub btnCancelar_Click(sender As Object, e As EventArgs) Handles btnCancelar.Click
Me.Close()
End Sub
Private Sub dgBodega_CurrentCellChanged(sender As Object, e As EventArgs) Handles dgBodega.CurrentCellChanged
Try
Llenado(dgBodega.CurrentCell.RowIndex)
Catch ex As Exception
End Try
End Sub