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

السلام عليكم
أولا أنا سعيدة للإنضمام للمنتدى
ثانيا لدي جدول به موظفين عند تغيير بيانات الموظف **** أن أتأكد أنه لم يتم تكرار رقم الموظف و لذلك أقوم بعملية بحث لكن المكشلة أن السجل الحالي(الذي أن بصدد تغييره) يكون ضمن مجال البحث فيخبرني أن السجل موجود مسبقا. أنا **** طريقة للبحث في كل الجدول ماعدا السجل الحالي.

السلام عليكم

أختي نينا،

ممكن توضيح أكثر

أنا فهمت :
1- أنك تريدين عدم تكرار رقم الموظف
ج: إستعملي خاصية Key في قاعدة البيانات عند حقل رقم الموظف .
2- أما بخصو البحث استعملي الفلترة
إليك الكود للبحث :

ضعي هذا في Edit1 = OnChange

كود :
IF edit1.GetTextLen<> 0 then
    begin
      Table.Filter:='Code='''+Edit1.Text+'*''';
      Table.Filtered:=true;
    end
    else begin
      Table.Filtered:=false;
      end;

استبدلي:
Code باسم الحقل الذي تريدين البحث بداخله
Table باسم قاعدة البيانات الموظفين

أجعلي رقم الموظف مفتاح أساسي

الأخت نينا:
لا داعي لجعل رقم الموظف ليصبح Pk ولكن الأفضل أن تضعي عليه قيد UK.
وهناك طريقة لحل مشكلتك بانشاء مصفوفة تحوي أرقام الموظفين و الأسماء والأقسام تقومين بحميلها عند بدء البرنامج وتقومين باختبار وجود الرقم للموظف بواسطة تابع يقرأمن هذه المصفوفة وبعد كل عملية اضافة او تعديل حدثي هذه المصفوفة
بالتوفيق

نينا

AnoirsoftDeveloper

aymanabdo

mk1968