منع تكرار تسجيل

السلام عليكم

يجب أن يكون ذلك من أصل قاعدة البيانات أي أن هذا الحقل من خصائصه منع التكرار

ولا أعتقد أن للبرمجة علاقة بهذا الخصوص إلا ما ندر (كأن نستخدم Edit وليس DBEdit من أجل التحقق من ذلك قبل الإدخال في قاعدة البيانات)

ربما يا أخي الأسماء تتكرر لأن اسمك نسيم ويوجد العديد اسمهم نسيم

ولكن المفتاح الرئيسي يجب الا يتكرر والا يسببلك مشكل

واذا اردت عدم تكرار الاسم ممكن تستعمل خاصية البحث

والله اعلم

افند ما قاله الاخوان الاسم من الممكن ان يتكرر ام المميز (المعرف) فذلك لا يمكن

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

لذلك ستخدم الكود التالي في الحدث OnExit للمكون DBedit

try
Table1.FindKey([DBEdit1.Text]);
Table1.Edit;
except
ShowMessage(' هذا الاسم موجود مسبقا ');
DBEdit1.SetFocus;

بالتوفيق

مجرد رأي أول نصيحة

أستخدم الأداة edit بدلا من dbedit لأنك لن تستطيع الكتابة في الـ dbedit حتى تكون عامل شجل جديد أو عامل تعديل على الجدول المربوط فيه الـ dbedit

و لما يكون هذا و قمت بالبحث عن أسم معين فسوف يجري 1 من 2

1- إلغاء كل ما أضفته من معلومات في الأدوات dbedit

2- حفظ السجل قبل تنفيذ عملية البحث بهذا نكون حفظنا قبل التأكد من تكرار الأسم

كأقتراح أقترح أستخدام الـ edit كما في الكود

procedure TForm1.Button1Click(Sender: TObject);
begin
Table1.filtered := false;
Table1.filter := 'name = '''+edit1.text+'''';
table1.filtered := true;
if table1.recordcount > 0 then
   showmessage('هذ الأسم موجود مسبقاً')
else
// أجراء الحفظ
   save;
end;