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

مساعدة أطلبها برجاء من يستطيع لايبخل علينا

مغلق
بدأه ha98 في 8 يوليو 2003 · 21 رد · 1,353 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

مساعدة أطلبها برجاء من يستطيع لايبخل علينا

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

أعزائي أعضاء منتدى فيجوال بيسك كلي أمل

منذ زمن وانا ابحث عن برنامج سلس صغير في شكله كبير في أدائه

أعزائي اسمحو لي لو ثقلت عليكم ولكن بغيتي هذه تعبت وانا ابحث عنها في كتب ولم أحصل عليها فاسمحو لي اطلبها منكم

لأني انتطرها منذ زمن

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

عند فتح البرنامج في المرفق ستجد 3 صفحات

الأولى : ذاتية أريدها أن تبقى كما هي

الثانية : تفاصيل وهذه لا داعي لها أريد أن أحذفها

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

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

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

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

والله يوفقنا وأياكم لكل مافيه خير

شكرا لكم ولكل من يساهم في فعل الخير

teach.zip

#2

السلام عليكم

وين النشامى أصحاب أهل الخبرة

أرجو أن لايخيب ظني

وكلي أمل

#3

السلام عليكم

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

مع تحياتي

#4

أخي العزيز Visitor_OM

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

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

وأنا ياأخي العزيز في انتظارك

تحياتي وتقديري الخالصين لك

مع السلامة

#5

بعد التحية ،،،

تفضل اخي العزيز البرنامج بعد التعديل أتمنى إن يكون المطلوب ...

ومعذرة على التأخير .

بالتوفيق

teach01.zip

#6

أخي العزيز Visitor_OM

شكرا شكرا شكرا ....................... لك إلى مالا نهاية

وجعله الله في ميزان حسناتك

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

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

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

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

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

شاكرا ومقدرا جهودك

ملاحظة بسيطة عزيزي الغاليVisitor_OM

هل يمكن حذف بيانات معلم من الشبكة الرئيسية مباشرة

شكرا شكرا شكرا لك ياغالي

#7

العفوا اخي الكريم ولا داعي للشكر فهذا واجبنا .

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

وتقبل تحياتي .

أخوك Visitor_OM

#8

شكرا لك ياعزيزي Visitor_OM مرة أخرى

وهذا الملف المرفق به قاعدة البيانات بعد ماأضفت إليها جدول التفاصيل

وهناك طلب إذا كان ممكن

هل من الممكن عند اختيار بيانات معلم معين طباعة تقرير بالبيانات الرئيسية

والفرعية له

شاكرا لك ياغالي

تحياتي

teach01.rar

#9

طيب يا اخي بعمل فيه جهدي بس اريد منك كم يوم وإن شاء الله راح اخلصة لك .

#10

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

#11

أخي العزيز Visitor_OM

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

طبعا البيانات الفرعية أريدها

1- لكل معلم عدد غيرمحدود من صفوف البيانات الفرعية ( التفاصيل )

فكل معلم راح أسجل له أكثر من صف في شبكة البيانات الفرعية

2-موقع الشبكة الفرعية ( راح أشرح موقعه بالتفصيل ) كالتالي :

في صفحة البحث التي أنت تكرمت وظبطتها بعد ان تبحث عن اسم معين

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

وبهذا تصبح صفحة البحث صفحة فعالة حيث تصبح (صفحة بحث عن بيانات رئيسية وفرعية لمعلم)( وصفحة تحرير للبيانات الرئيسية للمعلم)(وصفحة إضافة وتحرير للبيانات الفرعيةلأي معلم )

ولو كنت أعرف أن أضيف هذا لأضفته ولكن بصراحة لاأعرف مالذي يستلزم اضافته

شكرا لك عزيزي اتمنى أن يكون ماأريده واضح

تحياتي لك

#12

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

وتحياتي .

#13

شكرا لك جدا ياعزيزي وأنا بانتظارك بفارغ الصبر ولكن لاتتأخر علي كثير

فأنا متشوق جدا لرؤية ماسوف تعمله وكثر الله من أمثالك

مع خالص تحياتي لك

#14

بعد التحية ،،،،

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

هذا وتقبل وافر احترامي وتقديري

البرنامج /

teach01.zip

#15

عزيزي الغالي Visitor_OM

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

ولكن عندي بعض الملاحظات

1- عملية التنقل داخل خلايا الشبكة لاتتم الا بالماوس فهل يمكن تفعيل خاصية

