home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 June / PCWorld_1998-06_cd.bin / software / Programy / Ozogan / DBFUSE.IPS < prev    next >
Encoding:
Text File  |  1998-01-18  |  674 b   |  19 lines
  1. PROCEDURE main
  2.    DbfForm(0,0,600,350);
  3.    DbfShow;
  4.    ConsoleForm(390,15,250,400);
  5.    ConsoleShow; ConsoleClear;
  6.    IF DbfUse("CENIK") then           {pokud se otev°ela databßze}
  7.       DbfGoTop;                      {skok na zaΦßtek databßze}
  8.       WRITELN("ZaΦßtek databßze");
  9.       WHILE not DbfEof;              {dokud nenφ konec databßze}
  10.          WRITELN('Zßznam    : '+IntToStr(DbfRecno)+'/'+IntToStr(DbfRecCount));
  11. //       ...                         {dalÜφ akce se zßznamem}
  12.          DbfSkip(1);                 {skok na dalÜφ zßznam}
  13.       ENDWHILE
  14.       WRITELN("Konec databßze");
  15.    ELSE
  16.       WRITELN("Databßze neexistuje");
  17.    ENDIF
  18. ENDPROC
  19.