ارجو المساعدة بارككم الله فى برنامج مرضى مصغر

[محمد مصطفى ابو حمزة]

ارجو طريقة عمل txt box للبحث فى عمود اسم الدواء فى شيت بيانات المريض عن طري أول حرفين

وارجو المساعدة باضافتكم المثمرة

mik.rar

[احمدزمان]

السلام عليكم و رحمة الله و بركاته - - شاهد المرفق - - تم تغيير الفكرة - - مع امكانية البحث

mik.rar

[محمد مصطفى ابو حمزة]

انا شاكر جدا جدا جدا

ولكن اذا تكرمت التوضيح

كيف و اين سادخل البيانات الجديدة

[محمد مصطفى ابو حمزة]

وكنت اريد عند ادخال اسم الدواء من الليست validation

اكتب اول حرف يزهب لهذه الحروف لان ليست الادوية سيكون كبير جدا

وبارك الله لك على هذا المجهود

[أبوعبد الله]

أخي العزيز

إلى جانب الحل المتميز لأخي الحبيب أحمد يعقوب ، هذه فكرة أخرى باستخدام فورم للبحث يعمل بنقرة مزدوجة على أي خلية من الخلايا التي تريد وضع إسم الدواء بها ، ويعمل الفورم بالبحث عن الدواء بأي جزء من إسمه أو سعره تكتبه في ال TEXTBOX وبمجرد ظهوره في القائمة نتيجة البحث بال LISTBOX يمكنك بنقرة مزدوجة عليه اختياره ووضعه بالخلية النشطة ، مع ملاحظة أن الفورم وعمله مربوط بنطاقات تم تسميتها بالملف للبحث عن بيانات الدواء وكذلك نطاق ظهور الفورم ، أرجو أن تكون الفكرة مناسبة لطلبك ، والشكر طبعاً موصول لأخي الحبيب أحمد يعقوب .

تحياتي

أيو عبدالله

بحث عن إسم الدواء.rar

[الجزيرة]

مشاركات رائعة بارك الله فيكم

[احمدزمان]

السلام عليكم و رحمة الله وبركاته - - عمل ابداعي واكثر من رائع استاذي ابو عبدالله

[محمد مصطفى ابو حمزة]

انا عاجز تماما عن الشكر

وسأجرب طريقتك ابو عبدالله استاذنا العزيز

و اسمح لى بمعاودة السؤال

[محمد مصطفى ابو حمزة]

أخى ابو عبدالله لم اجد اى اضافة منك على الملف المرفق منى هل ممكن تقوم بالرفع مرة اخرى

[محمد مصطفى ابو حمزة]

أنا اسف ابو عبدالله كان الخطأ منى جزاك الله عنى كل خير و بارك لنافيك ولا املك لك الا انى سأدعو لك دوما

[محمد مصطفى ابو حمزة]

اخى ابو عبدالله سامحنى الله لكثرة شؤالى لك

ولكن كيف الغى المتكرر فى الفورم الرائعة التى صنعتها انت

أعزك الله

[محمد مصطفى ابو حمزة]

ولو ممكن شرح هذا الفورم الرائع بارك الله لك

لنقله الى شيتات اخرى

أعزك الله

[أبوعبد الله]

أخي الحبيب / أحمد يعقوب

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

مع حبي وتقديري

أخي العزيز / goudzy

أشكرك على كلماتك الطيبة وأرجو توضيح التالي :

1- التكرار بال LISTBOX يحدث فقط لوجود علامة (*) بأمر في كود إظهار الفورم والهدف من وجود العلامة إظهار كل الأصناف لللاختيار منها إن أمكن دون عناء البحث بكتابة أي حروف من إسم أو سعر الدواء ولن يؤثر التكرار في الاختيار بمعنى أختر أي صنف منأي تكرار للصنف فسيختار نفس الصنف ، ولاحظ أنك لوكتبت مباشرة أي حرف أو جزء من إسم صنف مثلاً حرف (ش) فسيختفي التكرار ولن يظهر لك بال LISTBOX سوى صنف واحد وهو الوحيد الذي به حرف ال (ش) .

2- نقل الفورم من ملف لملف يتم بأكثر من طريقة منهم تصديره لأي مجلد أو موقع على جهازك بأمر EXPORT من القائمة التي تظهر بنقرة ماوس يمين على إسم الفورم من محرر الفيجوال ، ومن ثم إعادة استيراده لملف آخر بالأمر IMPORT من أي موقع من مكونات الملف من محرر الفيجوال ، أو الطريقة الأخرى هي طريقة السحب بأن تفتح الملف المحتوى للفورم والملف الهدف أي الذي تريد نسخ الفورم له ثم تقوم بسحب الفورم بالماوس من محرر الفيجول من إسمه بالمصدر إلى الملف الهدف .

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

تقبل تحياتي

أبو عبدالله

[محمد مصطفى ابو حمزة]

والله ما رأيت مثل هذا العطاء اطال الله فى عمرك بالطبع اريد ذلك جزاك الله خيرا وانت تكرمت بتعليمى كيف فقد اتممت فضلك الكريم

[محمد مصطفى ابو حمزة]

والله ما رأيت مثل هذا العطاء

اطال الله فى عمرك

بالطبع اريد ذلك

جزاك الله خيرا وإن تكرمت بتعليمى كيف فقد اتممت فضلك الكريم

[محمد مصطفى ابو حمزة]

أخوانى واساتذتنا

اريد اخراج تقارير عن صرف دواء معين او عدة ادوية بين تاريخين

