Microsoft Visual Foxpro

Local Area Network Database for FoxPro

Local Area Network Database for FoxPro

System Requirements for LAN Database for FoxPro:
Pentium 4 processor or higher
Minimum of 512MB of RAM
Minimum of 80 Gb of Hard disk
Minimum of Windows XP
Should be a member of Company Domain
With ‘LANDatabase’ Map Network Drive (Z:)

How to Install LAN Database for FoxPro:
Copy the System Folder and paste it to the Drive C
Install the VFP9SPORT
Make sure that the ‘LANDatabase’ Map Network Drive is available (Z:)
Make a desktop shortcut of the cfd Application and rename it as ‘LANDatabase’

FoxPro Buttons

Sample FoxPro Buttons for the following:

Logout

Edit

New

Delete Code

This is delete code where you can delete a line or specific data from the table one at a time.

SELECT TableName

LOCATE FOR ALLTRIM(TableName.Allottee) = ALLTRIM(THISFORM.Text1.Value)

IF FOUND()

IF ALLTRIM(TableName.Allottee) = ALLTRIM(THISFORM.Text1.Value)

SELECT TableName

LOCATE FOR Allottee = ALLTRIM(THISFORM.Text1.Value)

SELECT TableName

USE

USE Allotments EXCLU

DELETE

PACK

=TABLEUPDATE(.T.)

ENDIF

Tag Code

Here is a sample of my tag code or tagging an amount .

lAnswer = MESSAGEBOX("Do you want to tag Journal Entry?", 4, "Confirmation")
IF lAnswer = 6
SELECT SviewJournalUpdate
LOCATE FOR IdNum = THISFORM.Text2.Value
IF FOUND()
REPLACE lDate WITH pJeDate
REPLACE RefDocu WITH pRefDocu
REPLACE JvNumber WITH THISFORM.TEXT10.Value
REPLACE LibUpdate WITH THISFORM.TEXT15.Value
THISFORM.Grid1.REFRESH
ENDIF
THISFORM.ActivityTag()
THISFORM.Release()
ENDIF

General Ledger FoxPro Folder

Whenever I make a FoxPro project folder I always make a folder for the Attach, Classlib, Data, Forms, Images, Menus, Progs and Reports. This folder making will help me later on to separate the files that will be created.

Form Init Code

Here is a sample of my code in Init of a Form.

SET DELETED ON
SET TALK OFF
PUBLIC pCurrUser
THISFORM.Text9.VALUE = DATE()
THISFORM.BeginBalance()
THISFORM.PettyDisable()
THISFORM.Grid1.Enabled = .F.

DO CASE
CASE ALLTRIM(pCurrUser) = "Admin"
THISFORM.Grid1.Enabled = .T.
THISFORM.cmdApprove.Enabled = .T.
CASE ALLTRIM(pCurrUser) = "User"
THISFORM.Grid1.Enabled = .T.
THISFORM.cmdApprove.Enabled = .T.
ENDCASE

Trial Balance Report

Trial Balance Report of Microsoft Visual FoxPro

Search This Blog