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

[برنامج] عيادة الطبيب - الاصدار الثاني


SEMO.Pa3x

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

السلام عليكم ورحمة الله وبركاته..

اقدم لكم النسخة الثانية من برنامج ادارة عيادة الطبيب..

تم تطبيق أغلب ملاحظاتكم وأقتراحاتكم في النسخة السابقة

النسخة تجريبية تغلق بعد فترة الغرض من طرحها لمعالجة العيوب والأخطاء لكي يتم طرحها فيما بعد..

الرجاء منكم ابداء ملاحظاتكم واقتراحاتكم واضافاتكم وهل النسخة تحتوي على أخطاء؟ لكي اقوم بتحسين النسخة القادمة

كلمة المرور لفتح البرنامج = 313

المميزات الحالية:

1- التصميم responsive يدعم جميع الشاشات الكبيرة والصغيرة

2- طباعة الوصفة الطبية

3- اضافة الادوية ومجاميعها والملاحظات

4- تسجيل بيانات المريض والحجوزات

5- تسجيل المصروفات

6- تعديل الاعدادات

7- اضافة نوع الحجز:

* فحص = لإضافة الادوية للمريض

* استشارة = لإرسال استشارة لطبيب آخر

* دخول = لإرسال المريض الى المستشفى

 

image.png.f9eb2e7aa98ff09be208e5433fecf064.png

 

image.png.62fa0fd407885a9030091b5fd064122c.png

 

image.png.61b4fd997198d274c3d91cf754f876c5.png

 

image.png.a4d36bd294213a2e6e54be54c671a754.png

 

image.png.7e43beab524d92c3d6ed17f9310400fa.png

 

image.png.3feb7a3f7d93faa1e40022f118b0b292.png

 

image.png.1130ee4542d8177f3a7cf51815341d81.png

 

image.png.48f0f7bdb66df4ef5f4282dace1500ca.png

 

تصحيحات كثيرة وتعديل لأخطاء كثيرة قمت بها مع اضافة المزيد من الشروط لحصر وتقليل الأخطاء،

شكرا لكل شخص ابدى رأيه وملاحظاته في النسخة السابقة، وايضا أنتضر ملاحظاتكم في هذه النسخة مع الشكر والتقدير

doctor.rar

تم تعديل بواسطه SEMO.Pa3x
  • Like 2
  • Thanks 1
رابط هذا التعليق
شارك

59 دقائق مضت, abouelhassan said:

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

image.png.62fa0fd407885a9030091b5fd064122c.png

 

في حدث الـ Form_Timer

Private Sub Form_Timer()
    
    ClockNow = Time
     
    If Format(Now(), "hh") <= 12 Then
        txt_DayNight = "صباح الخير"
    Else
        txt_DayNight = "مساء الخير"
    End If
    
    txt_currentDate = Format(Date, "dddd") & ", " & Day(Date) & " " & Format(Date, "mmmm") & ", " & Year(Date)
                               
End Sub

وإجعل التايمر = 1000 أي ثانية واحدة

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

منذ ساعه, SEMO.Pa3x said:

 

في حدث الـ Form_Timer

Private Sub Form_Timer()
    
    ClockNow = Time
     
    If Format(Now(), "hh") <= 12 Then
        txt_DayNight = "صباح الخير"
    Else
        txt_DayNight = "مساء الخير"
    End If
    
    txt_currentDate = Format(Date, "dddd") & ", " & Day(Date) & " " & Format(Date, "mmmm") & ", " & Year(Date)
                               
End Sub

وإجعل التايمر = 1000 أي ثانية واحدة

اتقدم لحضرتك بخالص الشكر والاحترام تم عمل عدد 2 تكست بالفورم

الاولى اسمها txt_DayNight ,الثانية اسمها txt_currentDate وقمت بوضع الكود فى حدث form_timar كما تفضلت حضرتك وشرحت ولم يحدث شئ تظل التكست فارغة هل يوجد شئ ناقص استاذى

اسف جدااا لحضرتك مشكور بارك الله فيك

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

13 ساعات مضت, SEMO.Pa3x said:

ايضا أنتضر ملاحظاتكم في هذه النسخة مع الشكر والتقدير

وعليكم السلام د.حسنين
 

اقتباس

مقتبس من رد سابق في الموضوع الاول

ربما المشكلة الاكبر في حالة الدخول غير المشروع يمكن اجراء تعديلات من اضافة وحذف وتعديل على كافة البيانات

 

للاسف مازال يمكن الدخول بشكل غير شرعي وجربت ثلاث طرق وامكن الدخول والتعديل

  • الدخول مباشرة على الشاشة الرئيسية او شاشة الصلاحيات بدون المرور على شاشة الدخول باستخدام باستخدام قاعدة بيانات اخرى
  • الدخول مباشرة على الشاشة الرئيسية او شاشة الصلاحيات بدون المرور على شاشة الدخول باستخدام ملف دفعي bat عن طريق نقطة الاوامر
  • فتح البرنامج واختيار المستخدم ثم الدخول بدون كلمة المرور

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

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

