عمل قيود على حقول الادخال

مثل ما قال الأخ dbf125 يمكنك تعميم دالته على جميع المشروع

و هذا بوضع دالته في وحدة مستقلة ثم تشغيلها مع العلم أن هناك بعض التغيرات

مثال :

function var(type,valur:string):string;

أقصد ب type هو نوع المدخل 'رقم هاتف ، رقم هوية ، .....'

أما valur هي القيمة التي يجب التحقق منها

أما مخرج الدالة إما يكون حرفي و أو منطقي 'true ,false '

فإن كان المخرج false فإن هناك خطأ في المدخل أما true فهو صحيح و يمكن المواصلة في الكود

أخي arar شكرا لك ولكن الطريقة الي تقولي اياها غير نافعة معي ارجو ان ترفق ملف بسيط لها اذا ممكن ومشكور كتير

أخي العزيز كل ما عليك فعله هو وضع Maskedit من Additional

ووضع الكود التالي في بدء تشغيل البرنامج أو اسناده لل Maskedit في الباراميتر الخاص بذلك

procedure TForm1.FormCreate(Sender: TObject);
begin
MaskEdit1.EditMask:='2000000;1;_'
end;

يمكنك زيادة عدد الخانات بوضع رقم 0 اخر بعد ال 2 يمكنك البدء بأرقام أخرى يمكنك عمل الأعاجيب من خلال هذه الأداة

إليك أيضا ملف برنامجك

Checknew.rar

السلام عليكم اما بعد فيبدو انو الشباب مو فاهم قصدي منيح انا المشكلة عندي انو هناك قيود على الأضافة لعطي مثال كامل :

عندي جدول المؤسسات يتكون من:

1-رقم المؤسسة من نوعinteger

2-إسم المؤسسة من نوع alpha

3-اسم المدير من نوع alpha

4-مجال العمل من نوع alpha

5-رقم الهاتف من نوع integer

6-رقم الفاكس من نوع integer

7-العنوان من نوع alpha

8-الاميل من نوع alpha

9-ملاحظات من نوع alpha

الأن رقم المؤسسة بواسطة كود معين تجعله يعمل زيادة تلقائية على رقمه الموجود فلا تدخله

اسم المؤسسة لا يمكن أن يترك فارغ

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

اما بالنسبة لرقم الهاتف لها كود معين لتحقق من صحة هذا الرقم مثلا:

1-لا توجد مؤسسة بدون هاتف والبتالي لا يمكن ان يترك فارغ

2-لا يمكن ادخال سوى ارقام في رقم الهاتف

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

4-كل دولة لها مقدمة معينة وكل مدينة لها مقدمة معينة

5-بالنسبة لمقدمة الدولة فهي غير مطلوبة غلى في حالة رقم الهاتف الخارجي جميع المؤسسات داخل الوطن في مشروعنا

6-مقدمة المدينة تبدأ ب2 مثلا

هذا الكود قمت ببرمجته ولكن من غير المعقول ان اكتب هذا الكود كلما احتجت اليه في اي نموذج لانه عندي جدول للموظفين وله هاتف ويجب ان تتحق منه كذلك جداول اخرى

لذلك قمت ببرمجة هذا الكود والكود الزيادة التلقائية الخاصة برقم المؤسسة في وحدة مستقلة سميتها Check وهذا الوحدة مكونة من class اسمها Validate من خلال البرمجة كائنية التوجه تستطيع عمل object من هذه الclass واستخدمها في أي جمكان تحتاجه في مشروعك

المشاكل موجودة في الملف المرفق:

1-لا يمكن فحص حقل الفحص الذي يلي رقم الهاتف الا بعد الضغط مرتين على الزر حفظ

2-اذا قمت بتغير رقم الهاتف بعد ان تدخل اي حقل يليه لا يعود لفحصه مرة اخرى واذا كان خطا يظهر لك خطأ دلفي وليس رسالة

أرجو الرد بسرعة يا شباب

هي الملف المرفق يا شباب الرجاء عدلو عليه وارفقو من فضلكم مشروعي متوقف على هذه المشكلة مش قادر اشتغل شيء في جداول الموظفين كلها validation

Project.rar

أخي الكريم يجب أن تعطي لنا القيود التي يجب وضعها

مثال طول الحقل و نوعه و إن كان شروط أخرى يجب أن تضعها

لأن بعض الحلقل تتغير من دولة لأخرى كـ رقم الهاتف

ألم تحل المسألة فوق؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ الحل واضح ومطبق في الملف هل جربته ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

أخي 125pdf اعتقد ان الرد الأخير موضح فيه وكذلك الملف المرفق

وضعت لك الحل لماذا ما النقص فيه ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

أخي العزيزdecompiler الحل مش فعال في طريقتك لأانو اذا تركت الحقل فارغ

ثم بعد أنا شكل مو عجبي أدخل رقم 2_____ شكل مو حابه انا عاوز اترك الحقل فارغ والمستخدم يدخل اي رقم اذا هذا الرقم صحيح ما في مشاكل اذا ترك المستخدم الحقل فارغ يعطي رسالة خطأ اذا ادخل رقم غير صحيح يعطي رسالة خطأ أخرى هذه هي الفكرة

أنا متأسف ولكن ظنتك ممكن تحور الحل لمصلحتك

أنتظر أحد الأخوة يبرمج لك عنصرا خاصا وجاهزا من أجل معضلتك ؟؟؟؟