و اريد اخراج تقارير عن معاملات مريض معين او عدة مرضى بين تاريخين

فى صفحات اخرى عن طريق فورم بها check box

مثل اخراج جدول مدرس أو فصل فى جدول المدرسة الرائع

والذى ارفقته فى المشاركة السابقة

و ارجو ان تتحملوا كثرة الطلبات فانى لا استطيع الإكتفاء من علمكم الغزير

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

[محمد مصطفى ابو حمزة]

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

[احمدزمان]

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

- -

كل الشكر و الحب و التقدير استاذنا الكريم

0 0

اخي الكريم

- -

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

- -

لذلك على قدر فهمي طلبك

- -

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

mik.rar

[احمدزمان]

السلام عليكم و رحمة الله و بركاته<BR><BR>اخي الكريم<BR>&nbsp;- <BR>اضفنا بعض الخصائص لجدول اسعار العلاج<BR>- لايمكن تكرار اسم الدواء لنفس القسم<BR>&nbsp;- - -<BR><BR>الآن اضفنا صيغة الفاتورة التي سوف يم استخراجها <BR>&nbsp;- - <BR>من ميزها قائمة منسدلة مع امكانية البحث <BR>&nbsp;- - <BR>ادخل اي حرف من اسم الدواء في الخانة الدواء يظهر لك داخل القائمة المنسدلة جميع الأدوية التي تحتوي على هذاه الحروف <BR>&nbsp;- - <BR>عند تطابق القسم و نوع الدواء يظهر قيمة الدواء<BR>

mik.rar

[احمد حمور-ابوعبدالله]

المشرفان العزيزان احمد يعقوب وابوعبدالله

ماشاء الله عليكم مبدعون

ولكن هنا سؤالي للاستاذ ابوعبدالله

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

واقصد هنا ظهور الداتا داخل الليست بوكس

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

حيث ان الداتا لديك هنا تظهر من اليمين الى اليسار

اما عندي فحاولت مرارا وتكرارا ولكن دون فائدة( حيث تظهر من اليسار الى اليمين دائما)

شكرا لك

[أبوعبد الله]

إخواني الأعزاء

أشكر كل من ساهم في هذا الموضوع وأخص منهم أخي الحبيب أحمد يعقوب .

أخي العزيز / AHMADHAMOOR

بخصوص استفسارك فالجزء الخاص بكود البحث المسئول عن اتجاه أعمدة البحث من مصدر بيانات البحث هو هذا الجزء :

ListBox1.List(W, 0) = Sheet2.Cells(A.Row, 2).Value

ListBox1.List(W, 1) = Sheet2.Cells(A.Row, 3).Value

فإذا أردت أن يظهر إتجاه الأعمدة من اليمين لليسار فليكن كما سبق  

وإن أردت عكس الاتجاه فيجب أن كون الكود هكذا :

ListBox1.List(W, 1) = Sheet2.Cells(A.Row, 2).Value

ListBox1.List(W, 0) = Sheet2.Cells(A.Row, 3).Value

ولتوضيح الفكرة أكثر رجاء الاطلاع على المرفق

تحياتي

أبو عبدالله

اتجاه قائمة البحث.rar

[احمد حمور-ابوعبدالله]

الاخ ابوعبدالله

جزاك الله خيرا على ردك

الرجاء تجاهل المرفق المرسل هنا

حيث ان جوابك كافي ووافي

اتجاه قائمة البحث.rar

تم تعديل أكتوبر 4, 2010 بواسطه AHMADHAMOOR

[احمدزمان]

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

الف شكر استاذ ابو عبدالله

جزاك الله كل خير

= = = =

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

لذلك سوف اقوم باضافة هذا الفورم الى العمل

طبعا بعد اذن الأستاذ هشام

[احمدزمان]

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

استخدمنا الفورم الذي اوجدة الأستاذ ابو عبدالله

جزاه الله كل خير و حصلنا على نتائج رائع

بمجرد الإختيار من الفورم يتم ادراج البيانات في اول صف فارغ بالفاتورة

يتم ادراج القسم و النوع و السعر

ونحن نقوم فقط بتحديد العدد لنحصل على الناتج

و بالضغط على زر اعتماد الفاتورة يتم حفظ البيانات و الطبع

= = = = =

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

mik.rar

[احمدزمان]

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

تم الإنتهاء من فكرة تظام البحث

تدخل الى ورقة تقرير اول

تحدد تواريخ الفترة المطلوبة من تاريخ الى تاريخ

ثم تظغط زر ابدأ استخراج التقرير المطلوب – تظهر لك البيانات الموجودة خلال هذه الفترة فقط

استخدام البحث المتعدد

بعد تحديد التاريخ تختار من القائمة لمنسدلة الموجودة اسفل التاريخ ما تريد البحث عنه لكي تختار منه اسم الطبيب او اسم المريض او اسم الممرض ثم تحدد الإسم المطلوب اسفله

مثال

بعد تحديد التاريخ تختار طبيب وتضع اسم محمد – تظهر لك كل الصفوف التي يحتوي فيها عمود الطبيب على اسم محمد خلال هذه الفترة المحددة

بعد تحديد التاريخ تختار مريض وتضع اسم محمد – تظهر لك كل الصفوف التي يحتوي فيها عمود المريض على اسم محمد خلال هذه الفترة المحددة

بعد تحديد التاريخ تختار ممرض وتضع اسم محمد – تظهر لك كل الصفوف التي يحتوي فيها عمود الممرض على اسم محمد خلال هذه الفترة المحددة

خلال هذه الفترة المحددة

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

mik.rar