27 de mai de 2011

Desenvolvimento de Software 1, aula 16


Aula 16
22/9/2003

Programa com acesso a banco de dados (inclusão)

Banco: agenda.dbf


NOME DO CAMPO
TIPO
TAMANHO
DECIMAL
1
NOME
C
30
-
2
SALARIO
N
9
2
3
DATANAS
D
8
-


Tela:

Programa agenda.prg

clear
@ 0,0 to 24,79 double
@ 2,36 say “Incluir”
@ 10,10 say “Nome”
@ 12,10 say “Salário”
@ 14,10 say “Data de Nascimento”

use AGENDA //não é necessário indicar a extensão

do while .t.
WNOME = space(30)
WSALARIO = 0
WDATANAS = ctod(space(8))
WOP = 1

@ 18,7 prompt “Incluir”
@ 18,20 prompt “Sair”

menu to WOP

do case
case WOP = 1
@ 10,16 get WNOME
@ 12,19 get WSALARIO pict “999999.99”
@ 14,30 get WDATANAS
read
append blank
replace NOME with WNOME, SALARIO with WSALARIO
replace DATANAS with WDATANAS
case WOP = 2
exit
endcase

enddo

Nenhum comentário: