طلب مساعدة في برنامج الدلفي *معلوماتية*

[القمارية]

:) السلام عليكم
انا طالبة بالمعهد ادرس معلوماتية خيار قاعدة البيانات يوجد برنامج الدلفي رانا نقراو فيه وهو شوي صعيب اتمنى منكم اللي يفهمو شويا يفهمني في كم من حاجة
وبارك الله فيكم :mh31:

[القمارية]

وييييييييييييييييييييييييييييييييييينكم

[القمارية]

ردو ارررررررررررررررررررررررررربي

[mooon]

وعليكم السلام

تفضل اشرح مشكلتك وان شاء الله سنساعدك

[nasser26]

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

اما الشرح فلا تكفي صفحة او صفحتين او كلام ساعة فهناك كتب وكتب مؤلفة تشرح هذا البرنامج وكيفية التعامل معه

ولا تقولي انه صعب ابداااا بل هو سهل لمن اراد ان يتعلمه

[القمارية]

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

[القمارية]

اخي الواجب كما يلي:
في المعهد يوجد مقهى ويوجد فالمقهى مجموعه من السلع كالماء والعصير والبسكويت...الخ
المطلوب هو رسم listview ونكتب فيها الرقم ورقم السلعه تاريخ الدخول وتاريخ الخروج البائع والمشتري..الخ
ومطلوب ايظا استخراج 2button واحدة للحذف والاخرى للاظاافة و5 edit و2radiobutton واحدة للمتربص والاخرى للعامل التصميم موجود عندي لكن الكودات لا وابحث عن الكودات كي يمشي ويشتغل البرنامج
ساعدني ...

[solam]

بشرح كيفية (تعديل - بحث - حذف) على السجلات من خلال الدلفي


البحث

قم باضافة button جديد الى النموذج وسمي خاصية ال caption ب بحث

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

tadotable1.first;

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

while tadotable1.eof <> true do

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

begin

if edit1.Text := tadotable1['telno'] then

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

begin

text2.text := tadotable1['ename'] ;

نقل قيمة الاسم من الجدول الى المربع الموجود على الفورم

edit3.Text := tadotable1['address'] ;

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

exit;

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

end;

tadotable1.next;

الانتقال الى السجل التالي في حال لم يكن السجل الحالي السجل المطلوب

end;

showmessage('السجل للرقم المطلوب غير موجود - لطفا اعد المحاولة');



التعديل

باضافة button جديد الى النموذج وسمي خاصية ال caption ب تعديل سجل

واكتب هذا الكود داخله - سنقوم بالبحث واذا وجدنا السجل المطلوب نحدث عليه

tadotable1.first;

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

while tadotable1.eof <> true do

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

begin

if edit1.Text := tadotable1['telno'] then

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

begin

tadotable1.edit ;

فتح السجل الحالي للتعديل

tadotable1['telno'] := edit1.Text

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

tadotable1['ename'] := text2.text ;

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

tadotable1['ename'] := text3.text ;

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

tadotable1.post;

تثبيت عملية التعديل

showmessage('تم تعديل السجل المطلوب');

exit;

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

end;

tadotable1.next;

الانتقال الى السجل التالي في حال لم يكن السجل الحالي السجل المطلوب

end;

showmessage('السجل للرقم المطلوب غير موجود - لطفا اعد المحاولة');



الحذف

علينا اجراء عملية بحث عن السجل المراد حذفه ومن ثم حذفه

باضافة button جديد الى النموذج وسمي خاصية ال caption ب حذف سجل

واكتب هذا الكود داخله - سنقوم بالبحث واذا وجدنا السجل المطلوب نحذفه

tadotable1.first;

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

while tadotable1.eof <> true do

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

begin

if edit1.Text := tadotable1['telno'] then

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

begin

tadotable1.delete ;

أمر يستخدم لحذف السجل الحالي

showmessage('تم حذف السجل المطلوب');

exit;

تجعلنا نخرج من التنفيذ لهذا الكود لاننا حذفنا ما نريد

end;

tadotable1.next;

الانتقال الى السجل التالي في حال لم يكن السجل الحالي السجل المطلوب

end;

showmessage('السجل للرقم المطلوب غير موجود - لطفا اعد المحاولة');

منقوللللللللللللللللل

هذا التخصص ياأختي يتطلب الاجتهاد والبحث ( في مذكرة التخرج يطلب انشاء برنامج )
توجد منتديات ومدونات ومواقع خاصة بكتب الدلفي مبسطة ابحثي عنها
بالتوفيق

