"dbase em Clipper"

Projeto [x]Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

Avatar do usuário
JoséQuintas
Administrador
Administrador
Mensagens: 20267
Registrado em: 26 Fev 2007 11:59
Localização: São Paulo-SP

"dbase em Clipper"

Mensagem por JoséQuintas »

Como agora estou com a máquina 64 bits, e aqui não funciona o fox, voltei a usar mais o meu "dbase em Clipper".
Esse é um daqueles programas que a gente faz uma vez e raramente mexe.
Queria atualizá-lo.

Basicamente ele pega a linha digitada e vai desviando pra sub-rotinas, conforme o que encontra.

use arquivo alias alias
select alias
set relation to
set index to indice1,indice2,indice3
set filter to condicao
list structure
list listadecampos for condicao while condicao
index on chave to indice
create arquivo
modify structure

essas coisas.

A parte que precisaria mais atenção, ou algo especial, seria a parte de separar uma lista de campos (para um list), ou as condições (for/while).
Tem algo no Harbour que ajude nisso?

Obs.
Já tenho rodando, fiz no tempo do clipper e está funcionando no Harbour, incluindo o que mencionei acima. Estou tentando melhorar/simplificar o fonte pra expandir recursos, Eventualmente usava o Foxplus, mas virou uma opção complicada em 64 bits.
Acho que o DOT fazia algo parecido, mas era um fonte muito complicado.
E uso embutido no sistema, assim está sempre compatível com o que eu estiver usando.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar do usuário
Pablo César
Usuário Nível 7
Usuário Nível 7
Mensagens: 5312
Registrado em: 31 Mai 2006 10:22
Localização: Curitiba - Paraná

"dbase em Clipper"

Mensagem por Pablo César »

Oi José, o Harbour conta com Hb_CompileFromBuf que interpreta comandos xBase em tempo de execução.

Pode pesquisar aqui no fórum e pode olhar no código fonte STRU.PRG (na seção de Downloads) na função Exec_Proc.
Um clip-abraço !

Pablo César Arrascaeta
Compartilhe suas dúvidas e soluções com todos os colegas aqui do fórum.
Evite enviar as dúvidas técnicas por MPs ou eMails, assim todos iremos beneficiar-nos.
Avatar do usuário
JoséQuintas
Administrador
Administrador
Mensagens: 20267
Registrado em: 26 Fev 2007 11:59
Localização: São Paulo-SP

"dbase em Clipper"

Mensagem por JoséQuintas »

Tive a impressão de que exige o Harbour instalado, mas não confirmei ainda.

Por enquanto vai o meu pra quem quiser brincar.
Uso embutido no sistema, e vou ajustando quando dá, ou quando dá erro em algum uso (andei tentando ajustar pra /w3).

Precisa ativar as funções no final do fonte.
Uso embutido no sistema, e já tenho elas no sistema.
Deixei aí apenas pra poder funcionar isolado.

É do tempo do clipper, então não tem os tipos novos do Harbour (incremental, por exemplo).
Anexos
rdbase.zip
(13.2 KiB) Baixado 225 vezes
José M. C. Quintas
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Euclides
Usuário Nível 3
Usuário Nível 3
Mensagens: 154
Registrado em: 12 Mai 2007 14:07
Localização: São Paulo, Capital

"dbase em Clipper"

Mensagem por Euclides »

Olá José,
Só a título de curiosidade...
O que V. tem em "jps.ch" ?
(já vi isso em seu ´post´ anterior também...)
[]´s
Euclides
Avatar do usuário
JoséQuintas
Administrador
Administrador
Mensagens: 20267
Registrado em: 26 Fev 2007 11:59
Localização: São Paulo-SP

"dbase em Clipper"

Mensagem por JoséQuintas »

Agora restam poucas coisas.

#define JPA_IDLE 1200 // 20 minutos para sair das opcoes
#command @ <row>, <col> PROMPT <prompt> [ MESSAGE <message> ] => RatPrompt(<row>,<col>,<prompt>)
#command MENU to <v> => <v> := RatMenuTo(<v>)
#command MEMOWRIT(<file>,<cstring>) => DESATIVARCLIPPERMEMOWRIT XXXX(<file>,<cstring>)

Teve uma época que eu colocava os includes no jpa.ch, ao invés de colocar em cada fonte.
Tipo.. colocar inkey.ch, hbclass.ch, six.ch, etc... só em jpa.ch, ao invés de colocar em cada fonte.
E os botões do mouse, quando era clipper.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar do usuário
JoséQuintas
Administrador
Administrador
Mensagens: 20267
Registrado em: 26 Fev 2007 11:59
Localização: São Paulo-SP

"dbase em Clipper"

Mensagem por JoséQuintas »

Ainda não apareceu nada parecido?
De vez em quando ainda preciso, mas sem tempo de aperfeiçoar.
Em 64 bits não tem dbase ou foxpro, e o melhor é ter isso embutido pra usar os mesmos arquivos do sistema.
De lá pra cá mexi muito pouco, só corrigi um bug no SUM gerado por alterações, e alterei o default dele pra ALL.
Ou melhor, mexi muito, mas só pra ficar compatível com -w3 -es2.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Kapiaba
Colaborador
Colaborador
Mensagens: 1908
Registrado em: 07 Dez 2012 16:14
Localização: São Paulo
Contato:

"dbase em Clipper"

Mensagem por Kapiaba »

Olá, em fivewin, temos o FiveDbu que roda em 64 bits, de uma olhadinha, talvez te sirva.

http://forums.fivetechsupport.com/viewt ... bu#p162872

abs,
Avatar do usuário
JoséQuintas
Administrador
Administrador
Mensagens: 20267
Registrado em: 26 Fev 2007 11:59
Localização: São Paulo-SP

"dbase em Clipper"

Mensagem por JoséQuintas »

É útil, e o visual está muito bonito.

Dei só uma olhada rápida porque estou de saída.
Uma necessidade agora seria fazer um SUM, e não entendi se "processos" seria pra isso.

É triste dizer, mas nem parece Harbour de tão bonito.
Mas produto comercial é outra coisa, ainda mais o fivewin que tem muitos anos de vida.
Mais velho até que o próprio Harbour, já existia pra Clipper.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Kapiaba
Colaborador
Colaborador
Mensagens: 1908
Registrado em: 07 Dez 2012 16:14
Localização: São Paulo
Contato:

"dbase em Clipper"

Mensagem por Kapiaba »

Tem também, o Advantage Data Architect:

http://devzone.advantagedatabase.com/dz ... Platform=6

Também, o WinDBU

http://forums.fivetechsupport.com/viewt ... DBU#p81649

É uma questão de gosto, a Vantagen do FIVEDBU, é que o código é livre e se pode modificar a gosto.

É isso. Abs.
alxsts
Colaborador
Colaborador
Mensagens: 3092
Registrado em: 12 Ago 2008 15:50
Localização: São Paulo-SP-Brasil

"dbase em Clipper"

Mensagem por alxsts »

Olá!

A título de contribuição sobre o assunto: na pasta Samples do Clipper 5 já veio algo parecido com um emulador dBase III, um programa chamado Dot.Prg.

Já no mundo Harbour, podemos abrir um prompt de comando estilo dBase através do HbMk2. É só digitar HbMk2 . (HbMk2 ponto) no prompt do CMD.
[]´s
Alexandre Santos (AlxSts)
Avatar do usuário
Itamar M. Lins Jr.
Administrador
Administrador
Mensagens: 7929
Registrado em: 30 Mai 2007 11:31
Localização: Ilheus Bahia
Curtiu: 1 vez

"dbase em Clipper"

Mensagem por Itamar M. Lins Jr. »

Ola!
Tem o HBDBU, que roda no LINUX/Windows/OS e logo, logo no Androide. 32/64Bits!

Ps. Lembrando que o HBDBU já vem embutido na HBIDE, e podemos usar alias->nomestrdbf diretamente no editor.

Saudações,
Itamar M. Lins Jr.
Tela do HBDBU
Tela do HBDBU
Saudações,
Itamar M. Lins Jr.
Responder