[ تمت الإجابة ]سؤال عن معرفة كود يمنع تكرار قيمة غير مفهرسة نوع كرستر

السلام عليكم واهلا وسهلا بك معنا

اخي العزيز اعمل لحقل الارقام فهرسة بنوع primary وهو بقواعد البيانات

وبهذا يكون الحقل لايقبل التكرار

لاحظ الجدول المرفق

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

تحياتي للجميع وانا بانتظار اي استفسار

تكرار.zip

اخي العزيز اعتقد اني لم انتبة للموضوع جيدا

لنفترض لدينا فورم الادخال والحقل الخاص بالادخال هو text1

نضع في حدث velid الخاص بالتكست الاكود الاتي

USE table&& او select table اذا كان مستخدم سابقا ومفهرس بالاسم

:clapping:

عاشت ايدك

السلام عليكم

أضف لما قاله الاخ فراس، وكما تفضلت بخصوص الـ Primary فتستطيع الاعتماد على ما يسمى الـــ Candidate Index لمنع ادخال البيانات في حالة التكرار

فهو يعمل مثل الـ Primary ويختلف عنه بأنك تستطيع انشاء أكثر من Candidate index في الجدول الواحد

ضع الكود التالي في برنامج وقم بالتجربة

CREATE CURSOR Test (TablePk INT AUTOINC , EmpName c(40), FamilyName c(40))
INDEX ON TablePk TAG TablePk
INDEX ON EmpName TAG EmpName CANDIDATE
INDEX ON FamilyName TAG FamilyName CANDIDATE
SET ORDER TO

ON ERROR ShowError()
FOR I = 1 TO 5
	INSERT INTO Test (EmpName, FamilyName ) VALUES ("Ahmad-"+ TRANSFORM(I), "FAMILY-"+TRANSFORM(I))
NEXT
* الامر التالي سيحاول تكرار القيم المدخلة ويعطي خطأ
INSERT INTO Test (EmpName, FamilyName ) VALUES ("Ahmad-"+ TRANSFORM(2), "FAMILY-"+TRANSFORM(2))
BROW
ON ERROR

FUNCTION ShowError()
	AERROR(arError)
	IF INLIST( arError(3), "EMPNAME", "FAMILYNAME")
		MESSAGEBOX("تم ادخال هذا الاسم سابقا" + CHR(13) +arError(2) ,0+16+512,"ملاحظة" )
	ENDIF
ENDFUNC

مع التحية

كم انت رائع ياعبدالله الجلاد تحياتي لك وللافكار المختلفة الجميله التي تودي لنفس الغرض او الغاية

+1

مشكوررين جميعا يامبدعين

للاسد وللشبح

مشكوررررا

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

اخواني اشكر جهودكم وسرعة ردكم وانا ممنون منكم

يبدو اني لم استطع التوضيح لكم جيدا بما تقدمت بطلبه

لذلك سوف ارفق لكم فورم مع جدوله

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

لذا ارجوا العمل على مثالي المرفق ومن ثم رفعه لاستلامه لكي يتم توضيح فكرة كيفية عمل ذلك

فكرة اخرى لها علاقة بموضوعنا وهي :

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

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

هل بالامكان عملها هنا لتظهر الكلمات عن طريق حدث ( intetactivechange )

مع الشكر مره اخرى وبالاخص اسد العراق وشادو

منع تكرار الكلمات.zip

السلام عليكم

اخي العزيز لاحظ المرفق وتم اضافة التحذير الية بطريقة wait وال messagebox

مع العلم تم تفعيل الرسائل والباقي خيارك اي الطريقة للمثال فقط

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

منع تكرار الكلمات.zip

مشكور اخي اسد العراق على المثال وعلى سعة صدرك

لكن المثال الذي عملته يضهر رسالة حتى عندما لا تتكرر كلمة

اي تظهر الرسالة في كل حال اذا كانت الكلمة مكررة او لا

وبهذا لا يستفاد منها المستخدم الذي لا يريد تكرار كلمة او اسم في حقل name

