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

analyse medicale.doc

التحاليل الطبية.rar

آخر تعديل

التحاليل الطبية.rar

Yassin_VFP9 كتب:

آخر تعديل

اذا كان التعديل الذي تقوم به هو تحويل النسخة القديمة من اللغة الفرنسية الى العربية فقط دون تعديل الكود

فلا داعي لذلك حيث يمكننا تحويلها أثناء التعديلات التي سنجريها بشكل عام

Shadowz كتب:

اذا كان التعديل الذي تقوم به هو تحويل النسخة القديمة من اللغة الفرنسية الى العربية فقط دون تعديل الكود

فلا داعي لذلك حيث يمكننا تحويلها أثناء التعديلات التي سنجريها بشكل عام

لا فانا احاول صياغة برنامج آخر "الجداول-النمادج......"

السلام عليكم

أعود اليكم من جديد و بعد انتهئي من اكمال البرنامج اللذي وعدتكم به، اضع تحت تصرفكم source من اجل:

1 الاستفادة لجميع الاعضاء و الزوار

2 انتظر منكم الكثير من الاقتراحات لتحسين و تطوير هذا البرنامج

احيط علم اعضاء هذا المنتدى انني لم استعمل نهائيا لغة SQL فقط لابراز قوة فيزيل فوكس برو 9

وانا مستعد لاي نقش

انتظر ردودكم واقتراحاتكم الغالية من اجل التطوير................

اريد ان اضع بعض الصور للبرنامج لكني لم اعرف كيف؟

التحاليل_الطبية.rar

اقتباس

اريد ان اضع بعض الصور للبرنامج لكني لم اعرف كيف

يوجد شرح هنا :

/index.php?showtopic=220383

عزيزي ياسين

بداية عمل جميل ومتقن، ولا غبار عليه، وهذا ما يريده المستخدم في نهاية المطاف

أما داخليا فيوجد ملاحظات كثيرة ( ليست عيباً في الأسلوب أو البرنامج ، إنما لنقل هي نتيجة إتباع المدرسة القديمة في عالم VFP9 الجديد ) لذا أتمنى أن يتسع صدرك للملاحظات التالية

عسى أن تكون حافزاً للانتقال من القديم للجديد :

الملاحظات بشكل عام :

- الابتعاد عن فكرة تعدد المستخدمين بشكل ملحوظ، والتسليم بأنه برنامج لمستخدم واحد

- الاعتماد على المتغيرات العامة Public Variables بل وتعريفها أكثر من مرة

- تكرار بعض الأوامر في كافة النماذج علما بأنه يكفي وضعها لمرة واحد في برنامج Go، خاصة وأنك تستخدم Default Data Session لكافة النماذج

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

وأخيرا اعادة فهرسة )

تخيل لو انقطعت الكهرباء أثناء العميلة، لم أجرب........وبصراحة لا أريد أن أعرف :blink:

هذا بالاضافة لاستهلاك الوقت

- أستغرب ابتعادك عن SQL-Commands مع أنها أحد ركائز وأسباب قوة الفوكس برو

- الاعتماد على نسخ النماذج وإعادة صياغتها حسب الجدول المطلوب ( لا عيب في ذلك ) وقصدي بذلك أنك تفوت على نفسك استخدام الــ Class التي تختصر عليك الكثير من الجهد وعناء التكرار

- ويوجد بعض الملاحظات على الجداول حيث يمكنك الاستفادة من بعض الامكانات مثل Autoinc و Candidate Index

هذه ملاحظاتي حالياً......

وعلى فكرة عانيت كثيرا من فكرة تطبيق القديم على الجديد، ولكن النتيجة بصدق ( الفرق شاسع ما بينهما )،

وللحديث بقيمة ان شاء الله، ولك مني أن نبدأ سويا في تعديل البرنامج خطوة خطوة ( بالجديد ) للفائدة لك وللجميع

السلام عليكم

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

بالنسبة ل

اقتباس

- الابتعاد عن فكرة تعدد المستخدمين بشكل ملحوظ، والتسليم بأنه برنامج لمستخدم واحد

مل تعني بان لايمكن لمستخدم آخر ان يرى ننائج الاخرين؟

يمكنني اضافة جدول المستخدمين ونعديل الجدول donnee باضافة الحقل cod_util

اقتباس

- الاعتماد على المتغيرات العامة Public Variables بل وتعريفها أكثر من مرة

اتفق معك حسب ما فهمت ساستعمل برنامج Go في تعريف المتغيرات العامة Public Variables

اقتباس

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

ليس لدي فكرة عن خطورة هدا الامر ما دمت احدد ما اريد حدفه بالامر delette all for او seek..if foud() . هل من طريقة احسن؟

اقتباس

- أستغرب ابتعادك عن SQL-Commands مع أنها أحد ركائز وأسباب قوة الفوكس برو

- الاعتماد على نسخ النماذج وإعادة صياغتها حسب الجدول المطلوب ( لا عيب في ذلك ) وقصدي بذلك أنك تفوت على نفسك استخدام الــ Class التي تختصر عليك الكثير من الجهد وعناء التكرار

يمكننا اعادة صياغة البرنامج بال sql

ام ال Class فهده الوحيدة التي لم اتمكن من فهمها واتمنا ان تساعدني في فهمها بطريقة مبسطة

اقتباس

- ويوجد بعض الملاحظات على الجداول حيث يمكنك الاستفادة من بعض الامكانات مثل Autoinc و Candidate Index

ليس لدي اي فكرة عن الموضوع كيف يمكنني الاستفادة منها؟

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

أهلا ياسين ومحمد..

ياسين...سأبدأ بالشرح وستجد الإجابة عن تساؤلاتك إن شاء الله

سنبدأ بإعادة ترتيب بعض الأمور الأمور :

1. فصل موقع تخزين الجداول عن البرنامج :

انشاء مجلد جديد نسميه MyData

نقل الجداول لهذا المجلد

اضافة قاعدة بيانات جديدة ولنسميها MyDataBase

تضمين الجداول لقاعدة البيانات المذكورة سابقا

الفائدة هنا: أن لدينا مجلد خاص بالجداول، يمكن نقله بأي وقت لأي مكان آخر على نفس الجهاز أو أي جهاز آخر بكل سهولة، والوصول له دوما يكون بمجرد تحديد المسار عن طريق الأمر Set Path To

أما وضعها في قاعدة بيانات فللاستفادة من بعض المزايا التي لا تتوفر لنا في حال كانت Free Tables

2. حذف الـ Index من كافة الجداول، والذي سنعيد إنشاؤه لاحقا و حسب الحاجة

3. تعديل بعض حقول الجداول لإنشاء Primary Keys مستفيدين مما يقدمه لنا الفوكس برو مجانا وبشكل قوي، بدلا من كتابة الكود

Table Name		Field Name		New Type
--------------------------------------------------------------
Analyse			Num_Ana			Integer(AutoInc)
Labo			Num_Labo		Integer(AutoInc)
Pers			Num_Pers		Integer(AutoInc)

بهذا لن نضطر لاستخدام كود لمعرفة آخر تسلسل في الجدول واضافة 1 له، واعادة تخزينه، انما سَيقَّدَم لنا الرقم جاهزا بمجرد اضافة سجل جديد ( خاصة وأن ما يهمنا هنا أن تكون فريدة أكثر منها متتابعة كون أنها أرقام داخلية )

كما وسنضيف حقل Don_Num من نوع Integer AutoInc لجدول Donnee

4. عمل Index حسب التالي

Table Name		Field Name		Index
--------------------------------------------------------------
Analyse			Num_Ana			Primary
Labo			Num_Labo		Primary
Pers			Num_Pers		Primary
Donnee			Don_Num			Primary

Analyse			analyse			Candidate
Labo			Labo			Candidate
Pers			nom			Candidate

Primary Index + Candidate Index

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

واختيارنا لـ Candidate هنا لأنه لا يسمح لنا بانشاء أكثر من Primary Key واحد في الجدول

