+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : ما هي الطريقة لعمل قائمة بالطلبات وعند التأكيد على الطلبات تملئ في قاعدة البيانا (/showthread.php?tid=5923)
ما هي الطريقة لعمل قائمة بالطلبات وعند التأكيد على الطلبات تملئ في قاعدة البيانا - مبرمج مبتدأ - 05-02-2014
السلام عليكم و رحمة الله و بركاته
ما هي الطريقة لعمل قائمة بالطلبات وعند التأكيد على الطلبات تملئ في قاعدة البيانا
مثال: هناك زبون و يريد اقتناء مجموعة من السلع (حليب، قهوة، شاي، سكر، ملح، صابون)، ما هي الطريقة لعمل قائمة بالطلبات و عند التأكيد على الطلبات تملئ في قاعدة البيانات.
ما هي الطريقة لعمل قائمة بالطلبات وعند التأكيد على الطلبات تملئ في قاعدة البيانا - Najy Ibraheem - 06-02-2014
السلام عليكم...
أحد الحلول أن تستخدم StringGrid إما بالسماح للمستخدم أن يكتب فيها مباشرةً، أو أن يقوم بتعبئة مربعات نص (Edit) ثم يتم الإدراج فيها برمجياً (عن طريق زر إدراج مثلاً). و عند الانتهاء من تعبئة الطلبات في الـ StringGrid يتم حفظ محتوياتها في قاعدة البيانات (عند النقر على زر حفظ مثلاً).
سلام.
ما هي الطريقة لعمل قائمة بالطلبات وعند التأكيد على الطلبات تملئ في قاعدة البيانا - محمد عبد العزيز - 06-02-2014
السلام عليكم
حل اخر: تستخدم جدول (مؤقت) بقاعدة البيانات (مربوط بDBGrid أو أي مكونات DB) تضع به ما تشاء، عند التاكد تنسخ محتواه بالجدول المعني بقاعدة البيانات
ما هي الطريقة لعمل قائمة بالطلبات وعند التأكيد على الطلبات تملئ في قاعدة البيانا - justnick - 07-02-2014
انا اعتمد على نفس فكرة الاستاذ B.M.AbdelAziZ
سوا فى فواتير البيع او فواتير الشراء والامر ناجح والحمد لله
ما هي الطريقة لعمل قائمة بالطلبات وعند التأكيد على الطلبات تملئ في قاعدة البيانا - مبرمج مبتدأ - 07-02-2014
جزاكم الله خيرا اخواني الأكارم على مداخلتكم، في الحقيقة أخي عبد العزيز الفكرة طرأت في ذهني عند إستعدادي للنوم :d:d و لما استيقضت وجدتك طرجت نفس الفكرة 
.
لكن المشكلة أني لما أقوم بتعبئة المواد المطلوبة فإن القيمة تطرح من آخر مادة، بمعني أني لما أختار 10 زيت، 10 سكر، 10 قهوة، فمن المفروض أن العدد يتنقاص من كل مادة في المخزن لكن الذي يحدث أن القيمة تنقص من القهوة فإذا كان في المخزن 100 بإنه يصبح 70 أي كأن الزبون اشترى 30 قهوة فقط.
و شكرا لكم اخواني
.لكن المشكلة أني لما أقوم بتعبئة المواد المطلوبة فإن القيمة تطرح من آخر مادة، بمعني أني لما أختار 10 زيت، 10 سكر، 10 قهوة، فمن المفروض أن العدد يتنقاص من كل مادة في المخزن لكن الذي يحدث أن القيمة تنقص من القهوة فإذا كان في المخزن 100 بإنه يصبح 70 أي كأن الزبون اشترى 30 قهوة فقط.
و شكرا لكم اخواني
ما هي الطريقة لعمل قائمة بالطلبات وعند التأكيد على الطلبات تملئ في قاعدة البيانا - مبرمج مبتدأ - 07-02-2014
هذا هو الكود الذي استعملته
حيث أنه ينسخ من الجدول المؤقت إلى الجدول النهائي و يعدل كمية السلع في الجدول الأساسي
حيث أنه ينسخ من الجدول المؤقت إلى الجدول النهائي و يعدل كمية السلع في الجدول الأساسي
كود :
with (abstable1) do begin open;
first;
while abstable3.Eof = false do begin abstable1.Open;
abstable1.Append;
abstable1.Insert;
abstable1.FieldByName('article').AswideString:=abstable3.FieldByName('article').AswideString ;
abstable1.FieldByName('qnt').AsString:=abstable3.FieldByName('qnt').AsString ;
abstable1.FieldByName('prix_U').AsString:=abstable3.FieldByName('prix_U').AsString;
abstable1.FieldByName('prix_g').AsString:=abstable3.FieldByName('prix_g').AsString; ABSTable3.Edit;
ABSTable1.FieldValues['qnt'] := form1.ABSTable1.FieldValues['qnt'] - abstable3.FieldValues['qnt'] ;
form1.ABSTable1.Edit; form1.ABSTable1.FieldValues['qnt']:= form1.ABSTable1.FieldValues['qnt'] - abstable3.FieldValues['qnt'];
abstable1.Post; abstable3.Post;
abstable3.Delete;
end;
end;ما هي الطريقة لعمل قائمة بالطلبات وعند التأكيد على الطلبات تملئ في قاعدة البيانا - محمد عبد العزيز - 10-02-2014
السلام عليكم
اكتب abstable1.Open; قبل الحلقة While
ايضا First
هذا خطأ
كود :
abstable1.Append;
abstable1.Insert;في الكود مكتوب abstable1. وايضا form1.ABSTable1. هل هما نفس الجدول ام جدولا مختلفان (ان نعم ما العلاقة بينهما)؟
الكود التالي خطأ
كود :
abstable1.Post; abstable3.Post;
abstable3.Delete;ما هي الطريقة لعمل قائمة بالطلبات وعند التأكيد على الطلبات تملئ في قاعدة البيانا - Anter2010 - 10-02-2014
السلام عليكم و رحمة الله و بركاته
تفضل ياصديقي
مثال في حالة البيع
PHP كود :
begin
ventes.First;
While (not ventes.Eof) Do
If Produits.FindKey([ventesID_ART.Value])then
begin
if ventesQte.Value > ProduitsQte.Value then
begin
Main.spSkinMessage1.messagedlg(Errormsg0014 + '0002',mtWarning, [mbok], 0);
ventes.edit;
ventesQte.AsInteger:= 0;
end
else
begin
Produits.Edit;
ProduitsQte.AsInteger:= ProduitsQte.AsInteger - ventesQte.AsInteger;
Produits.Post;
end ;
// Charger;
ventes.Next;
end;
ما هي الطريقة لعمل قائمة بالطلبات وعند التأكيد على الطلبات تملئ في قاعدة البيانا - مبرمج مبتدأ - 12-02-2014
B.M.AbdelAziZ كتب :السلام عليكم
اكتب abstable1.Open; قبل الحلقة While
ايضا First
هذا خطأ
يكفي ان تكتب واحدة منهما فقطكود :abstable1.Append; abstable1.Insert;
في الكود مكتوب abstable1. وايضا form1.ABSTable1. هل هما نفس الجدول ام جدولا مختلفان (ان نعم ما العلاقة بينهما)؟
الكود التالي خطأ
كود :abstable1.Post; abstable3.Post; abstable3.Delete;
و عليكم السلام، شكرا على التدخل
الجدول form1.ABSTable1 هو الجدول الذي يحتوي على المواد، و الجدول ABSTable1 هو جدول الفاتورة.
جربت ما قلت لكن بقيت نفس المشكلة.
ما هي الطريقة لعمل قائمة بالطلبات وعند التأكيد على الطلبات تملئ في قاعدة البيانا - مبرمج مبتدأ - 12-02-2014
anter2010 كتب :السلام عليكم و رحمة الله و بركاته
تفضل ياصديقي
مثال في حالة البيع
PHP كود :begin
ventes.first;
while (not ventes.eof) do
if produits.findkey([ventesid_art.value])then
begin
if ventesqte.value > produitsqte.value then
begin
main.spskinmessage1.messagedlg(errormsg0014 + '0002',mtwarning, [mbok], 0);
ventes.edit;
ventesqte.asinteger:= 0;
end
else
begin
produits.edit;
produitsqte.asinteger:= produitsqte.asinteger - ventesqte.asinteger;
produits.post;
end ;
// charger;
ventes.next;
end;
لم أفهم شيء من الكود، عملا أني جربت ما حسبت أني فهمت، لكن لم يعمل !!!