-
الإعلانات
-
تسجيل عضوية جديدة في المنتدى 01/31/2016
السلام عليكم ورحمة الله وبركاته عزيزي العضو الجديد : حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة ) فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK) وقم بتفعيل إشتراككم من هناك
-
-
عدد المشاركات
14 -
تاريخ الانضمام
-
تاريخ اخر زياره
السمعه بالموقع
0 عاديعن bouh25
-
الرتبة
عضو جديد
- تاريخ الميلاد 11/25/1980
طرق الإتصال
- ICQ 0
معلومات الملف الشخصي
- الجنس ذكر
- اهتمامات الصيد - البراري
-
كيف أبرمج نقص كمية المخزون عند البيع و زيادته عند الشراء
bouh25 رد على amine_1009's موضوع في لغة Delphi
اليك هذا المثال وغير فيه حسب معطياتك يا اخي procedure MiseAJourStock(var QuantiteDemandee: Integer) var Result:Integer; QuantiteDisponible:Integer; begin QuantiteDisponible := dm1.tstockQt.value; if( (dm1.tstock.recordcount> 0) then begin case CompareValue(QuantiteDemandee, QuantiteDisponible) of // Quantité demandée inférieure à celle disponible LessThanValue: begin Result := 0; dm1.tstock.edit; dm1.tstockQt.value:= QuantiteDisponible-QuantiteDemandee; dm1.tstock.post; Edit1.text := IntToStr(Result); end; EqualsValue: begin // Quantité demandée égale à celle disponible dm1.tstock.delete; Result := 0; Edit1.text := IntToStr(Result); end; GreaterThanValue: // Quantité demandée supérieure à celle disponible Result := QuantiteDemandee-QuantiteDisponible; // Suppresion d'enregistrement (et passage au suivant automatiquement) dm1.tstock.delete; // Appel de la procédure sur l'enregistrement courant Edit1.text := IntToStr(Result); MiseAJourStock(Result); end; end; -
اين الردود يا اخواني او لم يعجبكم فاين النقد ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟
-
يشرفي ان اضع بين ايديكم هذا التطبيق مفتوح المصدر و ارجوا ان ينال إعجابكم و ارجوا من الاخوة تقديم بعض النصائح لتطوبره اكثر , مبرمج على Delphi XE5 قاعدة البيانات ب Absolute Database وارجو الاستفادة منه وشكراً للمشرفين على هذا المنتدى . credit.rar
-
bouh25 بدأ بمتابعة برنامج تسيير الديون لمحل تجاري
-
Delphi and C++Builder XE5 النسخة التجريبية http://www.embarcadero.com/products/...e-android-apps شرح التحميل والتنصيب http://www.youtube.com/watch?v=beGeCZK8ORk ------------------------------------------------------------------------------------------- XE5 ISO تحميل نسخة ايزو http://altd.embarcadero.com/download...er_xe5_win.iso patch باتش التفعيل http://pan.baidu.com/share/link?shar...&uk=1177427271 تحميل نسخة بورتابول 3.3 GiB Delphi XE5 Portable رابط تورنت http://www.tpbunblocked.me/torrent/8...alBox_image%29 عن هذا الاصدار : دعم كامل لأجهزة الهواتف الذكية ايفون واندرويد http://www.youtube.com/watch?v=Afvai7q2Uqk القي نظرة هنا ايضا : What's New in C++Builder XE5 و في الآخــر أرجو ان ينال الموضوع إعجابكم ......منقول للافادة
-
bouh25 بدأ بمتابعة جديـــد Delphi and C++Builder XE5
-
أرجو من الاخوة الاطلاع و مساعدتي في اجاد الحل حيت اقوم بتغيير قيمة الحقل في القاعدة البيانان tfjour اذا كان الحقل موجود في القاعدة الثانية tfjourp begin tfjourp.First; Tfjourp.edit; while not Tfjourp.EOF Do begin tfjour.Active:=true; Tfjour.edit; tfjour.First ; while not tfjour.EOF Do begin if tfjourp.FieldValues['n_prod']=tfjour.Fieldvalues['n_prod'] and strtoint(chobs.Text)=tfjour.FieldValues['n_bs'] then begin tfjour.Edit; tfjour.Fieldvalues['Q_sort']:=tfjour.Fieldvalues['Q_sort']+tfjourp.FieldValues['quantete']; tfjour.Post; end; tfjour.next; end; Tfjourp.Next ; end;
-
لقد قمت بإتمام قاعدة البيانات و الرجاء من الاخ زكري إبدء رأيه gestion.rar
-
bouh25 بدأ بمتابعة سؤال في التقارير
-
الله اخي ليس لدي أفكار كثيرة عن fastreport لانه جديد و لقد قمت بتنزيل برنامج صغير يمكن يفيدك Fastreport.rar
-
أشكر أخي الطالب39 و ارجو من الاخوة ان تكون العملية خطوة بخطوة ، ولا اقول اني مبتدئ في البرمجة و لكن عندي خبرة محدودة في قواعد البيانات
-
و الله اخي عبد العالي من خلال ردك أفهم انك لم تفهم قصدي من البرنامج البرنامج عبارة عن تسيير مخزون + إحصاء عدد المطعمين أو عدد الوجبات المقدمة خلال فترة الفطور - الغداء - العشاء مع حساب قيمة الوجبة كل يوم سأرفق لك ملف بال excel يبن ورقة الخروج لكل يوم و اشرك على كل توضيح الورقة اليومية.xlsx
-
لا اخي عبد العالي ولكن كما قلت اريد انشاء برنامج تسيير محزون مطعم لمؤسسة مع إحصاء عدد الوجبات و عدد العمال المطعمين وثمن كل وجبة لقد قمت بإنجاز قاعدة بيانات مع ربطها و ارجو نصائحك
-
bouh25 بدأ بمتابعة مشاركة في إنجاز برنامج تسيير مطعم بمؤسسة
-
نطلب من إخواني المبرمجين و على رأسهم المشرف عبد العالي مساعدتي في انجاز برنامج تسيير مطعم بمؤسسة كما اعلمكم اخواني اني مبتدئ في البرمجة 0- الممون اسم الممون العنوان الهاتف 1- المدخلات للمخزون الرقم Num_pro اسم المادة Produit الوحدة unite السعر somme الكمية Quantite الضريبة Tva 2 - عدد العمال حيث يقسمون حسب طريقم العمل العمال العاملين بنظام مداومة permaneau العمال بنظام 8 سا / اليوم huiteur الزوار maissionaire 3- عدد الوجبات المقدمة في اليوم فطور الصباح pet_dijane الغداء dijane العشاء diner 4 - محتوى الوجبة المقدمة : تحتوي على المواد الاستهلاكية المقدة 5- سعر كل وجبة = جمع المواد المستهلكة * الضريبة / عدد العمال 6 - المخرجات : الورقة اليومية و تكون على كمثال على الشكل التالي فطور الصباح ------------------------------------------------------------------------------------------------------------------------------------------------------ / التعيين / الكمية / الوحدة / السعر / الضريبة / المجموع / ------------------------------------------------------------------------------------------------------------------------------------------------------ / قهوة / 1 / كلغ / 600.00 / 17 / 6000.00 / / سكر / 5 / كلغ / 110.00 / 1 / 550.00 / ------------------------------------------------------------------------------------------------------------------------------------------------------ عدد العمال 100 ثمن الوجبة (x1) الغداء ------------------------------------------------------------------------------------------------------------------------------------------------------ / التعيين / الكمية / الوحدة / السعر / الضريبة / المجموع / ------------------------------------------------------------------------------------------------------------------------------------------------------ / بطاطا / 10 / كلغ / 60.00 / 17 / 600.00 / / بصل / 10 / كلغ / 25.00 / 17 / 250.00 / / طماطم خصراء / 5 / كلغ / 30.00 / 17 / ------------------------------------------------------------------------------------------------------------------------------------------------------ عدد العمال 120 ثمن الوجبة (x2) العشاء ------------------------------------------------------------------------------------------------------------------------------------------------------ / التعيين / الكمية / الوحدة / السعر / الضريبة / المجموع / ------------------------------------------------------------------------------------------------------------------------------------------------------ / بطاطا / 10 / كلغ / 60.00 / 17 / 600.00 / / بصل / 10 / كلغ / 25.00 / 17 / 250.00 / / طماطم خصراء / 5 / كلغ / 30.00 / 17 / ------------------------------------------------------------------------------------------------------------------------------------------------------ عدد العمال 110 ثمن الوجبة (x3) ثمن الوجبة لليوم = (x1)+(x2)+(x3) / عدد العمال غي الصباح+عدد العمال في الغداء +عدد العمال في العشاء إخواني بهذا الشرح البسيط أرجوا اني قد بلغت المقصود راجاً مساعدتكم و توجيهكم في إنشاء قواعد بيانات لها علاقة القيمة
-
السلام عليكم أشكرك أخي على الردود ، لكن أخي العزيز لم أفهم كيفية متابعة الأوامر مع العلم ان استعمل و لأول مرة Delphi XE2 و Windows 7 أرجو منك أخي توصيح الخطوات خطة خطوة مع جزيل الشكر و يرحمك الله
-
بسم الله الرحمن الرحيم أرجوا من الاخوة الكرام مساعدتي في الآتصال بقاعدة البيانات محلية و أنه عند تثبيث delphi xe2 و محاولتي بالاتصال بقاعدة البيانات محلية تضهر هذه الرسالة Une erreur est survenue lors de l'initiasation du Borland database Engine (erreur $2108). صورة الخطأ مرفوقة أرجو المساعدة وشكراً
-
بسم الله الرحمن الرحيم السلام عليكم ارجو الا يكون السؤال غامضاً بعض الشيئ الرجاء من الإخوة و الأخوات الناشطين مساعدتي في إنشاء أول برنامج لي في لغة الديلفي . عندي قاعدة بيانات المواد (produit ) تحتوي على الحقول designation , prix , quant , .... و قاعدة بيانات المشتريات (achat) تحتوي على الحقول disgnation , prix_u quant ......... بعد شراء منتوج من قاعدة البيانات produit أريد أن اضع هذا الحقل في قاعدة البيانات المشريات achat بحيث إذا كانت المشتريات موجودة يقوم البرنامج بتغيير حقل الكمية فقط quant و اذا كانت قائمة المشتريات لا تحتوي على هذه المادة يقوم بإضافة الماة المشتراة designation مع الكمية quant و في الأخير أرجو من الإخوة المشرفين و الأعضاء الناشطين ان لا يكون السؤال غامضاً بعض الشيئ