sms.prg

来自「通过VFP实现sql表中」· PRG 代码 · 共 46 行

*_screen.visible=.F. 
set dele off
SET TALK OFF      &&                       对于主程序设计具有一定的通用性，一是对系统
SET ESCA OFF        &&                     环境的设置；二是对自定义菜单和工具栏的设计，
SET EXACT OFF       &&                     以及启动画面或登录画面的设计。在左边列出的
*SET EXCL OFF &&设定表为共享方式            这段程序是我编制的建设银行计算机台帐的主称
SET REPROCESS TO AUTOMATIC &&设定数据加锁  序，希望能对您有所帮助。
&&SET HELP TO comp_help.chm  &&设定帮助文件
SET CONS ON       &&激活从程序中向 visual FOXPRO 主窗口或活动的用户自定义窗口的输出。
SET DATE ANSI     &&设置日期格式
set mark to '-'
SET SCORE OFF     &&设定num lock、 CAPS LOCK 和 INSERT 键状态
SET SAFE OFF      &&关闭对话框
SET STAT BAR ON   &&打开状态栏
SET CENT ON       &&设定日期格式年为4位数
SET COLOR TO      &&设定配色方案
SET HOURS TO 24
SET SYSMENU OFF   &&关闭系统主菜单
CLEA              &&刷新屏幕
CLEAR ALL         &&清理变量
ON SHUTDOWN QUIT &&指定当试图退出foxpro时，要执行的命令，否则提示不能退出foxpro

public smsdb1,tbcall1,col1
col1=4
*		init SQL code
ViewTele='select tele,content from tb_ccsphone where flag=0'
getTele='select tele,content from tb_ccsphone where flag=0'
SendSucc="update tb_ccsphone set flag=1 where tele='%s'"
SendFail="update tb_ccsphone set flag=-1 where tele='%s'"
reSend='update tb_ccsphone set flag=0'
Put2SmsDb =[ "insert into WaitToSendSmsTable (Name,PhoneNumber,SmsOperator,SmsContent,Status,SmsDeport,FastSms,NewFlag)  ;
  values (' ','"+allt(tele)+"','系统管理员','"+allt(content)+"','待发','XX','1',0)"]
*susp
DO FORM sms
read event
*	SQLDISCONNECT(Tbcall1);
*	SQLDISCONNECT(smsdb1)
sqldisconnect(0)
clea all
close all
clear
set talk on
set safe on
set esca on
return