home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 August / Chip_1999-08_cd.bin / tema / Ozogan / RUNTIME / APLIKACE.EXE / ADRESY / INDEXY.KL3 < prev    next >
Text File  |  1999-06-18  |  1KB  |  54 lines
  1. /////////////////////////////////////////////////////////////
  2. //
  3. //   Vytvo°enφ nov²ch index∙
  4. //
  5. /////////////////////////////////////////////////////////////
  6.  
  7. Program Indexy;
  8.  
  9. procedure TForm.bbStartClick(Sender: TObject);
  10. begin
  11.   Screen.Cursor := crHourglass;
  12.   // ADRESY
  13.   //-------
  14.   dt.Active := False;
  15.   dt.DatabaseName := svDATA;
  16.   dt.TableName := 'ADRESY.DBF';
  17.   dt.Active := True;
  18.   if dt.SetExclusive(true) then begin
  19.     dt.Active := True;
  20.     dt.Pack;
  21.     if dt.TagArea('K≤d')=0 then dt.IndexTag('K≤d','UPPER(KOD)');
  22.     if dt.TagArea('Nßzev')=0 then dt.IndexTag('Nßzev','UPPER(NAZEV)');
  23.     if dt.TagArea('I╚O')=0 then dt.IndexTag('I╚O','ICO');
  24.     dt.Reindex;
  25.     dt.Active := False;
  26.     dt.Exclusive := False;
  27.   end
  28.   else begin
  29.     Screen.Cursor := crDefault;
  30.     MessageDlg('Nepoda°ilo se exkluzivn∞ otev°φt soubor '+dt.TableName, mtWarning,[mbOK],0);
  31.     Screen.Cursor := crHourglass;
  32.   end;
  33.   dt.Use('');
  34.  
  35.   // DalÜφ
  36.   //------ tady by se indexovaly dalÜφ soubory
  37.  
  38.   Screen.Cursor := crDefault;
  39.   MessageDlg('Obnovenφ index∙ bylo ukonΦeno.',mtInformation,[mbOK],0);
  40.   Form.Close;
  41. end;
  42.  
  43. procedure TForm.bbKonecClick(Sender: TObject);
  44. begin
  45.   Form.Close;
  46. end;
  47.  
  48. procedure TForm.FormClose(Sender: TObject; var Action: TCloseAction);
  49. begin
  50.   Screen.Cursor := crDefault;
  51. end;
  52.  
  53. end.
  54.