الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مشروع تسيير مخازن بسيط

رائج
بدأه علي .ع في 29 أغسطس 2008 · 390 رد · 76,879 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#26

وعليكم السلام ورحمة الله

اخي بخصوص الرسالة فيبدو انك ادخلت رقم المورد نفسه اكثر من مرة

اما عن ضرورة استخدام الاكواد بدل DBNanigtor لان الكود يمكننا من اضافة مهام اخرى للزر مثل انتقال تركيز المؤشر الى مكون اخر

تحياتي

اللهم علمنا ما ينفعنا وانفعنا بما علمتنا وانفع الناس بنا واغفر لنا وارحمنا

#27

السلام عليكم ورحمة الله

ساقدم اليوم المطلوب الثاني وارجو ان تكون هناك محاولات للحل حتى ان كانت بها اخطاء

المطلوب اعداد قائمة المنتجات

وهذه الصورة

post-112245-1220892927_thumb.jpg

المطلوب

1- ربط عنصر (DBGrid) بالجدول Article

2- البحث في الجدول باستخدام زر البحث والخيارين الموجودين

اظن ان المطلوب سهل جدا اتمنى مشاركة فعلية

بالتوفيق

stock.rar

تم تعديل هذه المشاركة بواسطة علي .ع في 8 سبتمبر 2008 في 23:46

اللهم علمنا ما ينفعنا وانفعنا بما علمتنا وانفع الناس بنا واغفر لنا وارحمنا

#28

اخ علي لو سمحت عندي مشكلة اتمنى ان تساعدني على حلها

المرفق الثاني والمرفق الثالث عندما افتح البرنامج تكون جميع خانات المنتج غير فعالة ولااستطيع ادخال اية كلمة ضمنها وعند الضغط على زر الاضافة أو أي زر يعطيني (رقم المورد موجود مسبقا) دون اضافة اي رقم .فقط اريد تجاوز هذه المشكلة

شكرا لك

#29

اما اخي انك تعيد رقم املنتج كل مرة لذا يرسل البرنامج (رقم المنتج موجود مسبقا)

غيير الرقم وان شاء الله سيعمل البرنامج اما اذا استمر المشكل

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

تحياتي لك

اللهم علمنا ما ينفعنا وانفعنا بما علمتنا وانفع الناس بنا واغفر لنا وارحمنا

#30

اخ علي المشكلة كانت انني لا استطيع كتابة رقم في اي خانة لآن الحدول كان مقفل ولا يقبل التحويل الى true فقد غيرت اسم databasename من arabteam الى .\data حلت المشكلة وقمت بتعرف الجدول واضافة الحقول المطلوبة الية .ولكن عندما اغلق البرنامج وافتحة من جديد واريد اضافة منتج اخر تبقى الحقول عند اخر مادة اضيفت ولا استطيع الاضافة حتى اقوم بحذف المعلومات القديمة

#32

ساقدم التعديل في المرة القادمة ان شاء الله

هل حاولت في المطلوب الثاني اخي طلال

اللهم علمنا ما ينفعنا وانفعنا بما علمتنا وانفع الناس بنا واغفر لنا وارحمنا

#33

السلام عليكم

اخ علي ماهي الطريقة الافضل لتعريف الفورم على الجداول الموجودة ضمن Data Module وهل هي افضل من وضع الجداول على الفورم نفسها

شكرا لك

#34

وعليكم السلام ورحمة الله

الطريقة ذكرنها في مشاركة سابقة

وتعريف الجدول على Data Module احسن من تعريفها على الفورم

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

بالتوفيق

اللهم علمنا ما ينفعنا وانفعنا بما علمتنا وانفع الناس بنا واغفر لنا وارحمنا

#35

هذا هو المطلوب الثاني هناك ولكن الجدول مفتوج من خارج data module

stock11.rar

#36

عندما اقوم بفتح الجداول من داخل data module باستخدام الكود المرفق تظهر رسالة الخطأ التاليةuntitled.raruntitled.rar

#37

محاولة جيدة اخي

اما عن الخطا فعليك ان تعرف المتغيير i في قسم التصريحات Var

اتمنى ان تكون قد استفدت من المحاولة

غدا سارفق التعديل ان شاء الله

تحياتي

اللهم علمنا ما ينفعنا وانفعنا بما علمتنا وانفع الناس بنا واغفر لنا وارحمنا

