Пытается блокировать текущую запись или таблицу, открытую в рабочей области, определяемой workarea.
|
|---|
int _DBLock(int workarea, int RecOrFile)
int workarea; /* Work area. */
int RecOrFile; /* What is to be locked. */ |
Примечания
Пример
Приведенный ниже пример предоставляет две функции API, которые вы можете
вызвать из Visual FoxPro: XRLOCK(), которая блокирует текущую запись текущей
рабочей области; и XFLOCK(), которая блокирует таблицу, открытую в текущей
рабочей области. XRLOCK() вызывает _DBLock( – 1, DBL_RECORD()), а XFLOCK() вызывает _DBLock( – 1, DBL_FILE()).
Код
Visual FoxPro
|
|  Скопировать
код |
|---|
SET LIBRARY TO DBLOCK
DO CreateTest
USE Test SHARED
GO 2
= XRLOCK()
LIST STAT && показывает, что запись #2 заблокирована
= XFLOCK()
LIST STAT && показывает, что таблица заблокирована целиком
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 xLockRecord(ParamBlk FAR *parm)
{
_DBLock(-1, DBL_RECORD);
}
FAR xLockFile(ParamBlk FAR *parm)
{
_DBLock(-1, DBL_FILE);
}
FoxInfo myFoxInfo[] =
{
{"XRLOCK", (FPFI) xLockRecord, 0, ""},
{"XFLOCK", (FPFI) xLockFile, 0, ""},
};
FoxTable _FoxTable =
{
(FoxTable FAR *) 0, sizeof(myFoxInfo)/sizeof(FoxInfo), myFoxInfo
}; |
Смотрите
также
