关于数据导航 DataNavigator 的用法

ntcp

DataNavigator在使用中有很多技巧，举例说明如下：

1、可以通过设置DataNavigator的ShowCaptions属性，以便用户使用

2、可以设计一组按钮，用ToolBar或者BitButton都可以，并连接系统提供的Action直接处理相应DataSet的Insert、Post等操作，以达到DataNavigator的效果

3、可以在DataNavigator的BeforeAction事件中截获到用户操作的那个按钮，代码示例如下：

  case TBizDataSetAction(Sender).ID of
      BizActnConsts.ActionDataSetFirst: ShowMessage('ActionDataSetFirst'); { 最前 }
      BizActnConsts.ActionDataSetPrior: ShowMessage('ActionDataSetPrior'); { 向前 }
      BizActnConsts.ActionDataSetNext: ShowMessage('ActionDataSetNext'); { 向后 }
      BizActnConsts.ActionDataSetLast: ShowMessage('ActionDataSetLast'); { 最后 }
      BizActnConsts.ActionDataFetch: ShowMessage('ActionDataFetch'); { 取下一页 }
      BizActnConsts.ActionDataFetchAll: ShowMessage('ActionDataFetchAll'); { 全部取 }
      BizActnConsts.ActionDataSetRefresh: ShowMessage('ActionDataSetRefresh'); { 刷新 }
      BizActnConsts.ActionDataSetFilter: ShowMessage('ActionDataSetFilter'); { 过滤 }
      BizActnConsts.ActionDataSetInsert: ShowMessage('ActionDataSetInsert'); { 插入 }
      BizActnConsts.ActionDataSetCopyInsert: ShowMessage('ActionDataSetCopyInsert'); { 插入复制 }
      BizActnConsts.ActionDataSetAppend: ShowMessage('ActionDataSetAppend'); { 新增 }
      BizActnConsts.ActionDataSetCopyAppend: ShowMessage('ActionDataSetCopyAppend'); { 新增复制 }
      BizActnConsts.ActionDataSetCancel: ShowMessage('ActionDataSetCancel'); { 取消 }
      BizActnConsts.ActionDataSetDelete: ShowMessage('ActionDataSetDelete'); { 删除 }
      BizActnConsts.ActionDataSetSave: ShowMessage('ActionDataSetSave'); { 保存 }
    ......
  end

4、如果想更改 DataNavigator 中的某个按钮的 Caption，可以通过如下代码：
TToolButton(DataNavigator.Controls[0]).Caption:='首条';

5、如果需要屏蔽数据导航的下拉菜单，只需要把下拉的按钮项在DataNavigator的 VisibleButton 中去掉就可以了。

6、ActionDataSetCancelUpdates，它执行的动作是"取消所有修改"，即DataSet.CancelUpdate

little-fish

procedure TMainForm.SpeedButton1Click(Sender: TObject);
var
  ls: string;
begin
  ls := TBizDataSetAction(DataNavigator.Buttons[0].Action).CurrentDataSource.DataSet.Name;
  dialogs.ShowMessage(ls);
end;


注意，这里面使用的是SpeedButton，因为SpeedButton不会获得焦点。

atiger

数据导航条不感应数据集有多种情况：

1、连接的数据集没有打开；

2、焦点没有在数据感知控件上；

3、当前数据集如果没有增加、删除等等操作权限，那么增加、删除等按钮也是灰色的；

4、数据导航的属性 AutoDetect  没有选中，且 DataSource 没有连接任何数据源

atiger

步骤：
1、自己定义一个界面方案
2、从 系统空间 － 默认用户界面 － 工具栏 中继承“数据集导航条”
3、修改继承后的“工具条”的“数据集导航条”，清空【tlbAppend】的【DropDownMenu】属性，
4、新增相应的TOOLBUTTON，然后链接相应的Action

<用户界面方案，请参考：http://bbs.justep.com/forum.php?mod=viewthread&tid=975>

atiger

参考代码如下：
DataNavigator1.AutoDetect:=true;
DataNavigator1.Refresh;

atiger

选中DataNavigator的属性 ConfirmDelete 属性就可以了

atiger

望远镜下拉的字段只能是物理字段，其他的字段，例如临时字段、计算字段都不支持