تحياتي وتقديري

 

kha99.gif

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

42 دقائق مضت, kha9009lid said:

لاسف مازال يمكن الدخول بشكل غير شرعي

وهناك طريقة امساك مفتاح الشفت والدخول في البرنامج 🙂

 

الملاحظات اللي طلبها الدكتور حسنين ، هي ملاحظات مستخدم الاكسس العادي ، مثلي ، عن طريقة استخدام التطبيق😁

بس ملاحظات اخوي خالد تتكلم عن مستوى آخر ، او البُعد التالي ، لأنه خلاص اعطى ملاحظاته "العادية" في موضوع الاصدار الاول 🙂

 

انا شخصيا لا اريد لهذه المناقشة التوقف عند "نعم يصير" او "لا ما يصير" ، فنحن نريد ان نتعلم طرق سد هذه الثغرات من هامتين ارسلهم لنا الله سبحانه وتعالى من "البُعد الآخر" ، فأنتم الاثنين تتكلمون نفس اللغة (طبعا الدكتور حسنين واخوي خالد فاهميني) 🙂

 

جعفر

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

1 ساعه مضت, jjafferr said:

هي ملاحظات مستخدم الاكسس العادي ، مثلي

تواضع من استاذ ومعلم اتشرف باني تلميذ في مدرستكم

فانا طالب علم ( متقاعد 😎 ) لم ولن اصنف نفسي ضمن الاساتذة الذين نتعلم منهم ونكتسب الخبرة

صدقني كل مافي الامر انني تعلمت البرمجة في زمن نظام التشغيل dos وبالتالي لدي قليل من المعرفة ببعض الاوامر والتقنيات القديمة التي تسمح احيانا بتجاوز قيود نظام التشغيل

رحم الله امرئ عرف قدر نفسه

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

4 ساعات مضت, kha9009lid said:

وعليكم السلام د.حسنين
 

 

للاسف مازال يمكن الدخول بشكل غير شرعي وجربت ثلاث طرق وامكن الدخول والتعديل

  • الدخول مباشرة على الشاشة الرئيسية او شاشة الصلاحيات بدون المرور على شاشة الدخول باستخدام باستخدام قاعدة بيانات اخرى
  • الدخول مباشرة على الشاشة الرئيسية او شاشة الصلاحيات بدون المرور على شاشة الدخول باستخدام ملف دفعي bat عن طريق نقطة الاوامر
  • فتح البرنامج واختيار المستخدم ثم الدخول بدون كلمة المرور

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

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

تحياتي وتقديري

 

kha99.gif

 

اقتباس

للاسف مازال يمكن الدخول بشكل غير شرعي وجربت ثلاث طرق وامكن الدخول والتعديل

  • الدخول مباشرة على الشاشة الرئيسية او شاشة الصلاحيات بدون المرور على شاشة الدخول باستخدام باستخدام قاعدة بيانات اخرى
  • الدخول مباشرة على الشاشة الرئيسية او شاشة الصلاحيات بدون المرور على شاشة الدخول باستخدام ملف دفعي bat عن طريق نقطة الاوامر
  • فتح البرنامج واختيار المستخدم ثم الدخول بدون كلمة المرور

اهلا اخي الكريم، شاكر لك كرمك لتجربتك برنامجي وابداء الملاحظات..

الحقيقة انا لست قلق من أمر التعديل والصلاحيات وغيره، ذكرت سابقا النسخة ليست كاملة

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

جميع العمليات التي تتم من حذف وتعديل واضافة كلها عن طريق الكود ومحددة بشروط

لذلك لا احد يستطيع قراءة الأكواد والتعديل عليها، بالاضافة الى ان

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

بالاضافة الى ان النسخة التي سأعطيها للعميل محمية على رقم الهارد ومسجلة من داخل محرر الـ VBA

بدون اللجوء للجداول لانها مكشوفة ومعرضة للتعديل

وأذا اردت تعقيد الأمر أكثر، سأجعل البرنامج لا يعمل الا بعد تخطيك لفورم الدخول لانها سيكتب قيمة runtime ويتم التحقق

منها عند فتح اي فورم اذا كانت True يفتح, العكس يغلق البرنامج

 

تحياتي لك

 

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

4 ساعات مضت, jjafferr said:

وهناك طريقة امساك مفتاح الشفت والدخول في البرنامج 🙂

 

الملاحظات اللي طلبها الدكتور حسنين ، هي ملاحظات مستخدم الاكسس العادي ، مثلي ، عن طريقة استخدام التطبيق😁

