delphi4arab منتديات دلفي للعرب

جربت هذا الكود ولم ينجح معي الأمر

Image1.Picture:=ADOTable1.FieldByName( 'img')Assign;

ابحث في المنتدي وسوف تجد المزيد
انظر
http://www.delphi4arab.net/forum/showthr...p?tid=6548
http://www.delphi4arab.net/forum/showthr...p?tid=5613

مشكور أخي ولكن المشكة تكمن في زر التعديل أي إني أود إسترجاع الصورة على المكون (Image1) من قاعده البيانات

item_name.Text:=adotable1.fieldbyname('item_name').AsString ; هذا الامر يسترجع إسم الصنف
item_type.Text:=adotable1.fieldbyname('item_type').AsString; وهذا يسترجع النوع
quantity.Text:=adotable1.fieldbyname('quantity').AsString; وهذا يسترجع الكمية
كيف أقم بإسترجاع صورة الصنف؟

اوصيك باستعمال المفات في التعامل مع الصور وقاعده البيانات
مثلا من اجل التعامل مع الصور في قاعده البيانات استعمل مجلد وسمه الصور
وقم بوضع الصور فيه وسم الصور حسب ارقام قواعد البيانت
وعند ما تريد عرض الصوره قم بالبحث عليها حسب رقم الصوره ورقم الموظف

كود :
begin
if ADOTable1.RecordCount>0 then
begin
if FileExists('d:\hpp\mastere\'+ ADOTable1cl .AsString+'.bmp') then
begin
Image1.Picture.LoadFromFile('d:\hpp\mastere\'+ADOTable1.FieldbyName('clé').AsString+'.bmp') ;
end
else
begin
Image1.Picture.LoadFromFile('d:\hpp\mastere\vide.bmp') ;
end;
end;

mohammed77

format82

mohammed77

laoubi_adel