+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : التعديل على كود استخراج الطلبة العشرة الأوائل (/showthread.php?tid=40348)
الصفحات:
1
2
التعديل على كود استخراج الطلبة العشرة الأوائل - مصمم هاوي - 28-12-21
هل يمكن التعديل على كود استخراج الطلبة العشرة الأوائل بحيث لو تكرر نرنيب معين يُصبح الترتيب مكرر
مثلاً: لو تكرر الترتيب الأول فيصبح الأول - الأول مكرر .... وهكذا
كود :
SQL = "delete * from TBL_first1"
DB.Execute SQL
Call ConnectionDatabase
If RS.State = adStateOpen Then RS.Close
SQL = "insert into TBL_first1 Select top 10 Name_Student, Clas, CClas, Category, SETNO1, Semester, total, FINAL, takdeer, result, TAG From TBL_Final2 where result='ناجح' And Clas='" & Trim(CombClass2.Text) & "' And CClas='" & Trim(CombCClass2.Text) & "' And Semester=3" & " order by total DESC"
DB.Execute SQL
RS.Open "Select * from TBL_first1", DB, adOpenStatic, adLockOptimistic
For I = 1 To RS.RecordCount
If I = 1 Then RS!trteeb = "الأول"
If I = 2 Then RS!trteeb = "الثاني"
If I = 3 Then RS!trteeb = "الثالث"
If I = 4 Then RS!trteeb = "الرابع"
If I = 5 Then RS!trteeb = "الخامس"
If I = 8 Then RS!trteeb = "السادس"
If I = 7 Then RS!trteeb = "السابع"
If I = 8 Then RS!trteeb = "الثامن"
If I = 9 Then RS!trteeb = "التاسع"
If I = 10 Then RS!trteeb = "العاشر"
If I = 1 Then RS!ID = "1"
If I = 2 Then RS!ID = "2"
If I = 3 Then RS!ID = "3"
If I = 4 Then RS!ID = "4"
If I = 5 Then RS!ID = "5"
If I = 6 Then RS!ID = "6"
If I = 7 Then RS!ID = "7"
If I = 8 Then RS!ID = "8"
If I = 9 Then RS!ID = "9"
If I = 10 Then RS!ID = "10"
RS.MoveNext
Next IRE: التعديل على كود استخراج الطلبة العشرة الأوائل - مصمم هاوي - 29-12-21
(29-12-21, 02:49 AM)سعود كتب :إقتباس :هل يمكن التعديل على كود استخراج الطلبة العشرة الأوائل بحيث لو تكرر نرنيب معين يُصبح الترتيب مكررنعم يمكن ذلك .. وذلك بكود استعلام باجراء مستقل ترسل له الرقم قبل اسناده ليتحقق منه ثم يعيد النتيجة وبناءا عليه يتم التحديد هل مكرر ام لا.
مثلاً: لو تكرر الترتيب الأول فيصبح الأول - الأول مكرر .... وهكذا
اعرف اخي سعود أنه يمكن ولكن أقصد هل يمكن أو يتكرم أحد الأساتذة بالتعديل على الكود؛ لأنني حاولت مرات عديدة وفشلت.
RE: التعديل على كود استخراج الطلبة العشرة الأوائل - مصمم هاوي - 29-12-21
هذا مثالٌ مقطوعُ من المشروع أريد فيه التعديل على كود استخراج الطلبة العشرة الأوائل حسب الصف والشعبة
لمجموع درجات الفصلين وذلك بناءُ على القيمة (3) للحقل (Semester) في الجدول (TBL_Final2)
والحفظ في الجدول (TBL_first1)
والمطلوب: التعديل على الكود بحيث يتم معرفة الترتيب المكرر ليُصبح هكذا: الأول . الأول مكرر - الثاني . الثاني مكرر .... وهكذا
علماً [ان المثال قد تكرر التريب الأول لطالب في الصف الول والمفروض يكون الأول . الأول مكرر ولكنه اخذ الترتيب الثاني وهذا خطاأ كبير
فأرجو التعديل حسب المثال المرفق
[attachment=27445]
RE: التعديل على كود استخراج الطلبة العشرة الأوائل - مصمم هاوي - 29-12-21
(29-12-21, 08:31 PM)سعود كتب : لم يعمل لدي المشروع اتوقع السبب ان نظام التشغيل عندي 64 بت ويندوز 11.
يفترض ان تصمم مثال بسيط لتعرف الفكرة افضل من رفع مشروع ضخم مثل هذا.
على كل حال الاخوة الفضلاء لن يقصروا بتقديم المساعدة بحل الاشكال.
أتأسف لعدم تمكني من تقديم المساعدة بهذا الخصوص.
جزاك الله كل خير أخي سعود ما قصرت, والمثال عبارة عن فورمين وقاعدة بيانات وتقرير فقط وليس ضخم
RE: التعديل على كود استخراج الطلبة العشرة الأوائل - Taha Okla - 29-12-21
السلام عليكم
السبب عدم عمل البرنامج عندك يطلب تسجيل بعض ملفات الـ OCX
وهذا بسبب أن برنامج VB6.0 لم يتم تثبيته بشكل كامل
وهذه المشكلة موجودة منذ اصدار ويندوز 10
وتحتاج لاجراءات تعملها أثناء تثبيت التطبيق كي يتم تثبيت الاصدار كامل
منها إلغاء اختيار تثبيت ADO ..
والغاء اختيار فيجول استديو انلايزر..
وذلك حتى يتم تثبيت النسخة بشكل كامل ..
RE: التعديل على كود استخراج الطلبة العشرة الأوائل - ahmedabdelaliem - 30-12-21
السلام عليكم
تفضل اخي
RE: التعديل على كود استخراج الطلبة العشرة الأوائل - مصمم هاوي - 31-12-21
(30-12-21, 03:21 PM)ahmedabdelaliem كتب : السلام عليكم
تفضل اخي
سقاك الله كوثراً من حوض المصطفى صلى الله عليه وسلم.
والكود الجميل قام بحل الإشكال الحاصل لدى إلا خاصية الطباعة, وحيث أن المثال المرفق كان يقوم بحفظ الطلبة العشرة الأوائل في الجدول (TBL_first1)
وذلك بعد إختيار اسم الصف والشعبة وصفة القيد.
ولكن مثالك الرائع أوحى إلىَّ فكرة إلغاء جدول الحفظ والاكتفاء بعرض بيانات الطلبة الأوائل في جدول (MSHFlexGrid) ومنه يتم طباعة هذه البيانات.
وأعتقد أن هذا أفضل من الحفظ في الجدول ؛ ولأن الفليكس قريد أفضل في عرض مجموعة بيانات كاسم الطالب والصف والشعبة والترتيب.
فياليت تكرمت أستاذي الكريم بتغيير الليست بوكس إلى آداة الفليكس بوكس
بحيث كلما اخترت صفا دراسيا عرض الأوائل في الفليكس قريد بدون الحفظ في الجدول
RE: التعديل على كود استخراج الطلبة العشرة الأوائل - ahmedabdelaliem - 31-12-21
الله يكرمك على الكلمات الطيبه
ان شاء الله لما اجلس على الكمبيوتر اعملك طلبك
بالتوفيق
RE: التعديل على كود استخراج الطلبة العشرة الأوائل - ahmedabdelaliem - 31-12-21
السلام عليكم
تم التعديل اخي حسب طلبك عرض البيانات في الجريد وايضا طباعتها
بالتوفيق
RE: التعديل على كود استخراج الطلبة العشرة الأوائل - مصمم هاوي - 01-01-22
(31-12-21, 07:04 PM)ahmedabdelaliem كتب : السلام عليكم
تم التعديل اخي حسب طلبك عرض البيانات في الجريد وايضا طباعتها
بالتوفيق
والله يعجز اللسان عن الشكر والتقدير.
وتقف اليدان عن التدوين والتحرير
ولكن خلجات القلب هى من تعبر
ودقات القلب هى من تفسر كل ما اكنه من حب ممزوج بالمودة الطيبة
فلك مني كل احترام
ولك مني كل دعوة صادقة بأن يرزقك النظر إلى وجهه الكريم
حياك الله أخي الحبيب وأستاذي القدير أحمد عبد العليم.