![]() |
|
إضهار السجل الحديد - نسخة قابلة للطباعة +- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum) +-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3) +--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15) +--- الموضوع : إضهار السجل الحديد (/showthread.php?tid=6228) |
إضهار السجل الحديد - أبوأمين - 02-06-2014 السلام عليكم ورحمة الله كيف يمكن إضهار السجل الجديد مباشرة بعد إدخاله وحفظه يظهر في اخر السجلات في المصفوفة في فورم واحد يعني اذا ضغطت على حفظ يطلع مباشرة جانبا في المصفوفة مع العلم انني استعمل إستدعاء الاجراءات sqlفي دلفي وهذا الكود self.ADOStoredProc1.Active:=false self.ADOStoredProc1.ProcedureName:='InsertSpécialité'; self.ADOStoredProc1.Parameters.Refresh; self.ADOStoredProc1.Parameters.ParamByName('@Numspécial').Value:=strtoint(edit1.Text); self.ADOStoredProc1.Parameters.ParamByName('@Nomspécial').Value:=edit2.Text; self.ADOStoredProc1.Parameters.ParamByName('@message').Value:='message'; self.ADOStoredProc1.ExecProc; self.ADOStoredProc1.Active:=true showmessage (ADOStoredProc1.Parameters.ParamValues['@message']); |