Assalomu alaykum, yordam.uz saytimizga xush kelibsiz.
Bu saytda o`zingizni qiziqtirgan savollarga javob olishingiz va o`z sohangiz bo`yicha savollarga javob berishingiz mumkin. Bizning Oilamizga a'zo bo`lganingiz uchun chuqur Minnatdorchilik bildiramiz !!!

Delphi 7da DBGridda muddati (sanasi) o'tgan malumotni bildirish

+1 ovoz
54 marta ko‘rilgan
so‘radi 01 yanvar, 18 Farrux (115 bal)
Salom yangi yilingiz muborak bo'lsin Hurmatli Administrator Iltimos Sizdan delphi7ga bir dastur tuzmoqchi edim Men tashkilotda ishlayman Ijro intizomida bir dastur tuzmoqchi man ADOQuery ga kiritilgan arizani bugungi kunda muddati o'tgan bo'lsa DBGrid 1 kun muddati o'tgan yoki 3 muddati qoldi degan kodi yoki isxodnigi kerak iltimos oldindan rahmat
izoh qoldirdi 04 yanvar, 18 Saidolim (3,546 bal)
o`zingiz qilgan urunishlarni ko`rsating, biz sizga to`g`rilashga yordam beramiz
izoh qoldirdi 04 yanvar, 18 Farrux (115 bal)
procedure TForm1.ADOQuery2CalcFields(DataSet: TDataSet);
begin
ADOQuery2kunfarqi.AsString:=ADOQuery2muddati.AsVariant - DateTimePicker1.DateTime;
end; Misol DBGrid da kun farqi -1 ga chiqsa DBGrid Column Qizil rangga o'zgarushu kerak
izoh qoldirdi 13 yanvar, 18 Farrux (115 bal)
Salom Delphi 7 DBgridda -1 ni qizil rangga belgiladi endi qolganlarini ham -2, -3, -4, -5, -6, -7, va hokazo qizil belgilanishi kerak Oldindan katta rahmat

procedure TForm1.DBGrid2DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if (ADOQuery2.FieldByName('kunfarqi').Value=-1) then begin
    with DBGrid2.Canvas do begin
    Brush.Color:=clRed;
    Font.Color:=clWhite;
    FillRect(Rect);
    TextOut(Rect.Left+2, Rect.Top+2, Column.Field.Text);
  end;
  end;
  end;

Iltimos, saytga kiring yoki ro‘yxatdan o‘ting va shunda ushbu savolga javob berishingiz mumkin bo‘ladi.

Assalomu alaykum, yordam.uz saytimizga xush kelibsiz.

Bu saytda o`zingizni qiziqtirgan savollarga javob olishingiz va o`z sohangiz bo`yicha savollarga javob berishingiz mumkin.

Bizning Oilamizga a'zo bo`lganingiz uchun chuqur Minnatdorchilik bildiramiz !!!

Telegram kanal YordamUzRss

...