Foro de elhacker.net

Private Sub Buscar_Click()
End Sub
Private Sub Command1_Click()
End
End Sub
Private Sub Command2_Click()
Text2.Text = Txtsuel.Text * 10 / 100
Text4.Text = Txtsuel.Text * TxtAnti.Text * 1 / 100
Text5.Text = Txtsuel.Text / 200 * Text10.Text * 1.5
Text11.Text = CDbl(Txtsuel.Text) + CDbl(Text2.Text) + CDbl(Text4.Text) + CDbl(Text5.Text)
Text7.Text = Text11.Text * 11 / 100
Text8.Text = Text11.Text * 3 / 100
Text12.Text = CDbl(Text7.Text) + CDbl(Text8.Text)
Text13.Text = CDbl(Text11.Text) - CDbl(Text12.Text)
Text13 = Format(Text13, "Currency")
Text12.Text = Format(Text12, "Currency")
Text11.Text = Format(Text11, "currency")
Text2.Text = Format(Text2, "currency")
Text4.Text = Format(Text4, "currency")
Text5.Text = Format(Text5, "currency")
Text7.Text = Format(Text7, "currency")
Text8.Text = Format(Text8, "currency")
Txtsuel.Text = Format(Txtsuel, "currency")
End Sub
Private Sub Data1_Validate(Action As Integer, Save As Integer)
Text11.Text = addnew
Text4.Text = addnew
Text2.Text = addnew
Text5.Text = addnew
Text7.Text = addnew
Text8.Text = addnew
Text12.Text = addnew
Text13.Text = addnew
Label24.Caption = addnew
End Sub
Private Sub Eliminar_Click()
If MsgBox("¿Quieres Eliminar el registro: " & Text1 & "?", 16 + 4) = 6 Then
Data1.Recordset.Delete
Data1.Refresh
Text1.SetFocus
MsgBox "Se Eliminó el registro", vbCritical, "Aviso Importante"
Else
MsgBox "No se Eliminó el registro: " & Text1, vbExclamation, "Aviso Importante"
End If
End Sub
Private Sub Form_Activate()
With MSFlexGrid1
For X = 1 To .Rows - 1
.Row = X
For J = 1 To .Cols - 1
.Col = J
.CellBackColor = IIf((X Mod 2) = 1, Val(&HC0FFFF), Val(&HC0FFC0))
.CellFontBold = True
.CellForeColor = &HFF0000
Next J
Next X
End With
End Sub
Private Sub Form_Load()
MSFlexGrid1.ColWidth(0) = 300
MSFlexGrid1.ColWidth(1) = 800
MSFlexGrid1.ColWidth(2) = 2500
MSFlexGrid1.ColWidth(3) = 2000
MSFlexGrid1.ColWidth(4) = 1100
End Sub
Private Sub Form_Unload(Cancel As Integer)
Cancel = 1
MsgBox "Haz Clic en Opciones", vbInformation, "¡Aviso Importante!"
End Sub
Private Sub Guardar_Click()
Data1.UpdateRecord
Data1.Refresh
MsgBox "El Registro ha sido Guardado en la Base de Datos", vbExclamation, "Aviso Importante"
End Sub

Private Sub Nuevo_Click()
Data1.Recordset.addnew
End Sub
Private Sub Salir_Click()
End
End Sub

Private Sub Timer1_Timer()
Label16.Caption = Date
End Sub