Red de conocimiento informático - Material del sitio web - Cómo programar en VISUAL FOXPRO para indicar en la sección condicional después de CASE que al presionar la tecla Q se sale automáticamente

Cómo programar en VISUAL FOXPRO para indicar en la sección condicional después de CASE que al presionar la tecla Q se sale automáticamente

do case

case x = 'Q' amp; Supongamos que x es una expresión de carácter

Salir

case ....

ENDCASE

---------------------------------------- -- -------------

Lo siguiente es parte de mi software de alquiler

________________________________________________________

hacer caso

caso this.value=1 amp; nuevo precio unitario de alquiler

hacer sdl11 en .\abc

hacer formulario .\txt\frmsdl11

caso this.value=2 & precio unitario de arrendamiento completado

hacer sdl12 en .\abc

hacer formulario .\txt\frmsdl12

caso esto .value=3 amp;amp;Modificación del precio unitario del arrendamiento

hacer sdl13 en .\abc

hacer formulario .\txt\frmsdl13

caso this.value =4 amp;amp;Eliminar precio unitario de alquiler

hacer sdl14 en .\abc

hacer formulario .\txt\frmsdl14

caso this.value=5 o this.value=6 amp; entrada de cantidad de arrendamiento

do sdl15 en .\abc

do form .

case this.value=7 amp; ; amp; Mostrar cantidad de arrendamiento

do form .

case this.value=8 amp Modificación de la cantidad de arrendamiento

do sdl18 in .\abc< / p>

hacer formulario.

caso this.value=9 amp;eliminar cantidad de alquiler

hacer formulario.

caso this.value =10 amp ; amp; amp; Simulación mostrar cantidad de alquiler

DO FORM .\txt\frmsdl110

thisform.hide

formulario de informe .\txt\frxsdl110 .frx vista previa de pdsetup

thisform.show

case this.value=11 amp; impresión de la cantidad de alquiler

DOM .\txt\frmsdl110

thisform.hide

formulario de informe .\txt\frxsdl110.frx Entorno pdsetup para

imprimir mensaje noconsole

thisform.show

case this.value=12 amp amp; amp; Determine si hay una cantidad de alquiler de cadenas disponible

do sdl112 in .\abc

DO FORM .\txt\frmsdl112

case this.value =13 & visualización del número de llamada

DO FORM .\txt\frmsdl113

ENDCASE