منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - المشروع جاهز فقط اريد الكود الذي يظهر لي البحث لموظف واحد

[attachment=28644]الاخوة الاعزاء جميعاً:

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

المشكله في البرنامج والناقصه معي والتي تحتاج الى معالجه وهي عندما لا ادخل اي بيانات واعمل بحث تظهر بيانات الموظفين كامل وتقييمهم للشهر المحدد وهو الحال في بقيه الاشهر وكذلك خانه ال Total تظهر بياناتهم كامل اريد عدم اظهار بيانتهم واخفائها كامل من شهر يناير الى نهايه السنه ديسمبر وكذلك اخفاء البيانات كامله في الـ TOTAL

اما خانه Top10 تظهر البيانات للجميع مافيش مشكله .

الخلاصه : اريد خانه البحث تظهر النتائح بحسب الرقم الوظيفي المخل فقط ولايقبل ظهور البيانات للجميع .

ارجوء الافاده وومكن كذلك مداخله الاستاذ العزيز Taha Okla ليرى المشروع وفكره ماكنت اريده .

شكرررررر

كود :

   Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click

        DataGridView1.DataSource = Nothing

        Dim t As String = ComboBox1.Text

        If t = "JUL" Then t = "July" ' بسبب عدم تطابق اسم هذا الشهر ' ??!!! Fear Allah, man

        dt = New DataTable

        If ComboBox1.SelectedIndex <= 12 Then

            If ComboBox2.Text.Trim() = "" Then

                MsgBox("يرجى ادخال رقم الموظف.", vbExclamation, "تنبيه")

                ComboBox2.Focus()

                Exit Sub

            End If

            da = New OleDbDataAdapter("SELECT * FROM [" & t & "] WHERE [PF] = @c  ", con)

            da.SelectCommand.Parameters.AddWithValue("@c", ComboBox2.Text.Trim)

        Else

            ComboBox2.Text = ""

            da = New OleDbDataAdapter("SELECT * FROM [" & t & "]  ", con)

        End If

        da.Fill(dt)

        DataGridView1.DataSource = dt

        DataGridView1.ClearSelection()

    End Sub

(24-01-23, 02:54 AM)Taha Okla كتب : [ -> ]

كود :

Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click DataGridView1.DataSource = Nothing Dim t As String = ComboBox1.Text If t = "JUL" Then t = "July" ' بسبب عدم تطابق اسم هذا الشهر ' ??!!! Fear Allah, man dt = New DataTable If ComboBox1.SelectedIndex <= 12 Then If ComboBox2.Text.Trim() = "" Then MsgBox("يرجى ادخال رقم الموظف.", vbExclamation, "تنبيه") ComboBox2.Focus() Exit Sub End If da = New OleDbDataAdapter("SELECT * FROM [" & t & "] WHERE [PF] = @c ", con) da.SelectCommand.Parameters.AddWithValue("@c", ComboBox2.Text.Trim) Else ComboBox2.Text = "" da = New OleDbDataAdapter("SELECT * FROM [" & t & "] ", con) End If da.Fill(dt) DataGridView1.DataSource = dt DataGridView1.ClearSelection() End

جزيل الشكر Heart

شكراً ياعزيز وبارك الله فيكم جميعاً انا ممنون لك وللاخ / OLED حقيقه هو صاحب المبادره في اكمال مشروعي وفهم مااريده وكنت اود ان اشكره بشكل خاص ولكن للاسف لم استطع التواصل معاه واشكره على الاضافه الجميله في المخطط البياني الذي اضاف جمالاً للمشروع وكان عندي فكرتين ان امكن تطبيقم :

1- هل بالامكان استعراض تقييم الموظف في صفحه جديده ومن خلال البحث بالرقم الوظيفي لااي موظف تظهر لي كل التقييمات من شهر 1 الى شهر 12 لموظف واحد .

2- هل بالامكان اضافه ايقونه تصدير التقييمات الى ملف اكسل .

اي افكار ترونه اضافه جيده ممكن تسويها شاكرأ لك تعاونك سلفاً .