بس ملاحظات اخوي خالد تتكلم عن مستوى آخر ، او البُعد التالي ، لأنه خلاص اعطى ملاحظاته "العادية" في موضوع الاصدار الاول 🙂

 

انا شخصيا لا اريد لهذه المناقشة التوقف عند "نعم يصير" او "لا ما يصير" ، فنحن نريد ان نتعلم طرق سد هذه الثغرات من هامتين ارسلهم لنا الله سبحانه وتعالى من "البُعد الآخر" ، فأنتم الاثنين تتكلمون نفس اللغة (طبعا الدكتور حسنين واخوي خالد فاهميني) 🙂

 

جعفر

 

اهلا بالمعلم، بالفعل انا اريد ملاحظات المستخدم العادي حول البرنامج وماهي العيوب والأخطاء لكي اقوم بإصلاحها

ولا اريد الخوض بموضوع الحماية، لان الحماية لم تخلق إلا لكي تُخترق

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

20 ساعات مضت, SEMO.Pa3x said:

لا اريد الخوض بموضوع الحماية، لان الحماية لم تخلق إلا لكي تُخترق

لماذا تظهر معى هذه الرسالة بعد وضح كلمة المرور

image.png.384633b59a4a8c334b2d2ade61e6f74e.png

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

في ٢‏/٧‏/٢٠٢١ at 23:57, SEMO.Pa3x said:

اريد ملاحظات المستخدم العادي

اثناء تجوالي في نماذج برنامجك ، تعودت ان الزر الاحمر للخروج من النموذج ، واذا بعد النقر على الزر الاحمر في احد النماذج ، اتضح انه لحذف السجل ، وكنت قد حذفته بالفعل !!

 

جعفر

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

5 دقائق مضت, jjafferr said:

اثناء تجوالي في نماذج برنامجك ، تعودت ان الزر الاحمر للخروج من النموذج ، واذا بعد النقر على الزر الاحمر في احد النماذج ، اتضح انه لحذف السجل ، وكنت قد حذفته بالفعل !!

 

جعفر

 

تم تغيير جميع الوان الازرار الحمراء، وأبقيت الأحمر للخروج فقط.

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

لماذا تظهر معى هذه الرسالة بعد وضح كلمة المرور

image.png.384633b59a4a8c334b2d2ade61e6f74e.png

 

تأكد من اعدادات اللغة والمنطقة، من لوحة التحكم يجب ان تكون دولة عربية وإلا فلن تعمل اكواد الـ VBA

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

8 دقائق مضت, SEMO.Pa3x said:

تم تغيير جميع الوان الازرار الحمراء، وأبقيت الأحمر للخروج فقط

ما شاء الله ، خلال دقيقتين عملت اللازم ، وكتبت مشاركتك 🙂

قوّاك الله 🙂

 

جعفر

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

On 7/2/2021 at 3:03 AM, SEMO.Pa3x said:

السلام عليكم ورحمة الله وبركاته..

اقدم لكم النسخة الثانية من برنامج ادارة عيادة الطبيب..

تم تطبيق أغلب ملاحظاتكم وأقتراحاتكم في النسخة السابقة

النسخة تجريبية تغلق بعد فترة الغرض من طرحها لمعالجة العيوب والأخطاء لكي يتم طرحها فيما بعد..

الرجاء منكم ابداء ملاحظاتكم واقتراحاتكم واضافاتكم وهل النسخة تحتوي على أخطاء؟ لكي اقوم بتحسين النسخة القادمة

كلمة المرور لفتح البرنامج = 313

المميزات الحالية:

1- التصميم responsive يدعم جميع الشاشات الكبيرة والصغيرة

2- طباعة الوصفة الطبية

3- اضافة الادوية ومجاميعها والملاحظات

4- تسجيل بيانات المريض والحجوزات

5- تسجيل المصروفات

6- تعديل الاعدادات

7- اضافة نوع الحجز:

* فحص = لإضافة الادوية للمريض

* استشارة = لإرسال استشارة لطبيب آخر

* دخول = لإرسال المريض الى المستشفى

 

image.png.f9eb2e7aa98ff09be208e5433fecf064.png

 

image.png.62fa0fd407885a9030091b5fd064122c.png

 

image.png.61b4fd997198d274c3d91cf754f876c5.png

 

image.png.a4d36bd294213a2e6e54be54c671a754.png

 

image.png.7e43beab524d92c3d6ed17f9310400fa.png

 

image.png.3feb7a3f7d93faa1e40022f118b0b292.png

 

image.png.1130ee4542d8177f3a7cf51815341d81.png

 

image.png.48f0f7bdb66df4ef5f4282dace1500ca.png

 

