الحفظ في قاعدة البيانات

[magicabdou]

السلام عليكم أفيدونا مما جادت به عقولكم

مشكلة في الحفظ
dbcombobox1 قيم (تكليف بالحضور و استدعاء ،إنذار،.....)
dbcombobox2 قيم من 1إلى 100
dbcombobox6 قيم من 1إلى 100
dbedit8,9,10

button1 on click

كود :

var np,np1,TVA,somme,result:real; begin np:=strtofloat(dbcombobox2.Text); np1:=strtofloat(dbcombobox6.Text); result:=((((1300+(np*100))*0.17))+((1300+(np*100))))*np1; dbedit8.Text:=floattostr(result); if dbcombobox1.ItemIndex=1 then result:=((((1200+(np*100))*0.17))+((1260+(np*100))))*np1; dbedit8.Text:=floattostr(result); if dbcombobox1.ItemIndex=2 then result:=((((1200+(np*100))*0.17))+((1260+(np*100))))*np1; dbedit8.Text:=floattostr(result); if dbcombobox1.ItemIndex=3 then result:=((((1200+(np*100))*0.17))+((1260+(np*100))))*np1; dbedit8.Text:=floattostr(result); if dbcombobox1.ItemIndex=4 then result:=((((1200+(np*100))*0.17))+((1260+(np*100))))*np1; dbedit8.Text:=floattostr(result); if dbcombobox1.ItemIndex=5 then result:=(1560+255)*np1; dbedit8.Text:=floattostr(result); if dbcombobox1.ItemIndex=6 then result:=((((1200+(np*100))*0.17))+((1260+(np*100))))*np1; dbedit8.Text:=floattostr(result); end;[align=left][/align]

button2 on click يحسب المبلغ المتبقي dbedit9 تعبأ يدويا

كود :

var result, pa, somme:real; begin somme:=strtofloat(dbedit8.Text); pa:=strtofloat(dbedit9.Text); result:=somme-pa; begin dbedit10.Text:=floattostr(result); end;

استعملت الكود التالي في الحدث onexit

كود :

if Table1.State in [DsEdit,DsInsert] then Table1.Post;

علما أن كل المعطيات تحفظ بشكل عادي dbedit7,5,11... إلا المذكورة أعلاه وكل
المعطيات في جدول واحد
ولكن عندما اضغط على الزر next ثم prior تحفظ

بارك الله فيكم