Sistema de ganancia del chófer con Base de Datos (Visual Basic)
CONSIGNA
Ingresar los kilómetros recorridos del chófer, e informar su ganancia y descontar el IVA 21% o 18% respectivamente.
INTERFAZ
Realizar las Bases de Datos, para ello ir a:
Complementos > Administrador de bases de datos...
Luego ir a Archivo > Nuevo... > Microsoft Access > MDB de la Version 7.0
Bases de Datos: chofer
Bases de Datos: viajes
FUENTE
Private Sub Salir_Click()
Unload Me
End Sub
Private Sub Limpiar_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text7 = ""
Text8 = ""
Text9 = ""
Text10 = ""
Text11 = ""
End Sub
Private Sub Cargar_Click()
Set MYDB = DBEngine.Workspaces(0).OpenDatabase("E:\Programacion II\27-09\camiones.MDB")
Set MYTABLE = MYDB.OpenRecordset("SELECT * FROM viajes WHERE pat like " & "'" & Trim(Text1) & "';", dbOpenSnapshot)
Do While Not MYTABLE.EOF()
pat = MYTABLE("pat")
kmts = MYTABLE("kmts")
chofer = MYTABLE("chofer")
MYTABLE.MoveNext
Loop
Text1 = pat
Text2 = 0
Text3 = kmts
Text4 = 0
Text5 = 0
Text6 = 0
Text7 = 0
Text8 = chofer
Text9 = 0
Text10 = 0
Text11 = 0
End Sub
