برنامج تسيير مؤسسة تربوية

اقتباس

اخي العزيز هل الوجهات التي قدمناها صعبة واين موطن الصعوبة في ذلك

لا انكر ان الوجهات التي قدمتها جيدة

لكن افضل الاستمرار في العمل على طريقة واحدة

اقتباس

شكرا اخي على الواجهات انها جميلة لكن اخ علي هو المسؤول الاول ان اراد ان يضيفها

وددت فقط اضافة تحسينات علي الواجهة فقط للرد علي موضوع مساعدة في تصميم واجهة

اقتباس

واهلا بك معنا في المشروع

انا معكم ان شاء الله

بســم الله الـرحمــن الرحيــم

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

ارجو منك المحاولة بشكل اكبر في المرات القادمة

حسننا سقدم التعديل في المرفق

المطلوب في هذه المرة هو

في نموذج الطلبة الذي سبق لنا وان قمنا بانجازه بحيث

نقوم بنقل تركيز من عنصر الى اخر حسب الحاجة او ما يسمى بدورة الادخال

عند الضغط على الزر حذف يرسل البرنامج تاكيد الحذف

في حالة خلو الجدول من التسجيلات وعند الضغط على الزر حذف او تعديل يرسل البرنامج رسالة تفيد بان الجدول فارغ

وفقنا الله واياكم

Projet.rar

لم افهم

هل تقصد انه عند تنفيذ البرنامج يجب عليه انه عندما نظغط على حذف يرسل لنا

'هل تريد حذف هذا الطالب' اذا كان موجود فانه يحذفه و ان لم يكن موجود يرسل لنا انه غير موجود

هل هذا هو المطلوب

حتى اعمل عمل صحيح

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

اقتباس

دورة الادخال وهي انتقال المؤشر من عنصر الى عنصر اخر حسب الحاجة

هذه لم افهمها

Projet.rar

شكرا أخي علي

من أجل الملف , ابن عمي أتى من فرنسا وكمبيوترة لايكتب اللغة العربية , ولايوجد بداخل نظامة ملف لدعم العربية , نحن هنا نعمل غالبا على النسخة الانكليزية , بعد أن ننزل النظام نقوم بتنزيل ملف مرفق فية دعم للغة العربية مع بقاء القوائم بالانكليزي , والقصة أنه أتى ولايحمل نسخة الفرنسية ولم استطع ان أحصل على نسخة فرنسية لأخذ الملف منها .

سأبدأ إن شاء الله بتقديم المطلوب مع الاخت هبة للاستفادة أكثر من وقتك

بالتوفيق إن شاء الله

أخي علي من أجل دورة الادخال وكل مايخص هذه الامور سأعدلها في حينها وساناقشها مع الاخت . من أجل وقتك ولكي تكون الاستفادة أكثر من وجودك , ومن سرعة المشروع يمكنك ترك هذه الامور علي . لآنك تعرف إني تعلمتها على يديك

بالتوفيق

اقتباس

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

شكرا اخ طلال فانا لم اسمع من قبل عن دورة الادخال

لكن حسب شرح اخ علي لا اعرف كيفية جعل المؤشر ينتقل من عنصر لاخر

هذه امور مهمة أختي الكريمة

سنقوم بتعديلها اليوم إن شاء الله

ولن فقط اريد الوصول إلى ماوصلتم

سأرى المرفق الاخير وأعدله وأخبرك عن الطريقة باذن الله

بالتوفيق

بســم الله الـرحمــن الرحيــم

شكرا اخي طلال على المثابرة المعتادة منك بشان اضافة اللغة العربية الملف مرفق مع سيدي نظام التشغيل الويندوز

وما عليك الا اداخله واتباع ما في الصور

استخدم السيدي الويندوز بالانجليزية لم اجربه لكن اظن انها ستنجح

كما اني انتظر منك ما وعدت به

اما عن الاخت هبة الله

محاولة جيدة لكن هناك نقائص في الكود

 
if DM.TEtud.RecordCount=0 then
ShowMessage('الجدول فارغ لا يمكنك الحذف او التعديل')
else
if MessageDlg('هل انت متاكد من حذف الطالب' ,
mtConfirmation,[mbYes,mbNo],0)= mrYes then if (not DM.TEtud.Eof) then
DM.TEtud.Delete
end;

