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。

[delphi]  view plain  copy

1. 代码如下：  
2. begin  
3.     Butt：=Button；  
4.     case Butt of  
5.     nbFirst：Edit7．Text：=’First’；  
6.     nbNext：Edit7．Text：=’Next’；  
7.     nbPrior：Edit7．Text：=’Prior’；    
8.     nbLast：Edit7．Text：=’Last’；    
9.     nbDelete：Edit7．Text：：’Delete’；  
10.     end；  
11. end；  

    程序执行后，单击DBNavigator的前几个按钮，Edit7组件会显示出按钮的类型。

 

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

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

[delphi]  view plain  copy

1. //在DBNavigator中BeforAction事件中写如下代码     
2.   procedure   TForm1.DBNavigator1BeforeAction(Sender:   TObject;     
3.       Button:   TNavigateBtn);     
4.   begin     
5.       if   Button=nbDelete   then     
6.       begin     
7.           if   MessageBox(Handle,'确实要删除么？','系统提示',MB_YESNO   or   MB_ICONQUESTION)=ID_NO   then     
8.               Abort     
9.           else   begin     
10.               Adoquery1.Delete;     
11.               Abort;     
12.           end;     
13.       end;     
14.   end;     

 

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

 

[delphi]  view plain  copy

1. unit   Unit1;   
2.   
3. interface   
4.   
5. uses   
6.    Windows,   Messages,   SysUtils,   Variants,   Classes,   Graphics,   Controls,   Forms,   
7.    Dialogs,   Grids,   DBGrids,   ExtCtrls,   DBCtrls;   
8.   
9. type   
10.    TMyNavgator   =   class(TDBNavigator);   
11.    TForm1   =   class(TForm)   
12.        DBNavigator1:   TDBNavigator;   
13.        procedure   FormCreate(Sender:   TObject);   
14.    private   
15.        {   Private   declarations   }   
16.    public   
17.        {   Public   declarations   }   
18.    end;   
19.   
20. var   
21.    Form1:   TForm1;   
22.   
23. implementation   
24.   
25. {$R   *.dfm}   
26.   
27. procedure   TForm1.FormCreate(Sender:   TObject);   
28. begin   
29.    TMyNavgator(DBNavigator1).Buttons[nbFirst].Caption:= '第一条 ';   
30. //     TMyNavgator(DBNavigator1).Buttons[nbFirst].Glyph:=nil;   //不显示图标   
31.    TMyNavgator(DBNavigator1).Buttons[nbPrior].Caption:= '上一条 ';       
32.    TMyNavgator(DBNavigator1).Buttons[nbNext].Caption:= '下一条 ';       
33.    TMyNavgator(DBNavigator1).Buttons[nbLast].Caption:= '最后一条 ';   
34.    TMyNavgator(DBNavigator1).Buttons[nbInsert].Caption:= '添加 ';   
35.    TMyNavgator(DBNavigator1).Buttons[nbDelete].Caption:= '删除 ';       
36.    TMyNavgator(DBNavigator1).Buttons[nbEdit].Caption:= '修改 ';       
37.    TMyNavgator(DBNavigator1).Buttons[nbPost].Caption:= '提交 ';       
38.    TMyNavgator(DBNavigator1).Buttons[nbCancel].Caption:= '撤销 ';       
39.    TMyNavgator(DBNavigator1).Buttons[nbRefresh].Caption:= '刷新 ';   
40. end;   
41.   
42. end.