+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : النقر على سجل داخل Dbgrid فيعرض السجل في Dbedit (/showthread.php?tid=8897)
الصفحات:
1
2
النقر على سجل داخل Dbgrid فيعرض السجل في Dbedit - widad-wac - 25-09-2017
![[صورة: 717594170.png]](http://www6.0zz0.com/2017/09/26/00/717594170.png)
السلام عليكم و رحمة الله و بركاته
كيف أجعل السجل المسمى MONTANT ENTREE
في الفورم رقم 1
يأخد قيمة dbedit في فورم رقم 3
جربت الكود التالي
- procedure form1.ADOTableAfterScroll(DataSet: TDataSet);
- begin
- FORM3.DBNavigator1.DataSource.DataSet.Locate(DBEDIT3, DataSet[DBEDIT3], []);
- end;
- ولكن لم يعمل معي حيت ان DBEDIT 3 موجودة في الفورم3
للأشارة DBEDIT3 هي مجوع العمود (sum) المسمى manton في الفورم 3
RE: النقر على سجل داخل Dbgrid فيعرض السجل في Dbedit - محمد عبد العزيز - 26-09-2017
ما اسم الجدول والحقل الذي ربط بDBEdit3 ؟
RE: النقر على سجل داخل Dbgrid فيعرض السجل في Dbedit - widad-wac - 26-09-2017
السلام عليكم
اسم الجدول المرتبط بـــ dbEdit3 و الموجود في الفورم رقم هو ENTREE 701
اما بخصوص DBEdit3= (A) فهي عبارة عن مجموع العمود montant
RE: النقر على سجل داخل Dbgrid فيعرض السجل في Dbedit - alkhemia - 26-09-2017
هل الجدولين مرتبطين maître détail إذا كان نعم فعند الضغط على الزر لحساب المجموع في الفورم entree 701 أضف ما يلي:
form1.table_name.edit;
كود :
form1.table_name.fieldvalue['montant']:=edit1.text;
form1.table_name.post;RE: النقر على سجل داخل Dbgrid فيعرض السجل في Dbedit - widad-wac - 27-09-2017
اخي alkhemia انا لا أبحث عن المجموع بل ربط المجموع الموجود في dbedit و المرتبط بالفورم رقم 3 مع montant entrée و الموجود في الفورم رقم 1
RE: النقر على سجل داخل Dbgrid فيعرض السجل في Dbedit - محمد عبد العزيز - 27-09-2017
كود :
if Form1.ADOTable1.Locate('CODEDE COMPT','701',[]) then Begin
Form1.ADOTable1.Edit;
Form1.ADOTable1.FieldByName('MONTANT ENTREE').AsString:=DBEdit3.Text;
Form1.ADOTable1.Post;
End;RE: النقر على سجل داخل Dbgrid فيعرض السجل في Dbedit - widad-wac - 29-09-2017
السلام عليكم
للأسف لم يعمل مع لم اعرف أي الخلل لقد رفعت البرنامج الدي اعمل عليه
http://gulfup.co/zr3j31cgfu16
RE: النقر على سجل داخل Dbgrid فيعرض السجل في Dbedit - محمد عبد العزيز - 29-09-2017
في الform4
كود :
procedure TForm4.FormCreate(Sender: TObject);
var
sum1:real;
begin
sum1:=0;
ADOTable1.DisableControls;
ADOTable1.First;
while not ADOTable1.Eof do
begin
sum1:=sum1+ADOTable1Montant.Value;
ADOTable1.Next;
end;
ADOTable1.EnableControls;
DBEdit3.Text:=flOattostr(sum1);
if Form1.ADOTable1.Locate('CODEDE COMPT','701',[]) then Begin
Form1.ADOTable1.Edit;
Form1.ADOTable1.FieldByName('MONTENTREE').AsString:=flOattostr(sum1);
Form1.ADOTable1.Post;
end;
end;ADOTable1AfterRefresh
ADOTable1AfterPost
ADOTable1AfterInsert
انصحك بفهم ما نقوم به وليس فقط النسخ اللصق
RE: النقر على سجل داخل Dbgrid فيعرض السجل في Dbedit - widad-wac - 29-09-2017
لقد تم دلك
ههههه لقد فهمت و الحمد لله ....لقد كانت مجرد خربطة...شكرا لك على النصيحة
المهم هناك عدة أخطاء سوف أقوم بتصليحها
RE: النقر على سجل داخل Dbgrid فيعرض السجل في Dbedit - widad-wac - 30-09-2017
السلام عليكم
B.M.AbdelAziZ
انا اسف احس اني قد اتقلت عليك
كما تعلم لدي ثلاث جداول الأول هو لقسم المشتريات و الثاني هو للبضاعة التي خرجت و الثالث هو حصيلة ما تبقى من الجدول الأول
مثلا و 10 أقلام وكتبناها في الجدول الأول و في الجدول الثاني لدينا استهلاك 7 أقلام اريد حل للعملية الحسابية
و أيضا اريد يكتب الباقي بشكل اتوماتيكي في الجدول stoCk
يعني يمتلأ الجدول اتوماتيكيا
Produit QT PU MONTAN