[القمارية]

باااارك الله فيك اخي وارجوك ممكن موقع الفيسبوك انتاعك للتواصل اكثر اذا ممكن

[solam]

باااارك الله فيك اخي وارجوك ممكن موقع الفيسبوك انتاعك للتواصل اكثر اذا ممكن

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

[solam]

باااارك الله فيك اخي وارجوك ممكن موقع الفيسبوك انتاعك للتواصل اكثر اذا ممكن

ادخلي لمنتدى التكوين المهني نتواصل معاك تجدين ماتبحثين عنه من دروس تمارين اختبارات بحوث ومذكرات

[القمارية]

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

[salah_852753]

اخي الواجب كما يلي:
في المعهد يوجد مقهى ويوجد فالمقهى مجموعه من السلع كالماء والعصير والبسكويت...الخ
المطلوب هو رسم listview ونكتب فيها الرقم ورقم السلعه تاريخ الدخول وتاريخ الخروج البائع والمشتري..الخ
ومطلوب ايظا استخراج 2button واحدة للحذف والاخرى للاظاافة و5 edit و2radiobutton واحدة للمتربص والاخرى للعامل التصميم موجود عندي لكن الكودات لا وابحث عن الكودات كي يمشي ويشتغل البرنامج
ساعدني ...

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

حسب مافهمت من طلبك ...لدينا listview تحتوي على عدة Columns (رقم السلعة، التاريخ، البائع، المشتري...الخ)
و لدينا Edit نكتب فيهم المعلومات ليتم تسجيلهم في listview ضمن هته الـ Columns ...و لدينا Buttons للأضافة و الحذف؟

هذا مثال بسيط عن طريقة العمل (المعلومات المدخلة في هذا المثال لا تسجل في قاعدة البيانات...المعلومات تختفي عند اغلاق البرنامج)

https://s17.postimg.org/nftjfhbe7/30-11-2017_17-24-20.png

1- نحدد المكون TListView و نضعه على الـ Form
2- نضغط DoubleClick على TListView لتظهر لنا نافذة تسمح بتعديل و اضافة Columns
3- نضغط على Add New لاضافة Column جديد
4- نعطي اسم للـ Column من خلال الخاصية Caption

نتبع نفس الخطوات لاضافة بقية العناصر...

-----------------

الخطوة الثانية:
نضغط على الـ TListView التي على الـ Form و من خلال Object Inspector نحدد الخصائص التالية:
- RowSelect = True
- MultiSelect =True
- ViweStyle = vsReport

ليصبح TListView يظهر بهذا الشكل (مشابه للـ DBGrid)

https://s17.postimg.org/3p1b9awfj/30-11-2017_17-46-59.png

----------

الخطوة الثالثة:
بعدها نضيف عدد من Edit و Buttons على الـ Form

الـ Edit لنكتب فيهم المعلومات التي سيتم تسجيلها داخل الـ Columns
الـ Buttons للأضافة و الحذف

https://s17.postimg.org/6yfqfmurz/30-11-2017_17-46-59.png

يبقى الآن فقط إضافة اكواد الاضافة و الحذف

نضغط DoubleClick على الـ Button الخاصة بالحذف و نكتب هذا الكود:


begin
ListView1.DeleteSelected;
end;


نضغط DoubleClick على الـ Button الخاصة بالإضافة و نكتب هذا الكود:


var
NewItem : TListItem;
begin
NewItem := ListView1.Items.Add;
NewItem.Caption := IDEdit.Text;
NewItem.SubItems.add(NameEdit.Text);
NewItem.SubItems.add(NTelEdit.Text);
///
IDEdit.Text := '';
NameEdit.Text := '';
NTelEdit.Text := '';
end;


عند كتابة الكود يجب الانتباه لتغير مسميات NTelEdit، NameEdit، IDEdit بما يناسبك مشروعك

النتيجة في النهاية

https://s8.postimg.org/8fvktxb85/30-11-2017_22-44-30.png

[solam]

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

ارواحي لمنتدى التكوين المهني والتعليم التقني نتواصل معاك وان شاء الله نساعدك بالتوفيق أختاه

[solam]

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

Give me an email address

[القمارية]

شكراااااااااااااااااااااااااااااااااااااااااااااا

[hamou2968]

موضوووووع رااائع جدا

[القمارية]

بارك الله فيكم جماعه الكل