DBF Viewer

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

Moderator: Rathinagiri

User avatar
esgici
Posts: 4346
Joined: Wed Jul 30, 2008 9:17 pm
DBs Used: DBF
Location: iskenderun / Turkiye
Has thanked: 234 times
Been thanked: 80 times
Contact:

Re: DBF Viewer

Post by esgici » Thu Dec 31, 2009 12:49 am

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: 1444
Joined: Sat Mar 07, 2009 11:52 am
Location: Kolkata, WB, India
Has thanked: 4 times

Post by sudip » Thu Dec 31, 2009 3:05 am

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: 169
Joined: Sun Jan 10, 2010 7:05 pm

Post by JALMAG » Mon Jan 11, 2010 1:46 pm

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: 77
Joined: Sat Nov 13, 2010 7:27 am

Post by nguyenchiduc » Thu Dec 23, 2010 7:50 am

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

Post by Tristan » Thu Mar 22, 2012 11:00 pm

Hi All,

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

Thanks,
Tristan

User avatar
danielmaximiliano
Posts: 2046
Joined: Fri Apr 09, 2010 4:53 pm
Location: Argentina
Has thanked: 89 times
Been thanked: 12 times
Contact:

Post by danielmaximiliano » Thu Mar 22, 2012 11:32 pm

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 2173 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
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`.HMG : It's magic !
(¸.·``··*

Saludos / Regards
DaNiElMaXiMiLiAnO

Whatsapp. : +54901169026142
Telegram Name : DaNiElMaXiMiLiAnO

Tristan
Posts: 40
Joined: Sun Jul 19, 2009 2:15 pm

Post by Tristan » Fri Mar 23, 2012 12:02 am

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: 2046
Joined: Fri Apr 09, 2010 4:53 pm
Location: Argentina
Has thanked: 89 times
Been thanked: 12 times
Contact:

Post by danielmaximiliano » Fri Mar 23, 2012 1:32 am

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
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`.HMG : It's magic !
(¸.·``··*

Saludos / Regards
DaNiElMaXiMiLiAnO

Whatsapp. : +54901169026142
Telegram Name : DaNiElMaXiMiLiAnO

Post Reply