الاخوه الافاضل
ادعل بيانات الى جدول بedit, maskedit واود ان ليطهر خطا عند ما يكون السجل فارغ وكذنك تفريع الedit ,maskedit بعد ان اضعط حفظ button وجزاكم الله خيرا
وعليكم السلام لم أفهم جيدا ما تطلبه لكن اجبتك على قدر فهمي
كود :
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;
و تضع رسائ التوجيه داخل الأقواس و يا لليت ترفق مثال أو صورة
و الله أعلم
اشكر ك اخى الفاضل على الاهتمام ماقصدته هو اننى ادخل بيانات الى قاعده بيانا ت بارادوكس
بواسطه ال bedit للبيانات الحرفيه والرقميه وmaskedit للتاريخ وهناك button اضعط غليها للاضافه والحفظ فى قاعده البيانات
المشكله:
اننى اضيف البيانات فلاتحفظ وكذلك القيم المدخله لاتختفى اى بمعنى اننى **** بالضغط على button ان تذهب القيم الى قاعده البيانات وتظهر فى dbgrid مثلا وتختفى من فورم الادخال وان كانت مدخله من قبل فلاتقبل وعذرا للاطاله