Sistemas

Código

VENTANA INVENTARIO |
Dim X As ListItem | “X”: Esta es la nombre de una variable.Listitem: para tomar estas variebles como una lista y así poder modificarlas y borrarlas sin más problemas. “ListView1.ListItems.Remove”: muestra el ejemplo de cómo se usa |
Private Sub cmdAgregar_Click()txtClave.Enabled = TruetxtClave.BackColor = &HFFFFFFtxtProducto.Enabled =TruetxtProducto.BackColor = &HFFFFFFtxtDescripcion.Enabled = TruetxtDescripcion.BackColor = &HFFFFFFtxtStockMinimo.Enabled = TruetxtStockMinimo.BackColor = &HFFFFFFtxtStockMaximo.Enabled = TruetxtStockMaximo.BackColor = &HFFFFFFtxtExistencia.Enabled = TruetxtExistencia.BackColor = &HFFFFFFcmdGuardar.Enabled = TruecmdLimpiar.Enabled = TrueEnd Sub | Este código nos dice las propiedades de color de texto, y su este seencuentra acvidado en sus respectivas cajas de texto.txtClave.Enabled = True (Habilita el cuadro de texto para que se pueda escribir en el)txtClave.BackColor = &HFFFFFF (muestra el color del texto) |
Private Sub cmdEliminar_Click()If (ListView1.ListItems.Count > 0) Then Call conectaDB Set rst = New ADODB.Recordset strcadena = "DELETE FROM Inventario WHERE clave='" & ListView1.SelectedItem &"'" rst.Open strcadena, cndisponibilidad, adOpenStatic ListView1.ListItems.Remove (ListView1.SelectedItem.Index) MsgBox "Usuario Eliminado Correctamente", vbInformation, "La Chiquita S.A. de C.V." If (ListView1.ListItems.Count = 0) Then cmdEliminar.Enabled = False cmdModificar.Enabled = False End IfEnd IfEnd Sub | Este código muestra una conexión a la base dedatos por medio de un botón.La función de este botón es sencillamente eliminar los datos del usuario y después muestra un mensaje que muestra si el usuario se ha eliminado correctamente.strcadena = "DELETE FROM Inventario WHERE clave='" & ListView1.SelectedItem & "'"Es de suma importancia cuidar el comando “DETELE”; ya que si no es asi entonces puedes borrar toda la información de tu BD. |Private Sub cmdGuardar_Click()Dim rst As ADODB.RecordsetDim strcadena As StringCall conectaDB'validacion campo clave'si el campo esta vacioIf (Len(txtClave.Text) = 0) Then lblInfo.Caption = "Los campos marcados con * son obligatorios" lblClave.Caption = "* Clave" lblClave.ForeColor = &HFF&'si el campo tiene mas de los caracteres admitidosElseIf (Len(txtClave.Text) > 10) ThenlblInfo2.Caption = "El campo CLAVE puede contener maximo 10 caracteres" Else lblClave.Caption = "Clave" lblClave.ForeColor = &HFFFF00End If 'validacion campo productoIf (Len(txtProducto.Text) = 0) Then lblInfo.Caption = "Los campos marcados con * son obligatorios" lblProducto.Caption = "* Producto" lblProducto.ForeColor = &HFF&ElseIf (Len(txtProducto.Text) > 10) Then lblInfo2.Caption ="El campo PRODUCTO puede contener maximo 10 caracteres" Else lblProducto.Caption = "Producto" lblProducto.ForeColor = &HFFFF00End If 'validacion campo descripcionIf (Len(txtDescripcion.Text) = 0) Then lblInfo.Caption = "Los campos marcados con * son obligatorios" lblDescripcion.Caption = "* Descripcion" lblDescripcion.ForeColor = &HFF&ElseIf (Len(txtDescripcion.Text) > 50) ThenlblInfo2.Caption = "El campo DESCRIPCION puede contener maximo 50 caracteres" Else lblDescripcion.Caption = "Descripcion" lblDescripcion.ForeColor = &HFFFF00End If'validacion campo stock maximoIf (Len(txtStockMaximo.Text) = 0) Then lblInfo.Caption = "Los campos marcados con * son obligatorios" lblMaximo.Caption = "* Stock Maximo" lblMaximo.ForeColor = &HFF&ElseIf(Len(txtStockMaximo.Text) > 9) Then lblInfo2.Caption = "El campo STOCK MAXIMO puede contener maximo 9 digitos" Else lblMaximo.Caption = "Stock Maximo" lblMaximo.ForeColor = &HFFFF00End If'validacion campo stock minimoIf (Len(txtStockMinimo.Text) = 0) Then lblInfo.Caption = "Los campos marcados con * son obligatorios" lblMinimo.Caption = "* Stock Minimo" lblMinimo.ForeColor = &HFF&ElseIf...