|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Помощь с базой данных (цветные ячейки)
Всем доброго времени суток!=)
Возник вопрос, как можно реализовать данную операцию Есть таблица, в которой имеется 2 колонки: Дата и до какого числа. Например дата 21.04.2011, а до какого числа 21.04.2012. Нужно сделать так, чтобы данные ячейки заливались красным цветом когда дата будет достигать 21.03.2012(за месяц до конца) и соответственно будет так до дальнейшего изменения. Зарание благодарю! |
#2
|
||||
|
||||
- Товарищ прапорщик!!! Остановите поезд!!! - Поезд СТОЙ! РАЗ! ДВА! Последний раз редактировалось Viajero, 10.08.2011 в 09:29. |
#3
|
|||
|
|||
Большое спасибо!=)
Но трудность заключается не в этом, а именно "Нужно сделать так, чтобы данные ячейки заливались красным цветом,тогда когда дата будет достигать 21.03.2012(за месяц до конца) и соответственно будет так до дальнейшего изменения." Слабо себе представляю работу с датами.. ведь для каждой ячейки она своя=\ |
#4
|
||||
|
||||
Там же всё написано. Если конкретный вопрос - давайте код, напишите, что не получается. Если не знаете как с датами работать - есть книги по дельфи
http://www.delphisources.ru/forum/showthread.php?t=6221 зы: Вот здесь есть практически всё что нужно и по датам и по бд и по многому другому http://www.delphilab.ru/files/book/DRKB.chm - Товарищ прапорщик!!! Остановите поезд!!! - Поезд СТОЙ! РАЗ! ДВА! Последний раз редактировалось Viajero, 10.08.2011 в 11:01. |
#5
|
|||
|
|||
Кто может оказать помощь с данным вопросом, прошу написать ЛС или в Skype - dreamdddd, естественно не безвозмездно!=)
|
#6
|
|||
|
|||
я пользуюсь такой процедурой перекраски
(привожу как пример) Код:
{-------перерисовка строки просроченные/негодные------------------} procedure TFrameUchet.DBGrid2DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin with IBJurnUcheta do begin if (FieldByName('PlanDat').AsDateTime <= NOW) or (FieldByName('Reslt').AsString = ' - ') or (FieldByName('Reslt').AsString = 'БРАК') or (FieldByName('Reslt').AsString = 'НЕ ГОДЕН') then DBGrid2.Canvas.Font.Color:=clRed; if FieldByName('Reslt').AsString = 'Техобслуж.' then DBGrid2.Canvas.Font.Color:=clFuchsia; if FieldByName('Reslt').AsString = 'Консерв.' then DBGrid2.Canvas.Font.Color:=clYellow; end; //with DBGrid2.DefaultDrawColumnCell(Rect, 1, Column, State); end; |