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

[SEMO.Pa3x]

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

 

 

 

 

 

 

 

 

 

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

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

doctor.rarFetching info...

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

[abouelhassan]

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

[SEMO.Pa3x]

  في 2‏/7‏/2021 at 09:43, abouelhassan said:

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

Expand  

 

في حدث الـ 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]

  في 2‏/7‏/2021 at 10:40, 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 أي ثانية واحدة

Expand  

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

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

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

[Eng.Qassim]

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

timer.accdbFetching info...

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

[kha9009lid]

  في 2‏/7‏/2021 at 01:03, SEMO.Pa3x said:

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

Expand  

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

  اقتباس

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

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

Expand  

 

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

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

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

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

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

 

[jjafferr]

  في 2‏/7‏/2021 at 15:04, kha9009lid said:

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

Expand  

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

 

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

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

 

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

 

جعفر

[abouelhassan]

  في 2‏/7‏/2021 at 12:22, Eng.Qassim said:

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

timer.accdb 700 kB · 1 download

Expand  

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

احترامى

[kha9009lid]

  في 2‏/7‏/2021 at 15:57, jjafferr said:

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

Expand  

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

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

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

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

[SEMO.Pa3x]

  في 2‏/7‏/2021 at 15:04, kha9009lid said:

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

 

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

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

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

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

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

 

Expand  

 

  اقتباس

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

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

Expand  

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

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

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

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

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

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

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

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

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

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

 

تحياتي لك

 

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

[SEMO.Pa3x]

  في 2‏/7‏/2021 at 15:57, jjafferr said:

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

 

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

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

 

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

 

جعفر

Expand  

 

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

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

[الحلبي]

  في 2‏/7‏/2021 at 19:57, SEMO.Pa3x said:

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

Expand  

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

[jjafferr]

  في 2‏/7‏/2021 at 19:57, SEMO.Pa3x said:

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

Expand  

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

 

جعفر

[SEMO.Pa3x]

  في 3‏/7‏/2021 at 21:53, jjafferr said:

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

 

جعفر

Expand  

 

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

  في 3‏/7‏/2021 at 19:00, الحلبي said:

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

Expand  

 

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

[jjafferr]

  في 3‏/7‏/2021 at 21:56, SEMO.Pa3x said:

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

Expand  

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

قوّاك الله 🙂

 

جعفر

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

  في 2‏/7‏/2021 at 01:03, SEMO.Pa3x said:

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

 

 

 

 

 

 

 

 

 

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

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

doctor.rar 671.82 kB · 120 downloads

Expand  

السلام عليكم

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

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

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

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

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

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

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

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

Runtime

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

[jjafferr]

  في 6‏/7‏/2021 at 06:37, محب العقيدة said:

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

Runtime

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

Expand  

 

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

 

جعفر

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

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

[محمد سلامة]

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

[عمر ضاحى]

  في 2‏/7‏/2021 at 01:03, SEMO.Pa3x said:

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

 

 

 

 

 

 

 

 

 

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

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

doctor.rar 671.82 kB · 258 downloads

Expand  

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