home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 June / PCWorld_1998-06_cd.bin / software / Programy / Ozogan / DBFSEEK.IPS < prev    next >
Encoding:
Text File  |  1998-01-18  |  684 b   |  22 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.       IF DbfSetOrder("NAZ") = 0 then
  8.          {pokud neexistuje index NAZEV, tak jej vytvo°φme}
  9.          DbfIndexTag("NAZ", "UPPER(NAZEV)");
  10.       ENDIF
  11.       DbfSetOrder("NAZ");     {nastavφme index podle nßzvu}
  12.       DbfSeek("FAX");         {hledßme text FAX}
  13.       IF DbfFound             {pokud je nalezen}
  14.          WRITELN(DbfReadStr("NAZEV"));
  15.       ELSE
  16.         WRITELN("Zßznam nebyl nalezen");
  17.       ENDIF
  18.    ELSE
  19.       WRITELN('Nelze, databßze nebyla nalezena')
  20.    ENDIF
  21. ENDPROC
  22.