تصحيحات كثيرة وتعديل لأخطاء كثيرة قمت بها مع اضافة المزيد من الشروط لحصر وتقليل الأخطاء،

شكرا لكل شخص ابدى رأيه وملاحظاته في النسخة السابقة، وايضا أنتضر ملاحظاتكم في هذه النسخة مع الشكر والتقدير

doctor.rar 671.82 kB · 120 downloads

السلام عليكم

جزاكم الله خيرا وزادكم من علمه القدير

الملف بيشتغل 32 بايت فكيف فتحه من نسخة أوفيس 2019

لو حد يعلم الطريقة

وبارك الله فى علمكم

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

بالنسبة لمشكلة الرسالة النواة ٣٢بت انتبهت لها   

حديثا في احد برامجي

نظرت الى مشاركة  الاخ جعفر في تشغيل البرنامج على النواتين ولم يكن هناك اي من الاكواد التي اشار اليها وبحثت في موقع مايكروسفت فكانت الاجابة بتنزيل ملفات 

Runtime

لكن المشكلة لم تحل

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

منذ ساعه, محب العقيدة said:

نظرت الى مشاركة  الاخ جعفر في تشغيل البرنامج على النواتين ولم يكن هناك اي من الاكواد التي اشار اليها وبحثت في موقع مايكروسفت فكانت الاجابة بتنزيل ملفات 

Runtime

لكن المشكلة لم تحل

 

ياريت تضع مشاركتك في الرابط ، وتعطينا الاكواد والمكتبات اللي عندك ، واذا يكون بمرفق ، فيكون افضل :

 

جعفر

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

  • 2 weeks later...

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

@SEMO.Pa3x

تحياتى لك يا دكتور .. هل ممكن ترفق هذا النموذج لنستفيد من تصميمه

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

 

 

Private Sub Form_Timer()
    
    ClockNow = Time
     
    If Format(Now(), "hh") <= 12 Then
        txt_DayNight = "لاتنس أذكار الصباح"
    Else
        txt_DayNight = "لا تنسى أذكار المساء"
    End If
    
    txt_currentDate = Format(Date, "dddd") & ", " & Day(Date) & " " & Format(Date, "mmmm") & ", " & Year(Date)
                               
End Sub

 

تم تعديل بواسطه jjafferr
وضع الكود بالطريقة الصحيحة بإستخدام <> القائمة
  • Like 1
رابط هذا التعليق
شارك

في ٢‏/٧‏/٢٠٢١ at 03:03, SEMO.Pa3x said:

السلام عليكم ورحمة الله وبركاته..

اقدم لكم النسخة الثانية من برنامج ادارة عيادة الطبيب..

تم تطبيق أغلب ملاحظاتكم وأقتراحاتكم في النسخة السابقة

النسخة تجريبية تغلق بعد فترة الغرض من طرحها لمعالجة العيوب والأخطاء لكي يتم طرحها فيما بعد..

الرجاء منكم ابداء ملاحظاتكم واقتراحاتكم واضافاتكم وهل النسخة تحتوي على أخطاء؟ لكي اقوم بتحسين النسخة القادمة

كلمة المرور لفتح البرنامج = 313

المميزات الحالية:

1- التصميم responsive يدعم جميع الشاشات الكبيرة والصغيرة

2- طباعة الوصفة الطبية

3- اضافة الادوية ومجاميعها والملاحظات

4- تسجيل بيانات المريض والحجوزات

5- تسجيل المصروفات

6- تعديل الاعدادات

7- اضافة نوع الحجز:

* فحص = لإضافة الادوية للمريض

* استشارة = لإرسال استشارة لطبيب آخر

* دخول = لإرسال المريض الى المستشفى

 

image.png.f9eb2e7aa98ff09be208e5433fecf064.png

 

image.png.62fa0fd407885a9030091b5fd064122c.png

 

image.png.61b4fd997198d274c3d91cf754f876c5.png

 

image.png.a4d36bd294213a2e6e54be54c671a754.png

 

image.png.7e43beab524d92c3d6ed17f9310400fa.png

 

image.png.3feb7a3f7d93faa1e40022f118b0b292.png

 

image.png.1130ee4542d8177f3a7cf51815341d81.png

 

image.png.48f0f7bdb66df4ef5f4282dace1500ca.png

 

تصحيحات كثيرة وتعديل لأخطاء كثيرة قمت بها مع اضافة المزيد من الشروط لحصر وتقليل الأخطاء،

شكرا لكل شخص ابدى رأيه وملاحظاته في النسخة السابقة، وايضا أنتضر ملاحظاتكم في هذه النسخة مع الشكر والتقدير

doctor.rar 671.82 kB · 258 downloads

هل يمكن تحديث البرنامج للعمل على نوات 64 بت ؟

 

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • اضف...

Important Information