function db_contato()
local bDados:={},op,DBcontato
DBcontato:="contatos.dbf"
if ! file(DBcontato)
bDados:={{"cod","c",4,0},;
{"nome","c",40,0},;
{"telefone","c",10,0},;
{"tipo","c",30,0},;
{"data","d",8,0}}
dbcreate(DBcontato,bDados)
endif
use &DBcontato shared new alias contatos
index on cod to ind_Ccod
index on nome to ind_Cnome
index on telefone to ind_Ctelefone
index on tipo to ind_Ctipo
//index on data to ind_Cdata
set index to ind_Ccod
set index to ind_Cnome
set index to ind_Ctelefone
set index to ind_Ctipo
//set index to ind_Cdata
return nil
Porem neste sistema uso apenas uma tabela; deu certo os dados estao sendo salvos.
No sql cria se um banco com nome "dados" com as tabelas * cliente, produto, vendedor etc. como posso fazer isso no DbF?
*Estou tentando criar uma rotina de vendas, que constara nela as tabelas * venda, produto, cliente, vendedor.
Agradeço se alguém puder me dar uma força nesta questão.