ادخال بيانات وحفظها

[alyoseef]

الاخوه الافاضل
ادعل بيانات الى جدول بedit, maskedit واود ان ليطهر خطا عند ما يكون السجل فارغ وكذنك تفريع الedit ,maskedit بعد ان اضعط حفظ button وجزاكم الله خيرا

[hamam2008]

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

table1.Filtered:=FALSE;
IF (maskedit1.Text = ' ') AND( edit1.Text = ' ') THEN
messagedlg(' ') ,mtwarning, [mbok] , 0)
else
IF maskedit1.Text = ' ' THEN
Messagedlg (' '),mtwarning, [mbok] , 0)
else
IF N_edit1.Text = ' ' THEN
Messagedlg (' ') ,mtwarning, [mbok] , 0)
else
BEGIN
table1.open;
table1.Insert;
table1code.Value:=strtodate(maskedit1.Text);
table1procn.Value:=edit1.Text;
table1name.Value:=edit2.Text;
table1carn.Value:=edit3.Text;
table1carz.Value:=strtoint(edit4.Text);
table1mpr.Value:=strtoint(edit5.Text);
table1noc.Value:=strtoint(edit6.Text);
table1disc.Value:=strtoint(edit7.Text);
table1.Post;
end;

و تضع رسائ التوجيه داخل الأقواس و يا لليت ترفق مثال أو صورة
و الله أعلم

[alyoseef]

اشكر ك اخى الفاضل على الاهتمام ماقصدته هو اننى ادخل بيانات الى قاعده بيانا ت بارادوكس
بواسطه ال bedit للبيانات الحرفيه والرقميه وmaskedit للتاريخ وهناك button اضعط غليها للاضافه والحفظ فى قاعده البيانات
المشكله:
اننى اضيف البيانات فلاتحفظ وكذلك القيم المدخله لاتختفى اى بمعنى اننى **** بالضغط على button ان تذهب القيم الى قاعده البيانات وتظهر فى dbgrid مثلا وتختفى من فورم الادخال وان كانت مدخله من قبل فلاتقبل وعذرا للاطاله