delphi4arab منتديات دلفي للعرب

ا[FONT=Impact][FONT=Arial]لسلام عليكم
أسعد الله أوقاتكم بكل خير
كيف أضيف قيمة الى جميع الحقول في سجل (Montant )
الصورة توضح المشكل

كود :
http://www10.0zz0.com/2011/02/10/19/173319975.jpg

و عليكم السلام و رحمة الله

مثال :

كود :
ADOTable1.First;
ADOTable1.DisableControls;
while not ADOTable1.Eof do
begin
  ADOTable1.Edit;
  ADOTable1.FieldByName('montant').Value:=edtMontant.text;
  ADOTable1.Post;
  ADOTable1.Next;
end;
ADOTable1.EnableControls;

يمكن أيضا إستخدام الـ sql (أسرع)

كود :
Update yourtable set montant = yourvalue

بالتوفيق

يستحسن حماية مثل هذه الأسطر:

كود :
	ADOTable1.DisableControls;
	[COLOR=Blue]try
[/COLOR]		ADOTable1.First;
		while not ADOTable1.Eof do
		begin
		  ADOTable1.Edit;
		  ADOTable1.FieldByName('montant').Value:=edtMontant.text;
		  ADOTable1.Post;
		  ADOTable1.Next;
		end;
	[COLOR=Blue]finally
[/COLOR]		ADOTable1.EnableControls;
	[color=Blue]end[/color];

وإضافة Bookmark لاسترجاع الوضع السابق
بالتوفيق.

douina

Lam.Abdeldjalil

kachwahed