DBF Viewer

Utilities like DBU, Make, IDE written in HMG/ used to create HMG based applications

Moderator: Rathinagiri

User avatar
esgici
Posts: 4543
Joined: Wed Jul 30, 2008 9:17 pm
DBs Used: DBF
Location: iskenderun / Turkiye
Contact:

Re: DBF Viewer

Post by esgici »

MigSoft wrote:
...
In the future we can all keep adding new features. :P
...
I'll wait eagerly; especially multiple RDD support, because DBA doesn't have and because many people need it :)

Regards

--

Esgici
Viva INTERNATIONAL HMG :D
User avatar
sudip
Posts: 1454
Joined: Sat Mar 07, 2009 11:52 am
Location: Kolkata, WB, India

Re: DBF Viewer

Post by sudip »

MigSoft wrote:Hi Sudip,

Very interesting. How so :?: :roll:

Regards,

MigSoft
Here is very humble code, which may be helpful for this viewtopic.php?f=15&t=284
With best regards.
Sudip
With best regards,
Sudip
JALMAG
Posts: 262
Joined: Sun Jan 10, 2010 7:05 pm
DBs Used: DBF, MariaDB
Location: España - Spain

Re: DBF Viewer

Post by JALMAG »

MigSoft wrote:Hello everyone,

"dbfview" is an application that is a mixture of code provided by our friends Rathinagiri, Grigory Filatov and an adaptation of sample "contactos" by Roberto Lopez.

I hope it serves as a starting point of a tool for viewing files DBF.

Regards,

Miguel Angel Juárez A.


Compile with IDE :P
Hola Miguel Angel, lo veo bastante completo, ahora bien ¿Con qué IDE y versión se compila?, con el de HMG, el de Minigui...
Gracias anticipadas.
User avatar
nguyenchiduc
Posts: 78
Joined: Sat Nov 13, 2010 7:27 am

Re: DBF Viewer

Post by nguyenchiduc »

Today, I run this program. Very good
Notice to read file on the intranet, multi-user. In line 92 of file dbfview.prg :

Code: Select all

IF !Empty(aNewFile)

      Use (aNewFile[1]) New  /*Note */

      _DBULastPath := curdrive()+':\'+CurDir()+'\'

      If !Used(aNewFile[1])
         /* MsgInfo("Unable open file: "+aNewFile[1],PROGRAM) */
         
         Use (aNewFile[1]) New shared  /* Note */
         
         oWndBase.Title := PROGRAM+VERSION+COPYRIGHT+aNewfile[1]
         cBase := Alias()
         nCamp := Fcount()
         aEst  := DBstruct()
         aNomb := {'iif(deleted(),0,1)'} ; aJust := {0} ; aLong := {0}
         For i := 1 to nCamp
             aadd(aNomb,aEst[i,1])
             aadd(aJust,iif(aEst[i,2]=='N',1,0))
             aadd(aLong,Max(100,Min(160,aEst[i,3]*14)))
         Next
         CreaBrowse( cBase, aNomb, aLong, aJust, .F. )
      
      Else
         oWndBase.Title := PROGRAM+VERSION+COPYRIGHT+aNewfile[1]
         cBase := Alias()
         nCamp := Fcount()
         aEst  := DBstruct()
         aNomb := {'iif(deleted(),0,1)'} ; aJust := {0} ; aLong := {0}
         For i := 1 to nCamp
             aadd(aNomb,aEst[i,1])
             aadd(aJust,iif(aEst[i,2]=='N',1,0))
             aadd(aLong,Max(100,Min(160,aEst[i,3]*14)))
         Next
         CreaBrowse( cBase, aNomb, aLong, aJust, .F. )
      Endif
   Else
      cBase := ''
   Endif
This application is useful and convenient but there is a weakness of HMG3 system are:
For files with multiple records, use the command "SET FITLER TO..." displayed on the screen very slowly.

Because the workstations can be Win9x, RAM and CPU is less

Hopefully, the developers of HMG4, note to the application can work in general, many users not only in handling cases of personal computers.
Tristan
Posts: 40
Joined: Sun Jul 19, 2009 2:15 pm

Re: DBF Viewer

Post by Tristan »

Hi All,

I need utility to make dbf file & cdx index, where i can find it?

Thanks,
Tristan
User avatar
danielmaximiliano
Posts: 2607
Joined: Fri Apr 09, 2010 4:53 pm
Location: Argentina
Contact:

Re: DBF Viewer

Post by danielmaximiliano »

Tristan wrote:Hi All,

I need utility to make dbf file & cdx index, where i can find it?

Thanks,
Tristan
Hola Tristan:
puedes generar DBF´s desde el IDE de HMG.

Hello Tristan:
DBF can generate the IDE's from HMG.
Greenshot_2012-03-22_20-19-59.png
Greenshot_2012-03-22_20-19-59.png (204.33 KiB) Viewed 9708 times
Para los indices CDX, agrega a tu fuente :
For the CDX indices, add to your Code:

Code: Select all

 REQUEST DBFCDX, DBFFPT
   RDDSETDEFAULT ("DBFCDX"
arma tus indices segun tu necesidad:
kick up your indexes according to your need:

Code: Select all

 Cpathbases  :=cDisco+ "seguros\bases\"+"tipos"
 CPathindices:=cDisco+ "seguros\indices\"+"tipos"
 use &Cpathbases VIA "DBFCDX" 
 INDEX ON STR(COD_TIPO,3) TAG COD_TIPO TO &CPathindices
 INDEX ON UPPER(DESC)     TAG DESC     TO &CPathindices
Mire en :
See : http://hmgforum.com/viewtopic.php?t=1577&p=12128
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*

Saludos / Regards
DaNiElMaXiMiLiAnO

Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
Tristan
Posts: 40
Joined: Sun Jul 19, 2009 2:15 pm

Re: DBF Viewer

Post by Tristan »

Thanks Daniel :D

Is dbf/cdx file create from HMG compatible with Foxpro26 Dos version or VFP 9?

Is there utility like DBU for create dbf/cdx file?

Regards,
Tristan
User avatar
danielmaximiliano
Posts: 2607
Joined: Fri Apr 09, 2010 4:53 pm
Location: Argentina
Contact:

Re: DBF Viewer

Post by danielmaximiliano »

Tristan wrote:Thanks Daniel :D

Is dbf/cdx file create from HMG compatible with Foxpro26 Dos version or VFP 9?

Is there utility like DBU for create dbf/cdx file?

Regards,
Tristan
Hello Tristan:
I use VFP, but never mix index for different languages.
see here
http://www.mail-archive.com/harbour@har ... 12873.html

http://lists.harbour-project.org/piperm ... 00173.html
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*

Saludos / Regards
DaNiElMaXiMiLiAnO

Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
Post Reply