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

كيفية عمل بحث للقيد واظهار معلوماته

بدأه سفينة الشوق في 30 يوليو 2013 · 3 رد · 875 مشاهدة · في قواعد بيانات Visual FoxPro
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

رمضان كريم وتقبل الله صيامكم

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

اني قد استخدمت هذه الايعازات لكن اعتقد هناك نقص

P=INPUTBOX("","نافذة البحث","ادخل اسم القيد")
LOCATE FOR VAL(p)=q_no     هنا عميلة البحث عن قيمة عدد  لكن انا اريد ان يكون البحث عن قيمة حرفية
IF FOUND()
SCATTER MEMVAR
thisform.Refresh
ELSE
messagebox("القيد غير موجود",64)
ENDIF
thisform.Refresh

#2

السلام عليكم ورمضان كريم

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

 

اخي العزيز 

يمكنك استخدام هذة الطريقة باضافة  OR 

P=INPUTBOX("ادخل اسم القيد","نافذة البحث","")
LOCATE FOR VAL(p)=5 OR ALLTRIM(p)="اسم الحقل او القيمة "  
IF FOUND()
messagebox("القيد موجود",64)
ELSE
messagebox("القيد غير موجود",64)
ENDIF

مع العلم اعدت صياغة دالة INPUT 

والغاية من اضافة الدالة OR   هي عند كتابه القيمة رقمية او نصية يبحث اذا رقم او اسم 

وبطبيعة الدالة فان القيمة المخرجة لها هي نصية اي C

مع ملاحظة ان الايعاز للمثال فقط ولا تستخدم طريقة LOCATE FOR  الا بتوفر جدول 

 وتحياتي للجميع 

#3

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

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

ly81f9038b6f.jpg

سقوط الإنسان ليس فشلاً، ولكن الفشل أن يبقى حيث سقط

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

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…