+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف يمكن ملء عمود DBGrid بقيم ثم حسابها عن طريق برنامج (/showthread.php?tid=6136)
كيف يمكن ملء عمود DBGrid بقيم ثم حسابها عن طريق برنامج - dihdih - 30-04-2014
السلام عليكم و رحمة الله و بركاته
ما هي التعليمة التي تجعل برنامجي يملء لي عمود في DBGrid
و الصورة توضح المقصود بشكل احسن و الله المستعان و بالتوفيق
![[صورة: pbvn.png]](http://img843.imageshack.us/img843/7780/pbvn.png)
كيف يمكن ملء عمود DBGrid بقيم ثم حسابها عن طريق برنامج - h-farid - 01-05-2014
و عليكم السلام و رحمة الله
جرب :
كود :
Table1.fieldbyname('Champ').asinteger:=I;كيف يمكن ملء عمود DBGrid بقيم ثم حسابها عن طريق برنامج - dihdih - 01-05-2014
التعليمة يأخي الكريم غير صحيحة جربت و لم تعمل معي
بارك الله على الاهتمام
كيف يمكن ملء عمود DBGrid بقيم ثم حسابها عن طريق برنامج - h-farid - 02-05-2014
أخي جرب هذا البُريمج و حاول دراسة كوده المصدري, ثم إن لم يف بالغرض فأوضح سؤالك أكثر كي نتمكن من فهمه.
كيف يمكن ملء عمود DBGrid بقيم ثم حسابها عن طريق برنامج - dihdih - 02-05-2014
اخي بارك الله فيك على الاهتمام و جعله الله في ميزان حسناتك ان شاء الله و جزاك الله الف خير
اخي الكريم اخدت المثال الموجود في الصورة لتوضيح فقط ما أحببت الوصول اليه
أخي عندي dbgrid مربوط بقاعدة بيانات و لكن الحقل المراد ملئه لا يوجد في قاعدة البيانات
جربت البرنامج على ListBox1 من اجل ملء ListBox1 و دالك باستعمال التعليمة
; (ListBox1.Items.Add(Som
كانت النتيجة ايجابية كما توضح الصورة
![[صورة: 2srw.png]](http://img845.imageshack.us/img845/3097/2srw.png)
كل ما ابحت عنه هو تعليمة تجعلني املء عمودdbgrid بالقيم الثي ثم حسابها بالبرنامج
كيف يمكن ملء عمود DBGrid بقيم ثم حسابها عن طريق برنامج - h-farid - 02-05-2014
و الله يا أخي لم أفهم قصدك جيدا. و لكن المثال الذي أرفقتك إياه يحتوي على تعليمة إدراج المعطيات في الـ DBGrid
هنا :
إقتباس :For I := 0 to Memo1.Lines.Count-1 do
begin
ADOTable1.Edit;
ADOTable1.Append;
ADOTable1.FieldByName( 'f1' ).AsString := Memo1.Lines[i];
ADOTable1.Fields[2].AsString := Memo1.Lines[i];
ADOTable1.Post;
end;
إذا كان سؤال غير هذا, ارفقك مشروعك لنرى المشكل عن كثب.
كيف يمكن ملء عمود DBGrid بقيم ثم حسابها عن طريق برنامج - dihdih - 04-05-2014
memo استعملتها فقط للتأكد انا البرنامج يعمل و يخرج القيم المراد حسابها
انا ابحت فقط عن تعليمة
Instruction pour afficher les valeurs dans un Champ d'un DBGRID
كيف يمكن ملء عمود DBGrid بقيم ثم حسابها عن طريق برنامج - dihdih - 12-05-2014
h-farid كتب :و الله يا أخي لم أفهم قصدك جيدا. و لكن المثال الذي أرفقتك إياه يحتوي على تعليمة إدراج المعطيات في الـ DBGrid
هنا :
إذا كان سؤال غير هذا, ارفقك مشروعك لنرى المشكل عن كثب.
بارك الله فيك اخي و الله يأخي ما قولته صحيح %100 و لكني كنت خاطئ في تكوين قاعدة البيانات
PHP كود :
ADOQuery1.Edit;
ADOQuery1.FieldByName('champ').Value := Som;
ADOQuery1.Post;
ADOQuery1.Next;
الشكر موصول لكل من ساعدني في اجاد الله و جزاكم الله ألف خير
ان الله لا يضيع اجر المحسنيين
كيف يمكن ملء عمود DBGrid بقيم ثم حسابها عن طريق برنامج - khalmoh1971 - 09-10-2014
لجمع عمود
كود :
procedure TForm1.IBDataSet1AfterOpen(DataSet: TDataSet);
var
bm: TBookmark;
Total: real;
begin
bm := IBDataSet1.GetBookmark;
IBDataSet1.DisableControls;
try
Total := 0.0;
IBDataSet1.First;
while not IBDataSet1.Eof do
begin
Total := Total + IBDataSet1COST.AsCurrency;
IBDataSet1.Next;
end;
// Total:= format
Edit1.Text := (FormatFloat('0.000 جنية', Total)) ;
finally
IBDataSet1.GotoBookmark(bm);
IBDataSet1.EnableControls;
end;