مبدئيا هذه الفهارس التي ستلزمنا في الوقت الحالي،

وأثناء تصميم البرنامج قد نحتاج لعمل فهارس أخرى حسب الحاجة

5- اعادة تجهيز البرنامج الرئيسي GO باضافة بعض الأوامر له ،

صحيح.... فكرة تعدد المستخدمين ليست موضوع وجود جدول للمستخدمين والصلاحيات، انما هي فكرة انشاء برنامج يسمح لعدد من المستخدمين من التعامل مع نفس الجداول في نفس الوقت

وهذا شرح مبسط لبعض الأوامر المضافة للبرنامج

ايقاف خاصية فتح الجداول بشكل حصري ( للسماح بالمشاركة )

SET EXCLUSIVE OFF

تمكين عمل Lock ( حجز ) لأكثر من سجل في وقت واحد

SET MULTILOCKS ON

أمر اخفاء السجلات المحذوفة ( دون الحاجة لاستخدام الأمر Pack )

SET DELETED ON

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

SET PATH TO c:\MyDataBase

بالنسبة للــ Public فقل لها وداعاً، حيث سنحاول استخدام أقل عدد منها، وعلى الأكثر سنستخدم 5 متغيرات فقط وستكون في برنامج GO فقط

أما الـ Class فان شاء الله ستكون أساس التعديلات القادمة على النماذج وسترى مدى سهولة تصميمها وفائدة استخدامها

مرفق البرنامج مع التعديلات للاطلاع وابداء الرأي، مع العلم بأنني قمت بايقاف النماذج الداخلية لحين تعديلها لتتماشى مع التعديلات

Yassin.rar

يتبع باذن الله.

السلام عليك اخي العزيز

لفد تيقنت انني عثرت على المعلم اللزم لاحسن ادائي في استخدامي ل vfp9

واتمنى ان اكون دالك التلميد النجيب.

العفو منك أخي ياسين، وأتمنى حقا أن تستفيد وأن يستفيد من يحب معرفة المزيد حول الفوكس برو

ودائما بالفوكس برو ان كان ما أكتب صحيحا فقد يكون هناك الأصح ووالله أعلم ( لذا أتمنى أن تبحث دائما عن المزيد ولا تتوقف عند ما سيرد في هذا الموضوع )

( ان اصبت فمن الله وان أخطأت فمن نفسي والشيطان ).... وقلة المعرفة

القليل حول Sharing, Exclusive, Class

لنتوقف قليلا هنا عند مفهوم Programming for Shared Access

المشاركة كما قلت سابقاً: هي السماح لأكثر من مستخدم من التعامل مع نفس الجدول في نفس الوقت

متى نحتاج العمل والتصميم من هذا المنطلق

• عند وجود أكثر من جهاز على الشبكة يتعامل مع نفس الجدوال الموجودة على السيرفر

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

• عند إنشاء نماذج قابلة للاستعداء أكثر من مرة ( كأن يكون لدينا مثلا شاشة تُظهر فواتير عميل معين، وأردنا اختيار أكثر من فاتورة في نفس الوقت للمراجعة والتعديل )

برأيي المتواضع..نحن نحتاج للعمل من هذا المنطلق دائما،

حتى لو كان طلب الزبون واتفاقنا معه على برنامج لاستخدامه الشخصي البحت، لأننا لن نعرف أبدا متى سيقول لنا أريد تشغيل نسخة أخرى من البرنامج على جهاز آخر وربطه بنفس الجداول،

أو متى سيقول أريد رؤية أكثر من كشف حساب في نفس الوقت...، صحيح أننا في جميع الأحوال سنطالبه بالمقابل لأن هذه الأمور غير متفق عليها مسبقاً، إلا أننا وفرنا على أنفسنا الوقت المطلوب لمراجعة وتعديل الكثير ( وبذلك نكون جاهزين للقبض :cash: )

