Buttonlara Db den bilgi okutmak yazmak??

[spoke25]

Selamun aleykum?
Bazi buttonlarım Var sıradan bildiginiz butonlar Ben bunlara dbden Bilgi okutmak istiyorum. Yanii uzerlerindeki resimleri degistirmek istiyorum. Bir image list Nesnem var dort adet resim var her butonun icin dort durumu temsil eden resimler bunlar.
dateset dsbrowse durumunda iken butonlar uzerindeki resimlerde degisecek. nasil yapabilirim boyle birseyi

[MakPRO]

cevabını aramayı kullanarak bulabilirsin. bu sorular birden fazla cevaplandı diye biliyorum . Kolay gelsin

[rsimsek]

evet bu soruyu ben de hatırlıyorum

[spoke25]

Ne diyerek ariyacam onuda soyleyindee tamm olsun Hocam O zaman Neyse Tamam

[NewMember]

Belki bu işinizi görür.

Kod: Tümünü seç

if IBDataSet1.State in[dsedit] then
begin
//Eğer edit modda ise
  ToolButton1.ImageIndex:=0;
end
else  if IBDataSet1.State in[dsinsert] then
begin
//Eğer kayıt ekleme modunda ise
  ToolButton1.ImageIndex:=1;
end
else  if IBDataSet1.State in[dsbrowse] then
begin
//Eğer sörf modda ise
  ToolButton1.ImageIndex:=2;
end;

Kolay gelsin.

[spoke25]

Tesekuur ederim Ama Olay Biraz daha farklı.. Db Kontrou olmyan nesneler dusunun Dataset kayıtlarda gezdiginde nasil bu kaytları Db olmayan kontrollere aktarabilirim. datasource un on state Olayı ile ypılıyor fakat ds browse veya ds inserte olaylarında farklı davranıyor.

[NewMember]

Aslında bu kod ile sizin söylediğiniz arasında bir fark yokki.
Siz sorunuzda datasetin durumuna göre butonlarımın resimlerini değştiricem demişsiniz.Yani kayıt modda ise buton üzerinde farklı bir resim mesela disket işareti eğer kayıt modda değilse de başka bir resim mesela ünlem işareti vs.vs.Sorunuzdan bu anlam çıkıyor.ve verdiğim kodda bunu yerine getirir.Ancak ben butonların bu durumlara göre caption özelliklerini de değiştiricem dersen koda küçük bir ekleme yapalım.

Ve mesela burada db özelliği olmayan ToolButtonun caption özelliğine dbden bir bilgi çekelim.

Kod: Tümünü seç

if IBDataSet1.State in[dsedit] then 
begin 
//Eğer edit modda ise 
  ToolButton1.ImageIndex:=0; 
ToolButton1.Caption:=IbDataset1.FieldbyName('Databaseden Okutmak İstediğin Field').AsString;
end 
else  if IBDataSet1.State in[dsinsert] then 
begin 
//Eğer kayıt ekleme modunda ise 
  ToolButton1.ImageIndex:=1; 
  ToolButton1.Caption:=IbDataset1.FieldbyName('Databaseden Okutmak İstediğin Başka Bir Field').AsString;
end 
else  if IBDataSet1.State in[dsbrowse] then 
begin 
//Eğer sörf modda ise 
  ToolButton1.ImageIndex:=2; 
ToolButton1.Caption:=IbDataset1.FieldbyName('Databaseden Okutmak İstediğin Başka bir Field').AsString;
end;

Sorunuzdan ben bunu anladım eğer aradığınız bu değilse daha açıklayıcı bilgi yazmalısınız.Kolay gelsin.

[aLonE CoDeR]

Selamlar.
Eğer komplike birşey düşünüyorsanız, yani ileride sık kullanmak ya da büyük projelerde önemli noktalarda kullanmak gibi bi düşünceniz varsa bence yeni bi buton türetip datalink gömmek kaydıyla dataset destekli kendi butonunuzu yazmanız en mantıklı çözüm bence..

Kolay gelsin..

[spoke25]

Burada data setin insert edit veya browse ozellikleri ile ilgili durmlarıı kontrol ettieriyoruzz.. Fakat Ben
Dbden veri girisi yapma noktasında ola farklı benc.
Bir table da ki degislkenler. integer degerler var 1 To 5 e kadar farklı degerler var Her sayı İmage listeki bir remi ifade ediyor

Kod: Tümünü seç

    A  B   C  
    1   5   4
    2   2   3 

data set birinci kayda geldiginde Butonun uzerindeki resim faklı olacak ikinci kayıtta farklı..


Daha nasil anlatabilirm bilmiyorum.. yapıcaz birseyler

[NewMember]

Kod: Tümünü seç

ToolButton1.imageindex:=IBDataset1.FieldByName('A').asInteger;

Dataset değiştiğinde A alanında 2 varsa imagelistteki 2 nolu resim toolbuton yerleşir 3 varsa 3 4varsa 4.

[spoke25]

İligine tesekur ederim Oncelikle

Kod: Tümünü seç

  ToolButton1.imageindex:=IBDataset1.FieldByName('A').asInteger

Buttonun herhangi bir Db nesnesi gibi davranması icin hangi nesnenin Hangi olyına yazmamız gerekiyor ?

[NewMember]

DataSource nesnesinin OnChange yordamı