جمع edit1 +edit2 +edit3 في edit4
|
جمع edit1 +edit2 +edit3 في edit4
|
13-12-2011, 06:20 PM
السلام عليكم
كيف اقوم بجمع 3edit في edit واحدة متلا edit1:= 150 edit2:=100 edit3:=50 edit4:= edit1 + edit2 + edit3 مع العلم ان edit4 نتيجتها تظهر في table1 وشكرا 
13-12-2011, 06:43 PM
كود : edit4.text:=inttostr(strtoint(edit1.text)+strtoint(edit2.text)+strtoint(edit3.text))كود : table1.insert;
Table1.fieldbyname('fieldname').value:=edit4.tex;
Table1.postان كنت تقصد هذا والا وضح
لأستهلنّ الصعب أو أدرك المنى فما انقادت الآمال إلاّ لصابر
13-12-2011, 07:02 PM
شكرا 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
13-12-2011, 07:12 PM
اولا بما انك تبدو مبتدا انصحك بهذا الموضوع صدقني مهم جدا ومفيد وشامل
http://www.delphi4arab.net/forum/showpos...ostcount=1 http://www.delphi4arab.net/forum/forumdisplay.php?f=27 ثانيا بنفس الطريقة الاولى تكون الثانية .يجب ان لا اعطيك الحل مباشرة لكي تتعلم من الاجابة الاولى ستجد الثانية اخي وانا معك حتى تحل مشكلتك بالتوفيق
لأستهلنّ الصعب أو أدرك المنى فما انقادت الآمال إلاّ لصابر
13-12-2011, 07:33 PM
شكرا الاخ mobil على المعلومات
استطيع ان اقول باني مبرمج هاوي اقوم بتصميم برامج عادية. مشكلتي هي في كيفية تصحيح الاخطاء عندما اقوم بعملية execute للبرنامج وكدلك مع قاعدة البيانات. متلا اخي mobil في برنامجي الدي اقوم بتصميمه كيفية filtre جدول الشراء الخاص ببرنامجي ان اقوم بعملية فلترة للمشتريات خلال 10 ايام كل شهر لم اجد الحل لحد الان. وكدلك جدول الزبائن متلا لم اجد كيفية فلترة مبيعات زبون ما في اي يوم من ايام الشهر. واشكرك جزيل الشكر
13-12-2011, 07:49 PM
اخي
استعمل البحث ستجد ما تريد تقريبا كل شيئ يتعلق بالفلترة او قواعد البيانات موجود في هذا المنتدى الجميل فيه انك تجد فيه اناس طيبون ومشرفون اطيب من الطيب يصعدون بك للعى وكنصيحة اكتب في قوقل ما تريد البحث عنه واضف بجانبها 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
لأستهلنّ الصعب أو أدرك المنى فما انقادت الآمال إلاّ لصابر
|
|
|
