Menus en programas de farmacia

 FERSYSTEM [pic 1][pic 2]

MENUS EN PROGRAMAS DE FARMACIA

Los menús están contenidos en una barra de menú, la cual se puede decir que es una propiedad que tienen las ventanas para poseer menús, esto es porque la barra de menú en sí misma no es una ventana como lo puede ser un botón de comando o un cuadro de texto, pero tampoco es una barra de herramientas, sino un objeto contenedor de otros menús.

Cuando se crea un proyecto, siempre hay crear una carpeta , en nuestro caso se crea en la unidad D:   con el nombre de tienda.

[pic 3]

En visual foxpro, ejecutamos en comando cd  d:\tienda para estar direccionada

[pic 4]

Ahora se procede a crear el nuevo proyecto en el menú archivo(file), opción nuevo(new)
[pic 5]   [pic 6]
se guarda asignando un nombre al proyecto(ejempo:proy1)[pic 7]

Ahora creamos un nuevo formulario

[pic 8]

Diseñamos el formulario de inicio(login)

[pic 9]

selecionamos textbox2 y nos ubicamos en la ventana de propiedades,selecionamos PASSWORDCHAR y escrimos un símbolo(X ó *  ó @)

[pic 10]
doble click sobre botón entrar y agregamos código y después en el botón salir[pic 11]

IF alltrim(thisform.text1.Text)="fersystem" AND alltrim(thisform.text2.Text)="123456" then

messagebox("Bienvenido al sistema")

ELSE

messagebox("Error de Acceso")

endif

[pic 12]

thisform.Release

creamos un nuevo formulario

[pic 13][pic 14]

Diseñamos el nuevo formulario
[pic 15]

Nos ubicamos en botón vender y agregamos el codigo

[pic 16]

thisform.list1.AddItem(thisform.text1.Text)

thisform.list2.AddItem(thisform.text2.Text)

En la ventana de administración proyectos ubicamos la opción otro, seleccionamos menú

[pic 17]

Seleccionamos la opción menu

[pic 18]

Escribimos las opciones del menú, luego opción submenú crear

[pic 19]

Escribimos la sub opciones
[pic 20]

Nos ubicamos en ventas, cambiamos la opción submenu por comando y escribimos el comando se ejecutara(llamamos a un formulario)

[pic 21]
commando: DO FORM form2.scx
seleccionamos vista previa para ver como se mostrar el menu

[pic 22]

Cerramos y guardamos el menu

[pic 23]

[pic 24]

Seleccionos el menu1 y lo ejecutamos

[pic 25]

[pic 26]

Para volver al menu del sistema 

escribimos:set sysmenu to default

...