关于李维范例的问题？？？

[sea76]

procedure TfrmMain.ckfgPredicateClick(Sender: TObject);
begin
case TComponent(Sender).Tag of
0:
begin
if (dmBatchUpdate.ADODataSet1.LockType = ltBatchOptimistic) then
begin
dmBatchUpdate.ADODataSet1.Filtered := True;
dmBatchUpdate.ADODataSet1.FilterGroup := fgNone;
end;
end;
1:
begin
if (dmBatchUpdate.ADODataSet1.LockType = ltBatchOptimistic) then
begin
dmBatchUpdate.ADODataSet1.Filtered := True;
dmBatchUpdate.ADODataSet1.FilterGroup := fgPendingRecords;
end;
end;
end; // case
end;
错误信息：Undeclared identifier'ltBatchOptimistic' or Undeclared identifier'fgnone'
是不是这两种类型都得定义，但我不知定义为什么，那位高手帮忙解答一下