دخول

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;

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

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة