13-12-2015, 06:39 PM
السلام عليكم ،
أخي الحبيب دعنا نوضح الحل و نبسطه أكثر
1- عندما يدخل المستعمل رقم التسجيل (أو الرقم الذي تود إدخاله)
1-1 تتحقق من أن قيمة Edit فارغة ، إذا كانت كذلك تخبر المستعمل أنه يجب عليه إدخال رقم التسجيل.
2-1 إذا كانت قيمة Edit ليست فارغة ننتقل إلى النقطة 2
2- نبحث في قائمة التسجيلات (رقم الطالب في حالتك ) في مصفوفة الطلاب :
1-2 إذا تم العثور على الرقم في مصفوفة الطلاب هذا يعني أن الرقم موجود من قبل و عليه إدخال رقم آخر.
2-2 إذا لم يتم إيجاد رقم الطالب ، فهذا يعني أن الرقم جديد ، فيمكننا حينئذ إتمام تجسيل الطالب .
واضح أخي الحبيب .
نأتي الآن إلى التطبيق ، و أنصحك باستعمال شيئ من ال Sql.
البقية عليك .
باستعمال الموكن Query
في خاصية Sql ل query نكتب ما يلي
أخي الحبيب دعنا نوضح الحل و نبسطه أكثر
1- عندما يدخل المستعمل رقم التسجيل (أو الرقم الذي تود إدخاله)
1-1 تتحقق من أن قيمة Edit فارغة ، إذا كانت كذلك تخبر المستعمل أنه يجب عليه إدخال رقم التسجيل.
2-1 إذا كانت قيمة Edit ليست فارغة ننتقل إلى النقطة 2
2- نبحث في قائمة التسجيلات (رقم الطالب في حالتك ) في مصفوفة الطلاب :
1-2 إذا تم العثور على الرقم في مصفوفة الطلاب هذا يعني أن الرقم موجود من قبل و عليه إدخال رقم آخر.
2-2 إذا لم يتم إيجاد رقم الطالب ، فهذا يعني أن الرقم جديد ، فيمكننا حينئذ إتمام تجسيل الطالب .
واضح أخي الحبيب .
نأتي الآن إلى التطبيق ، و أنصحك باستعمال شيئ من ال Sql.
كود :
if Edit1.Text = '' then // edit1 فارغ
begin
showmessage("لابد من إخال رقم الطالب ")
end
else // edit1 ليس فارغ
begin
// نتحقق من عدم وجود نفس الرقم
// نبحث في منظومة الطلاب
Query1.close ;
Query1.Paramettr('Code1').asstring := Edit1.text;
Query1.open;
if Query1.isEmpty then // بمعنى أنه لا يوجد الرقم
begin
// نقوم بعملية إدخال الطالب الجديد
end
else // بمعنى أن الرقم المدخل يوجد مسبقا
begin
// نقوم بإعلام المستعمل
end
endالبقية عليك .
باستعمال الموكن Query
في خاصية Sql ل query نكتب ما يلي
كود :
Select CodeEdtudiant
From Edudiant
Where CodeEdtudiant = :Code1
اللهم اجعلني من أهل القرآن ، الذين هم أهلك و خاصتك.
تذكر بأن الوقت الذي تلهو فيه ، غيرك يبني مجده فيه.
تذكر بأن الوقت الذي تلهو فيه ، غيرك يبني مجده فيه.