Lekce 1.25
Navigace v databßzi

Ka₧d² zßznam v databßzi je oΦφslovßn dle po°adφ zßpisu do databßze. Prvnφ zßznam mß proto po°adovΘ Φφslo jedna, poslednφ zapsan² zßznam mß po°adovΘ Φφslo shodnΘ s celkov²m poΦtem zßznam∙ v databßzi. ╚φslo aktußlnφho zßznamu vΦetn∞ celkovΘho poΦtu zßznam∙ v databßzi je uveden ve spodnφ Φßsti databßzovΘho okna v jeho stavovΘm °ßdku. Celkov² poΦet zßznam∙ databßze vracφ funkce DbfReccount, Φφslo aktußlnφho zßznamu vracφ funkce DbfRecNo. Pokud byste cht∞li vypsat uveden² zßpis z programu, m∙₧ete pou₧φt nßsledujφcφho zßpisu:

Writeln(CStr(DbfRecNo)+"/"+CStr(DbfReccount))

Pokud byste se pokouÜeli p°ejφt volßnφm procedury DbfSkip p°ed prvnφ zßznam bude nastaven ukazatel databßze na prvnφ zßznam databßze. SouΦasn∞ vÜak bude nastaven p°φznak zaΦßtku databßze, kter² je p°φstupn² volßnφm funkce DbfBof. Obdobn∞, pokud byste se pokouÜeli provΘst skok v databßzi za jeho konec, bude nastaven p°φznak konce databßze, kter² je p°φstupn² volßnφm funkce DbfEof. Vyu₧itφm v²Üe uveden²ch funkcφ m∙₧ete realizovat prochßzenφ databßze od jejφho poΦßtku na konec (nebo obrßcen∞):

'program DBF_1.BPR
ConsoleClear
ConsoleShow
If DbfUse("CENIK") then      'pokud se otev°ela databßze
   DbfGoTop                  'skok na zaΦßtek databßze
   Writeln("***** ZaΦßtek databßze")
   Do until DbfEof           'dokud nenφ konec databßze
      Write(IntToStr(DbfRecNo)+"/"+IntToStr(DbfReccount)+" ")
      Writeln(DbfReadStr("NAZEV"))
      '... dalÜφ akce se zßznamem
      DbfSkip(1)             'skok na dalÜφ zßznam
   loop
   Writeln("***** Konec databßze")
   DbfUse("")
else
   ShowMessage("Databßzi 'CENIK.DBF' nebylo mo₧nΘ otev°φt !")
end if