لذلك المقصود ليس ظهور رسالة بدون هدف لابد ان تعمل بحث او select ثم يتحقق الشرط حتى تظهر الرسالة التي تبلغ بتكرار القيمة

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

الكود الذي نستطيع فيه تحقيق الشرط بالامر seek هو (طبعا وانتم تعلمون بأن هناك اكثر من امر وطريقة )

SET SAFETY OFF

 SELECT table1
 SET ORDER TO name
  asd=this.value
  iraq=(asd)
  IF INDEXSEEK(iraq)
    MESSAGEBOX("الاسم مكرر حاول مرة اخرى")
    THIS.Value=""
   RETURN 0

ENDIF

لكن في هذه الحالة لابد ان نجعل من حقل name مفهرس اي indexes وسؤالي في المشاركة كان

اقتباس

معرفة كود يمنع تكرار قيمة غير مفهرسة في جدول معين

اذا كانت الاجابة كلا

معناها لا يمكن بدون فهرسة

لذا اشكر كل من حاول مساعدتي واخص الاخوان اسد العراق وشادو وعندي اسئلة اخرى او مشاريع مبتكرة صغيرة اذا كان لديكم وقت للرد

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

عزيزي Ababil

انت تستخدم الحقل Name بشكل مباشر بالنموذج عن طريق ControlSource الخاص بالـ TextBox

لذا بمجرد أن تعمل Append Blank وتغير قيمة الـ Textbox تكون قد أضفت الاسم الجديد للجدول

وبهذا...نعم سيظهر أن الاسم مكرر حتى لو لم يكن كذلك

- بما معناه أنت تخزنه بالجدول أولا ثم تبحث عنه، المفروض أن تبحث عنه ثم تقرر هل تود تخزينه أم لا -

بالنسبة للبحث، فنعم بمكنك استخدام أوامر الـ Sql بشكل مفيد جدا

أما بالنسبة للفهرسة فلا أعلم سبب رفضك لها

السرعة تتغير بشكل ملحوظ اذا بحثت عن طريق Seek أو Locate اذا كان الحقل الذي تبحث عنه مفهرس وتم عمل Set Order له قبل البحث

وللعلم فان الـ Sql Select ستقوم بعمل فهرس مؤقت للحقل بشكل تلقائي ان احتاج الأمر

هذا النموذج بعد التعديل، وأهم أمر ستجده فيه هو CursorSetProp لتغيير الــ Buffer للجدول الى 5

حيث عن طريق هذا التغيير تستطيع التعامل مع الحقل الجديد على أنه غير موجود لغاية عمل TableUpdate أو Tablerevert

وهو وبشكل طبيعي لن يظهر أو يؤثر على نتيجة الـ Select لأنه معلق بالـ Buffer

والشرح يطول

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

Ababil.rar

السلام عليكم

مشكور للاخ العزيز شادو على الشرح الجميل والطريقة الرائعة

اخي ababil

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

وفكرة الاخ شادو جميله

اما عن طريقة استخدام الفهرسة هو لغرض تسهيل الايعاز وسرعة التنفيذ

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

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

ولذلك توجد اكثر من طريقة لغاية واحدة

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

منع تكرار الكلمات.zip

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

الأخ Ababil

ذكرت بمشاركة سابقة أن VFP9موضوع جديد بالنسبة اليك وفهمت من كلامك أنك قد تكون عملت على لغات أخرى

( وصححني ان كنت غير مصيب )

وبجميع الأحوال، وطالما أنك ستبدأ بالــ 9 فأنصحك أن تبدأ بالطريقة الصحيحة، وهي التعلم ليس الاّ، قد تكون بعض الأوامر جديدة بالنسبة اليك،

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

لكن باختصار لا تقف امام حاجز ( لا أريد لأني لا أعرف )،

بالنسبة لأعمالك القديمة طالما أنها تعمل، فدعها تعمل دون المساس بها، او دون أن تحاول تطبيق ما تتعلمه من جديد عليها،

