linea del tiempo
Boton ENTRAR
if thisform.txt_contraseña.value="castillo2" then
messagebox("contraseña correcta", "ventana de ayuda")
thisform.txt_contraseña.value=""thisform.txt_contraseña.setfocus
if thisform.txt_usuario.value="Castillo" then
messagebox("contraseña correcta", "ventana de ayuda")
thisform.txt_contraseña.value=""thisform.txt_contraseña.setfocus
do form 2
else
messagebox("contraseña invalida", "ventana ayuda")
thisform.txt_contraseña.value=""
thisform.txt_contraseña.setfocus
messagebox("contraseña invalida", "ventanaayuda")
thisform.txt_usuario.value=""
thisform.txt_usuario.setfocus
messagebox("contraseña invalida", "ventana ayuda")
endif
endif
thisform.release
Boton MostrarDO CASE V_OP
CASE V_OP=1
THISFORM.IMAGE1.PICTURE=("paracetamol.jpg")
CASE V_OP=2
THISFORM.IMAGE1.PICTURE=("diclofe.jpg")
CASE V_OP=3THISFORM.IMAGE1.PICTURE=("vitacilina.jpg")
ENDCASE
PRECIO=VAL(THISFORM.txt_precio.VALUE)
THISFORM.LIST1.ADDITEM("Precio$"+ STR(PRECIO,5,2))
CANTIDAD=VAL(THISFORM.txt_cantidad.VALUE)THISFORM.LIST1.ADDITEM("Cantidad"+STR(CANTIDAD,5,2))
IF C=0 THEN
THISFORM.LIST1.ADDITEM("PRECIO"+SPACE(10)+"CANTIDAD"+SPACE(10)+"TOTAL")
THISFORM.LIST1.ADDITEM("________________________________________")
ENDIFPRECIO=VAL(THISFORM.txt_precio.VALUE)
CANTIDAD=VAL(THISFORM.txt_cantidad.VALUE)
TOTAL=Precio*CantidadTHISFORM.LIST1.ADDITEM(STR(PRECIO,5,2)+SPACE(10)+STR(CANTIDAD,5,2)+SPACE(10)+STR(TOTAL,5,2))
THISFORM.txt_precio.VALUE=""
THISFORM.txt_cantidad.VALUE=""
THISFORM.txt_cantidad.SETFOCUS
THISFORM.LIST1.ADDITEM("GRACIAS POR SU PREFERENCIA")
THISFORM.LIST1.ADDITEM("Te queremos bien :)")
THISFORM.LIST1.CLEAR
THISFORM.txt_precio.VALUE=""
THISFORM.txt_cantidad.VALUE=""
THISFORM.txt_precio.SETFOCUS
THISFORM.RELEASE
Bienvenidos.VISIBLE=.t.
Thisform.release...
Regístrate para leer el documento completo.