Desenvolvimento de Software 1, aula 33

Aula 33

19/11/2003

Um programa exemplo

[obs: não descobri como postar código identado aqui. Quando descobrir edito as postagens...]

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

[opa, no pastebin ficou legal]