HOWTO: Use GENHTML to Create HTML from a Visual FoxPro Table (192302)

MORE INFORMATION

1. Create a program file named "Htmldbf.prg", using the following code:

         * Generate HTML from a table without using it.
         DO (_GENHTML) WITH "EXAMPLEA",HOME(2)+"DATA\CUSTOMER.DBF"
         * Use the Employee table to generate from an alias.
         USE HOME(2)+"DATA\EMPLOYEE" IN 0 ALIAS EMPL
         * Generate HTML from an alias.
         DO (_GENHTML) WITH "EXAMPLEB",'EMPL'
         CLOSE ALL
   
         public ohyperlinkobject
         * Create a form with a hyperlink.
         ohyperlinkobject=NEWOBJECT('hyperform',HOME()+"ffc\_hyperlink.vcx")
         ohyperlinkobject.SHOW
   
         DEFINE CLASS hyperform AS FORM
            TOP           = 0
            LEFT          = 0
            HEIGHT        = 100
            WIDTH         = 250
            DOCREATE      = .T.
            CAPTION       = "Display Example Tables"
            NAME          = "Form1"
            SHOWTIPS      = .T.
   
            ADD OBJECT _hyperlinklabel1 AS _hyperlinklabel WITH ;
               LEFT       = 25, ;
               TOP        = 10, ;
               HEIGHT     = 25, ;
               VISIBLE    = .T., ;
               FONTNAME   = "Times New Roman", ;
               FONTSIZE   = 14, ;
               FONTITALIC = .T., ;
               AUTOSIZE   = .T., ;
               ctarget    = sys(5)+sys(2003)+"\EXAMPLEA.HTM", ;
               CAPTION    = "Example Table A", ;
               lnewwindow = .T., ;
               NAME       = "_HYPERLINKLABEL1"
   
            ADD OBJECT _hyperlinklabel2 AS _hyperlinklabel WITH ;
               LEFT       = 25, ;
               TOP        = 60, ;
               HEIGHT     = 25, ;
               VISIBLE    = .T., ;
               FONTNAME   = "Times New Roman", ;
               FONTSIZE   = 14, ;
               FONTITALIC = .T., ;
               AUTOSIZE   = .T., ;
               ctarget    = sys(5)+sys(2003)+"\EXAMPLEB.HTM", ;
               CAPTION    = "Example Table B", ;
               lnewwindow = .T., ;
               NAME       = "_HYPERLINKLABEL2"
   
         ENDDEFINE
         * End Code
   							

2. When the Form captioned "Display Example Table" displays, click the hyperlink labels to display the HTML generated by GENHTML.