home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 August / Chip_1999-08_cd.bin / tema / Ozogan / RUNTIME / PROGRAMY.ZIP / DBF_2.KL3 < prev    next >
Text File  |  1998-10-29  |  732b  |  23 lines
  1. Program Dbf_2;
  2. begin
  3.    ConsoleClear;
  4.    ConsoleShow;
  5.    IF DbfUse("CENIK") then     {pokud se otev°ela databßze}
  6.       DbfSetFilter("(CENA/100*(100+DPH))<1000");
  7.       {nastavit filtr pokud cena s da≥φ menÜφ ne₧ 1000 KΦ}
  8.       DbfGoTop;                {skok na zaΦßátek databßze}
  9.       While not DbfEof do      {dokud nenφ konec databßze}
  10.       begin
  11.          DbfWriteNum("CENA",DbfReadNum("CENA")*1.1);
  12.          {zv²Üenφ ceny o 10 %}
  13.          Writeln(DbfReadNum("CENA"));
  14.          DbfSkip(1);           {skok na dalÜφ zßznam}
  15.       end;
  16.       DbfSetFilter("");        {zruÜit nastaven² filtr}
  17.       DbfUse("");
  18.    end else
  19.       ShowMessage('Databßzi "CENIK.DBF" nebylo mo₧nΘé otev°φt !');
  20.    end;
  21. end;
  22. end.
  23.