السلام عليكم
كيف اقوم بجمع 3edit في edit واحدة
متلا
edit1:= 150
edit2:=100
edit3:=50
edit4:= edit1 + edit2 + edit3
مع العلم ان edit4 نتيجتها تظهر في table1
وشكرا
كود :
edit4.text:=inttostr(strtoint(edit1.text)+strtoint(edit2.text)+strtoint(edit3.text))
كود :
table1.insert;
Table1.fieldbyname('fieldname').value:=edit4.tex;
Table1.post
ان كنت تقصد هذا والا وضح
شكرا 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
شكرا الاخ mobil على المعلومات
استطيع ان اقول باني مبرمج هاوي اقوم بتصميم برامج عادية.
مشكلتي هي في كيفية تصحيح الاخطاء عندما اقوم بعملية execute للبرنامج وكدلك مع قاعدة البيانات.
متلا اخي mobil في برنامجي الدي اقوم بتصميمه كيفية filtre جدول الشراء الخاص ببرنامجي
ان اقوم بعملية فلترة للمشتريات خلال 10 ايام كل شهر لم اجد الحل لحد الان.
وكدلك جدول الزبائن متلا لم اجد كيفية فلترة مبيعات زبون ما في اي يوم من ايام الشهر.
واشكرك جزيل الشكر
اخي
استعمل البحث ستجد ما تريد تقريبا كل شيئ يتعلق بالفلترة او قواعد البيانات موجود في هذا المنتدى الجميل فيه انك تجد فيه اناس طيبون ومشرفون اطيب من الطيب يصعدون بك للعى
وكنصيحة اكتب في قوقل ما تريد البحث عنه واضف بجانبها delphi4arab وانظر ماذا تجد
http://www.delphi4arab.net/forum/showthr...p?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
اشكرك جزيل الشكر الاخ mobile
ساقوم بتجريب كل ماقدمته لي من معلومات قيمة .
بالنسبة للعنصر ado غير متوفر لدي في الدالفي 5 ساقوم بالبحث عنه وتنصيبه في الدالفي5
شكرا mobile