Biomolecula
Producto. Enebol= true
Valor. Enebol = true
Existencia. Enebol =true
Nuevo.enebol = false
Grabar.enebol = true
Cancelar.enebol = true
Actualize.enebol = falseSalir.enebol =false
Eliminar. Enebol = false
Buscar.enebol=false
Comprar.enebol=false
Vender.enebol=false
End sub
Private sub graba_click()
Codigo.enebol=false
Producto. Enebol= falseValor. Enebol = false
Existencia. Enebol =false
Nuevo.enebol = true
Grabar.enebol = false
Cancelar.enebol = false
Actualize.enebol = true
Salir.enebol =true
Eliminar. Enebol = trueBuscar.enebol=true
Comprar.enebol=true
Vender.enebol=true
Adodc1.recosdedt.update
End sub
Private sub cancelar_click()
Codigo.enebol=false
Producto. Enebol= false
Valor. Enebol = false
Existencia.Enebol =false
Nuevo.enebol = true
Grabar.enebol = false
Cancelar.enebol = false
Actualize.enebol = true
Salir.enebol =true
Eliminar. Enebol = true
Buscar.enebol=true
Comprar.enebol=trueVender.enebol=true
Adodc1.recosdedt.cancelupdate
End sub
Private sub nuevo_click()
Código.enebol =true
Producto. Enebol= true
Valor. Enebol = true
Existencia. Enebol =true
Nuevo.enebol = falseGrabar.enebol = true
Cancelar.enebol = true
Actualize.enebol = false
Salir.enebol =false
Eliminar. Enebol = false
Buscar.enebol=false
Comprar.enebol=false
Vender.enebol=falseAdodc1.recorcedt.addnev
Código.setfocus
End sub
Private sub eliminar_click()
X =msgbox(“estas seguro de querer eliminar este registro”, vbyesno,”alerta de eliminación”)
If x vbyes thenAdodc1.recordcet.delete
Adodc1.recordcet.movefirst
Msgbox(“registro eliminado satisfactoriamente”)
Else
Msgbox(“no ha ocurrido ninguna eliminación”)
End if
End sub
Prívate sub comprar_click()
X=inputbox(“ingrese el numero de productos a comprar”, “ingreso a existencias”)
Tot=val(x)+val(existencia)
Existencia= tot
Adodc1.recordcet.update
End sub
Prívate sub vender_click()
X=...
Regístrate para leer el documento completo.