PC Toledo

Eu criei uma tela de cadastro de clientes mas eu não sei como coloco para salvar(código) gostaria que alguém me informa o código....Bruno... obrigado.. :)Pos

eu realmente nao entendi nada!!!
:(Neg

bruno escreveu:Eu criei uma tela de cadastro de clientes mas eu não sei como coloco para salvar(código) gostaria que alguém me informa o código....Bruno... obrigado.. :)Pos

Você JÁ criou um banco de dados onde irá armazernar as informações?

Caro Bruno,
vejo que você é iniciante.
Então vamos pelo básico.
Não sei se na página do PCTOLEDO há algum tutorial.
Mas se não encontrar, digite "tutorial clipper" no google (www.google.com.br) que vai aparecer alguma coisa.
Leia com atenção o que encontrar e você vai conseguir salvar os dados
Não deixe de ver www.caclipperwebsite.com .
Basicamente, para salvar dados, é necessário que você tenha criado o banco de dados, com os campos respectivos: nome, endereço, etc.
Se você criou a tela e editou as vairáveis, então é só abrir o banco de dados (use...), acrescetar um registro (append...), igualar os campos às variáveis (replace arquivo->campo1 with variavel1), forçar a gravação (commit...) e liberar o registro criado (unlock...).
Ufa! Mas não é difícil, basta seguir as regras impostas.
Qualquer coisa: tamos aí, uai?!

MarceloG

PS: dei exemplos utilizando os comandos, mas evite os mesmos, prefira funções - dbusearea(), dbappend(), etc.
Outra coisa, se tá iniciando, comece pelo xharbour, acho que não vai se arrepender e poupar um bom tempo em aprendizado. A compatibilidade é 100%.

O MARCELOG EU JA CRIE O BANCO DE DADOS.......MAIS AONDE EU COLOCO APPEND ?

VALEU!! :)Pos

Amiguinho

Vou te apresentar uma estrutura basica para incluir registro:

Código: Selecionar todos

USE arquivo NEW SHARED
// Primeiro voce necessita criar as variaveis e dar-lhes conteudo
if RegistroNovo = .t. // Coloque .t. para registro novo
   // Aqui sera criado o registro fantasma, registro vazio
   dbGoBottom()
   dbSkip()
endif
cCampo1 := arquivo->campo1 // Variavel inicia com C para campo Char
dCampo1 := arquivo->campo2 // Variavel inicia com D para campo Data
nCampo1 := arquivo->campo3 // Variavel inicia com N para campo Numerico
lCampo1  := arquivo->campo4 // Variavel inicia com L para campo Logico
@ 10,10 SAY "Campo 1:" GET campo1 PICTURE "@!"
@ 10,10 SAY "Campo 2:" GET campo2 PICTURE "99/99/99"
@ 10,10 SAY "Campo 3:" GET campo3 PICTURE "@e 999,999.99"
@ 10,10 SAY "Campo 4:" GET campo4 PICTURE "X"
read
if RegistroNovo = .t. // Coloque .t. para registro novo
   dbAppend()
   REPLACE campo1 WITH cCampo1
   REPLACE campo2 WITH cCampo2
   REPLACE campo3 WITH cCampo3
   REPLACE campo4 WITH cCampo4
   dbCommit() // Libera sempre
endif

Aqui esta uma estrutura basica para alterar registro:

Código: Selecionar todos

USE arquivo NEW SHARED
// Aqui voce coloca uma rotina de pesquisa e caso encontre continua
...
if .not. found()
   ? 'Nao encontrei e vou sair'
   return .t.
endif
cCampo1 := arquivo->campo1 // Variavel inicia com C para campo Char
dCampo1 := arquivo->campo2 // Variavel inicia com C para campo Data
nCampo1 := arquivo->campo3 // Variavel inicia com C para campo Numerico
lCampo1  := arquivo->campo4 // Variavel inicia com C para campo Logico
@ 10,10 SAY "Campo 1:" GET campo1 PICTURE "@!"
@ 10,10 SAY "Campo 2:" GET campo2 PICTURE "99/99/99"
@ 10,10 SAY "Campo 3:" GET campo3 PICTURE "@e 999,999.99"
@ 10,10 SAY "Campo 4:" GET campo4 PICTURE "X"
read
if RegistroNovo = .t. // Coloque .t. para registro novo
   dbReglock() // Voce trava somente para alterar o registro
   REPLACE campo1 WITH cCampo1
   REPLACE campo2 WITH cCampo2
   REPLACE campo3 WITH cCampo3
   REPLACE campo4 WITH cCampo4
   dbCommit() // Libera sempre
endif

PC Toledo

salva dados

salva dados

Re: salva dados

xharbour