Veriler üzerinde güncelleme , silme , yeni kayıt ekleme , ileri - geri gitme vb. gibi işlemlerin yapıldığı araç çubuğudur.Örneğimizde formumuza Data Controls kısmından DbNavigator yerleştirelim ve Object Inspector kısmında Data Source özelliğini Data Source1 yapalım.Programı çalıştırdığınız zaman istediğiniz işlemleri DbNavigator çubuğuyla yapabileceğinizi göreceksiniz.Bu çubuktaki özellikleri inceleyelim.



Anlamları Ve Kod Karşılıkları
1 - First :İlk kayda gider
Table1.First;
2 - Prior :Bir önceki kayda gider
if not Table1.Bof Then //İlk Kayıtta Değilse
Table1.Prior;
3 - Next :Bir sonraki kayda gider
if not Table1.Eof Then //Son Kayıtta Değilse
Table1.Next;
4 - Last :En son kayda gider
Table1.Last;
5 - Insert :Mevcut kayıttan önce araya bir kayıt ekler.insert yerine Append kullanırsanız yeni kayıt tablonun sonuna eklebnir
Table1.insert;
editilkalan.setfocus; // Tablonun İlk Alanına Bağlı Bileşeni Kursörü Bırakıyoruz.
6 - Delete :Mevcut kaydı siler bir sonraki kaydı görüntüler
Var
Cevap:Word;
Begin
Cevap:=Application.MessageBox(' silinsin  mi? ','Onay',MB_YesNo);
if Cevap=mrYes then
Table1.delete;
7 - Edit :Mevcut kaydın değiştirilmesini sağlar
Table1.Edit;
 
8 - Post :Yapılan değişiklikleri veri tabanı dosyasına yazar
 Table1.Post;
9 - Cancel :Girilen değişiklikleri iptal eder
Table1.Cancel;
10 - Refresh :Mevcut kaydı yeniden görüntüler .Yani Güncelleme yapar
Table1.Refresh;
 
Yukarıdaki Kodları İlgili Buttonların OnClick Olaylarına yazarsannız Kişisel DBNavigatorunuzu yapabilirsiniz.
Eğer DBNavigator butonuna tıklamayla oluşan eylemi iptal etmek ihtiyacınız varsa, bunu componentin BeforeAction olayında aşağıdaki kodu yazarak halledebilirsiniz.
procedure TDBForm.DBNavigatorBeforeAction(Sender: TObject;
Button: TNavigateBtn) ;
begin
if (Button = nbinsert) then // Button  adlarrının önüne nb ekleyerek kullanın
begin
SysUtils.Abort; //Ekleme eylemini iptal et.
end;
end;


 DbNavigator'ün ShowHint özelliği True yapılarak bu düğmelerin ne işe yaradığı üzerine gelindiği zaman yazacaktır. Bu Yazıları Türkçeleştirmek isterseniz Bileşenin Hints Özelliğinden yaralanabilirsiniiz.


ConfirmDelete Özelliğini False yaparaak Kaydı silerken onay istememesini,

visibleButtons özelliği altında bulunan seçeneklerlede istediğiniz buttonun görünmemesini sağlayabilirsiniz

TDBNavigator Bileşeninin Resimlerini Değiştirme
procedure ChangeDBNavImage(DBnav: TDbNavigator);
var
i: Integer;
tempGlyph: TBitmap;
ExePath: string;
begin
ExePath := ExtractFilePath(Application.ExeName);
tempGlyph := TBitmap.Create;
try
with DBNav do begin
for i := 0 to ControlCount - 1 do begin
if Controls.ClassName = 'TNavButton' then begin
case TNavButton(Controls).Index of
nbFirst: tempGlyph.LoadFromFile(ExePath + 'first.bmp');
nbPrior: tempGlyph.LoadFromFile(ExePath + 'previous.bmp');
nbNext: tempGlyph.LoadFromFile(ExePath + 'Next.bmp');
nbLast: tempGlyph.LoadFromFile(ExePath + 'Last.bmp');
nbInsert: tempGlyph.LoadFromFile(ExePath + 'Insert.bmp');
nbDelete: tempGlyph.LoadFromFile(ExePath + 'Delete.bmp');
nbEdit: tempGlyph.LoadFromFile(ExePath + 'Edit.bmp');
nbPost: tempGlyph.LoadFromFile(ExePath + 'Post.bmp');
nbCancel: tempGlyph.LoadFromFile(ExePath + 'Cancel.bmp');
nbRefresh: tempGlyph.LoadFromFile(ExePath + 'Refresh.bmp');
end;
TNavButton(Controls).Glyph := tempGlyph;
end;
end;
end;
finally
tempGlyph.Free;
end;
end;

Kullanımı
procedure TForm1.Button1Click(Sender: TObject);
begin
ChangeDBNavImage(DBNavigator1);
end;

Hocam Şu navigator e bir türlü ısınamadım onu kullanacağıma button yapıyorum speed button çok hoş duruyorlar

bencede

Hocam Şu navigator u editliyorlarmış nasıl yapılıyor bu yani o soğuk buttonlar yerine başka buttonlar koyyuyorlar

aşağıda yazıyor iyi oku

e kabiliyetli arkadaslar bunu birer kompenent yapsinlar

eyw hocam tabı bunların gorevlerını baska butonlarada aktarabiliyosun oda cok kısa oluyo.ellerine saglk