2 de jun de 2011

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

Nenhum comentário: