dbedit com xharbour
Enviado: 21 Mar 2006 09:13
pesquisei no forum, e nao achei, porque o dbedit nao funciona com xharbour.
Ola filizola,
O que exatamente não funciona na dbedit()?
Código: Selecionar todos
/*
*$Id
*
* Adaptado por Antonio Carlos <tonyenoe@terra.com.br>
*
* Modulo de teste da DBEDIT()
* Data de inicio: 21/03/2006
* Data de termino: 21/03/2006
* Hora de inicio: 12:00:00
* Hora de termino: 12:15:00
*
*$Id
*
*/
#include <inkey.ch>
Func Main()
Cls
Set Date Brit
Set Wrap On
Set Scor Off
private arq:={}
if !file ( 'teste.dbf')
aadd ( arq ,{ 'nume' , 'c' , 6 , 0})
aadd ( arq ,{ 'desc' , 'c' , 10 , 0})
aadd ( arq ,{ 'valo' , 'n' , 6 , 2})
aadd ( arq ,{ 'venc' , 'd' , 8 , 0})
dbcreate( 'teste' , arq )
endif
@ 0,0 Clear to 24,78
If select("te") == 0
Use "teste.dbf" Alias te shared
select('te')
Endif
nVal = fcount()
Private Vetor1[nVal],Vetor2[nVal],Vetor3[nVal]
Vetor1[1]='nume'
Vetor1[2]='desc'
Vetor1[3]='valo'
Vetor1[4]='venc'
Vetor2[1]=[@!]
Vetor2[2]=[@!]
Vetor2[3]=[@RE 99,999.99]
Vetor2[4]=[99/99/9999]
Vetor3[1]='Numero '
Vetor3[2]='Descricao '
Vetor3[3]=' Valor '
Vetor3[4]='Vencimento '
@ 6,0 to 20,79 double color "r/n"
Dbedit(7,1,19,78,Vetor1,"mFun",Vetor2,Vetor3,.t.,.t.)
Function mFun()
Para Modo
nKey := K_ESC
if LastKey() == nKey
Alert('Vou terminar')
Cls
Quit
Endif
Set Cursor Off
If Modo < 5
Alert(str(modo))
Endif
Return (nil)