aynı olan kayıtları renklendirme
-
- Üye
- Mesajlar: 386
- Kayıt: 02 Tem 2007 09:43
aynı olan kayıtları renklendirme
merhaba arkadaşlar;
cekler isminde bir tablom var. bu tabloda hem giriş hem çıkış kayıtları var, girişi yapılan kaydın bir zaman sonra çıkışıda yapılmakta girişi yapılan bir çekin çıkışı yapılıca hem giriş kaydının hemde çıkış kaydının ÇEKNO VE BANKAADI alanı kontrol edilerek aynı renge boyanmasını istiyorum.
herkese çalışmalarında başarılar;
cekler isminde bir tablom var. bu tabloda hem giriş hem çıkış kayıtları var, girişi yapılan kaydın bir zaman sonra çıkışıda yapılmakta girişi yapılan bir çekin çıkışı yapılıca hem giriş kaydının hemde çıkış kaydının ÇEKNO VE BANKAADI alanı kontrol edilerek aynı renge boyanmasını istiyorum.
herkese çalışmalarında başarılar;
-
- Üye
- Mesajlar: 14
- Kayıt: 07 Oca 2008 12:37
Kişi odur ki, koyar dünyada bir eser. Eseri olmayanın yerinde yeller eser./Muhammed Hadimi
http://www.ibrahimkutluay.net
http://www.ibrahimkutluay.net/blog
http://www.ibrahimkutluay.net
http://www.ibrahimkutluay.net/blog
-
- Üye
- Mesajlar: 386
- Kayıt: 02 Tem 2007 09:43
-
- Üye
- Mesajlar: 386
- Kayıt: 02 Tem 2007 09:43
haklısın. o kod ehlib içindi unutmuşum ama mantık aynı.
ondrawcolumncell
ondrawdatacell ikisinden biri ile dene işini görür
ondrawcolumncell
ondrawdatacell ikisinden biri ile dene işini görür
Kişi odur ki, koyar dünyada bir eser. Eseri olmayanın yerinde yeller eser./Muhammed Hadimi
http://www.ibrahimkutluay.net
http://www.ibrahimkutluay.net/blog
http://www.ibrahimkutluay.net
http://www.ibrahimkutluay.net/blog
-
- Üye
- Mesajlar: 386
- Kayıt: 02 Tem 2007 09:43
procedure TFRMCEK.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
IF DBGRID1.DataSource.DataSet.FieldByName('CEKNO').AsString =DBGRID2.DataSource.DataSet.FieldByName('CEKNO').AsString
THEN
BEGIN
DbGrid1.Canvas.Font.Color := clNavy;
DbGrid1.Canvas.Brush.Color := clSkyBlue;
DbGrid1.Canvas.FillRect(Rect);
DbGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
END;
end;
yukarıdaki kodu kullandim sadece ilk kayıt için renklendirme yaptı diğer kayıtlar için yapmadı. Aşağıda anlatmaya çalışayım.
dbgrid1 de aşağıdaki gibi kayıtlar var,
111
222
333
dbgrid2 de aşağıdaki gibi kayıtlar var,
111
222
dbgrid1 de 111 kayıtları boyandı 222 kaydı boyanmadı.
kolay gelsin;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
IF DBGRID1.DataSource.DataSet.FieldByName('CEKNO').AsString =DBGRID2.DataSource.DataSet.FieldByName('CEKNO').AsString
THEN
BEGIN
DbGrid1.Canvas.Font.Color := clNavy;
DbGrid1.Canvas.Brush.Color := clSkyBlue;
DbGrid1.Canvas.FillRect(Rect);
DbGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
END;
end;
yukarıdaki kodu kullandim sadece ilk kayıt için renklendirme yaptı diğer kayıtlar için yapmadı. Aşağıda anlatmaya çalışayım.
dbgrid1 de aşağıdaki gibi kayıtlar var,
111
222
333
dbgrid2 de aşağıdaki gibi kayıtlar var,
111
222
dbgrid1 de 111 kayıtları boyandı 222 kaydı boyanmadı.
kolay gelsin;
benim dediğim öneri tek grid içindir sende iki gridmi var? daha açık anlatırsan yardımcı olalım.
Kişi odur ki, koyar dünyada bir eser. Eseri olmayanın yerinde yeller eser./Muhammed Hadimi
http://www.ibrahimkutluay.net
http://www.ibrahimkutluay.net/blog
http://www.ibrahimkutluay.net
http://www.ibrahimkutluay.net/blog
-
- Üye
- Mesajlar: 386
- Kayıt: 02 Tem 2007 09:43
yukarıdaki kodu kullandığım zaman iki dbgridin sadece ilk kayıtları için renklendirme yapıyor diğer kayıtlar için yapmıyor. iki dbgridin kayıtlarını karşılaştırıp CEKNO su aynı olanları mavi yapsın;
Aşağıda anlatmaya çalışayım.
dbgrid1 de aşağıdaki gibi kayıtlar var,
111
222
333
444
555
dbgrid2 de aşağıdaki gibi kayıtlar var,
111
222
333
aaa
bbb
111,222,333 kayıtlarını hem dbgrid1 de hemde dbgrid2 de mavi renge boyanmasını istiyorum.
444,555 ve aaa,bbb kayıtları da normal renklerinde kalacaklar.
tşk.
Aşağıda anlatmaya çalışayım.
dbgrid1 de aşağıdaki gibi kayıtlar var,
111
222
333
444
555
dbgrid2 de aşağıdaki gibi kayıtlar var,
111
222
333
aaa
bbb
111,222,333 kayıtlarını hem dbgrid1 de hemde dbgrid2 de mavi renge boyanmasını istiyorum.
444,555 ve aaa,bbb kayıtları da normal renklerinde kalacaklar.
tşk.
üstad ilk mesajını 100 kere okusam yukardaki mesajını çıkaramam.... bu işlem için döngü içinde kayıtları karşılaştırman gerek ama kullanacağın event gene aynı
Kişi odur ki, koyar dünyada bir eser. Eseri olmayanın yerinde yeller eser./Muhammed Hadimi
http://www.ibrahimkutluay.net
http://www.ibrahimkutluay.net/blog
http://www.ibrahimkutluay.net
http://www.ibrahimkutluay.net/blog