![[صورة: 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
ما اسم الجدول والحقل الذي ربط بDBEdit3 ؟
السلام عليكم
اسم الجدول المرتبط بـــ dbEdit3 و الموجود في الفورم رقم هو ENTREE 701
اما بخصوص DBEdit3= (A) فهي عبارة عن مجموع العمود montant
هل الجدولين مرتبطين maître détail إذا كان نعم فعند الضغط على الزر لحساب المجموع في الفورم entree 701 أضف ما يلي:
form1.table_name.edit;
كود :
form1.table_name.fieldvalue['montant']:=edit1.text;
form1.table_name.post;
اخي alkhemia انا لا أبحث عن المجموع بل ربط المجموع الموجود في dbedit و المرتبط بالفورم رقم 3 مع montant entrée و الموجود في الفورم رقم 1
كود :
if Form1.ADOTable1.Locate('CODEDE COMPT','701',[]) then Begin
Form1.ADOTable1.Edit;
Form1.ADOTable1.FieldByName('MONTANT ENTREE').AsString:=DBEdit3.Text;
Form1.ADOTable1.Post;
End;
في ال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
انصحك بفهم ما نقوم به وليس فقط النسخ اللصق
لقد تم دلك
ههههه لقد فهمت و الحمد لله ....لقد كانت مجرد خربطة...شكرا لك على النصيحة
المهم هناك عدة أخطاء سوف أقوم بتصليحها
السلام عليكم
B.M.AbdelAziZ
انا اسف احس اني قد اتقلت عليك
كما تعلم لدي ثلاث جداول الأول هو لقسم المشتريات و الثاني هو للبضاعة التي خرجت و الثالث هو حصيلة ما تبقى من الجدول الأول
مثلا و 10 أقلام وكتبناها في الجدول الأول و في الجدول الثاني لدينا استهلاك 7 أقلام اريد حل للعملية الحسابية
و أيضا اريد يكتب الباقي بشكل اتوماتيكي في الجدول stoCk
يعني يمتلأ الجدول اتوماتيكيا
Produit QT PU MONTAN