В следующем примере программа _DBAppend( ) используется для присоединения записи в конец таблицы, открытой в текущей рабочей области.

Код Visual FoxPro

SET LIBRARY TO DBAPPEND

DO CreateTest

SET CARRY ON

= DBAPPEND(-1) && SET CARRY is ON, so carry

SET CARRY OFF

= DBAPPEND(1) && carry regardless of SET CARRY

= DBAPPEND(-1) && SET CARRY is OFF, so no carry

PROCEDURE CreateTest

CREATE TABLE test (ABC C(20))

APPEND BLANK

REPLACE ABC WITH "Golly month of"

APPEND BLANK

REPLACE ABC WITH "A twelfth of"

APPEND BLANK

REPLACE ABC WITH "Hello, world"

APPEND BLANK

REPLACE ABC WITH "When in the"

GO TOP

RETURN

Код C

#include <pro_ext.h>

FAR Example(ParamBlk FAR *parm)

{

int RetCode;

if ((RetCode = _DBAppend(-1, (int) parm->p[0].val.ev_long)) < 0) {

_Error(-RetCode);

}

}

FoxInfo myFoxInfo[] = {

{"DBAPPEND", (FPFI) Example, 1, "I"},

};

FoxTable _FoxTable = {

(FoxTable FAR *) 0, sizeof(myFoxInfo)/sizeof(FoxInfo), myFoxInfo

};