delphi4arab منتديات دلفي للعرب
أستفسار حول منع التكرار - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : أستفسار حول منع التكرار (/showthread.php?tid=12409)

الصفحات: 1 2


RE: أستفسار حول منع التكرار - ahmedhossin - 11-10-2023

(11-10-2023, 10:31 AM)أبو معاذ كتب :
(11-10-2023, 10:18 AM)ahmedhossin كتب :
(10-10-2023, 05:09 PM)أبو معاذ كتب :
(09-10-2023, 09:04 PM)ahmedhossin كتب : جزاك الله بخصوص اجابة حول عدم التكرار اريد استفسار 
بالنسبة  في ADOQuery  اكتب الأمر التالي  اين يكتب هل في events  في أي خانة عند الضغط أم  ماذا جزاك الله خيرا

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

و للتوضيح أكثر اعطنا الكود الذي تدخل فيه البيانات.

form13.ADOTable1.Post; هذا هو كود الحفظ

جميل ،
قبل ال Post ،
ضع كود التحقق من عدم وجود التكرار.
إذا كان غير مكرر :
form13.ADOTable1.Post

اضع هذا الكود  [size=1]SELECT  MyName[/size]
[size=1]FROM MyTable[/size]
[size=1]WHERE MyName = :N[/size]


RE: أستفسار حول منع التكرار - Mr.DOS - 16-10-2023

سلام عليكم
1 - عليك بعمل بحث عن الاسم او الرقم قبل الاضافة اولا : استعمل جمل الاستعلام SQL
ان وجد :-  if query.recordCount > 0 
          قم بإظهار رسالة تفيد بوجود السجل مع امكانية التعديل على السجل بـ نعم / لا  : استعمل :if MessageDlg
          نعم : قم بإظهار فورم خاص بالتعديل على السجل الموجود 
          لا    :عد الى فورم الادخال واعمل setfocus على edit  الخاصة بإدخال الاسم 
ان لم يجد شيئ :- if query.rrecorddCountt <=0
قم بعمل اضافة بشكل سلس دون اي رسالة