никак неполучается обновить dbgrid

[undead92]

использую базу access у меня есть dbgrid а в нем процедура, которая при окраске ячейки (окрашивается она по разному по наступлению даты) выводит на форму label с текстом и в зависимости от цвета(а значит и даты) текст всегда разный.

проблема заключается в том что когда наступает одна дата текст вылазиет, потом вторая то вылазиет другой текст, но при этом этот остается!!!!!!!

А самое главное что если выйти из проги и зайти то все супер, выходит нужно обновить грид или его процедуры, процедуры не знаю как , а сам грид, адо конектион все перепробывал ни черта только с презапуском программы

[vovk]

Может вы лучше покажите кусок кода, где всё это происходит.
А то я слабо понял допустим что значит
1

у меня есть dbgrid а в нем процедура

что значит в нём процедура? это обработчик какого то события?
2

выводит на форму label с текстом

это как? создаёт новый, делает видимым заранее подготовленный?
3

проблема заключается в том что когда наступает одна дата текст вылазиет

что значитнаступает дата? где наступает?

ЗЫ телепатну,
вы создаёте label программно, а потом не уничтожаете его, или не меняете его текст, а просто создаёте ещё 1.

[undead92]

нет у меня заготовлены 3 label с текстом все невидимы

в дбгриде есть дата, за один день до которой, в день которой, по истечении которой меняется цвет ячейки в гриде и на форме 1 из 3 label взависимости от события показывается.



когда например я ставлю в грид 20 число текст проявляется с надписью НАСТУПИЛО , потом меняю число на 23 появляется надпись ПРОСРОЧЕНО , беда в том что НАСТУПИЛО тоже остается и убирается только после презапуска программы

вот код







procedure TForm13.DBGrid1DrawColumnCell(Sende r: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);


var
day, month, year : word;
begin
if Column.Field.FieldName = 'oplachenodo' then begin
DecodeDate( Column.Field.AsDateTime, year, month, day );
// заранее
if (Column.Field.AsDateTime > Now) and
(DaysBetween(Now, EncodeDate( YearOf(Now), month, day )) = 0) then
TDBGrid(Sender).Canvas.Brush.Color := clYellow;

if (Column.Field.AsDateTime > Now) and
(DaysBetween(Now, EncodeDate( YearOf(Now), month, day )) = 0) then
label9.Visible:=true ;


//сегодня
if (Column.Field.AsDateTime < Now) and
(DaysBetween(Now, EncodeDate( YearOf(Now), month, day )) = 0) then
TDBGrid(Sender).Canvas.Brush.Color := clRed ;
if (Column.Field.AsDateTime < Now) and
(DaysBetween(Now, EncodeDate( YearOf(Now), month, day )) = 0) then
label8.Visible:=true;


//просрочили!
if (Column.Field.AsDateTime < Now)

then
TDBGrid(Sender).Canvas.Brush.Color := clred ;
if (Column.Field.AsDateTime < Now)
then label10.Visible:=true;





end;
TDBGrid(Sender).Canvas.FillRect(Rec t);
TDBGrid(Sender).Canvas.TextRect(Rec t,Rect.Left+2,Rect.Top+2,Column.Fie ld.Text);

[undead92]

я помню что в институте как то делали обновление процедуры, то есть если бы она опять заново сработала то показывала бы правильны текст

[undead92]

даже помню как то так выглядело

form13.DBGrid1DrawColumnCell(refres h);

[vovk]

// заранее
.......
.... then
begin
label9.Visible:=true;
label8.Visible:=false;
label10.Visible:=false;
end;
//сегодня
.........
.... then
begin
label8.Visible:=true;
label9.Visible:=false;
label10.Visible:=false;
end;

//просрочили!
........
....then
begin
label10.Visible:=true;
label8.Visible:=false;
label9.Visible:=false;
end;

вы их отображаете, а потом не прячете.

Уж не знаю для чего вы так всё это используете, ну да ладно.

[SovereignSun]

а вообще для обновления следуют юзать Refresh.

[undead92]

Сообщение от vovk

// заранее
.......
.... then
begin
label9.Visible:=true;
label8.Visible:=false;
label10.Visible:=false;
end;
//сегодня
.........
.... then
begin
label8.Visible:=true;
label9.Visible:=false;
label10.Visible:=false;
end;

//просрочили!
........
....then
begin
label10.Visible:=true;
label8.Visible:=false;
label9.Visible:=false;
end;

вы их отображаете, а потом не прячете.

Уж не знаю для чего вы так всё это используете, ну да ладно.

Все очень просто, это раздел в моей клиентской программе с абонентской платой, то есть когда наступит время им платить или отключать им оборудование, чтобы это выводилось в виде текста крупно а в гриде они подсвечивались, клиентов >тысячи , такая вещь полезна))

Спасибо большое за помощь!