bouh25

اليك هذا المثال وغير فيه حسب معطياتك يا اخي 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

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     و في الآخــر أرجو ان ينال الموضوع إعجابكم ......منقول للافادة              

أرجو من الاخوة الاطلاع و مساعدتي في اجاد الحل حيت اقوم بتغيير قيمة الحقل في القاعدة البيانان 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

الله اخي ليس لدي أفكار كثيرة عن fastreport لانه جديد و لقد قمت بتنزيل برنامج صغير يمكن يفيدك Fastreport.rar

أشكر أخي الطالب39 و ارجو من الاخوة ان تكون العملية خطوة بخطوة ، ولا اقول اني مبتدئ في البرمجة و لكن عندي خبرة محدودة في قواعد البيانات

و الله اخي عبد العالي من خلال ردك أفهم انك لم تفهم قصدي من البرنامج البرنامج عبارة عن تسيير مخزون + إحصاء عدد المطعمين أو عدد الوجبات المقدمة خلال فترة الفطور - الغداء - العشاء مع حساب قيمة الوجبة كل يوم   سأرفق لك ملف بال excel يبن ورقة الخروج لكل يوم   و اشرك على كل توضيح الورقة اليومية.xlsx

لا اخي عبد العالي ولكن  كما قلت اريد انشاء برنامج تسيير محزون مطعم لمؤسسة مع إحصاء عدد الوجبات و عدد العمال المطعمين وثمن كل وجبة لقد قمت بإنجاز قاعدة بيانات مع ربطها و ارجو نصائحك  

نطلب من إخواني المبرمجين و على رأسهم المشرف عبد العالي مساعدتي في انجاز برنامج تسيير مطعم بمؤسسة كما اعلمكم اخواني اني مبتدئ في البرمجة   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 و في الأخير أرجو من الإخوة المشرفين و الأعضاء الناشطين ان لا يكون السؤال غامضاً بعض الشيئ