Visual FoxPro

Visual FoxPro

Pojavio se:	1984.
Razvijatelj:	Microsoft
OS:	Windows
Licencija:	Microsoft EULA
Internetska stranica:	Visual FoxPro

Visual FoxPro (VFP) programski je jezik za programiranje baza podataka. Podržava OOP i proceduralno programiranje. Uključuje cjelokupni sistem za izradu programa - editor, RDBMS, i prevoditelj. Jednostavno se spaja s vanjskim bazama podataka (Oracle, Microsoft SQL Server, MySQL...), a potpuno je implementiran i SQL.

Razvoj

Počeci razvoja VFP-a sežu u 1984. godinu, kada je kompanija Fox Software izdala FoxBASE, xBase kompatibilni jezik. Microsoft kupuje Fox Software 1992. i počinje rad na VFP. Posljednja verzija programa je VFP 9.0 SP2, i prema najavam iz Microsofta, neće se više razvijati.

Programski primjeri

Hello World primjer: <source lang="visualfoxpro"> MESSAGEBOX("Hello World") </source>

Objekti

<source lang="visualfoxpro"> loForm = CREATEOBJECT("HiForm") loForm.Show(1)

DEFINE CLASS HiForm AS Form

 AutoCenter = .T.
 Caption = "Hello, World"

 ADD OBJECT lblHi as Label WITH ;
   Caption = "Hello, World!"

ENDDEFINE </source>

Manipulacija bazama podataka

<source lang="visualfoxpro"> && Kreiranje tablice CREATE TABLE randData (iData I)

&& Popunjavanje tablice slučajnim brojevima - xbase i SQL metoda FOR i = 1 TO 50

   APPEND BLANK
   REPLACE iData WITH (RAND() * 100)

   INSERT INTO randData (iData) VALUES (RAND() * 100)

ENDFOR

&& Kreiranje strukturalnog indeksa INDEX ON iData TAG iData CLOSE ALL

&& Prikaz sortiranih podataka - xBase komande USE randData SET ORDER TO iData GO TOP LIST NEXT 10 && First 10 SKIP 81 LIST NEXT 10 && Last 10 CLOSE ALL

&& Prikaz sortiranih podataka SQL komande SELECT * ;

 FROM randData ;
 ORDER BY iData DESCENDING

</source>

ODBC pristup podacima - SQL način

<source lang="visualfoxpro"> && Spajanje na ODBC izvor podataka LOCAL nHnd nHnd = SQLCONNECT ("ODBCDSN", "user", "pwd")

&& Izvršavanje SQL komandi LOCAL nResult nResult = SQLEXEC (nHnd, "USE master") IF nResult < 0

 MESSAGEBOX ("MASTER database does not exist!")
 RETURN

ENDIF

&& Preuzimanje podataka sa udaljenog servera i spremanje && u lokalnu privremenu tablicu (cursor) nResult = SQLEXEC (nHnd, "SELECT * FROM authors", "QAUTHORS")

&& Ažuriranje podataka na serveru korištenjem parametara LOCAL cAuthorID, cAuthorName cAuthorID = "1001" cAuthorName = "New name" nResult = SQLEXEC (nHnd, "UPDATE authors SET auth_name = ?cAuthorName WHERE auth_id = ?cAuthorID")

&& Zatvaranje izvora podataka SQLDISCONNECT(nHnd) </source>

Vanjske poveznice

• Visual FoxPro Microsoft stranice
• Microsoft VFP 9 podrška
• Universal Thread - Online podrška VFP zajednice
• User-defined functions Visual FoxPro (written in C)