Lekce 1.27
╚tenφ a zßpis dat databßze

Jak jsme se ji₧ d°φve seznßmili, mohou b²t polo₧ky v databßzi °et∞zcovΘ, numerickΘ, logickΘ a datumovΘ. S ka₧d²m typem polo₧ky se p°itom musφ v programu pracovat odliÜn²m zp∙sobem. Specißlnφm typem polo₧ky je typ Memo, co₧ je poznßmka libovolnΘ dΘlky, se kterou systΘm KLONDAIK dokß₧e pracovat pouze p°i zobrazenφ na formulß°i. NejjednoduÜÜφ zp∙sob jak zjistit typ polo₧ky je zobrazit si z databßzovΘho okna dialog pro nastavenφ filtru databßze, ve kterΘm je p°esn² popis databßze zobrazen.

S jednou mo₧nostφ Φtenφ obsahu polo₧ek databßze jsme se ji₧ seznßmili v p°edchozφ lekci kurzu. Je to pou₧itφ vyhodnocovßnφ v²raz∙, kdy zadßme jako v²raz nap°φklad pouze jmΘno po₧adovanΘ prom∞nnΘ. DalÜφ mo₧nostφ je pou₧itφ funkce DbfReadDat pro Φtenφ datov²ch polo₧ek, DbfReadLog pro Φtenφ logick²ch polo₧ek, DbfReadNum pro Φtenφ numerick²ch polo₧ek a DbfReadStr pro Φtenφ °et∞zcov²ch polo₧ek. Jako parametr volßnφ funkce se pou₧ije jmΘno ΦtenΘ polo₧ky databßze. Pro Φtenφ memopol₧ky se pou₧φvß funkce bu∩ DbfReadBin, nebo DbfReadMem v zßvislosti na obsahu a dΘlky memopol₧ky. Platφ p°itom, ₧e pokud zadßte chybnΘ jmΘno polo₧ky, p°φpadn∞ pou₧ijete pro Φtenφ polo₧ky funkci jinΘho typu, bude vrßcena implicitnφ prßzdnß hodnota.

P°φklad Φtenφ polo₧ek databßze:
Writeln(DbfReadDat('DATUM'));
Writeln(DbfReadNum('CENA'));
Writeln(DbfReadStr('NAZEV'));

Pro zßpis do databßze se pou₧φvajφ op∞t procedury rozd∞lenΘ podle typu polo₧ek databßze. Pro zßpis do datov²ch polo₧ek se pou₧ije procedura DbfWriteDat, pro zßpis do logick²ch polo₧ek se pou₧ije procedura DbfWriteLog, pro zßpis do numerick²ch polo₧ek se pou₧ije procedura DbfWriteNum a pro zßpis do °et∞zcov²ch polo₧ek se pou₧ije procedura DbfWriteStr. Do memopolo₧ek m∙₧ete zapisovat podle obsahu procedurou bu∩ DbfWriteMem, nebo DbfWriteBin.

P°φklad zßpisu do polo₧ek databßze:

DbfWriteDat('DATUM', '24/12/1997');
DbfWriteDat('DATUM', DbfEvalStr('DTOC(DAY())'));
DbfWriteNum('CENA',  100);
DbfWriteNum('CENA',  DbfReadNum('CENA')*1.1);
DbfWriteStr('NAZEV', 'KLONDAIK');
DbfWriteStr('NAZEV', DbfEvalStr('SUBSTR(NAZEV,1,10) '));

P°i zßpisu do databßze musφte dßvat pozor na to, ₧e ztratφte nenßvratn∞ p°edchozφ obsah polo₧ek a pokud pou₧ijete k experiment∙m p°φmo databßze pou₧φvanΘ nap°φklad vßmi pou₧φvan²m ekonomick²m programem, m∙₧ete ztratit i mnohem vφce. Nepou₧φvejte proto ve vlastnφm zßjmu v systΘmu KLONDAIK databßze vyu₧φvanΘ jin²mi systΘmy.