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

**SEMO.Pa3x** · يوليو 2, 2021

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

تم تعديل يوليو 2, 2021 بواسطه SEMO.Pa3x

**abouelhassan** · يوليو 2, 2021

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

image.png.62fa0fd407885a9030091b5fd064122c.png

**SEMO.Pa3x** · يوليو 2, 2021

59 دقائق مضت, abouelhassan 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 أي ثانية واحدة

**Eng.Qassim** · يوليو 2, 2021

النسخة لم تفتح معي لانها على نظام 32بت

**abouelhassan** · يوليو 2, 2021

منذ ساعه, 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 كما تفضلت حضرتك وشرحت ولم يحدث شئ تظل التكست فارغة هل يوجد شئ ناقص استاذى

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

**Eng.Qassim** · يوليو 2, 2021

عن اذن استاذنا ...هل هذا ماتريده ؟

timer.accdb

تم تعديل يوليو 2, 2021 بواسطه Eng.Qassim

**kha9009lid** · يوليو 2, 2021

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

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

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

اقتباس

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

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

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

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

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

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

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

**jjafferr** · يوليو 2, 2021

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

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

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

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

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

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

جعفر

**abouelhassan** · يوليو 2, 2021

4 ساعات مضت, Eng.Qassim said:

عن اذن استاذنا ...هل هذا ماتريده ؟

timer.accdb 700 kB · 1 download

بارك الله فيك اخى الكريم

احترامى

**kha9009lid** · يوليو 2, 2021

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

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

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

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

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

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

**SEMO.Pa3x** · يوليو 2, 2021

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

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

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

الدخول مباشرة على الشاشة الرئيسية او شاشة الصلاحيات بدون المرور على شاشة الدخول باستخدام باستخدام قاعدة بيانات اخرى

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

فتح البرنامج واختيار المستخدم ثم الدخول بدون كلمة المرور

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

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

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

اقتباس

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

الدخول مباشرة على الشاشة الرئيسية او شاشة الصلاحيات بدون المرور على شاشة الدخول باستخدام باستخدام قاعدة بيانات اخرى

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

فتح البرنامج واختيار المستخدم ثم الدخول بدون كلمة المرور

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

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

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

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

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

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

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

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

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

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

تحياتي لك

تم تعديل يوليو 2, 2021 بواسطه SEMO.Pa3x

**SEMO.Pa3x** · يوليو 2, 2021

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

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

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

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

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

جعفر

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

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

**الحلبي** · يوليو 3, 2021

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

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

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

image.png.384633b59a4a8c334b2d2ade61e6f74e.png

**jjafferr** · يوليو 3, 2021

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

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

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

جعفر

**SEMO.Pa3x** · يوليو 3, 2021

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

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

جعفر

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

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

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

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

**jjafferr** · يوليو 3, 2021

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

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

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

قوّاك الله 🙂

جعفر

محمد وهبه محمد · يوليو 4, 2021

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

doctor.rar 671.82 kB · 120 downloads

السلام عليكم

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

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

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

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

**محب العقيدة** · يوليو 6, 2021

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

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

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

Runtime

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

**jjafferr** · يوليو 6, 2021

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

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

Runtime

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

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

جعفر

**محب العقيدة** · يوليو 6, 2021

ان شاء الله ساقوم بتنزيل اوفيس٦٤بت على جهاز اخر واحاول ان اجد سبب المشكلة وان لم تحل سارفق قاعدة بيانات في مشاركة جديدة

**محمد سلامة** · يوليو 18, 2021

@SEMO.Pa3x

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

Untitled.png.0d0ef7055809e8da2a96088c03d6e185.png

ابو نزار · يوليو 21, 2021

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

@SEMO.Pa3x

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

عبدالقدوس48 · يوليو 22, 2021

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

تم تعديل يوليو 22, 2021 بواسطه jjafferr
وضع الكود بالطريقة الصحيحة بإستخدام <> القائمة

**عمر ضاحى** · يوليو 22, 2021

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

doctor.rar 671.82 kB · 258 downloads

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

تسجيل الدخول

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

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

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

انشئ حساب جديد

تسجيل دخول

محتوي مشابه

تصفح هذا الموضوع مؤخراً 0 اعضاء متواجدين الان

Important Information