Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 2/5 - 1 oy
  • 1
  • 2
  • 3
  • 4
  • 5
adoquery dbgrid içindeki datalara if else ile kontrol ettirmek
#1
Merhaba arkadaşlar,
Ben dbgrid içerisinde anlık görüntülenen kayıt içeriside, örnek veriyorum dbgrid 3 kolonunda görüntülenen 3 veya 4 satırında, birde if ile veri kontrolü yaptırmak istiyorum bunu nasıl yapabilirim yardımcı olursanız sevinirim.

if dbgrid1.column[4].text = 'Görevde' and dbgrid1.column[2].text = 'Planlandı' then
begin

showmessage ('bu veriler işlemde lütfen alanları kontrol ediniz')

end
else

çalıştırılacak kodlar

end;
Cevapla
#2
Böyle birşey mi demek istediğin acaba

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
 if (Column.Field.FieldName = 'OdemeAlan') then
 begin
   if Column.Field.AsString = 'Ödendi' then
   begin
     dbgrid1.Canvas.Font.Color := clBlue;
     dbgrid1.Canvas.Font.Style :=[fsBold];
     dbgrid1.Canvas.FillRect(Rect);
     dbgrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
   end
   else
   begin
     dbgrid1.Canvas.Font.Color:= clRed;
     dbgrid1.Canvas.FillRect(Rect);
     dbgrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
   end;
 end;
end;
Cevapla
#3
merhaba öncelikler teşekkürler üstadım istediğim bu değil..

hocam ben X numaralı plaka'nın diğer kolonu olan gorevi alanında eğer görevde yazıyorsa aynı X plaka kaydı açılmasın istiyorum bunu nasıl yapabilirim.
Cevapla
#4
var
    plaka : string;
begin
    plaka := '34 HT 2358';


dbGrid1.DataSource.DataSet.First;


while not dbGrid1.DataSource.DataSet.Eof do
begin

      if  (dbgrid1.Fields[3].Text)=plaka) and  (dbgrid1.Fields[4].Text)='Görevde') then
      begin
                  ShowMessage('Yazılan plaka görevde. Lütfen başka plaka seçin'); Abort;
      end 
          else
      begin
                  // Kodlar
      end;

      dbGrid1.DataSource.DataSet.Next;

end
Cevapla
#5
(01-11-2016, Saat: 00:49)CaglarCoskun Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
var
    plaka : string;
begin
    plaka := '34 HT 2358';


dbGrid1.DataSource.DataSet.First;


while not dbGrid1.DataSource.DataSet.Eof do
begin

      if  (dbgrid1.Fields[3].Text)=plaka) and  (dbgrid1.Fields[4].Text)='Görevde') then
      begin
                  ShowMessage('Yazılan plaka görevde. Lütfen başka plaka seçin'); Abort;
      end 
          else
      begin
                  // Kodlar
      end;

      dbGrid1.DataSource.DataSet.Next;

end

teşekkürler hocam Big Grin
Cevapla
#6
Rica ederim yardımcı olabilmiş isem ne mutlu
Cevapla

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  dbgrid de sağ sol tuşlarını kullanma erdogan 6 213 03-04-2018, Saat: 18:40
Son Yorum: erdogan
  DLL içindeki Fonksiyonları Listeleme dicle_gsm 2 153 05-02-2018, Saat: 02:37
Son Yorum: dicle_gsm
  DBGrid Columns Otomatik Boyutlandırma hyperxman 7 352 23-01-2018, Saat: 10:00
Son Yorum: Cyber
  Windows Servislerini Kontrol Etmek tgural 4 314 09-10-2017, Saat: 13:21
Son Yorum: SimaWB
  DbGrid To Excel & DataSet To Excel yhackup 8 891 31-03-2017, Saat: 12:19
Son Yorum: mcuyan



Konuyu Okuyanlar: 1 Ziyaretçi