Visual FoxPro

Visual FoxPro

Pojavio se:	1984
Razvijatelj:	Microsoft
OS:	Windows
Web stranica:	Visual FoxPro

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

Razvoj

Počeci razvoja VFP-a sežu u 1984., kada je komapnija Fox Software izdala FoxBASE, xBase kompatabilni 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:

MESSAGEBOX("Hello World")

Objekti

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

Manipulacija bazama podataka

&& 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

ODBC pristup podacima - SQL način

&& 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)

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)