Lekce 1.33
DatabßzovΘ oblasti

Mezi datov²mi oblastmi databßzovΘho okna je mo₧nΘ se p°epφnat v programu volßnφm procedury DbfSelect. P°i prßci p°φmo s databßzov²m oknem mßte mo₧nost pou₧φt v²hodn∞ji PopUp menu, kterΘ se zobrazφ po stisku pravΘho tlaΦφtka myÜi na ploÜe datovΘ m°φ₧ky. Menu obsahuje bu∩ Φφsla prßzdn²ch oblastφ, p°φpadn∞ uvedenφ jmen databßzφ otev°en²ch v jednotliv²ch datov²ch oblastech. Po₧adovanou oblast zvolφte kliknutφm myÜφ.

Mo₧nost prßce s n∞kolika najednou otev°en²mi databßzemi ocenφte zejmΘna p°i nßroΦn∞jÜφch po₧adavcφch na zpracovßnφ dat. Data z jednΘ oblasti m∙₧ete nap°φklad r∙zn∞ upravit a uklßdat do databßze otev°enΘ v jinΘ oblasti. T°etφ datovß oblast m∙₧e p°itom slou₧it nap°φklad jako Φφselnφk ·daj∙, cenφk pro v²poΦty a podobn∞.

P°φklad:

DbfSelect(1);                    {nastavφ prvnφ datovou oblast}
DbfGoTop;                        {skok na zaΦßtek databßze}
While not DbfEof  do             {dokud nenφ konec databßze}
begin
   if DbfEvalLog('CEN>100') then {pokud je cena v∞tÜφ ne₧ 100}
   begin
      pNaz := DbfReadStr('NAZ');
      pCen := DbfReadNum('CEN');
      DbfSelect(2);              {nastavφ druhou datovou oblast}
      DbfAppendBlank;            {p°idß nov², prßzdn² zßznam}
      DbfWriteStr('NAZ',pNaz);   {zapφÜe hodnotu do polo₧ky}
      DbfWriteNum('CEN',pCen);   {zapφÜe hodnotu do polo₧ky}
      DbfSelect(1);              {nastavφ prvnφ datovou oblast}
   End;
   DbfSkip(1);                   {p°ejde na dalÜφ zßznam}
End;