دخول

laoubi_adel · 24-09-2012, 10:29 PM

انصحك باستخدام الملفات مع الصور وربطها بقاعده البيانات

حيث
تقوم بانشاء ملف يدعى MASTERE
وتقوم بوضع الصور فيه وتقوم بتسميه الصور حسب ارقام التسجيلات مثال
رقم الطالب محمد علي هو clé=10012
يعني لازم تسمي صورته الشخصيه الموضوعه في الملف IMAGES بنفس الرقم 10012
لنفرض ان ملف الصور موجود في المسار التالي
'd:\hpp\mastere

.وهنا طبق الامر التالي :

كود :
procedure TForm1.ADOTable1AfterScroll(DataSet: TDataSet);
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;
end;

ملاحظه : يجب انشاء الملف VIDE.BMP في ملف الصور ليقوم بعرضه في حاله عدم وجود الصوره الموافقه

وهكذا تكون قد حققت عملا طيبا دون تعبئه قاعده البيانات بالصور وقد تتسبب في ثقلها وصعوه التعامل معها في حاله امتلائها

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة