وعليكم السلام ورحمة الله
اخي بخصوص الرسالة فيبدو انك ادخلت رقم المورد نفسه اكثر من مرة
اما عن ضرورة استخدام الاكواد بدل DBNanigtor لان الكود يمكننا من اضافة مهام اخرى للزر مثل انتقال تركيز المؤشر الى مكون اخر
تحياتي
اللهم علمنا ما ينفعنا وانفعنا بما علمتنا وانفع الناس بنا واغفر لنا وارحمنا
السلام عليكم ورحمة الله
ساقدم اليوم المطلوب الثاني وارجو ان تكون هناك محاولات للحل حتى ان كانت بها اخطاء
المطلوب اعداد قائمة المنتجات
وهذه الصورة
المطلوب
1- ربط عنصر (DBGrid) بالجدول Article
2- البحث في الجدول باستخدام زر البحث والخيارين الموجودين
اظن ان المطلوب سهل جدا اتمنى مشاركة فعلية
بالتوفيق
تم تعديل هذه المشاركة بواسطة علي .ع في 8 سبتمبر 2008 في 23:46
اللهم علمنا ما ينفعنا وانفعنا بما علمتنا وانفع الناس بنا واغفر لنا وارحمنا
اخ علي لو سمحت عندي مشكلة اتمنى ان تساعدني على حلها
المرفق الثاني والمرفق الثالث عندما افتح البرنامج تكون جميع خانات المنتج غير فعالة ولااستطيع ادخال اية كلمة ضمنها وعند الضغط على زر الاضافة أو أي زر يعطيني (رقم المورد موجود مسبقا) دون اضافة اي رقم .فقط اريد تجاوز هذه المشكلة
شكرا لك
اما اخي انك تعيد رقم املنتج كل مرة لذا يرسل البرنامج (رقم المنتج موجود مسبقا)
غيير الرقم وان شاء الله سيعمل البرنامج اما اذا استمر المشكل
يمكنك ان ترفق لي صورة عن البرنامج وان شاء الله سنجد الحل
تحياتي لك
اللهم علمنا ما ينفعنا وانفعنا بما علمتنا وانفع الناس بنا واغفر لنا وارحمنا
اخ علي المشكلة كانت انني لا استطيع كتابة رقم في اي خانة لآن الحدول كان مقفل ولا يقبل التحويل الى true فقد غيرت اسم databasename من arabteam الى .\data حلت المشكلة وقمت بتعرف الجدول واضافة الحقول المطلوبة الية .ولكن عندما اغلق البرنامج وافتحة من جديد واريد اضافة منتج اخر تبقى الحقول عند اخر مادة اضيفت ولا استطيع الاضافة حتى اقوم بحذف المعلومات القديمة
هذا هو المشروع لتتأكد من الخطأ
ساقدم التعديل في المرة القادمة ان شاء الله
هل حاولت في المطلوب الثاني اخي طلال
اللهم علمنا ما ينفعنا وانفعنا بما علمتنا وانفع الناس بنا واغفر لنا وارحمنا
السلام عليكم
اخ علي ماهي الطريقة الافضل لتعريف الفورم على الجداول الموجودة ضمن Data Module وهل هي افضل من وضع الجداول على الفورم نفسها
شكرا لك
وعليكم السلام ورحمة الله
الطريقة ذكرنها في مشاركة سابقة
وتعريف الجدول على Data Module احسن من تعريفها على الفورم
وكما ذكر الاخ محمد عبد العزيز في مشاركة سابقة لايجب ان نبقي الجدول مفتوح دائما لذا ندرج الكود الذي ارفقة في مشاركته لفتح الجدول دفعة واحدة ولا يتم ذلك الا في Data Module اتمنى منك ان تحاول في المطلوب الثاني كما قلت لك
بالتوفيق
اللهم علمنا ما ينفعنا وانفعنا بما علمتنا وانفع الناس بنا واغفر لنا وارحمنا
هذا هو المطلوب الثاني هناك ولكن الجدول مفتوج من خارج data module
عندما اقوم بفتح الجداول من داخل data module باستخدام الكود المرفق تظهر رسالة الخطأ التاليةuntitled.raruntitled.rar
محاولة جيدة اخي
اما عن الخطا فعليك ان تعرف المتغيير i في قسم التصريحات Var
اتمنى ان تكون قد استفدت من المحاولة
غدا سارفق التعديل ان شاء الله
تحياتي
اللهم علمنا ما ينفعنا وانفعنا بما علمتنا وانفع الناس بنا واغفر لنا وارحمنا
شكرا لك اخي علي
ماذلت ابحث في مشاركاتك القديمة عن طريقة تعريف الفورم على data module .إن شاء الله سأجدها
وماذا عن المطلوب الثالث
أتمنى ان لاتتخلى عن المشروع
السلام عليكم ورحمة الله
ناتي اليوم للمطلوب الثالث
يتمثل المطوب في انجاز فورم العملاء وتكويده كاملا كما في الصورة التالية
تعديل المطلوب السابق في المرفقات اتمنى انضمام اعضاء اخرين للمشروع
بالتوفيق
تم تعديل هذه المشاركة بواسطة علي .ع في 12 سبتمبر 2008 في 20:06
اللهم علمنا ما ينفعنا وانفعنا بما علمتنا وانفع الناس بنا واغفر لنا وارحمنا
السلام عليكم : لقد ذكر الأخ محمد عبد العزيز حول كيفية فتح الجداول في حدث oncreat وغلقها في ondestroy ولكن لو أمكن كيف يتم ذلك باستخدام ال Ado Table شكراُ .
وعليكم السلام ورحمة الله
الاختلاف لا يكاد يذكر اخي الكريم
في الحدث OnCreate اكتب
for i := 0 to ComponentCount-1 do
في الحدث OnDestroyاكتب
for i := 0 to ComponentCount-1 do
دون ان تنسى التصريح بالمتغيير
var
بالتوفيق
تم تعديل هذه المشاركة بواسطة علي .ع في 13 سبتمبر 2008 في 01:42
اللهم علمنا ما ينفعنا وانفعنا بما علمتنا وانفع الناس بنا واغفر لنا وارحمنا
مالذي يجعل اكسس افضل لهذا المشروع من الباردوكس
اللهم علمنا ما ينفعنا وانفعنا بما علمتنا وانفع الناس بنا واغفر لنا وارحمنا
هذا هو المطلوب الثالث مع قائمة العملاء
مشكور اخ طلا ل
محاولة جيدة لكن يتقصها بعض الاكواد
لجعل البرنامج اسهل للمستعمله والتنقل بين المكونات التي وضعنا على الفورم ما يصطلح عليه بدورة الادخال
وعلى سبيل المثال لتنقل من المكون DBEdit1 الى DBEdit2 عند الضغط على الزر انتر من لوحة المفاتيح نستخدم الكود التالي
في الحدث OnKeyPress اكتب
if Key=#13 then DBEdit2.SetFocus;
احيانا نريد ان ننبه المستخدم بان رقم العميل موجود مسبقا لكي لاتتكرر المعلومة مرة ثانية نستخدم الكود التالي
في الحدث OnExit للمكون DBEdit1 او اي TDBEdit على ان يكون TDBEdit هو مفتاح الجدول في مشروع اخر طبعا
try
DM.TFour.FindKey([DBEdit1.Text]);
DM.TFour.Edit;
except
ShowMessage(' هذا العميل موجود مسبقا ');
DBEdit1.SetFocus;
end;اتمنى ان تحاول في هذا ايضا اخ طلال لانه احد اسباب نجاح البرنامج كما اتنمى ان لا تكون قد واجهتك مشاكل
ساقدم التعديل غدا ان شاء الله
بالتوفيق
تم تعديل هذه المشاركة بواسطة علي .ع في 14 سبتمبر 2008 في 01:43
اللهم علمنا ما ينفعنا وانفعنا بما علمتنا وانفع الناس بنا واغفر لنا وارحمنا
سكراً أخ علي على توضيحك
سأحاول مجدداً إن شاء الله
السلام عليكم ورحمة الله وبركاته
المطلوب اليوم هو انجاز النموذج الخاص بالموردين
على غرار النموذجين السابقين
وفقنا الله واياكم
اللهم علمنا ما ينفعنا وانفعنا بما علمتنا وانفع الناس بنا واغفر لنا وارحمنا
السلام عليكم ورحمة الله
أستاذ علي . هذا نموذج الموردين مع قائمة الموردين
أتمنى أن أكون إستفدت من الأخطاء السابقة
شكرا لك
محاولة جيدة لكن هناك جزء بسيط جدا ينقص النموذج
وهو ان الزر حفظ لا يجب ان يكون مفعلا عند فتح النموذج لكي لا تسمح للمستعمل ان يضغط عليه وليس هناك ادخال للمعلومات جديدة وهنا سيقع في الخطا اذا علينا ان نسند الى الحدث Enabled القيمة False
مادمت قد اكملت قائمة الموردين اكمل معها قائمة العملاء ايضا
وفقنا الله وايكم
اللهم علمنا ما ينفعنا وانفعنا بما علمتنا وانفع الناس بنا واغفر لنا وارحمنا