19-05-2018, 06:45 PM
بسم الله الرحمن الرحيم
الصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين
برنامج بدلفي شبه متقدم وقاعدة البيانات بارادوكس
ماهو رأيكم في البرنامج أقصد الكود سورس
--
هذا برنامج بالدلفي وقاعدة البيانات من نوع بارادوكس
--
ماذا يفعل هذا البرنامج؟
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
رابط تحميل البرنامج أقصد الكود سورس
الصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين
برنامج بدلفي شبه متقدم وقاعدة البيانات بارادوكس
ماهو رأيكم في البرنامج أقصد الكود سورس
--
هذا برنامج بالدلفي وقاعدة البيانات من نوع بارادوكس
--
ماذا يفعل هذا البرنامج؟
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
رابط تحميل البرنامج أقصد الكود سورس