تركيز المؤشر

 

[color= #b1b100;]if [color= #990000;]key [color= #339933;]=[color= #666666; font-style: italic;]#13 then

DBEdit2[color= #339933;].SetFocus[color= #339933;];

والمقصود بهذا الكود انه في حال الضغط على الزر انتر فانه سيتم انتقال مؤشر الفارة الي العنصر DBEdit2

والرمز 13# في الكود اسكي يرمز الى الزر انتر في لوحة المفاتيح

وبذلك ننتقل الى نقطة جديدة

لكن الكود الذي سبق كان يعمل

ارى انه لا يوجد فرق بينهما

اسمح لي ساسلك سؤال اين اضع كود الخاص بتركيز المؤشر

استحملني سوف اتعود باذن الله على طريقة العمل هذه فانا لم اعمل من قبل برنامج بحجم هذا البرنامج

شكرا اخي علي

هذه الخطوات اعرفها أخي علي

ولكن اريد نسخة فرنسية . أو ملف الدعم

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

بالتوفيق

ضعي الكود في الحدث on key prees التابعedit

شكرا اخ طلال لكن انظر للكود يخيل لي انه ناقص then

[

quote]

 
if key =#13;
DBEdit2.SetFocus;

على فكرة

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

لذا فكرت باضافة هذا الكود

DM.TEtud.first;
result:=false;
while (not DM.TEtud.Eof)
if(DM.TEtud.FieldValues['Numero_inscription']=Edit1.Text
then  result:=true;
break;
end
else DM.TEtud.Next
if result then
MessageDlg('هذا الطالب غير موجود)
else

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

الكود ليس ناقص

بعد كتابتك للكود في الحدث شغلي البرنامج وضعي المؤشر في الخانة رقم 1 واضغطي انتر ستلاحظي انتقال المؤشر الى الخانة الثانية

المشكلة إنني لست في المنزل وهذا الكمبيوتر ليس به ديلفي , سأصل بعد ساعة واعدل البرنامج وأخبرك بالتفاصيل

ما رايكمباضافة الى الزر "اضافة" هذا الكود

و الذي يضمن لي ان لا يحاول الذي يعمل بالبرنامج ادخال طالب جديد لكن بنفس رقم تسجيل قديم

DM.TEtud.first;
result:=false;
while (not DM.TEtud.Eof)
if(DM.TEtud.FieldValues['Numero_inscription']=Edit1.Text
then  result:=true;
break;
end
else DM.TEtud.Next
if result then
DM.TEtud.insert;
DM.TEtud.post
else


else MessageDlg ('هذا الرقم موجود من قبل اختر رقما اخر او ان كنت تريد تعديل بيانات هذا الرقم ....')

ام ليس لها معنى هذه الاضافة

لما كل هذا اختي الكريمة انتي تعملي على قواعد bde وهي توفر خيار افضل

في الحدث OnExit للمكون DBEdit1

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

لديك حق

لقد نسيت هذه الخاصية

ساضيفها

جربتها

اذا اردت اضافة طالب برقم تسجيل جديد تعمل

لكن ان اردت اضافة طالب مع رقم تسجيل قديم فانه لا يظهر لي ان هذا الرقم مستعمل

انما ياتيني خطا violation de clé

جربيها بعد التشغيل من الملف التنفيذي مباشرة وليس من المشروع

أي أغلقي المشروع وشغلي الملف التنفيذي

انا اسفة هي تعمل هكذا لكن عندما نفذتها من البرنامج كانت لا تعمل

لا اعرف ماذا كنت سافعل لولاكم لم انتبه لهذا اطلاقا

يرجى ارسال المرفق

لتقفي الاخطاء

Projet.rar

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

لم أستطع تحميل الملف إلا الأن بسبب السرعة الهائلة للأنترنت عندنا في سوريا

سأعدل النواقص وأحمله

ان شاء الله يوفقك في التحميل

Projet.rar