+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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)
+---- الموضوع : مساعده فى البحث فى الاداه List1 بعد اختيار عده اختيارات مجمعه منها (/showthread.php?tid=17652)
مساعده فى البحث فى الاداه List1 بعد اختيار عده اختيارات مجمعه منها - Ashraf Elafify - 13-10-16
الساده المحترمين اعضاء المنتدى.
الرجاء مساعدتى فى كود البحث كما فى المرفقات.
عندى اقسام مختلفه بالشركه مثل ( الانتاج - الحسابات - المشتريات - الامن الادارى ... الخ).
وعندى برنامج يعمل ولله الحمد جيدا و طلب منى ان يقوم البرنامج بالبحث عن طلبات الصيانه بالقسم .
و هو المتواجد حالياً ولكن بعد وقت طويل طلب منى التعديل على البرنامج ليتمكن المستخدم من البحث عن عده اقسام معينه بعد عمل select على check box فى الأداه list1.
فلم استطيع ضبط الاداه كما هو موضح فى المرفقات .
فهل اجد من يساعدنى فى التعديل على المرفقات او كيفيه عمل جمله البحث كما هو سابق الذكر ، علماً بأن آداه الربط مع قواعد البيانات هى الــ data control .
وجزاكم الله خيرا وزادكم علماً.
RE: مساعده فى البحث فى الاداه List1 بعد اختيار عده اختيارات مجمعه منها - Ahmed_Mansoor - 14-10-16
أهلا بك أخي الكريم , تم تعديل المثال .
RE: مساعده فى البحث فى الاداه List1 بعد اختيار عده اختيارات مجمعه منها - Ashraf Elafify - 17-10-16
جزاكم الله خيرا أخى أحمد
وبارك الله فيك وزادك علماً .
جارى التجربه
RE: مساعده فى البحث فى الاداه List1 بعد اختيار عده اختيارات مجمعه منها - Ashraf Elafify - 18-10-16
بارك الله فيك اخى احمد
انها تعمل جيداً
وبارك الله فى جميع الاعضاء و اساتذتنا الكبار
RE: مساعده فى البحث فى الاداه List1 بعد اختيار عده اختيارات مجمعه منها - Ashraf Elafify - 18-10-16
اخى العزيز أحمد
واجهتنى مشكله أخرى عند دمج التعديل الذى ارسلته مع برنامجى
و هى تتمثل فى انه عندما أبحث عن كل طلبات الصيانه من قسم ( الانتاج - التقنى - المخازن ) بعد عمل تحديد لهمList1 ثم اختار الطلبات التى تم ارسالها لقسم الميكانيكا Combo10 و على خط الانتاج رقم (PM3) على سبيل المثال Combo8 النتيجه تكون خاطئه ؟
يأتى بجميع الاقسام ( ميكانيكا - كهرباء - لحام ).
فهل من الممكن مساعدتى فى ضبط كود البحث كما فى المرفقات
وجزاكم الله خيراً.
RE: مساعده فى البحث فى الاداه List1 بعد اختيار عده اختيارات مجمعه منها - Ahmed_Mansoor - 19-10-16
أهلا أخي الكريم , تم تعديل كود زر البحث على حسب ماكان موجود في جملة الإستعلام , هذا كود زر البحث :
PHP كود :
Private Sub Command1_Click()
If List1.ListCount <= 0 Then Exit Sub
Dim ZSQL As String
Dim I As Integer
For I = 0 To List1.ListCount - 1
If List1.Selected(I) = True Then
If Trim$(ZSQL) = "" Then
ZSQL = "Issuing_Department ='" & Trim$(List1.List(I)) & "'"
Else
ZSQL = ZSQL & " or Issuing_Department ='" & Trim$(List1.List(I)) & "'"
End If
End If
Next
If Trim$(ZSQL) = "" Then
Exit Sub
Else
If InStr(1, ZSQL, "=") > 1 Then ZSQL = "(" & ZSQL & ")"
End If
If Trim$(Combo4.Text) <> "" Then ZSQL = ZSQL & " and Type='" & Trim$(Combo4.Text) & "'"
If Trim$(Combo9.Text) <> "" Then ZSQL = ZSQL & " and work_purpose='" & Trim$(Combo9.Text) & "'"
If Trim$(Combo10.Text) <> "" Then ZSQL = ZSQL & " and section='" & Trim$(Combo10.Text) & "'"
If Trim$(Combo8.Text) <> "" Then ZSQL = ZSQL & " and Line='" & Trim$(Combo8.Text) & "'"
If Trim$(Combo5.Text) <> "" Then ZSQL = ZSQL & " and Issued_satus='" & Trim$(Combo5.Text) & "'"
If Trim$(Combo7.Text) <> "" Then ZSQL = ZSQL & " and Requested_by='" & Trim$(Combo7.Text) & "'"
If Trim$(Combo14.Text) <> "" Then ZSQL = ZSQL & " and Request_Type='" & Trim$(Combo14.Text) & "'"
Data1.RecordSource = "select * from RRS where " & ZSQL & " order by RRS"
Data1.Refresh
If Data1.Recordset.RecordCount > 0 Then Data1.Recordset.MoveLast
End Sub
RE: مساعده فى البحث فى الاداه List1 بعد اختيار عده اختيارات مجمعه منها - Ashraf Elafify - 19-10-16
بارك الله فيك أخى
بصراحة روعه زادكم الله علماً اخى الكريم و جعل الله مساعدتك لنا فى ميزان حسناتك.
جزاكم الله خيراً.