02-06-2014, 02:26 PM
السلام عليكم ورحمة الله
كيف يمكن إضهار السجل الجديد مباشرة بعد إدخاله وحفظه يظهر في اخر السجلات في المصفوفة في فورم واحد يعني اذا ضغطت على حفظ يطلع مباشرة جانبا في المصفوفة
مع العلم انني استعمل إستدعاء الاجراءات 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']);
كيف يمكن إضهار السجل الجديد مباشرة بعد إدخاله وحفظه يظهر في اخر السجلات في المصفوفة في فورم واحد يعني اذا ضغطت على حفظ يطلع مباشرة جانبا في المصفوفة
مع العلم انني استعمل إستدعاء الاجراءات 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']);