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

[SEMO.Pa3x]

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

 

 

 

 

 

 

 

 

 

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

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

doctor.rar

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

[abouelhassan]

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

[SEMO.Pa3x]

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]

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

[abouelhassan]

منذ ساعه, 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]

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

timer.accdb

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

[kha9009lid]

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

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

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

اقتباس

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

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

 

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

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

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

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

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

 

[jjafferr]

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

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

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

 

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

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

 

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

 

جعفر

[abouelhassan]

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

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

timer.accdb 700 kB · 1 download

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

احترامى

[kha9009lid]

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

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

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

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

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

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

[SEMO.Pa3x]

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

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

 

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

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

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

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

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

 

 

اقتباس

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

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

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

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

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

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

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

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

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

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

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

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

 

تحياتي لك

 

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

[SEMO.Pa3x]

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

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

 

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

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

 

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

 

جعفر

 

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

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

[الحلبي]

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

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

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

[jjafferr]

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

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

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

 

جعفر

[SEMO.Pa3x]

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

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

 

جعفر

 

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

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

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

 

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

[jjafferr]

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

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

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

قوّاك الله 🙂

 

جعفر

[محمد وهبه محمد]

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

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

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

[محب العقيدة]

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

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

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

Runtime

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

[jjafferr]

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

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

Runtime

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

 

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

 

جعفر

[محب العقيدة]

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

[محمد سلامة]

@SEMO.Pa3x

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

[ابو نزار]

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

@SEMO.Pa3x

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

[عبدالقدوس48]

 

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
وضع الكود بالطريقة الصحيحة بإستخدام <> القائمة

[عمر ضاحى]

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

 

 

 

 

 

 

 

 

 

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

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

doctor.rar 671.82 kB · 258 downloads

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