Então resta a pergunta:
Porque classe, se aparentemente sem sabe pra que serve?
Sr. Quintas... eu sou estudante de uma escola de ensino tecnico em informatica e infelizmente a base de programação que eu tive ano passado ( quando eu estava no 2º ano ) não foi tão boa. :(Neg
os professores deste ano começaram com a linguagem clipper, e eu gostei muito, muito mesmo.
um professor em especial passou um trabalho pra turma, "criar um programa que receba os dados cadastrais de um cliente e salvar esses dados no dbf. ao final o programa devera ter as seguintes opções; cadastrar, ver a lista de cadastros e excluir.
tudo o que eu consegui ate agora foi isso
não sei como usar os metodos tambem não sei bem como criar essa tabela no dbf
Código: Selecionar todos
# include "hbclass.ch"
# include "inkey.ch"
class Tcliente
data nNome
data cCpf
data nIdade
method cadastrar()
method listCadas()
method excCadast()
endclass
function main()
local nOpc
set century on
set delimiters on
set delimiters to "[]"
set wrap on
set message to ultimaLinha -1 center
cls
do while .t.
@ 0, 0 to 3, maxcol () DOUBLE
@ 1, 2 say "SISTEMA DE CADASTRO PARA PESSOAS FISICAS"
@ 1, maxcol () -15 say "Data:"+Dtoc(date())
@ 2, 2 say "cadastro de clientes"
@ 4, 0 to ultimaLinha, maxcol ()
@10, 23 to 18, 50 DOUBLE
@10, 25 say ".: CADASTRAR CLIENTES :."
@12, 26 prompt " cadastro " message " cadastro de novo cliente "
@13, 26 prompt " exclusao " message " cancelar cadastro de cliente"
@14, 26 prompt " listagem " message " consulta de clientes "
@16, 26 prompt " sair " message " sair do sistema "
if Lastkey() == K_ESC
cls
exit
endif
menu to nOpc
do case
case nOpc == 1; cadastro()
case nOpc == 2; exclui()
case nOpc == 3; lista()
case nOpc == 4; exit
endcase
enddo
return nil
function cadastro()
cls
?"alteracao de clientes"
?"tecle algo"
inkey(0)
cls
return nil
function exclui()
cls
?"exclusao de clientes"
?"tecle algo"
inkey(0)
cls
return nil
function lista()
cls
?"listagem de clientes"
?"tecle algo"
inkey(0)
cls
return nil
desculpas por ter aberto outro topico com o mesmo assunto anterior, sou novo aqui no forum e eu nn tinha lido o topico de leitura obrigatoria. não sabia bem como ultilizar.
sr's isso não acontecera de novo...
