Dbgrid içerisinde
AliRiza24.11.2004 - 15:40:19
Delphi'de adoquery ile parametreye bağlı olarak arama yaptırıyorum.Veritabanında resimlerin yolunu aşağıdaki gibi çağırıyorum.Benim şöyle bir problemim var.Formun show 'una aşağıdaki sql sorgusunu yazdım..
adoquery1.sql.Clear;
adoquery1.close;
adoquery1.SQL.Add('select * from product order by ntno');
adoquery1.Open;


Veritabanında aslında resimlerde var.Ben ayrıca bir edit'e girilene göre sorgulama yapan sorgu yazıp bunu bir butonun click olayına yazdım.

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
adoquery1.SQL.Clear;
adoquery1.Close;
adoquery1.SQL.Add('select * from product where ntno LIKE'+QuotedStr('%'+maskedit2.Text+'%'));
adoquery1.Open;
label1.Caption:=adoquery1.Fields[1].AsString;
picture:=label1.Caption+'.jpg';
edit4.text:=picture;
if adoquery1.RecordCount<>0 then
Begin
image1.Picture.LoadFromFile('C:\resimler\'+edit4.text);
end;
if adoquery1.RecordCount=0 then
begin
ShowMessage('Search query record not found');
end;
dbgrid1.ReadOnly:=false;
end;

end.


Bu şekilde butuna bastıkça kayıt ve resmi geliyor.Benim istediğim dbgrid içerisinde yön tuşları ile dolaşıldıkça kayıta bağlı resmin gelmesi.
Yukarıdaki mantıkla yapmayı düşünüyorum.dbgrid üzerinde seçilen veriyi hangi komut ile alabilirim.****yardımınızı bekliyorum...

*** kodları CODE tagı içine alalım.
*** mesajda acil, önemli, gibi ifadeler kullnamayalım. mege
 
aslangeri24.11.2004 - 16:49:48
S.A.
Buttonun click olayına yazdığın kodları
dbgrid in bağlı olduğu datasetin afterscrool olayına yazarsan olması lazım.
Yanlız dataset in after scrolunda resimleri göstereceğin pencerenin görünüp görünmediğinide kontrol etmen gerekebilir.
Kolay gelsin.
 
Anonymous24.11.2004 - 17:02:15
belki absurt bir metod ama, ben forma bir dbedit koyuyorum . visible := false yapıyorum. bunu ilgili dataset birincil anahtar alanına bağlıyorum ve onchange olayına yazıyorum kodu.
 
NetZero14.12.2004 - 10:07:41
s.a

ilahi mikrocu.... ilahi ... :? Wink
 
NOT : Bu sayfa google'un siteyi indekslemesi içindir. www.delphiturkiye.com/forum/ adresini kullanınız!
1998-2006 www.delphiturkiye.com