دخول

merouane · 25-05-2008, 10:20 AM

لدي ملاحظة مكملة للسابقة

من الأفضل ، ولكي نستفيد من الملف INI أكبر قدر ممكن نجعل rep في الملف السابق تحتوي على الوجهة الكاملة للجدول، مثلا : 'C:\MyProject\Datas'
طبعا المستعمل يستطيع تغيير مكان قاعدة البيانات أين يشاء (مثلا FlashDisk) لكن دائما نحفظ الوجهة في الملف INI

ثم في الكود

كود :
procedure TForm1.FormCreate(Sender: TObject);
begin
//flash
ShockwaveFlash1.Movie := ExtractFilePath(Application.ExeName) + 'swf\movie.swf';
//Alias
RepExe:=ExtractFilePath(Application.EXEName);
FichierIni:=TIniFile.Create(repexe+'test.ini');
rep:=fichierini.ReadString('base','rep','nonbd');
if rep='nonbd' then
  showmessage('Chemin pour la base de données non valide')
 else
  begin
       table1.DatabaseName:=Rep;
     table1.TableName:='data.DB';
     table1.Active := true ;
   end ;
end;

الآن ضع قاعدة البيانات في FlashDisk ، و أدخل الوجهة في الملفINI عند Rep

و نفذ البرنامج

منه للمستعمل حرية تغيير مكان قاعدة البيانات (طريقة لزيادة الحماية)

تحياتي Smile

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