"dbase em Clipper"
Moderador: Moderadores
- JoséQuintas
- Administrador

- Mensagens: 20267
- Registrado em: 26 Fev 2007 11:59
- Localização: São Paulo-SP
"dbase em Clipper"
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.
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/
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/
- Pablo César
- Usuário Nível 7

- Mensagens: 5312
- Registrado em: 31 Mai 2006 10:22
- Localização: Curitiba - Paraná
"dbase em Clipper"
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.
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.
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.
- JoséQuintas
- Administrador

- Mensagens: 20267
- Registrado em: 26 Fev 2007 11:59
- Localização: São Paulo-SP
"dbase em Clipper"
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).
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 224 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/
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

- Mensagens: 154
- Registrado em: 12 Mai 2007 14:07
- Localização: São Paulo, Capital
"dbase em Clipper"
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
Só a título de curiosidade...
O que V. tem em "jps.ch" ?
(já vi isso em seu ´post´ anterior também...)
[]´s
Euclides
- JoséQuintas
- Administrador

- Mensagens: 20267
- Registrado em: 26 Fev 2007 11:59
- Localização: São Paulo-SP
"dbase em Clipper"
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.
#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/
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/
- JoséQuintas
- Administrador

- Mensagens: 20267
- Registrado em: 26 Fev 2007 11:59
- Localização: São Paulo-SP
"dbase em Clipper"
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.
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/
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

- Mensagens: 1908
- Registrado em: 07 Dez 2012 16:14
- Localização: São Paulo
- Contato:
"dbase em Clipper"
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,
http://forums.fivetechsupport.com/viewt ... bu#p162872
abs,
- JoséQuintas
- Administrador

- Mensagens: 20267
- Registrado em: 26 Fev 2007 11:59
- Localização: São Paulo-SP
"dbase em Clipper"
É ú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.
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/
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

- Mensagens: 1908
- Registrado em: 07 Dez 2012 16:14
- Localização: São Paulo
- Contato:
"dbase em Clipper"
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.
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

- Mensagens: 3092
- Registrado em: 12 Ago 2008 15:50
- Localização: São Paulo-SP-Brasil
"dbase em Clipper"
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.
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)
Alexandre Santos (AlxSts)
- Itamar M. Lins Jr.
- Administrador

- Mensagens: 7929
- Registrado em: 30 Mai 2007 11:31
- Localização: Ilheus Bahia
- Curtiu: 1 vez
"dbase em Clipper"
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.
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.
Saudações,
Itamar M. Lins Jr.
Itamar M. Lins Jr.