流行模式

紧跟潮流,步入云时代

当前位置:首页>平台开发>流行模式
全部 1208 平台特色 8 经典模式 77 流行模式 108 技术论坛 1014 经典视频 1

群发短信

时间:2021-03-22   访问量:1165
效果图 见 短信营销 中 短信批量发送
============
var
ResStr:string;
dxStr:string;
sSql:string;
begin
DetailTableTADODataSet0.first;
while not DetailTableTADODataSet0.eof() do
begin
dxStr:=dxStr+','+DetailTableTADODataSet0.fieldbyname('联系电话').asstring;
DetailTableTADODataSet0.next;
end;
ResStr:=ServerExeSendSms(dxStr,'宏达软件','SMS_211022233','{"product":"'+DetailTableTADODataSet0.fieldbyname('产品名称').asstring+'","coninfo":"'+DetailTableTADODataSet0.fieldbyname('技术电话').asstring+'"}','');
///
{ DetailTableTADODataSet0.first;
while not DetailTableTADODataSet0.eof() do
begin
DetailTableTADODataSet0.edit;
DetailTableTADODataSet0.fieldbyname('短信发送时间').Value:=now();
DetailTableTADODataSet0.fieldbyname('短信内容').Value:=ResStr;
DetailTableTADODataSet0.fieldbyname('状态').Value:='发送成功';
DetailTableTADODataSet0.post;
DetailTableTADODataSet0.next;
end; }
sSql:='update 短信客户 set 短信发送时间=getdate(),状态=''发送成功'',';
sSql:=sSql+'短信内容=''尊敬的用户,'''''+DetailTableTADODataSet0.fieldbyname('产品名称').asstring+'''''已经到货,请联系'''''+DetailTableTADODataSet0.fieldbyname('技术电话').asstring+'''''索取使用(请注意验证产品版次)。''';
sSql:=sSql+' where 编号='''+DetailTableTADODataSet0.fieldbyname('编号').asstring+'''';
sSql:=sSql+' and ((状态<>''已发送'' and 状态<>''发送成功'') or 状态 is null or 状态='''')';
MainForm.caption:=sSql;
ExeSqlCmd(sSql);
ShowMessage('短信已经成功发送:'+ResStr);
TableRefresh('DetailTableTADODataSet0');
end.

上一篇:一个录入窗口下多个报表,根据类别只显示该类别的报表

下一篇:按钮调用其他节点并附加参数

发表评论:

评论记录:

未查询到任何数据!

在线咨询

点击这里给我发消息 售前咨询专员

点击这里给我发消息 售后服务专员

在线咨询

免费通话

24小时免费咨询

请输入您的联系电话,座机请加区号

免费通话

微信扫一扫

微信联系
返回顶部
备案号码:鲁ICP备09000001号-2