اذهب الي المحتوي
أوفيسنا

استكمال برنامج ارشفة


الحلبي

الردود الموصى بها

اولا كل عام وانتم بخير

استكمال لموضوع الارشفة والذي قام بمساعدتي فيه استاذنا / ابا جودي واستاذنا / محمد ايمن  جزاهم الله خير والاستاذ/   SANDANT

ارجو تطبيق برنامج الارشفة للاستاذ/ ابا جودي  علي المرفق

HALABI.rar

رابط هذا التعليق
شارك

3 ساعات مضت, حلبي said:

اولا كل عام وانتم بخير

استكمال لموضوع الارشفة والذي قام بمساعدتي فيه استاذنا / ابا جودي واستاذنا / محمد ايمن  جزاهم الله خير والاستاذ/   SANDANT

ارجو تطبيق برنامج الارشفة للاستاذ/ ابا جودي  علي المرفق

HALABI.rar

اهلا اهلا اهلا اخونا الحبيب الاستاذ @حلبي بعد ما قال فى موضوعه السابق ان فرحان ويحتاج الى القليل من التعديلات يعود الينا بعد غياب اولا كل عام وانتم بخير ان شاء الله وكل عام وانتم الى الله تعالى اقرب باقتراب حلول شهر رمضان المعظم

وبخصوص المرفق ابشر بالخير ان شاء الله تعالى سأعود اليكم بعد تحميل وتفقد المرفق ان شاء الله 

تم تعديل بواسطه ابا جودى
رابط هذا التعليق
شارك

واصبح طلب حضرتك جاهز

ان شاء الله يكون ده طلبك
ولو فى اى شئ لا تخجل فقط تدلل وتمنى :fff::fff:

الارشفة بدون اعداد برنامج - IrfanView.rar

  • Like 1
رابط هذا التعليق
شارك

استاذي العزيز @ابا جودى رمضان كريم ان شاء الله عليك وعلى اخي حلبي وعلى جميع الاخوة والاساتذة الكرام في هذا المنتدى .. لدي ملاحظة بسيطة وهي هل جربت ازالة ملف TWAIN32d.dll وتشغيل البرنامج؟؟ اعتقد بأننا لن نحتاجه 

تم تعديل بواسطه sandanet
  • Like 1
رابط هذا التعليق
شارك

12 ساعات مضت, sandanet said:

استاذي العزيز @ابا جودى رمضان كريم ان شاء الله عليك وعلى اخي حلبي وعلى جميع الاخوة والاساتذة الكرام في هذا المنتدى .. لدي ملاحظة بسيطة وهي هل جربت ازالة ملف TWAIN32d.dll وتشغيل البرنامج؟؟ اعتقد بأننا لن نحتاجه 

اهلا اهلا اهلا اخى الحبيب استاذ @sandanet وبعد كل عام وانتم بخير لا ولكن سأجرب واوفيكم بالنتيجة بعد التجربة ان شاء الله

رابط هذا التعليق
شارك

ايه الحلاوة دي ....................... الله يفتح عليك ويرحم والديك

الاخ الغالي / استاذ / ابا جودي

اليوم هو الجمعة واجازة من العمل ولكني ذهبت مخصوص لمكان عملي بعد صلاة الفجر للتجربة

الحمد لله تمكنت من الاضافة الي برنامجي وكله تمام ...... كان هناك شوية مشكلات بسيطة ولكني تغلبت عليها مثل : عند الضغط علي زر الاسكان يبدأ في اخذ الصور علي طول دون ان يفتح لي الاداة المساعدة والتي اختار منها سحب اكثر من صورة .

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

  • يوجد كثير من الوحدات النمطية هل يمكن اختصاراها وازالة ماهو ليس له فائدة بعض اختصار البرنامج علي الصادر فقط ، من الملاحظ من اسم الوحدة النمطية ليس لها دور الآن

مثل mod_Delete_Files  وغيرها من الوحدات الغير مستفاد منها في برنامجي الصغير. ياريت استاذي العزيز ان نختصر بقدر الامكان من عدد الوحدات النمطية .

  • هل يمكن عند الضغط علي زر " استعراض ملف المرفقات" ولم يوجد للرقم الصادر اي صور ان يعطي رسالة " هذا الرقم ليس له اي صور "
  • لماذا عند اخذ صورة من الكمبيوتر " في زر "ادراج مرفقات من الكمبوتر " لا يدعم الصور التي من نوع  PDF ويعطي في مجلد الصور غير متاح
  • بعض الاكواد داخل الفيجوال غير مستخدمة وانا خايف احذف شئ لا يعمل البرنامج معي . مثل اكواد ملف الوارد وغيرها 
  • ان امكن اختصار الاكواد الغير مستخدمة .
  • انا حذفت الاداة التي ذكرها استاذ / SANDANET وفعلا لم يكن لها اي تأثير وعمل البرنامج عادي

ومهما يكن من شئ ليس لدي الا الدعاء لك بان الله يحفظك ويزيدك من علمه ويرحم والديك 

خصوصا في هذه الايام المباركة وان رمضان غدا ان شاء الله ادعو الله ان يبارك فيك وفي علمك 

رابط هذا التعليق
شارك

يوجد كثير من الوحدات النمطية هل يمكن اختصاراها وازالة ماهو ليس له فائدة بعض اختصار البرنامج علي الصادر فقط ، من الملاحظ من اسم الوحدة النمطية ليس لها دور الآن
لا يوجد وحده نمطية الان ليس لها اى دور

مثل mod_Delete_Files وغيرها من الوحدات الغير مستفاد منها في برنامجي الصغير. ياريت استاذي العزيز ان نختصر بقدر الامكان من عدد الوحدات النمطية .
هذه الوحدة النمطية تحذف المرفقات لو حذنا السجل  :wink2:  ها محتاج نحذفها براحتك لكن عند حذف سجل محدد يبقى مجلد المرفقات كما هو بالمرفقات
جرب زر الامر حذف سجل وتأكد ان لهذا الرقم مرفقات وعندما يطالبك بكلمة مرور الحذف " 123"

هل يمكن عند الضغط علي زر " استعراض ملف المرفقات" ولم يوجد للرقم الصادر اي صور ان يعطي رسالة " هذا الرقم ليس له اي صور "
نعم ممكن ذلك غير الكود على زر الامر  " استعراض ملف المرفقات" بالكود الاتى

Dim attash_file As String
attash_file = db_path() & "archives\" & "sader\" & [ID] & "\"
If Dir(attash_file, vbDirectory) = "" Then
MsgBox "هذا الرقم ليس له اي صور"

Else

ShellExecute attash_file
End If


لماذا عند اخذ صورة من الكمبيوتر " في زر "ادراج مرفقات من الكمبوتر " لا يدعم الصور التي من نوع PDF ويعطي في مجلد الصور غير متاح
مين قال الكلام ده البرنامج يقبل اى مرفق باى امتداد حتى لو كان  exe

بعض الاكواد داخل الفيجوال غير مستخدمة وانا خايف احذف شئ لا يعمل البرنامج معي . مثل اكواد ملف الوارد وغيرها
انا فعلا كنت ناسي كود واحد فقط 
الان لا يوجد اى اكواد غير مستخدمه راجعت كل الاكواد

وحتى لا اشق عليك اليك المرفق بعد التعديل لا يوجد كود غير مستخدم ولا يوجد وحده نمطيه بلا فائده

 

halabi.rar

  • Like 3
رابط هذا التعليق
شارك

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information