Задачи по Python с решениями

   
На этом шаге мы рассмотрим компонент TRxDBGrid.

   
Компонент TRxDBGrid (рис.1) предназначен, как и
стандартный компонент TDBGrid, для отображения данных таблиц
БД или результатов запросов в табличной форме. Являясь наследником
TDBGrid, компонент TRxDBGrid имеет все те же
свойства и методы, и, кроме того, некоторые свойства, находящиеся у
TDBGrid в секции protected,
вынесены в секцию public. Это такие свойства,
как Col, Row, LeftCol, Canvas.
   
Другие отличия от TDBGrid:

• BLOB-поля базы данных, такие как графические изображения,
  текстовые мемо-поля, другие BLOB'ы могут отображаться в таблице
  в виде пиктограмм при установленном в True значении свойства
  ShowGlyphs;
• вы можете изменить цвет шрифта и фона любой ячейки таблицы (либо любой ее
  строки или столбца) в зависимости от значения поля или имени поля набора данных,
  определив обработчик события OnGetCellParams;
• имеются методы SaveLayout и RestoreLayout
  для сохранения и восстановления порядка и ширин столбцов
  компонента TRxDBGrid в INI-файле (или в
  Registry для Delphi 2.0). Вы можете также автоматически сохранять
  и восстанавливать эти параметры, присвоив значение свойству
  IniStorage;
• как в 32-битной, так и в 16-битной версии компонента поддерживает выбор
  нескольких записей в таблице при значении свойства MultiSelect = True;
• заголовки колонок Grid-а могут быть с помощью
  свойства TitleButtons использованы как кнопки, например,
  для изменения порядка сортировки отображаемых данных;
• вы можете зафиксировать несколько первых колонок в
  Grid-е с помощью свойства FixedCols.

Рис.1. Компонент TRxDBGrid
   Рассмотрим некоторые свойства компонента:

Таблица 1. Свойства и методы компонента TRxDBGrid

   
Вы можете использовать компонент TRxDBGrid во всех случаях,
когда вам нужно отображать данные из БД в табличном виде,
вместо стандартной компоненты TDBGrid. Использование компонента
TRxDBGrid позволит вам изменять цвет и характеристики шрифта
для любой ячейки таблицы в зависимости от отображаемых данных.

   
Приведем пример: необходимо отобразить таблицу RxDBGrid1 с
определенными данными.

   
Поместим на форму компоненты RxDBGrid1,
Table2, DataSource2 – для связи базы данных и таблицы (рис.2).

Рис.2. Форма с размещенными на ней компонентами
RxDBGrid1, Table2, DataSource2

   
Выделим колонку с Ф.И.О. жирным шрифтом, колонку с кодом
красным цветом. И если человек родился раньше 1984 года нужно выделить его данные жирным курсивом.

   
Используем обработку события OnGetCellParams:

procedure TForm1.RxDBGrid1GetCellParams(Sender: TObject; 
       Field: TField; AFont: TFont; var Background: TColor; 
				          Highlight: Boolean);
var 
  OldDate: TDateTime;
  DataSet: TDataSet; 
begin
   if Field.FieldName = 'Ф.И.О.' then
      AFont.Style := AFont.Style + [fsBold]
   else 
        if Field.FieldName = 'Код' then
           Background := clRed
        else
         begin
           OldDate := EncodeDate(1984, 1, 1); 
           DataSet := (Sender as TrxDBGrid).DataSource.DataSet; 
           if DataSet.FieldByName('Дата рождения').AsDateTime < OldDate  then
               AFont.Style := AFont.Style + [fsItalic]+ [fsBold];
         end;
end;

   
Работа программы показана на рис.3(а-б).

Рис.3а. Выделение поля 'Ф.И.О.' жирным шрифтом и поля 'Код' красным цветом

Рис.3б. Изменение даты рождения и выделение данных жирным курсивом

   
Текст этого примера можно взять здесь.

   
На следующем шаге мы рассмотрим компонент TRxDBLookupList.