exemplo aula 33

clear

use BD1
index on COD to BD1

@ 10,10 say “Codigo”
@ 12,10 say “Nome”

do while .t.
   @ 18,10 prompt “Incluir”
   @ 18,22 prompt “Alterar”
   @ 18,34 prompt “Consultar”
   @ 18,46 prompt “Excluir”
   @ 18,58 prompt “Sair”

   menu to WOP

   do case
      case WOP=1
         WCOD = 0
         WNOME = space(40)
         @ 10,20 get WCOD pict “999”
         @ 12,20 get WNOME
         read
         append blank
         replace COD with WCOD
         replace NOME with WNOME
         @ 10,20 clear to 12,60

      case WOP=2
         WCOD = 0
         @ 10,20 get WCOD pict “999”
         read
         seek WCOD
         if !found()
            @ 16,10 say “Código não encontrado!”
            inkey(3)
            @ 16,10 say space(22)
            loop
         endif
         WNOME = NOME
         @ 12,20 get WNOME
         READ
         replace NOME with WNOME
         @ 10,20 clear to 12,60

      CASE WOP = 3
         WCOD = 0
         @ 10,20 get WCOD pict “999”
         read
         seek WCOD
         if !found()
            @ 16,10 say “Código não cadastrado”
            inkey(3)
            @ 16,10 say space(22)
            loop
         endif
         @ 10,20 say COD
         @ 12,20 say NOME
         inkey(0)
         @ 10,20 clear to 12,60

      case WOP = 4
         WCOD = 0
         @ 10,20 get WCOD pict “999”
         read
         seek WCOD
         if !found()
            @ 16,10 say “Código não encontrado!”
            inkey(3)
            @ 16,10 say space(22)
            loop
         endif
         @ 10,20 say COD
         @ 12,20 say NOME
         WCONF = “ “ //um espaco
         @ 14,10 say “Excluir? (S/N)”  get WCONF
         READ
         if WCONF=”S”
            delete
            @ 14,10 say “Excluído”
         else
            @ 14,10 say “Não excluído”
         endif
      case WOP = 5
         clear
         exit
   endcase
enddo
clear
close all