+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : ادخال بيانات وحفظها (/showthread.php?tid=1963)
ادخال بيانات وحفظها - alyoseef - 01-05-2010
الاخوه الافاضل
ادعل بيانات الى جدول بedit, maskedit واود ان ليطهر خطا عند ما يكون السجل فارغ وكذنك تفريع الedit ,maskedit بعد ان اضعط حفظ button وجزاكم الله خيرا
ادخال بيانات وحفظها - hamam2008 - 01-05-2010
وعليكم السلام لم أفهم جيدا ما تطلبه لكن اجبتك على قدر فهمي
كود :
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 - 02-05-2010
اشكر ك اخى الفاضل على الاهتمام ماقصدته هو اننى ادخل بيانات الى قاعده بيانا ت بارادوكس
بواسطه ال bedit للبيانات الحرفيه والرقميه وmaskedit للتاريخ وهناك button اضعط غليها للاضافه والحفظ فى قاعده البيانات
المشكله:
اننى اضيف البيانات فلاتحفظ وكذلك القيم المدخله لاتختفى اى بمعنى اننى **** بالضغط على button ان تذهب القيم الى قاعده البيانات وتظهر فى dbgrid مثلا وتختفى من فورم الادخال وان كانت مدخله من قبل فلاتقبل وعذرا للاطاله