لذا سنعمل وفقاً لهذا المبدأ، مبدأ تعدد النماذج ( وطبعا حسب الغاية )، نماذج مرنة وقابلة للاستدعاء أكثر من مرة بنفس الوقت

هنا سنعود لمفهوم الــ Data Session وأهميته في تهيئة بيئة منفصلة لكل نموذج عن الآخر ( والذي سنأتي له لاحقا )

الـــــ Exclusive من معناها نعرف الغاية منها،

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

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

ويرتبط بهذا الأمر بعض الأوامر التي لا نستخدمها إلا بعد التأكد من أن الجداول غير مستخدمة من قبل أي مستخدم آخر أو من قبل برنامج آخر على نفس الجهاز

ومنها على سبيل المثال لا الحصر

Pack

Zap

Index On

Alter

وهي على الأغلب أوامر لا يحتاج لها المستخدم العادي ولا نحتاج لأن نقدمها له إلا ضمن نطاق معين

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

وصيغة فتح الجدول لمن لا يعرف هي :

Use MyTable Exclusive in 0
Use MyTable Shared in 0

الــ Class يا ياسين،

تخيل معي لو أن عندك قطعة أرض تريد أن تبني عليها منزلا لك،

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

يخطر لك أن تبني طابقاً ثانيا....

هل تقوم باعاد بناء الأساسات....أكيد لا لأنها موجودة وجاهزة

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

بعد فترة أردت أن تبني طابقا ثالثا، ولكن هذه المرة يتألف من شقتين صغيرتين بدلا من شقة واحدة كبيرة

هنا، ستبني الطابق الثالث أيضا دون أن تمس بالأساسات أو الطابقين الأول أو الثاني، أعتقد أن الفكرة واضحة ( الله يزيدك ويعطينا )

وهكذا هي الــ Class

فأنت تصمم عنصرا واحدا وتعيد استخدامه وبناء عناصر أخرى بناءاً عليه إما بشكل مباشر أو غير مباشر، موفراً على نفسك عناء الإعادة والتكرار لما هو موجود أساسا

ملاحظة أخرى ( من واقع برنامجك )، الفوكس برو له كلماته ومصطلحاته الخاصة به والتي يستحسن ألا نستخدمها في برامجنا منعا لأي لبس، تستطيع أن تراجعها في الـ Help ، ابحث عن Reserved Words

وعلى كل هي التي يكون لونها أزرق في المحررات

يتبع باذن الله.

مرفق لكم فكره صغيره لبرنامج التحاليل الطبيه وانا حاليا اعمل ومطلوب المساعده في تصميم نموذج احصائي لربط (serv1) ب (isal1) نوع التحليل بالعدد واريد كل انواع التحليل في نموذج واحد وكذلك ربط (1client)ب (kashfam) يحدد كل عميل بالمبالغ الاجماليه والمدفوع والباقي وايضا نموذج واحد يجمع كل العملاء

lab manger.rar

mohamed_alayek كتب:

مرفق لكم فكره صغيره لبرنامج التحاليل الطبيه وانا حاليا اعمل ومطلوب المساعده في تصميم نموذج احصائي لربط (serv1) ب (isal1) نوع التحليل بالعدد واريد كل انواع التحليل في نموذج واحد وكذلك ربط (1client)ب (kashfam) يحدد كل عميل بالمبالغ الاجماليه والمدفوع والباقي وايضا نموذج واحد يجمع كل العملاء

اين عباقرة المنتدي ؟؟؟؟؟؟؟؟؟؟؟؟؟

Shadowz كتب:

القليل حول Sharing, Exclusive, Class

لنتوقف قليلا هنا عند مفهوم Programming for Shared Access

المشاركة كما قلت سابقاً: هي السماح لأكثر من مستخدم من التعامل مع نفس الجدول في نفس الوقت

متى نحتاج العمل والتصميم من هذا المنطلق

• عند وجود أكثر من جهاز على الشبكة يتعامل مع نفس الجدوال الموجودة على السيرفر

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

