النقر على سجل داخل Dbgrid فيعرض السجل في Dbedit
|
النقر على سجل داخل Dbgrid فيعرض السجل في Dbedit
|
 ![[صورة: 717594170.png]](http://www6.0zz0.com/2017/09/26/00/717594170.png) السلام عليكم و رحمة الله و بركاته كيف أجعل السجل المسمى MONTANT ENTREE في الفورم رقم 1 يأخد قيمة dbedit في فورم رقم 3 جربت الكود التالي
للأشارة DBEDIT3 هي مجوع العمود (sum) المسمى manton في الفورم 3 
26-09-2017, 05:50 AM
ما اسم الجدول والحقل الذي ربط بDBEdit3 ؟
رَبَّنَا اغْفِرْ لِي وَلِوَالِدَيَّ وَلِلْمُؤْمِنِينَ يَوْمَ يَقُومُ الْحِسَابُ
26-09-2017, 07:21 PM
السلام عليكم
اسم الجدول المرتبط بـــ dbEdit3 و الموجود في الفورم رقم هو ENTREE 701 اما بخصوص DBEdit3= (A) فهي عبارة عن مجموع العمود montant 
26-09-2017, 09:55 PM
(آخر تعديل لهذه المشاركة: 27-09-2017, 08:13 AM بواسطة محمد عبد العزيز.)
هل الجدولين مرتبطين maître détail إذا كان نعم فعند الضغط على الزر لحساب المجموع في الفورم entree 701 أضف ما يلي:
form1.table_name.edit; كود : form1.table_name.fieldvalue['montant']:=edit1.text;
form1.table_name.post;
اطلب العلم من المهد إلى اللحد
27-09-2017, 03:02 PM
اخي alkhemia انا لا أبحث عن المجموع بل ربط المجموع الموجود في dbedit و المرتبط بالفورم رقم 3 مع montant entrée و الموجود في الفورم رقم 1
27-09-2017, 03:27 PM
كود : if Form1.ADOTable1.Locate('CODEDE COMPT','701',[]) then Begin
Form1.ADOTable1.Edit;
Form1.ADOTable1.FieldByName('MONTANT ENTREE').AsString:=DBEdit3.Text;
Form1.ADOTable1.Post;
End;
رَبَّنَا اغْفِرْ لِي وَلِوَالِدَيَّ وَلِلْمُؤْمِنِينَ يَوْمَ يَقُومُ الْحِسَابُ
29-09-2017, 09:06 PM
(آخر تعديل لهذه المشاركة: 29-09-2017, 10:00 PM بواسطة محمد عبد العزيز.)
السلام عليكم
للأسف لم يعمل مع لم اعرف أي الخلل لقد رفعت البرنامج الدي اعمل عليه http://gulfup.co/zr3j31cgfu16
29-09-2017, 09:59 PM
في ال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 انصحك بفهم ما نقوم به وليس فقط النسخ اللصق
رَبَّنَا اغْفِرْ لِي وَلِوَالِدَيَّ وَلِلْمُؤْمِنِينَ يَوْمَ يَقُومُ الْحِسَابُ
لقد تم دلك
ههههه لقد فهمت و الحمد لله ....لقد كانت مجرد خربطة...شكرا لك على النصيحة المهم هناك عدة أخطاء سوف أقوم بتصليحها
30-09-2017, 08:39 PM
السلام عليكم
B.M.AbdelAziZ انا اسف احس اني قد اتقلت عليك كما تعلم لدي ثلاث جداول الأول هو لقسم المشتريات و الثاني هو للبضاعة التي خرجت و الثالث هو حصيلة ما تبقى من الجدول الأول مثلا و 10 أقلام وكتبناها في الجدول الأول و في الجدول الثاني لدينا استهلاك 7 أقلام اريد حل للعملية الحسابية و أيضا اريد يكتب الباقي بشكل اتوماتيكي في الجدول stoCk يعني يمتلأ الجدول اتوماتيكيا Produit QT PU MONTAN |
|
|
