InterBase - статьи


Анализ статистики базы данных InterBase/FireBird - часть 3


Следует отметить, что в нашем примере выводится вся статистическая информация, но с помощью свойства Options можно выбирать какую область данных нужно вывести: fibStatistical.Options := [DataPages]; //соответствует ключу –data ffibStatistical.Options := [HeaderPages]; //соответствует ключу –header

Процесс получения статистики проходит определенное время поэтому, чтобы не смущать пользователя простоем программы сменим курсор:

Screen.Cursor := crSQLWait;

Далее нам нужно отображать информацию в поле Мемо: while not (fibStatistical.Eof) do mDBInfo.Lines.Add(fibStatistical.GetNextLine);

По завершению выполняем следующие действия:

Screen.Cursor := crDefault; // Возвращаем курсор в стандартный вид

fibStatistical.Active := False; // Деактивируем процесс

В итоге у нас должно получиться следующее:




- Начало -  - Назад -