+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : جمع edit1 +edit2 +edit3 في edit4 (/showthread.php?tid=3689)
جمع edit1 +edit2 +edit3 في edit4 - boughagha - 13-12-2011
السلام عليكم
كيف اقوم بجمع 3edit في edit واحدة
متلا
edit1:= 150
edit2:=100
edit3:=50
edit4:= edit1 + edit2 + edit3
مع العلم ان edit4 نتيجتها تظهر في table1
وشكرا
جمع edit1 +edit2 +edit3 في edit4 - mobile - 13-12-2011
كود :
edit4.text:=inttostr(strtoint(edit1.text)+strtoint(edit2.text)+strtoint(edit3.text))كود :
table1.insert;
Table1.fieldbyname('fieldname').value:=edit4.tex;
Table1.postان كنت تقصد هذا والا وضح
جمع edit1 +edit2 +edit3 في edit4 - boughagha - 13-12-2011
شكرا mobile
لم اجربه بعد لانني لم اقم بوضع الكود التاني.
هدا الكود (( edit4.text:=inttostr(strtoint(edit1.text)+strtoint(edit2.text)+strtoint(edit3.text
في برنامجي هده النتيجة هي المبلغ والتي تظهر قي table1 وحقله montant
الان بقيت لي edit5 وهي الدفع تظهر في table1 وحقله versement
edit6:=edit4 -edit5 وتظهر في table1 وحقله TTC
هل اقوم بكتابة الكود التالي
(( edit6.text:=inttostr(strtoint(edit4.text)-strtoint(edit5.text
جمع edit1 +edit2 +edit3 في edit4 - mobile - 13-12-2011
اولا بما انك تبدو مبتدا انصحك بهذا الموضوع صدقني مهم جدا ومفيد وشامل
http://www.delphi4arab.net/forum/showpost.php?p=26818&postcount=1
http://www.delphi4arab.net/forum/forumdisplay.php?f=27
ثانيا بنفس الطريقة الاولى تكون الثانية .يجب ان لا اعطيك الحل مباشرة لكي تتعلم من الاجابة الاولى ستجد الثانية اخي وانا معك حتى تحل مشكلتك
بالتوفيق
جمع edit1 +edit2 +edit3 في edit4 - boughagha - 13-12-2011
شكرا الاخ mobil على المعلومات
استطيع ان اقول باني مبرمج هاوي اقوم بتصميم برامج عادية.
مشكلتي هي في كيفية تصحيح الاخطاء عندما اقوم بعملية execute للبرنامج وكدلك مع قاعدة البيانات.
متلا اخي mobil في برنامجي الدي اقوم بتصميمه كيفية filtre جدول الشراء الخاص ببرنامجي
ان اقوم بعملية فلترة للمشتريات خلال 10 ايام كل شهر لم اجد الحل لحد الان.
وكدلك جدول الزبائن متلا لم اجد كيفية فلترة مبيعات زبون ما في اي يوم من ايام الشهر.
واشكرك جزيل الشكر
جمع edit1 +edit2 +edit3 في edit4 - mobile - 13-12-2011
اخي
استعمل البحث ستجد ما تريد تقريبا كل شيئ يتعلق بالفلترة او قواعد البيانات موجود في هذا المنتدى الجميل فيه انك تجد فيه اناس طيبون ومشرفون اطيب من الطيب يصعدون بك للعى
وكنصيحة اكتب في قوقل ما تريد البحث عنه واضف بجانبها delphi4arab وانظر ماذا تجد
http://www.delphi4arab.net/forum/showthread.php?tid=5314
كود :
procedure TForm1.Button1Click(Sender: TObject);
var date1, date2 : string;
begin
date1 := datetostr(datetimepicker1.Date);
date2 := datetostr(datetimepicker2.Date);
table1.Filter := 'dt >='''+date1+'''and dt <='''+date2+'''';
table1.Filtered := true;
//---------
ADOTable1.Filter:='FieldDate>='+QuotedStr(Edit1.Text)+'AND FieldDate<='+QuotedStr(Edit2.Text);
ADOTable1.Filtered:= not ADOTable1.Filtered;
var F,D:string;
begin
D:=MaskDebut.Text;
F:=MaskFin.Text;
TCommande.filter:='Event_Date>='''+D+'''and Event_Date<='''+F+'''';
TCommande.filtered:=True;
TCommande.First;
end;فلترة قيمتين
كود :
ADOTable7.Filter := 'Nom like ' + quotedstr('*'+ spSkinEdit5.Text +'*')+' and '+'Prénom like ' + quotedstr('*'+ spSkinEdit6.Text +'*');كود :
http://www.delphi4arab.net/forum/showpost.php?p=31815&postcount=2جمع edit1 +edit2 +edit3 في edit4 - boughagha - 13-12-2011
اشكرك جزيل الشكر الاخ mobile
ساقوم بتجريب كل ماقدمته لي من معلومات قيمة .
بالنسبة للعنصر ado غير متوفر لدي في الدالفي 5 ساقوم بالبحث عنه وتنصيبه في الدالفي5
شكرا mobile