流行模式

效果图 见 短信营销 中 短信批量发送
============
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.