أما بالنسبة للأفكار ومنطق وطريقة سير الأمور صدقني هي ليست بالشيء الصعب أو المستحيل وأنا لم آت بشيء جديد، كل الأدوات متاحة أمامك وما عليك الا فرض أسلوبك الذي قد يكون أفضل من اسلوبي بعد ان تملك المعرفة الكافية باللغة

أبدأ أي برنامج صغير وتعلم من خلاله، واطرح أي سؤال وان شاء الله بتلاقي الجواب سواء من قبلي أو من قبل الأخوة الأفاضل بالمنتدى

وعلى فكرة المنتدى مليء بالمواضيع المفيدة، وأظن أن كل موضوع تقوم بقرائته سيعطيك معلومة جديدة

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

السلام عليكم

اوويد ما ذكره الاخ عبدالله كل واحد فينا له طريقة تفكير تختلف عن الاخرين ولكن هناك من يختار الخط المستقيم هو اقصر مسافة بين نقطتين وفي من يوصل بطريق تاني وعموما زي ما بيقولو with time became better

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

Shadowz كتب:

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

الأخ Ababil

ذكرت بمشاركة سابقة أن VFP9موضوع جديد بالنسبة اليك وفهمت من كلامك أنك قد تكون عملت على لغات أخرى

( وصححني ان كنت غير مصيب )

وبجميع الأحوال، وطالما أنك ستبدأ بالــ 9 فأنصحك أن تبدأ بالطريقة الصحيحة، وهي التعلم ليس الاّ، قد تكون بعض الأوامر جديدة بالنسبة اليك،

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

لكن باختصار لا تقف امام حاجز ( لا أريد لأني لا أعرف )،

بالنسبة لأعمالك القديمة طالما أنها تعمل، فدعها تعمل دون المساس بها، او دون أن تحاول تطبيق ما تتعلمه من جديد عليها،

أما بالنسبة للأفكار ومنطق وطريقة سير الأمور صدقني هي ليست بالشيء الصعب أو المستحيل وأنا لم آت بشيء جديد، كل الأدوات متاحة أمامك وما عليك الا فرض أسلوبك الذي قد يكون أفضل من اسلوبي بعد ان تملك المعرفة الكافية باللغة

أبدأ أي برنامج صغير وتعلم من خلاله، واطرح أي سؤال وان شاء الله بتلاقي الجواب سواء من قبلي أو من قبل الأخوة الأفاضل بالمنتدى

وعلى فكرة المنتدى مليء بالمواضيع المفيدة، وأظن أن كل موضوع تقوم بقرائته سيعطيك معلومة جديدة

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

السلام عليكم اخوتي الاعزاء

اخي العزيز ababil

انا مع ماقاله الاخ عبد الله كما اقتبست منة

اما عن تسالك

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

اما في حالة كانت الداتا للقراءة فقط يعني تفيد للبحث فقط واستطيع استخدام لغة الاستعلام او فلترة الجدول

اما عن سوالك عن alltrim فتفيد "إزالة كافة المسافات البادئة والزائدة أو أحرف تحليل من التعبير الحرف المحدد، أو زائدة عن الرائدة وصفر (0) بايت من التعبير ثنائي المحدد"

وبطبيعة الحال ان القيم النصية ليس هي اختصاص في البحث او الفهرسة او اجراء العمليات الحسابية عليها فوجدت الدوال والاوامر للمساعدة بها مثل alltrim

وبالنسبة للرسائل وارقام الضيغ وقيم الازرار فهي موجودة في هيرنز البرنامج

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

تحياتي للجميع وااكد اقتباس اخي شادو

اشكركم اخوان على الردود الطيبة وعلى اهتمامكم النبيل

سأفكر بما قلتوه واحاول البدء بمحاولات صغيرة واتعلم خطوة خطوة

لذا علي دراسة الدوال والاوامر جيدا قبل التنفيذ

واشكرك اخي اسد العراق على التوضيح

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

تدرج بعد كل امر معين مثل امر مسج (MESSAGEBOX)

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

ما زال امامي الكثير جدا للتعلم

الف تحية لكم

اهلا وسهلا بك باي وقت