(25-01-23, 10:50 AM)محمد مسافر كتب : [ -> ]1- هل بالامكان استعراض تقييم الموظف في صفحه جديده ومن خلال البحث بالرقم الوظيفي لااي موظف تظهر لي كل التقييمات من شهر 1 الى شهر 12 لموظف واحد .

لذلك اقترحت عليك مسبقاً أن تضع كل التقييمات بجدول واحد -وليس عدة جداول- باضافة حقل للسنة وحقل للشهر..

(25-01-23, 10:50 AM)محمد مسافر كتب : [ -> ]2- هل بالامكان اضافه ايقونه تصدير التقييمات الى ملف اكسل .

اي افكار ترونه اضافه جيده ممكن تسويها شاكرأ لك تعاونك سلفاً .

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

ربما نستطيع مساعدتك عندما تقف عند خطوة ما .. ولكن ليس كل شيء.

الوقت ثمين جداً - ولن تجد من يتفرغ من أجل أن ينجز مشروع لأي شخص ..
البساطة التي تفكر فيها - يجب أن تتركها لتفكر بمبدأ القدرة على الانجاز والتكلفة -

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

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

(25-01-23, 03:45 PM)Taha Okla كتب : [ -> ]
(25-01-23, 10:50 AM)محمد مسافر كتب : [ -> ]1- هل بالامكان استعراض تقييم الموظف في صفحه جديده ومن خلال البحث بالرقم الوظيفي لااي موظف تظهر لي كل التقييمات من شهر 1 الى شهر 12 لموظف واحد .

لذلك اقترحت عليك مسبقاً أن تضع كل التقييمات بجدول واحد -وليس عدة جداول- باضافة حقل للسنة وحقل للشهر..

(25-01-23, 10:50 AM)محمد مسافر كتب : [ -> ]2- هل بالامكان اضافه ايقونه تصدير التقييمات الى ملف اكسل .

اي افكار ترونه اضافه جيده ممكن تسويها شاكرأ لك تعاونك سلفاً .

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

ربما نستطيع مساعدتك عندما تقف عند خطوة ما .. ولكن ليس كل شيء.

الوقت ثمين جداً - ولن تجد من يتفرغ من أجل أن ينجز مشروع لأي شخص ..
البساطة التي تفكر فيها - يجب أن تتركها لتفكر بمبدأ القدرة على الانجاز والتكلفة -

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

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

شكرا ياعزيزي
احيانا الافكار تحتاج تطبيق والافكار والاكواد بالملايين وصعب ان الواحد يفهم كل حاجه وكل الاكواد وبعض الافكار يصعب تطبيقها والاشكاليه اني دائما اختار افكار متقدمه لم تكن قد مرت عليا من قبل والبعض ربما وصل الى مستوى احترافي في اللغه ويحاول ان يقلل من شان الاخرين وكأن الاخرين لا يفقهوا شيا وهذا مؤسف والمفترض ان الشخص قد بداء ببرنامج ومحتاج تكمله او استشاره او فكره ماالمانع من ذلك ان استطاع المبرمج والا مالفائده من هذا المنتدى الا لتبادل الافكار والمعلومات ومساعده الاخرين .
شكررر. واتمنى منك سعه الصدر والصبر والبال .

ياعزيزي،

لا تظن أن كل شخص ينصحك بالتعلم بأنه يقلل من شأنك، وأنه يعرف أكثر منك..

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

يختلف الناس بإدراكهم للأمور ..

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

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

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

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

أضطررت لمشاهدة أكثر من 190 فيديو حتى وصلت للمعلومة وكانت موجودة في الفيديو الأخير في آخر دقيقة منه..

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

بالرغم من قدرتي على انجاز أغلب ما أريد من مشاريع - ولكن أسلوب الأكاديمي يبقى مختلف تماماً..
هل من المنطق أن أضيع شهور على برنامج - بينما أستطيع أنجازه بأسابيع وبأجمل صورة ممكنة وبدون الحاجة للف والدوران
بالأكواد وإبداء خبرتي البرمجية بأنه لا شيء يقف أمامي .. ؟؟ !!

أصبح المهم عندي فهم الأساسيات، حتى أعرف أين أتجه عندما أريد تنفيذ أمر ما ..

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

الوقت ثم الوقت ثم الوقت ...