VPF::Цвет определенной строки в DBGrid

AntonStr

Дата 7.6.2008, 03:01 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 17.5.2008

Репутация: нет
Всего: нет

Здравствуйте.

Пишу такой запрос на обработчик нажатия CheckBox1:

Код


begin
  if CheckBox1.Checked=false then
      begin
         Form1.ADOQuery1.Close;
         Form1.ADOQuery1.SQL.Text:='Select * from Сотрудники';
         Form1.ADOQuery1.Open;
    end
  else
   begin
    Form1.ADOQuery1.Close;
    Form1.ADOQuery1.SQL.Text:='Select * from Сотрудники where Статус="уволен"';
    Form1.ADOQuery1.Open;
   end

end;

Так вот, как выделить строки в DBGrid, с уволенными сотудниками, красным цветом?

Deniz

Дата 7.6.2008, 08:03 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1251
Регистрация: 16.10.2004
Где: Новый Уренгой

Репутация: 8
Всего: 44

Смотри событие грида OnDrawDataCell/OnDrawDataColumn

--------------------

"Для того чтобы сделать шаг вперед, достаточно пинка сзади" (с)

Savek

Дата 7.6.2008, 08:13 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 355
Регистрация: 10.4.2006
Где: Воронеж

Репутация: 7
Всего: 7

Код


procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
with DBGrid1 do
if DataSource.DataSet.Active then
  if DataSource.DataSet.FieldByName('Статус').AsString='Уволен' then
     Canvas.Brush.Color:=clRed;
     DefaultDrawColumnCell(Rect,DataCol,Column,State);
  end;

AntonStr

Дата 9.6.2008, 00:20 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 17.5.2008

Репутация: нет
Всего: нет

Цитата(Savek @ 7.6.2008, 08:13)

Код


procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
with DBGrid1 do
if DataSource.DataSet.Active then
  if DataSource.DataSet.FieldByName('Статус').AsString='Уволен' then
     Canvas.Brush.Color:=clRed;
     DefaultDrawColumnCell(Rect,DataCol,Column,State);
  end;

А как сделать, чтобы при запуске программы у меня на форме в гриде отображались только те строки, где статус "работает" ?

Rodman

Дата 9.6.2008, 10:00 (ссылка)

(нет голосов)

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 22
Всего: 122

в запросе предусмотри это!

--------------------

CRM с функцией АвтоОбзвона

Лотереи мира

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »