Все бесплатно
    Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.



Вопросы
  Добавить данные в EXE файл и получить их
   Категория: Файловая система
  Вычислить логарифм
   Категория: Математика
  Поиск по EasyTable
   Категория: Базы данных
  Получить версию программы VersionInfo
   Категория: Приложение
  Создание цветных строк в ListBox
   Категория: Компоненты
  Создание ярлыка на Рабочем столе
   Категория: Приложение
  Как создать вычисляемые поля
   Категория: Базы данных
  Компоненты ToolBar и PageScroller
   Категория: Компоненты
  Округление в большую сторону
   Категория: Математика
  Подсветить часть текста в DBGrid
   Категория: Компоненты
Delphi - База Знаний: Создать индекс для таблицы ABS (Absolute Database)

  << Вернуться к Содержанию  

procedure TForm1.btnCreateIndexClick(Sender: TObject);
var
  s,desc,nocase: String;
  Options: TIndexOptions;
begin
  Table.Close;
  try
    if rbQuery.Checked then
     begin
      s := 'create ';
      if cbUnique.Checked then s := s + ' unique ';
      s := s + ' index ' + eIndexName.Text + ' on friends (name ';
      if not cbAsc.Checked then s := s + ' desc ';
      if not cbCase.Checked then
        s := s + ' case'
      else
        s := s + ' nocase';
      s := s + ')';
      mSQL.Text := s;
      Query.SQL.Text := s;
      Query.ExecSQL;
     end
    else
     begin
      Options := [];
      if cbUnique.Checked then Options := [ixUnique];
      desc := '';
      nocase := '';
      if not cbAsc.Checked then desc := 'name';
      if not cbCase.Checked then nocase := 'name';
      Table.RestructureIndexDefs.Add(eIndexName.Text, 'name', Options, false, desc, nocase);
      Table.RestructureTable;
     end;
  finally
    Table.Open;
  end;
  UpdateIndexList;
end;
  << Вернуться к Содержанию