Sistema de Sueldos y Horas Extras (Visual Basic)

Sistema de Sueldos y Horas Extras con Base de Datos (Visual Basic)

CONSIGNA
Ingresar y calcular el sueldo del personal y sus horas extras.

INTERFAZ

Crear dos bases de datos: Empleados y Hs. Extras.
Para ello ir a:
Complementos > Administrador de bases de datos...
Luego ir a Archivo > Nuevo... > Microsoft Access > MDB de la Version 7.0

Base de datos de Empleados

Base de datos de Hs. Extras

FUENTE

Private Sub Salir_Click()
Unload Me
End Sub

---

Private Sub Cargar_Click()

Set MYDB = DBEngine.Workspaces(0).OpenDatabase("E:\sueldos.MDB")
Set MYTABLE = MYDB.OpenRecordset("SELECT * FROM empleados WHERE dni like " & "'" & Trim(Text1) & "';", dbOpenSnapshot)
Do While Not MYTABLE.EOF()
Text2 = MYTABLE("nya")
Text3 = MYTABLE("basico")
MYTABLE.MoveNext
Loop
End Sub

---

Private Sub Borrar_Click()
Text1 = ("")
Text2 = ("")
Text3 = ("")
Text4 = ("")
Text5 = ("")
Text6 = ("")
Text7 = ("")
Text8 = ("")
Text9 = ("")
End Sub

---

Private Sub Extra_Click()
Set MYDB = DBEngine.Workspaces(0).OpenDatabase("E:\sueldos.MDB")
Set MYTABLE = MYDB.OpenRecordset("SELECT * FROM extras WHERE dni like " & "'" & Trim(Text1) & "';", dbOpenSnapshot)
Do While Not MYTABLE.EOF()
Text7 = MYTABLE("HsExt")
Text8 = MYTABLE("pagoxhsex")
MYTABLE.MoveNext
Loop
End Sub

---

Private Sub Command5_LostFocus()
Text4 = Text3 * 0.18
Text5 = Text3 * 0.15
Text6 = Text3 - Text4 - Text5
Text8 = Val(Text7) * Val(Text8)
Text9 = Text6 + Val(Text8)
End Sub