الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

برنامج بسيط لعمل مواعيد للعيادات الطبية

بدأه mohamed_alayek في 7 أبريل 2009 · 5 رد · 4,584 مشاهدة · في قواعد بيانات Visual FoxPro
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

اليوم ارفع لكم برنامج بسيط لعمل مواعيد للعيادات وارجو من له تعليق او اضافة فليرفعها لنا لعلنا نستفيد جميعا وهو عباره عن شاشه لادخال المواعيد وعرضها وايضا يوجد ساعة لمعرفة التوقيت وتقويم واريد كود عند اضغط علي يوم معين في التقويم يظهر في خانة التاريخ وشكراً واليكم الملف

hagez.rar

#2

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

اخي العزيز محمد،

انجاز جميل وبداية موفقة ان شاء الله..

بالنسبة لقيمة التاريخ بالتقويم فتستطيع الحصول عليها من خاصية Value_ التابعة لها

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

OleControl2.Click()

thisform.text3.Value=TTOD (this._Value)

واليك بعض الملاحظات ( للفائدة ):

  • حاول ان تدع الفوكس برو يختار مواقع فتح الجداول تلقائيا فبدلا من Use myTable in 3 اختر دائما الصفر Use Mytable in 0 لكل الجداول واعتمد على Select MyTable بدلا من select 0 او غيره فهذا يغنيك عن متابعة الجداول بالارقام
  • لا تنسى اقفال الجداول بعد الانتهاء من البرنامج، وحاول الاستفادة من الامر On ShutDown لاقصى حدا بامكانك مثلا وضع اجراء يتم تنفيذه عند اقفال البرنامج بواسطة الامر Quit الذي تضعه في اجراء unload الخاص بالشاشة الرئيسية للبرنامج، على النحو التالي :

On Shutdown Do MyShutDown

Do form hagz

Read Events



Procedure MyShutDown

Close Databases All

Set Sysmenu To Default

If _vfp.StartMode > 0

		  Quit

Endif

Clear Events

Return

  • حاول الا تستخدم الامر Index في البرنامج وبدلا منه الامر Set order to MyTag
  • لا داعي لكثرة استخدام الامر refresh فالتسلسل الطبيعي للنموذج ( بالنسبة للنموذج فقط ) هو Load > Init > Activate > Refresh فهنا من الطبيعي ان يتم عمل Refresh للنموذج عند تشغيله للمرة الاولى
  • حاول دائما ان ترفق مع المشروع ال Clasess الخاصة به فقط، ولمعرفة ما يحتاجه مشروعك منها وباسلوب بسيط قم بتجريب البرنامج بعد تغيير اسم مجلد الفوكس برو
  • ال Class الموجودة بالنموذج Datachecker1 اظن لا لزوم لها هنا، فهي خاصة بمتابعة وحل مشاكل التخزين للجداول ولكن عند استخدام خاصية ال Buffering
  • حاول عدم الاكثار من تعريفات الـ Public واستخدم بدلا منها الــ Parameters ان لزم الامر، واعتمد على Object.value او اقم بانشاء خصائص جديدة للنماذج تستند عليها في تخزين المعطيات.
  • بيكفي هيك شكلي طولت...بس زي ما اتفضلت حضرتك لتعم الفائدة، واعيد برنامج جميل وبالتوفيق

مع التحية

تم تعديل هذه المشاركة بواسطة a.jallad في 7 أبريل 2009 في 05:00

أستغفر الله العظيم و أتوب إليه

#3

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

الاخ محمود .. لقد قمت بتحميل البرنامج لكن عند التنفيذ تظهر رسالة خطأ وذلك عن عدم وجود ملف اسمه solution.vcx ونص الرسالة كالاتي :

Error instantiating class. Cannot find

e:\sor_test_3\solution.vcx

ارجو منك معالجة الخطأ واضافة الملف الناقص.

ومشكور يا غالي .. وفي انتظار تصحيحك للخطأ

للعلم انا استخدم النسخة الثامنة من الفوكس برو

تم تعديل هذه المشاركة بواسطة Akram Brave في 7 أبريل 2009 في 05:23

ly81f9038b6f.jpg

سقوط الإنسان ليس فشلاً، ولكن الفشل أن يبقى حيث سقط

#4

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

تم تعديل هذه المشاركة بواسطة islam2008 في 14 مايو 2009 في 23:59

#5

يا أخي الكريم بدايه الامر لا شك اني استعنت ببعض افكار النماذج لبعض الاخوه لكن اساس الفكرة والتصميم اظن انها مش موجوده بالشكل ده عند احد ولو كان النموذج يفي بالغرض نفسه ما كنت طرحته لكي يناقش في المنتدي ونطوره لكي استفيد ويستفاد من يطلع عليه ، فلو النموذج عندك دعنا نتطلع عليه لكي نستفيد جميعا وتوفر عليه عناء البحث والسؤال وانا سوف ارفق النموذج بعد اخر فكرة وصلت اليها فلو تقدر تفيدنا في بعض الاسئلة المطروحه يبقي جزاك الله خير وطبعاً الموضوع اخصه ايضا بالاخ عبدالله الجلاد .. اريد تقسيم grid1 الي في عمود موعد الحجز الي المواعيد ثابته يعني مثلا في اعداد طبيب بقول ان ميعاد المريض وليكن 30 دقيقه ودوامه من الساعة 9 حتي الساعة 13.00ومن الساعة 17 حتي الساعه 22 فيظهر لي في الجدول في خانه موعد الحجز 09.00 واسفل منها 09.30 ......13.00 ثم من 17.00 الخ ونفس الوقت عند الضغط علي اليوم يظهر لي في الجدول الوقت مقسم والمرضي ذو المواعيد كلا في معاده والمعاد الفارغ يظل موجود فارغً بمعني اخر لو شاهدنا الاجنده العاديه الورق مرفق البرنامج وتقبلوا تحياتي

hagez.rar

#6

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

اخي العزيز محمد،

ارجو ان تعذرني على تأخري، ولكن صدقني لا يمنعني سوى ضيق الوقت

سأقول لك ما يمكن ان تفعله وارجو ان تقوم بالتطبيق، مع العذر منك

تستطيع ان تقوم بانشاء Cursor وجعله الـ RecordSource للـ Grid

وعلى سبيل المثال

Create Cursor MyCursor (rDate d(8), rTime c(10), DocNo n(10), PatientName c(40))

FOR i = 9 TO 13

INSERT INTO MyCursor (rtime) VALUES (ALLTRIM(STR(I))+[:00])

IF i < 13

INSERT INTO MyCursor (rtime) VALUES (ALLTRIM(STR(I))+[:30])

endif

next



FOR i = 17 TO 22

INSERT INTO MyCursor (rtime) VALUES (ALLTRIM(STR(I))+[:00])

IF i < 22

INSERT INTO MyCursor (rtime) VALUES (ALLTRIM(STR(I))+[:30])

endif

next

وما عليك سوى تعبئة ال Cursor من الجدول الرئيسي

وللحديث بقية

مع التحية

أستغفر الله العظيم و أتوب إليه

مواضيع مشابهة