#38

شكرا لك اخي علي

ماذلت ابحث في مشاركاتك القديمة عن طريقة تعريف الفورم على data module .إن شاء الله سأجدها

وماذا عن المطلوب الثالث

أتمنى ان لاتتخلى عن المشروع

#39

 السلام عليكم ورحمة الله

ناتي اليوم للمطلوب الثالث

   يتمثل المطوب في انجاز فورم العملاء وتكويده كاملا  كما في الصورة التالية

post-112245-1221159872_thumb.jpg

تعديل المطلوب السابق في المرفقات اتمنى انضمام اعضاء اخرين للمشروع

بالتوفيق  

stock.rar

تم تعديل هذه المشاركة بواسطة علي .ع في 12 سبتمبر 2008 في 20:06

اللهم علمنا ما ينفعنا وانفعنا بما علمتنا وانفع الناس بنا واغفر لنا وارحمنا

#40

السلام عليكم : لقد ذكر الأخ محمد عبد العزيز حول كيفية فتح الجداول في حدث oncreat وغلقها في ondestroy ولكن لو أمكن كيف يتم ذلك باستخدام ال Ado Table شكراُ .

#41

وعليكم السلام ورحمة الله

الاختلاف لا يكاد يذكر اخي الكريم

في الحدث OnCreate اكتب


    if( Components[ i ] is TADOTable )then
      (Components[ i ] as TADOTable).Open;
for i := 0 to ComponentCount-1 do

في الحدث OnDestroyاكتب


    if( Components[ i ] is TADOTable )then
      (Components[ i ] as TADOTable).Close;
for i := 0 to ComponentCount-1 do

دون ان تنسى التصريح بالمتغيير


  Form1: TForm1;
  i :Integer;
var

بالتوفيق

تم تعديل هذه المشاركة بواسطة علي .ع في 13 سبتمبر 2008 في 01:42

اللهم علمنا ما ينفعنا وانفعنا بما علمتنا وانفع الناس بنا واغفر لنا وارحمنا

#42

اقول ان المشروع هذا

الافضل له ان يكون ب Access

فاامان الله الله يوفقكم

والخاملون اذا غدوت تلومهم سمعوك في اذانهم تترنم .. هذا نحن العرب للاسف

[spacing]

HaKxEr HaCker

My Site

[/spacing]

#43

مالذي يجعل اكسس افضل لهذا المشروع من الباردوكس

اللهم علمنا ما ينفعنا وانفعنا بما علمتنا وانفع الناس بنا واغفر لنا وارحمنا

#44

هذا هو المطلوب الثالث مع قائمة العملاء

stock.rar

#45

مشكور اخ طلا ل

محاولة جيدة لكن يتقصها بعض الاكواد

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

وعلى سبيل المثال لتنقل من المكون 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

اللهم علمنا ما ينفعنا وانفعنا بما علمتنا وانفع الناس بنا واغفر لنا وارحمنا

#46

سكراً أخ علي على توضيحك

سأحاول مجدداً إن شاء الله

#47

السلام عليكم ورحمة الله 

ساضع اليوم التعديل للمطلوب السابق فقط على ان يتم وضع المطلوب غدا ان شاء الله

بالتوفيق ان شاء الله  

stock.rar

اللهم علمنا ما ينفعنا وانفعنا بما علمتنا وانفع الناس بنا واغفر لنا وارحمنا

#48

السلام عليكم ورحمة الله وبركاته 

المطلوب اليوم هو انجاز النموذج الخاص بالموردين 

post-112245-1221518870_thumb.jpg

على غرار النموذجين السابقين 

وفقنا الله واياكم 

اللهم علمنا ما ينفعنا وانفعنا بما علمتنا وانفع الناس بنا واغفر لنا وارحمنا

#49

السلام عليكم ورحمة الله

أستاذ علي . هذا نموذج الموردين مع قائمة الموردين

أتمنى أن أكون إستفدت من الأخطاء السابقة

شكرا لك

stock2.rar

#50

محاولة جيدة لكن هناك جزء بسيط جدا ينقص النموذج

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

مادمت قد اكملت قائمة الموردين اكمل معها قائمة العملاء ايضا

وفقنا الله وايكم

اللهم علمنا ما ينفعنا وانفعنا بما علمتنا وانفع الناس بنا واغفر لنا وارحمنا

مواضيع مشابهة