برنامج بدلفي شبه متقدم وقاعدة البيانات بارادوكس - نسخة قابلة للطباعة +- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum) +-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3) +--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15) +--- الموضوع : برنامج بدلفي شبه متقدم وقاعدة البيانات بارادوكس (/showthread.php?tid=9419)

برنامج بدلفي شبه متقدم وقاعدة البيانات بارادوكس - sabre - 19-05-2018 بسم الله الرحمن الرحيم الصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين برنامج بدلفي شبه متقدم وقاعدة البيانات بارادوكس ماهو رأيكم في البرنامج أقصد الكود سورس -- هذا برنامج بالدلفي وقاعدة البيانات من نوع بارادوكس -- ماذا يفعل هذا البرنامج؟ 1 ينشئ ملفان تلقائيا الاول من أجل أن نقوم بحفظ معلومات عن شخص، وكل سنة ينشئ ملف جديد الثاني يحفظ فيه السنوات مثلا لو أردنا أن نرجع من السنة الحالية الى السنة السابقة 2 ملف معلومات شخص هو متكون مثلا من رقم التسجيل والاسم والتاريخ التسجيل: نكتب رقم والاسم و التاريخ ونضغط فوق Add من أجل حفظ المعلومات البحث: نكتب الاسم ونضغط فوق بحث أو ننقر مرتين في الشبكة فوق الاسم المراد التعديل: نبحث ثم نعدل في مربعات النص ونضغط فوق تعديل ملا حظة: تستطيع ان تزيد في عدد الحقول حسبما تشاء بكل سهولة هذه المهام التي يقوم بها البرنامج واجهة البرنامج متكونة من 3 مربعات نص من نوع TEdit و 5 لافتة من نوع TLabel و مربع من نوع TDateTimePicker و مربع ذو قائمة من نوع TDBLookupComboBox و 4 ازرار من نوع TBitBtn و الشبكة من نوع TDBGrid ونافذة غير مرئية اثناء التنفيذ من نوع TDataModule1 وضعت فيها 2 من نوع TTable و 2 TDataSource من الناحية البرمجية البرنامج يعطي فكرة عن البرمجة الموجهة بالكائنات أنشأت في الوحدة unt_data1 تسجيلة record سميتها TPersonRec تضم الرقم وللاسم التاريخ وفئة class وسميتها TPerson المنهج أو الاجراء الذي ينفذ أولا Create يلقي تنشيط Table1 و Table2 تهيئتهما من أجل اعطى القيم ك لاليا ونوع قاعدة البيانات اذا كان الملف قاعدة البيانات غير موجود سيقوم بانشائه واذا كان لا سيتعامل مع الملف الموجود المنهج CreateTables ينشئ اولا ملف يحمل اسم السنة الحالية وثانيا ملف Year1 يخزن فيه ملف اسم السنة الحالية المنهج أو الدالة AddFunc تسند القيم حسب الترتيب النوع أي كل حقل من حقول الجدولTable1 يخذ الحقل الذي يتناسب معه في نوع من حقول التسجيلة المنهج AddToTabe يجعل Table1 يأشر على آخر سجل و بالامر Last و يفتح سجل جديد بالامر Append ثم يستدعي الدالة AddFunc وفي الأخير يتم قفل السجل بالامر Post المنهج destroy نستطيع الاستغناء عنه لأن موجود في class المنهج FindTable في ملف قاعدة البيانات وجلب القيمة ان وجدت وجعلها في التسجيلة PRec المنهج Modify و يعدل سجل بالامر Edit ثم يستدعي الدالة AddFunc وفي الأخير يتم قفل السجل بالامر Post رابط تحميل البرنامج أقصد الكود سورس RE: برنامج بدلفي شبه متقدم وقاعدة البيانات بارادوكس - kerbadou - 23-05-2018 إنتقل إلى قواعد بيانات أخرى Absolute Database, SQLite, Firebird