DBNaVigator组件的使用方法

DBNavigator组件用于在数据集进行记录导航，当用户单击DBNaVigator组件的某个按钮时，可实现记录
指针的前移、后移，插入‘删除、修改当前记录等操作，而无须编写任何程序代码。 

1.  DBNavigator组件按钮功能 
    First按钮  将指针移到数据表的第一条记录。 
    Previous按钮  将指针前移一条记录o 
    Next按钮  将指针后移一条记录。 
    Last按钮  将指针移到数据表的最后一条记录。 
    Insert按钮  在当前记录前插入一条新记录，并将数据集组件置于插人状态。 
    Delete按钮  删除当前记录。 
    Edit按钮  将数据集置于编辑状态。 
    Post按钮  提交对当前记录的修改。 
    Cancel 按钮  取消对当前记录的修改。 
    Refresh按钮  清除数据浏览组件的显示缓冲区，并用与其相连的数据集组件中的记录刷新显示缓冲区。

2.主要属性


(1)VisibleButtons属性
该属性用于隐藏或显示DBNavigator组件的按钮。单击该属性前的“+"号，出现许多子属性：

nbFirst、nbPrior、nbNext、nbLast、nbAdd、nb’Delete、mbEdit、nbPost、nbCancel、nbRefresh。选择

子属性为 True则相应的按钮就会显示出来，若选择子属性为False则相应的按钮就会隐藏。例如， 在查询系统中，

只需要4个按钮First、Prior、Next、Last，此时只需要将前4个子属性设置为:True， 其余属性设为False即可。


(2)ShowHint属性 
               ShowHint属性值为 true，则显示DBNavigator组件各按钮的动态提示信息；值为False，

则不显示DBNavigator组件各按钮的动态提示信息。


(3)Hints属性 
               Hints属性用于设置DBNavigator’组件各按钮的动态提示信息。单击’rString右边的省略按钮，

进入动态提示信息编辑框，在框内输人各按钮的动态提示信息，如输入：“第一条记录”、“前一个记录"、“后一个

记录”、“最后一个记录”等，按OK按钮后，将ShowHint属性设置为’lTrue，则程序执行后，当鼠标移动到第一个

按钮上时会动态提示“第一条记录"。

 
(4)ConfirmDelete   
当该属性值为True时，用DBNavigator的Delete按钮删除记录有确认提示，值为False时，删除记录无确认提示。

 

3.常用方法与事件


(1)OnClick事件
当用户单击DBNavigator组件的某个按钮时触发该事件，其参数Button用于表示用户按下的按钮，参数Button

取值为：nbFirst、nbPrior、nbNext、nbLast、nbInsert、nb’Delete、mbEdit、nbPostnbCancel、nbRefresh。


代码如下：  
begin  
    Butt：=Button；  
    case Butt of  
    nbFirst：Edit7．Text：=’First’；  
    nbNext：Edit7．Text：=’Next’；  
    nbPrior：Edit7．Text：=’Prior’；    
    nbLast：Edit7．Text：=’Last’；    
    nbDelete：Edit7．Text：：’Delete’；  
    end；  
end；  
    程序执行后，单击DBNavigator的前几个按钮，Edit7组件会显示出按钮的类型。

 

 (2)BeforeAction事件
该事件发生在用户单击DBNavigator组件的某个按钮，但相应动作尚未执行前，Button参数表示用户按下的是哪个按钮。

例如：点击DBNavigator的Delete按钮时显示中文对话框


//在DBNavigator中BeforAction事件中写如下代码     
  procedure   TForm1.DBNavigator1BeforeAction(Sender:   TObject;     
      Button:   TNavigateBtn);     
  begin     
      if   Button=nbDelete   then     
      begin     
          if   MessageBox(Handle,'确实要删除么？','系统提示',MB_YESNO   or   MB_ICONQUESTION)=ID_NO   then     
              Abort     
          else   begin     
              Adoquery1.Delete;     
              Abort;     
          end;     
      end;     
  end;     

 

(3)DBNavigator控件的按钮显示成中文


unit   Unit1;   
  
interface   
  
uses   
   Windows,   Messages,   SysUtils,   Variants,   Classes,   Graphics,   Controls,   Forms,   
   Dialogs,   Grids,   DBGrids,   ExtCtrls,   DBCtrls;   
  
type   
   TMyNavgator   =   class(TDBNavigator);   
   TForm1   =   class(TForm)   
       DBNavigator1:   TDBNavigator;   
       procedure   FormCreate(Sender:   TObject);   
   private   
       {   Private   declarations   }   
   public   
       {   Public   declarations   }   
   end;   
  
var   
   Form1:   TForm1;   
  
implementation   
  
{$R   *.dfm}   
  
procedure   TForm1.FormCreate(Sender:   TObject);   
begin   
   TMyNavgator(DBNavigator1).Buttons[nbFirst].Caption:= '第一条 ';   
//     TMyNavgator(DBNavigator1).Buttons[nbFirst].Glyph:=nil;   //不显示图标   
   TMyNavgator(DBNavigator1).Buttons[nbPrior].Caption:= '上一条 ';       
   TMyNavgator(DBNavigator1).Buttons[nbNext].Caption:= '下一条 ';       
   TMyNavgator(DBNavigator1).Buttons[nbLast].Caption:= '最后一条 ';   
   TMyNavgator(DBNavigator1).Buttons[nbInsert].Caption:= '添加 ';   
   TMyNavgator(DBNavigator1).Buttons[nbDelete].Caption:= '删除 ';       
   TMyNavgator(DBNavigator1).Buttons[nbEdit].Caption:= '修改 ';       
   TMyNavgator(DBNavigator1).Buttons[nbPost].Caption:= '提交 ';       
   TMyNavgator(DBNavigator1).Buttons[nbCancel].Caption:= '撤销 ';       
   TMyNavgator(DBNavigator1).Buttons[nbRefresh].Caption:= '刷新 ';   
end;   
  
end.