• عند إنشاء نماذج قابلة للاستعداء أكثر من مرة ( كأن يكون لدينا مثلا شاشة تُظهر فواتير عميل معين، وأردنا اختيار أكثر من فاتورة في نفس الوقت للمراجعة والتعديل )

نقطة مهمة جدا بارك الله فيك

اقتباس

الـــــ Exclusive من معناها نعرف الغاية منها،

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

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

ويرتبط بهذا الأمر بعض الأوامر التي لا نستخدمها إلا بعد التأكد من أن الجداول غير مستخدمة من قبل أي مستخدم آخر أو من قبل برنامج آخر على نفس الجهاز

ومنها على سبيل المثال لا الحصر

Pack

Zap

Index On

Alter

وهي على الأغلب أوامر لا يحتاج لها المستخدم العادي ولا نحتاج لأن نقدمها له إلا ضمن نطاق معين

لقد توضح لي الفرق ونسبة الاختلاف تشكراتي

اقتباس

الــ Class يا ياسين،

تخيل معي لو أن عندك قطعة أرض تريد أن تبني عليها منزلا لك،

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

يخطر لك أن تبني طابقاً ثانيا....

هل تقوم باعاد بناء الأساسات....أكيد لا لأنها موجودة وجاهزة

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

بعد فترة أردت أن تبني طابقا ثالثا، ولكن هذه المرة يتألف من شقتين صغيرتين بدلا من شقة واحدة كبيرة

هنا، ستبني الطابق الثالث أيضا دون أن تمس بالأساسات أو الطابقين الأول أو الثاني، أعتقد أن الفكرة واضحة ( الله يزيدك ويعطينا )

وهكذا هي الــ Class

فأنت تصمم عنصرا واحدا وتعيد استخدامه وبناء عناصر أخرى بناءاً عليه إما بشكل مباشر أو غير مباشر، موفراً على نفسك عناء الإعادة والتكرار لما هو موجود أساسا

ملاحظة أخرى ( من واقع برنامجك )، الفوكس برو له كلماته ومصطلحاته الخاصة به والتي يستحسن ألا نستخدمها في برامجنا منعا لأي لبس، تستطيع أن تراجعها في الـ Help ، ابحث عن Reserved Words

وعلى كل هي التي يكون لونها أزرق في المحررات

يتبع باذن الله.

بشكل مبدئي

يمكنني القول بانني فهمت الاساس يبقى لي التطبيق اتوكل على الله و عليك اخي الكربم في هضم هجا النوع من البرمجة

لازلة انتظر دروسك اخي الكريم

Yassin_VFP9 كتب:

لازلة انتظر دروسك اخي الكريم

عذرا على التأخير.... عسى أن نكمل الليلة ان شاء الله

Shadowz كتب:

عذرا على التأخير.... عسى أن نكمل الليلة ان شاء الله

ان شاء الله

Yassin_VFP9 كتب:

ان شاء الله

السلام عليكم

لدي سؤال و هو كيفية حماية الجداول من التلف عند انقطاع الكهرباء باستعمال VFP9 .

Shadowz كتب:

عذرا على التأخير.... عسى أن نكمل الليلة ان شاء الله

اخي Shadowz

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

انتظر دروسك القييمة

أرجو أن تعود لافادتنا كما عودتنا Shadowz

تحياتي له من اعماق قلبي

الأخ محمد العايق mohamed_alayek

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

وانت تعلم أن من أبسط امور ديننا الاسلامي كانت تقتضى منك ان تستأذنه

وألا تخون أمانة ثقته بك واعطاءك ال source

ثم تنشره وتدعيه لنفسك وتطلب من المبرمجين الآخرين أن يضيفوا ويطوروا منه

حسبي الله ونعم الوكيل فيك

islam2008 كتب:

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

وانت تعلم أن من أبسط امور ديننا الاسلامي كانت تقتضى منك ان تستأذنه

وألا تخون أمانة ثقته بك واعطاءك ال source

ثم تنشره وتدعيه لنفسك وتطلب من المبرمجين الآخرين أن يضيفوا ويطوروا منه

حسبي الله ونعم الوكيل فيك