تطبيق صغير لتسير مكتبة

[kachwahed]

انتبه على المسارات الثابتة، عوض:

كود :

C:\Bibliotheque\Data\Biblio.mdb

بـ:

كود :

.\Data\Biblio.mdb

وتأكد من غلق الاتصال بقاعدة البيانات قبل غلق البرنامج

الآن، حمل من الرابط UPX السابق الملف upx307w.zip
استخرج منه الملف upx.exe وضعه في نفس مجلد برنامجك Biblio.exe
قم من خلال سطر الأوامر بتنفيذ:

PHP كود :

upx Biblio.exe -9 --best --no-reloc 


بالتوفيق.

[محمد عبد العزيز]

كلامك يشبه الالغاز

استفسر فهو مجاني

انت تستخدم دلفي 7، من البديهي تملك قرص CDROM أو أكثر به دلفي 7، من القرص يمكنك تثبيت دلفي، القرص يحتوى دلفي وملفات اخرى، منها ما هو نصي ومنها ماهو PDF حسب اصدار دلفي... المهم ضمن تلك الملفات تجد الحديث عن Deployment اي جعل تطبيقك يعمل على اجهزة اخرى، تجد به باختصار ان التطبيق يعمل باي جهاز اخر وفي حال استعمالك لمكتبات خاصة عليك بتثبيتها او نسخها بجهاز المستخدم.

http://www.delphi4arab.net/forum/showthread.php?tid=320
http://www.delphi4arab.net/forum/showthread.php?tid=704
http://www.delphi4arab.net/forum/showthr...p?tid=2388

أيضا
http://www.delphi4arab.net/forum/showpos...ostcount=4

عامة برنامجك هذا احسن من برنامجك السابق ويمكنك برمجة احسن منه، هذه بعض الملاحظات من تجربة سريعة للبرنامج:

عند الضغط على الزر X اعلى البرنامج يخرج مباشرة، بينما عند الضغط على Fichier/Quitter يسال المستخدم!

اختصارات الازرار، F2/F3/F4...
F3 لتنفيذ البرنامج اول مرة ثم نجد F3 للتعديل Modifier نم نجد F3 Valider بنوافذ اخرى واخرى F3 Supprimer
حاول استخدام نفس المفتاح لنفس الغرض حتى يمكن للمستخدم التعود عليها

بالنسبة لاستعارة الكتب emprunt فهي بحاجة لاعادة تصميم كلي

[Anter2010]

[COLOR="RoyalBlue"] السلام عليكم و رحمة الله تعالى و بركاته
مشكورين الاخوة الاعزاء على كل التوجيهات و النصائح القيمة
اخي Kachwahed استسمحك ان توضح لي قليلا فانا لم يسبق لي و ان تعاملت مع هذه الافكار [/COLOR]

كود :

upx Biblio.exe -9 --best --no-reloc

[COLOR="royalblue"]بصراحة اكثر اين يجب ان اضع هذا الكود
بخصوص اخي عبد العزيز يعجبني فيك انك صريح ولا تجامل ابدا
حقيقة انني احسست من واجهة الاعارة انها اكثر تعقيد فيجب ان تكون اكثر بساطة اليس كذالك
اما بخصوص مسار البرنامج قد وضعت الكود التالي [/COLOR]

كود :

procedure TData.DataModuleCreate(Sender: TObject); begin Base.Connected := false; Base.Close; Base.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + Getcurrentdir + '/Data/Biblio.mdb;'; Base.Connected:=True; Base.Open; livre.Open; Duplicate.Open; Emprunte.Open; Emprunteur.Open; Auteur.Open; Editeur.Open; Format.Open; Genre.Open; Provenance.Open; Qretard.Open; QImp.Open; end;

[kachwahed]

بصراحة اكثر اين يجب ان اضع هذا الكود

بطريقة أبسط، إسحب ملف برنامجك ثم أفلته على التطبيق upx.exe
عوضا عن:

Base.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + Getcurrentdir + '/Data/Biblio.mdb;';

استخدم:

PHP كود :

ExtractFilePath(Application.ExeName) 


راجع الرابط السابق (المسارات)

[محمد عبد العزيز]

[COLOR="#0000ff"]
أو بطريقة اخرى انسخ UPX.exe داخل مجلد برنامج او احسن داخل مجلد النظام مثلا C:\Windows
وعدل ملفك السابق كما يلي[/COLOR]

كود :

@echo off del *.~* /s del *.dcu /s del *.map /s del *.ddp /s del *.dti /s del *.dof /s del *.cfg /s del *.bak /s del *.stat /s echo Clean Delphi 2009/2010 files... del *.local /s del *.identcache /s del *.2007 /s del *.tvsconfig /s attrib __history -h rd __history /s /q cls Echo Compressing... [color=Blue]upx Biblio.exe --best --no-reloc[/color] del *.bak exit

[Anter2010]

شكرا لكم على المعلومات الاضافية كلتا الحالتين نجحتا معي طريقة السحب و الافلات و طريقة الاخ عبد العزيز و حصلت على 1.27 m بدلا من 2.65
[COLOR="royalblue"] ساجرب فيما بعد المسارات لانني اول مرة اتاعمل مع اكسس
السلام عليكم [/COLOR]

[محمد عبد العزيز]

ملاحظتين:
- بالنسبة للمسار: ليس شرطا وضع القاعدة بمجلد Data يمكن وضعها بنفس مجلد البرنامج وعند الاتصال اكتب فقط اسم القاعدة
-بالنسبة للضغط: عند التنفيذ البرنامج المضغوط يستهلك ذاكرة أكثر من غير المضغوط!

[Anter2010]

الحقيقة يا استاذنا انا استفيد منك كثيرا و اقدر ما تقدمه لهذا المنتدى الله يجعله في ميزان حسناتك

[kachwahed]

استخدم الزر شكرا دلفي
لا تشكرني أنا

[S.FATEH]

السلام عليكم

ما شاء الله عمل جيد بالتوفيق اخ عنتر

سلامي