Redaccion

CODIGO CAP “LA MARIPOSA”
Form Inicio
Private Sub Timer1_Timer()
If Timer1.Interval = 13000 Then
frmcontraseña.Show
Unload Me
End If
End Sub

Form Principal

Private Sub acerca_de_Click()
frmacercade.Show
Unload Me
End Sub

Private Sub btnalmacen_Click()
frmalmacen.Show
Unload Me
End Sub

Private Sub btncompras_Click()
frmcompras.Show
Unload Me
End Sub

PrivateSub btnprov_Click()
frmprov.Show
Unload Me
End Sub

Private Sub btncliente_Click()
frmcliente.Show
Unload Me
End Sub

Private Sub btnventas_Click()
frmventas.Show
Unload Me
End Sub

Private Sub btnsalir_Click()
End
End Sub

Private Sub cam_contra_Click()
frmmodifcontra.Show
Unload Me
End Sub

Form Almacen

Private Sub btnbuscar_prod_Click()
txtid_prod.Text = ""txtdesc_prod.Text = ""
txttip_prod.Text = ""
txtmarc_prod.Text = ""
txtexis_prod.Text = ""
txtvalb_prod.Text = ""
txtvalc_prod.Text = ""
txtutil_prod.Text = ""
Module1.idpd = InputBox("Teclea el ID del producto", "La Mariposa")

If StrPtr(Module1.idpd) <> 0 Then
Set DataEnvironment1 = Nothing
DataEnvironment1.bsalma Module1.idpd
If DataEnvironment1.rsbsalma.EOF ThenMsgBox "Producto no encontrado", vbOKOnly, "La Mariposa"
DataEnvironment1.rsbsalma.Close
Else

txtid_prod.Text = Module1.idpd

txtid_prod.Text = DataEnvironment1.rsbsalma.Fields(0)
txtdesc_prod.Text = DataEnvironment1.rsbsalma.Fields(1)
txttip_prod.Text = DataEnvironment1.rsbsalma.Fields(2)txtmarc_prod.Text = DataEnvironment1.rsbsalma.Fields(3)
txtexis_prod.Text = DataEnvironment1.rsbsalma.Fields(4)
txtvalb_prod.Text = DataEnvironment1.rsbsalma.Fields(5)
txtvalc_prod.Text = DataEnvironment1.rsbsalma.Fields(6)
txtutil_prod.Text = DataEnvironment1.rsbsalma.Fields(7)
End IfEnd If
End Sub

Private Sub btneliminar_prod_Click()
Dim P
If txtid_prod.Text = "" Then
MsgBox " No Hay Producto Seleccionado", vbOKOnly, "La Mariposa"
Else

P = MsgBox("¿Esta seguro de eliminar este registro?", vbYesNo, "Eliminar")
If P = vbYes Then
Set DataEnvironment1 = Nothing
DataEnvironment1.Elipro Module1.idpd
MsgBox " Producto Eliminado", vbOKOnly, "LaMariposa"
txtid_prod.Text = ""
txtdesc_prod.Text = ""
txttip_prod.Text = ""
txtmarc_prod.Text = ""
txtexis_prod.Text = ""
txtvalb_prod.Text = ""
txtvalc_prod.Text = ""
txtutil_prod.Text = ""
End If
End If
End Sub

Private Sub btnguardar_prod_Click()
If txtid_prod.Text <> "" And IsNumeric(txtid_prod.Text) Then
If txtdesc_prod.Text <> "" And Not IsNumeric(txtdesc_prod.Text)Then
If txttip_prod.Text <> "" And Not IsNumeric(txttip_prod.Text) Then
If txtmarc_prod.Text <> "" And Not IsNumeric(txtmarc_prod.Text) Then
If txtexis_prod.Text <> "" And IsNumeric(txtexis_prod.Text) Then
If txtvalb_prod.Text <> "" And IsNumeric(txtvalb_prod.Text) Then
If txtvalc_prod.Text<> "" And IsNumeric(txtvalc_prod.Text) Then
If txtutil_prod.Text <> "" And IsNumeric(txtutil_prod.Text) Then

Module1.idpd = txtid_prod.Text
Module1.despd = txtdesc_prod.Text
Module1.tippd = txttip_prod.Text
Module1.marcpd = txtmarc_prod.Text
Module1.exipd = txtexis_prod.Text
Module1.valbpd = txtvalb_prod.Text
Module1.valcpd = txtvalc_prod.TextModule1.utilpd = txtutil_prod.Text

DataEnvironment1.Command3 Module1.idpd, Module1.despd, Module1.tippd, Module1.marcpd, Module1.exipd, Module1.valbpd, Module1.valcpd, Module1.utilpd
MsgBox "Guardado", vbOKOnl, "La Mariposa"
txtid_prod.Text = ""
txtdesc_prod.Text = ""
txttip_prod.Text = ""
txtmarc_prod.Text = ""
txtexis_prod.Text = ""
txtvalb_prod.Text = ""
txtvalc_prod.Text = ""...