tab أو enter للتنقل بين خلايا الشبكات ( طبعا نفس الشيء بالنسبة في الإنتقال من الشبكة الرئيسية إلى الشبكة الفرعية لاتتم إلا بالنقر على الصف في الشبكة الرئيسية نقرمزدوج فهل يمكن أن يتم ذلك بالظغط على انتر مثلا

2- عملية تحرير البيانات في الشبكة الفرعية في صفحة التفاصيل لاتتم بشكل مظبوط ولا يحفظ البرنامج الرقم المكتوب في خلية الأجر في هذه الصفحة

نفس الشيء بالنسبة للشبكة الفرعية التي تظهر بعد عملية البحث فالبرنامج لايحفظ عمليات التحرير على البيانات التي فيها

3- في الصفحة ذاتية مربع النص الخاص بالهاتف لايقبل إلا رقم واحد

اسمح لي حبيبنا Visitor_OM

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

تحياتي وتقديري الكبيرين

وفقك الله لكل خير

#16

بعد التحية ،،،

أخي الكريم / ha98 . العفو ولا شكر على واجب وجزاك الله كل خير على كلاماتك الطيبة .

بالنسبة لتساؤلاتك /

1- طبعا يمكن التنقل بواسطة مفتاح الإنتر Enter بين خلايا الشبكة الواحدة وهذه الخاصة موجودة في البرنامج . إما عن مفتاح TAB راح اشوفها لك إذا سمحلي الوقت ، وكذلك بالنسبة لعملية الإنتقال إلى الشبكة الفرعية .

2- نعم اخي بالنسبة لعملية التحرير يجب عليك الوصول إلي صف ثاني لكي يحفظ الصف السابق بمعنى بعد إضافة الأجر اضغط على إنتر Enter راح ينقل إلى صف جديد حينا تستطيع الضغط على مفتاح الحفظ وإن شاء الله تتم علمية الحفظ بنجاح .

3- بالنص لخانة الهاتف فإني جعلتها لا تقبل إي الأرقام يمكن حذف هذه الخاصية عن طريق الدحول إلى KeyPress وحذف الكود الخاص بالخانة راجع رقم Index .

4- بالنسبة للطباعة ..... الوقت ..... ولكن كلما سنحت الفرصة راح اعمل عليه ...

بالتوفيق اخي الحبيب .

#17

بالنسبة للسؤال الثالث الخاصة باخانة الهاتف والتي لا تقبل غير رقم واحد /

الحل استبدل الكود السابق بهذا الكود والموجود في KeyPress

الكود /

'
Private Sub txtT_KeyPress(Index As Integer, KeyAscii As Integer)
'
Dim strValid As String
    strValid = "0123456789/"
'
'
 Select Case Index
        Case 3
          If KeyAscii > 26 Then
          If InStr(strValid, Chr(KeyAscii)) = 0 Then
             KeyAscii = 0
          End If
         End If
'
          If KeyAscii = 13 Then
              KeyAscii = 0
               cmdD(3).SetFocus
         End If
'
 End Select
'
 If KeyAscii = 13 Then
    KeyAscii = 0
     SendKeys "{TAB}"
End If
End Sub
#18

شكرا لك حبيبي الغالي Visitor_OM

لقد استبدلت الكود ووضعت الكود الذي في الأعلى وكل شيء مشى معاي مثل الحلاوة وجربت أن أضغط انتر في الشبكة الفرعية وشفت أنه يتم ا لانتقال من خلية إلى أخرى الله يعطيك ألف عافية واسمح لي مصختها معاك من كثر طلباتي لكن بقى شيء بسيط ويصبح البرنامج فعال 100%

عندي طلبان بسيطان لو تتكرم مثل عاداتك

1- هل يمكن عمل ليبل تحت الشبكة الفرعية بحيث يظهر فيه مجموع الأجور التي تظهر في خلية الأجر بحيث كلما أضفت سجل جديد في الشبكة الفرعية واضفت في خلية الأجر سعر معين يؤثر ذلك على المجموع في الليبل (أي يحدث المجموع في الليبل )

2- التقرير اللي قلت لك عنه في السابق بحيث يراعى فيه وجود البيانات الفرعية للمعلم كما هي في الشبكة الفرعية بما فيها ليبل مجموع الاجور ويكون زر الطباعة إما لمعلم محدد أو لجميع المعلمين

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

وجعل الله ذلك في ميزان حسناتك وغفر لك ذنوبك ووفقنا الله وإياك لكل خير ذ

تحياتي وتقديري الخالصين لك ولأمثالك

#19

السلام عليكم

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

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

البرنامج /

teachfnl.zip

#20

الله يعطيك العافية اخي العزيز فيزيتور اسمح لي كتبت اسمك بالعربي هذه المرة

والله الواحد خجل من كثر مايطلب منك لكن نطمع في كرمك شوي وتحملنا

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

1- عندما تريد طباعة بيانات معلم بودي التقرير يظهر كما في الشاشة بمعنى

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

2- بودي أن يكون زر الطباعة في نموذج البحث على أساس المعلم الذي أريد

أن أطبع تقرير له اذهب إلى نموذج البحث وابحث عن بياناته ثم اطبعها من هناك

لايسعني في الأخير إلا أن أقول تحملني في هذه

وعسى الله يقدرني وارد لك شوي من اللي قدمته لي

مع خالص تحياتي

الممتن لك ha98

#21

بعد التحية ،،،

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

بالتوفيق .

#22

شكرا لك ياغالي

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

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

مع خالص شكري لك ياكبير

هذا الموضوع مغلق.

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