存储过程赋值语句

最新推荐文章于 2022-04-28 16:00:06 发布

weixin_30416497

最新推荐文章于 2022-04-28 16:00:06 发布

阅读量246

点赞数

原文链接：http://www.cnblogs.com/qcl_008/archive/2008/08/06/1262128.html

版权

procedure TFM.insmsg(iCategory: integer; sSender, sReceiver, sContent: string);
begin
try
    self.sp_insmsg.Parameters.ParamByName('@sCate').Value := iCategory;
    self.sp_insmsg.Parameters.ParamByName('@sSender').Value := sSender;
    self.sp_insmsg.Parameters.ParamByName('@sReceiver').Value := sReceiver;
    self.sp_insmsg.Parameters.ParamByName('@sContent').Value := sContent;
    self.sp_insmsg.ExecProc;
finally
end;
end;

转载于:https://www.cnblogs.com/qcl_008/archive/2008/08/06/1262128.html