tmp.prg

通过VFP实现sql表中

Put2SmsDb="insert into WaitToSendSmsTable (PhoneNumber,SmsOperator,SmsContent,Status,SmsDeport,FastSms,NewFlag) ;
     values(tele,'系统管理员',allt(content),'待发','XX',1,0)"
flag1=sqlexec(tbcall1,getTele)
if flag1<0
	wait wind "获取表错误！！" nowait
endif
public col1
@3,5 say ' System Initialize ok ...'
if empty(col1)
	col1=4
endif
susp
scan
 	Put2SmsDb="insert into WaitToSendSmsTable (Name,PhoneNumber,SmsOperator,SmsContent,Status,SmsDeport,FastSms,NewFlag) ;
 	 values (' ','"+allt(tele)+"','系统管理员','"+allt(content)+"','待发','XX','1',0)"
&&	?xx
&&	?sqlexec(smsdb1,xx)
*	Put2SmsDb1=&Put2SmsDb
	if SQLEXEC(smsdb1, Put2SmsDb)=-1
		wait wind 'write smsdb1 error !!' nowait
	else
		@Col1,5 say '   send  '+allt(tele)+'--> '+allt(content)+' ok ...'
		col1=col1+1
		if col1>10
			col1=4
			clear
		endif
	endif
	wait '' time 0.1
endscan
= sqlexec(Tbcall1,'update tb_ccsphone set flag=1 where flag=0 ')
= sqlexec(Tbcall1,'delete from tb_ccsphone where flag=1 ')
=SQLDISCONNECT(0)