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
Do Until DbfEof                 'dokud nenφ konec databßze
   If DbfEvalLog("CEN>100") then'pokud je cena v∞tÜφ ne₧ 100
      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 If
   DbfSkip(1)                   'p°ejde na dalÜφ zßznam
Loop