You also can export from
.dbf to
.html file and write, draw something in.
Example : export from .dbf file to c:\temp\Export.html
Code: Select all
#include "hmg.ch"
#include "Fileio.ch"
FUNCTION MAIN
REQUEST DBFCDX
get_file()
DEFINE WINDOW Main_form AT 1,1 WIDTH 2 HEIGHT 2 MAIN
END WINDOW
RETURN
PROCEDURE get_file()
LOCAL dbf_file := '' , message := '' , fields_total := 0
dbf_file := Getfile ( { {'.dbf Files','*.dbf'} } , 'Export from .dbf to .html' , 'c:\' , .f. , .t. )
USE &dbf_file alias database SHARED NEW via "DBFCDX"
fields_total := fcount()
IF (nHandle := FCREATE("c:\temp\Export.html", FC_NORMAL)) == -1
message := "File " + "c:\temp\Export.html " + "cannot be created:" + FERROR()
MsgExclamation(message,"File cannot be created" )
QUIT
ELSE
message := "<HTML><BODY><CENTER><B>"
message := message + "EXPORT FROM " + dbf_file + " TO c:\temp\Export.html"
message := message + "</B></CENTER><BR>"
FWRITE(nHandle, message)
message := "1) You can post something here...<BR>"
FWRITE(nHandle, message)
message := "2) You can post something here...<BR>"
FWRITE(nHandle, message)
message := "3) You can post something here...<BR>"
FWRITE(nHandle, message)
message := ".................................<BR><BR>"
FWRITE(nHandle, message)
FWRITE(nHandle, '<CENTER><TABLE BORDER=1>')
message := ""
FOR i := 1 to fields_total
message := message + "<TD>" + FIELDNAME(i) + "</TD>"
NEXT
message := "<TR>" + message + "</TR>"
FWRITE(nHandle, message)
message := ""
DO WHILE .NOT. EOF()
FOR i := 1 to fields_total
DO CASE
CASE valtype(database->(FIELDGET(i))) == "C"
message := message + "<TD>" + database->(FIELDGET(i)) + " </TD>"
CASE valtype(database->(FIELDGET(i))) == "N"
message := message + "<TD>" + str(database->(FIELDGET(i))) + " </TD>"
CASE valtype(database->(FIELDGET(i))) == "D"
message := message + "<TD>" + DTOC(database->(FIELDGET(i))) + " </TD>"
ENDCASE
NEXT
message := "<TR>" + message + "</TR>"
FWRITE(nHandle, message)
message := ""
database->( DBSKIP() )
ENDDO
message := "</TABLE></CENTER><BR>"
FWRITE(nHandle,message)
message := "4) You can post something here...<BR>"
FWRITE(nHandle, message)
message := "5) You can post something here...<BR>"
FWRITE(nHandle, message)
message := "6) You can post something here...<BR>"
FWRITE(nHandle, message)
message := "</BODY></HTML>"
FWRITE(nHandle,message)
FCLOSE(nHandle)
message := "EXPORT FROM " + dbf_file + " TO c:\temp\Export.html"
MSGBOX(message, 'EXPORT OK !')
QUIT
ENDIF
RETURN