Пример DbiAddFilter

typeTmyFilter = recordExpr : CANExpr;Nodes : array[0..2] of CANNode;literals : array [0..7] of char;end;
constmyFilter : TMyFilter = (Expr :(iVer : 1; iTotalSize : sizeof(TMyFilter); iNodes : 3;iNodeStart : sizeof(CANExpr); iLiteralStart : sizeof(CANExpr) +3 * sizeof(CANNode));Nodes :((canBinary : (nodeClass : nodeBinary; canOP : canEQ;iOperand1 : sizeof(CANNode); iOperand2 : 2 * sizeof(CANNode))),(canField : (nodeClass : nodeField; canOP : canField2;iFieldNum : 0; iNameOffset : 0)),(canConst : (nodeClass : nodeConst; canOP : canCONST2;iType : fldZSTRING; iSize : 3; iOffset : 5)));literals :('T', 'Y', 'P', 'E', #0, 'I', 'N', #0));
vardbResult : DBIResult;hFilter, hFilter1 : hDBIFilter;begin (* procedure SetupFilter *)dbResult := DbiAddFilter(tblAP_.Handle, 1, 1, False,addr(myFilter), nil, hFilter);dbResult := DbiActivateFilter(tblAP_.Handle, hFilter);tblAP_.First;myFilter.nodes[0].canBinary.canOp := canNE;dbResult := DbiAddFilter(tblAP1_.Handle, 1, 1, False,addr(myFilter), nil, hFilter1);dbResult := DbiActivateFilter(tblAP1_.Handle, hFilter1);tblAP1_.First;myFilter.nodes[0].canBinary.canOp := canEQ;end;

Этот пример устанавливает два фильтра. Первый (применяемый к tblAP_) выводит все записи, где ТИП поля имеет значение 'IN'. Второй (применяемый к tblAP1_) выводит все записи, где ТИП поля не имеет значения 'IN'.

Также необходимо включить в ваш файл файлы DBITYPES и DBIPROCS, где определены вызываемые функции и константы.

Mark Erbaugh [000711]

Содержание раздела