delphi4arab منتديات دلفي للعرب

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

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

PHP كود :
if Table1.locate('CODE_PROJ',Edit8.Text,[]) then

          Begin
            ShowMessage('This user already exists');
            edit8.Clear;
            edit10.setfocus;
            exit;
          End
  Else
         Begin
           if (Edit8.Text <> '')   then
              Begin
                 Table1.Insert;
                 Table1N_AP.AsString := Edit8.Text;
                 Table1Nom_enter.AsString := edit9.Text; 

فهل هناك أفكار أخرى و شكرا لكم

[INDENT]
وعليكم السلام ورحمة الله وبركاته ـ
يمكنك استعمال ال Sql و هو أفضل و بضل تحضر نفسك للانتقال إلى قواعد بيانات أكثر أمانا و استقرارا.

كود :
Select CODE_PROJ
From MyTable
where CODE_PROJ = :MyParamatre

لاحظ أخي الحبيب أن الأمر أصبح أكثر تعقيدا للوهلة الأولى.

1- ستستعمل الSql .
2- ستستعمل ال Paramaitre.
3- تستعمل Query بدلا عن Table.

حاول و نحن هنا.
واطلع على الرابط التالي سيفيدك كثيرا :

http://www.delphi4arab.net/forum/showthread.php?tid=6979

بالتوفيق أخي الحبيب.
[/INDENT]

وعليكم السلام ورحمة الله وبركاته
إذا أنشأت فهرس Index فريد Unique على الحقل لن تحتاج إلى كل ذلك
للإجابة عن الحدث وإظهار رسالة خطأ مناسبة من خلال حدث OnPostError أو غيرها...
بالتوفيق.

مبرمج مبتدأ

أبو معاذ

kachwahed