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

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

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

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

بالنسبة لقيمة التاريخ بالتقويم فتستطيع الحصول عليها من خاصية 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 او اقم بانشاء خصائص جديدة للنماذج تستند عليها في تخزين المعطيات.
  
• بيكفي هيك شكلي طولت...بس زي ما اتفضلت حضرتك لتعم الفائدة، واعيد برنامج جميل وبالتوفيق
  

مع التحية

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

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

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

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

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

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

hagez.rar

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

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

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

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

تستطيع ان تقوم بانشاء 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 من الجدول الرئيسي

وللحديث بقية

مع التحية