b'\n_START_ARTICLE_\nVisual FoxPro\n_START_SECTION_\nRazvoj\n_START_PARAGRAPH_\nPo\xc4\x8deci razvoja VFP-a se\xc5\xbeu u 1984. godinu, kada je kompanija Fox Software izdala FoxBASE, xBase kompatibilni jezik. Microsoft kupuje Fox Software 1992. i po\xc4\x8dinje rad na VFP. Posljednja verzija programa je VFP 9.0 SP2, i prema najavam iz Microsofta, ne\xc4\x87e se vi\xc5\xa1e razvijati.\n_START_SECTION_\nProgramski primjeri\n_START_PARAGRAPH_\nHello World primjer:_NEWLINE_MESSAGEBOX("Hello World")\n_START_SECTION_\nObjekti\n_START_PARAGRAPH_\nloForm = CREATEOBJECT("HiForm")_NEWLINE_loForm.Show(1)_NEWLINE_ _NEWLINE_DEFINE CLASS HiForm AS Form_NEWLINE_  AutoCenter = .T._NEWLINE_  Caption = "Hello, World"_NEWLINE_ _NEWLINE_  ADD OBJECT lblHi as Label WITH ;_NEWLINE_    Caption = "Hello, World!"ENDDEFINE\n_START_SECTION_\nManipulacija bazama podataka\n_START_PARAGRAPH_\n&& Kreiranje tablice_NEWLINE_CREATE TABLE randData (iData I)_NEWLINE_ _NEWLINE_&& Popunjavanje tablice slu\xc4\x8dajnim brojevima - xbase i SQL metoda_NEWLINE_FOR i = 1 TO 50_NEWLINE_    APPEND BLANK_NEWLINE_    REPLACE iData WITH (RAND() * 100)_NEWLINE_ _NEWLINE_    INSERT INTO randData (iData) VALUES (RAND() * 100)ENDFOR_NEWLINE_ _NEWLINE_&& Kreiranje strukturalnog indeksa_NEWLINE_INDEX ON iData TAG iData_NEWLINE_CLOSE ALL_NEWLINE_ _NEWLINE_&& Prikaz sortiranih podataka - xBase komande_NEWLINE_USE randData_NEWLINE_SET ORDER TO iData_NEWLINE_GO TOPLIST NEXT 10  && First 10 _NEWLINE_SKIP 81LIST NEXT 10  && Last 10CLOSE ALL_NEWLINE_ _NEWLINE_&& Prikaz sortiranih podataka SQL komande_NEWLINE_SELECT * ;_NEWLINE_  FROM randData ;_NEWLINE_  ORDER BY iData DESCENDING\n_START_SECTION_\nODBC pristup podacima - SQL na\xc4\x8din\n_START_PARAGRAPH_\n&& Spajanje na ODBC izvor podataka_NEWLINE_LOCAL nHnd_NEWLINE_nHnd = SQLCONNECT ("ODBCDSN", "user", "pwd")_NEWLINE_ _NEWLINE_&& Izvr\xc5\xa1avanje SQL komandi_NEWLINE_LOCAL nResult_NEWLINE_nResult = SQLEXEC (nHnd, "USE master")IF nResult < 0_NEWLINE_  MESSAGEBOX ("MASTER database does not exist!")_NEWLINE_  RETURNENDIF_NEWLINE_ _NEWLINE_&& Preuzimanje podataka sa udaljenog servera i spremanje_NEWLINE_&& u lokalnu privremenu tablicu (cursor)_NEWLINE_nResult = SQLEXEC (nHnd, "SELECT * FROM authors", "QAUTHORS")_NEWLINE_ _NEWLINE_&& A\xc5\xbeuriranje podataka na serveru kori\xc5\xa1tenjem parametara_NEWLINE_LOCAL cAuthorID, cAuthorName_NEWLINE_cAuthorID = "1001"_NEWLINE_cAuthorName = "New name"_NEWLINE_nResult = SQLEXEC (nHnd, "UPDATE authors SET auth_name = ?cAuthorName WHERE auth_id = ?cAuthorID")_NEWLINE_ _NEWLINE_&& Zatvaranje izvora podataka_NEWLINE_SQLDISCONNECT(nHnd)'