32 Урока Borland Delphi
         

Запустите программу, ее примерный вид


Запустите программу, ее примерный вид показан на рис.3

Рис.3: Программа CALC_SUM
Как видно из программы, наличие поля ItemsTotal в таблице ORDERS для данного примера необязательно и его можно было бы удалить (однако, оно необходимо в других случаях).
 
 
      1. Управление TDBGrid во время выполнения
      Объект DBGrid может быть полностью реконфигурирован во время выполнения программы. Вы можете прятать и показывать колонки, изменять порядок показа колонок и их ширину.
      Вы можете использовать свойство Options объекта DBGrid, чтобы изменить ее представление. Свойство Options может принимать следующие возможные значения:
       
      DgEditing Установлен по-умолчанию в true, позволяет пользователю редактировать grid. Вы можете также установить свойство ReadOnly grid в True или False.
      DgTitles Будут ли видны названия колонок.
      DgIndicator Будут ли видны небольшие иконки слева.
      DgColumnResize Может ли пользователь менять размер колонки.
      dgColLines Показывать ли линии между колонками.
      dgRowLines Показывать ли линии между строками.
      dgTabs Может ли пользователь использовать tab и shift-tab для переключения между колонками.

      Как объявлено в этой структуре:
      TDBGridOption = (dgEditing, gdAlwaysShowEditor, dgTitles,
      dgIndicator, dgColumnResize, dgColLines,
      dgRowLines, dgTabs);
      Например Вы можете установить опции в Runtime написав такой код:
      DBGrid1.Options := [dgTitles, dgIndicator];
      Если Вы хотите включать и выключать опции, это можно сделать с помощью логических операций. Например, следующий код будет добавлять dgTitles к текущему набору параметров:
      DBGrid1.Options := DBGrid1.Options + [dgTitles];
      Пусть есть переменная ShowTitles типа Boolean, тогда следующий код позволяют включать и выключать параметр одной кнопкой:
      procedure TForm1.Button3Click(Sender: TObject);
      begin
      if ShowTitles then
      DBGrid1.Options := DBGrid1.Options + [dgTitles]
      else
      DBGrid1.Options := DBGrid1.Options - [dgTitles];
      ShowTitles := not ShowTitles;
      end;
       
       
      Если Вы хотите скрыть поле в run-time, то можете установить свойство visible в false:

      Содержание  Назад  Вперед






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