FoxPro Menu

Sample FoxPro Menu for the following:

Menu Processing Utility
Menu Tools
Menu Report
Menu Module
Menu Database

SQL Connections

Using SQL Server, you will need a connection string to be able to access the database. Here is the basic connection string format.

DRIVER=sql server;SERVER=ServerName;UID=UserName;PWD=Password;APP=Microsoft Visual;WSID=PcName;DATABASE=DatabaseName

Do not forget to verify connection.

Add, Save , Replace Code

Sample of save, add, append and replace code:

Select PERSONALINFO
Replace NAME With Thisform.Text1.Value
Replace AGE With Thisform.Text2.Value
Replace BIRTHDATE With Thisform.Text3.Value
Replace BIRTHPLACE With Thisform.Text7.Value
Replace ADDRESS With Thisform.Text8.Value
Replace LANDLINE With Thisform.Text9.Value
Replace CELLPHONE With Thisform.Text10.Value
Replace EMAIL With Thisform.Text11.Value
Replace WEBSITE With Thisform.Text12.Value

SELECT TableName
APPEND BLANK
REPLACE FieldOne WITH THISFORM.TEXT1.VALUE
REPLACE FieldTwo WITH THISFORM.TEXT2.VALUE
REPLACE FieldThree WITH THISFORM.COMBO1.VALUE
REPLACE FieldFour WITH THISFORM.COMBO2.VALUE
INSERT INTO TableName (FieldOne, FieldTwo, FieldThree,FieldFour);
VALUES (THISFORM.TEXT1.VALUE, ;
THISFORM.TEXT2.VALUE, ;
THISFORM.TEXT3.VALUE, ;
THISFORM.TEXT4.VALUE)

Second saving a data by Edit:

SELECT TableName
REPLACE FieldOne WITH THISFORM.TEXT1.VALUE
REPLACE FieldTwo WITH THISFORM.TEXT2.VALUE
REPLACE FieldThree WITH THISFORM.COMBO1.VALUE
REPLACE FieldFour WITH THISFORM.COMBO2.VALUE
INSERT INTO TableName (FieldOne, FieldTwo, FieldThree,FieldFour);
VALUES (THISFORM.TEXT1.VALUE, ;
THISFORM.TEXT2.VALUE, ;
THISFORM.TEXT3.VALUE, ;
THISFORM.TEXT4.VALUE)