FoxPro Graph

To those who are neophyte in VFP Language might have a hard time researching and building a graph in a form and report. I also had a hard time making a graph when I first encountered a VFP Project with a graph. But once you learned, it is easy for the next project to bulid a graph in form and report.

You need the following requirements before continuing to the graph:

Table

OleGraph

Grid

SELECT * FROM crewquestion INTO CURSOR MYCURSOR

TAB = CHR(09)

CRLF = CHR(13) + CHR(10)

SELECT MYCURSOR

NEWDATA = TAB + "Recruitment & Selection" + TAB + "Documentation" + TAB ;

+ "In House Training" + TAB + "Accounting Activity" + TAB + "Working Gears" + ;

CRLF

SCAN

NEWDATA = NEWDATA + TAB + STR(question1) + TAB + STR(question2) + TAB ;

+ STR(question3) + TAB + STR(question4) + TAB + STR(question5) + ;

CRLF

ENDSCAN

SELECT crewquestion

APPEND GENERAL crewques1.Olegraph DATA NEWDATA

SELECT crewquestion

THISFORM.REFRESH

SELECT * FROM crewquestion INTO CURSOR MYCURSOR

TAB = CHR(09)

CRLF = CHR(13) + CHR(10)

SELECT MYCURSOR

NEWDATA = TAB + "Padala Sytem" + TAB + "Company Facilities" + TAB + "Attitude of Staff" + TAB ;

+ "P&I Medical Assistance" + CRLF

SCAN

NEWDATA = NEWDATA + TAB + STR(question6a) + TAB + STR(question6b) + TAB + STR(question6c) + TAB ;

+ STR(question6d) + CRLF

ENDSCAN

SELECT crewquestion

APPEND GENERAL crewques2.Olegraph DATA NEWDATA

SELECT crewquestion

THISFORM.REFRESH

Back Color

Changing the back color of an Edit Box. Same applies to Text Box, Combo Box or Grid.

THISFORM.TEXT1.BackColor = RGB(255,255,255)
THISFORM.EDIT1.BackColor = RGB(255,255,255)
THISFORM.EDIT2.BackColor = RGB(255,255,255)
THISFORM.EDIT3.BackColor = RGB(255,255,255)
THISFORM.EDIT4.BackColor = RGB(255,255,255)
THISFORM.EDIT5.BackColor = RGB(255,255,255)
THISFORM.EDIT6.BackColor = RGB(255,255,255)
THISFORM.EDIT7.BackColor = RGB(255,255,255)
THISFORM.EDIT8.BackColor = RGB(255,255,255)

Empty Box

This code lets you use an Edit Box and will saved "Y" if the edit box is not empty otherwise save "N" if the edit box is blank. This is useful if you need to show in a View what Edit Box has an input and will not include blank.

SELECT QuestionTable
REPLACE q1comment WITH THISFORM.EDIT1.Value
IF EMPTY(THISFORM.EDIT1.Value)
REPLACE Q1Indicator WITH "N"
ELSE
REPLACE Q1Indicator WITH "Y"
ENDIF

Clearpage Code

THISFORM.Text1.VALUE = ""

THISFORM.Command1.VALUE = ""

THISFORM.Pageframe1.VALUE = ""

THISFORM.Grid1.VALUE = ""

THISFORM.Combo1.VALUE = ""

Report Code

Calling a report from a form is very easy. You can even call a multiple reports that comes from your application. Microsoft Visual FoxPro is very flexible, you do not have to install other application in making print reports. VFP 's built in reports can call view from a table either local or through local area connection such as SQL from a server.

txtName = ALLTRIM(THISFORM.txtName.VALUE)

txtBirthDate = ALLTRIM(THISFORM.txtBirthDate.VALUE)

txtBirthPlace = ALLTRIM(THISFORM.txtBirthPlace.VALUE)

REPORT FORM "C:\ProjectName\Reports\Resume" TO PRINTER PROMPT NODIALOG PREVIEW

Edit Save Code

Microsoft Visual FoxPro programming language has a lot of code to edit, insert, replace or save. Using select, append, insert or replace is some of the ways to save data. I always use the select and replace because it is easy to troubleshoot when your code has a problem.

SELECT InfoNumber

LOCATE FOR IdNum = THISFORM.txtIdNum.VALUE

IF FOUND()

SELECT InfoNumber

REPLACE LastName WITH ALLTRIM(THISFORM.txtLastName.VALUE)

REPLACE FirstName WITH ALLTRIM(THISFORM.txtFirstName.VALUE)

REPLACE MiddleName WITH ALLTRIM(THISFORM.txtMiddleName.VALUE)

Do Case Code

When you have a multiple case which you would want a different action, you can use the Do Case. Do case is very useful code when used wisely.

DO CASE

CASE THISFORM.txtSqlId.VALUE = 1

MESSAGEBOX("Argentina", "Information")

CASE THISFORM.txtSqlId.VALUE = 2

MESSAGEBOX("Bangladesh", "Information")

CASE THISFORM.txtSqlId.VALUE = 3

MESSAGEBOX("Malaysia", "Information")

CASE THISFORM.txtSqlId.VALUE = 4

MESSAGEBOX("Philippines", "Information")

CASE THISFORM.txtSqlId.VALUE = 5

MESSAGEBOX("Taiwan", "Information")

CASE THISFORM.txtSqlId.VALUE = 6

ENDCASE