bb.bak

主要是检查程序。从电子称取数

SET TALK OFF           &&关闭命令显示
SET ESCAPE OFF         &&禁止运行的程序在按 Esc 键后被中断
SET EXCLUSIVE OFF      &&允许网络上的任何用户共享和修改网络上打开的表
SET HELP ON            &&当按下 F1 键或在命令窗口中执行 HELP 命令时，显示帮助窗口
*SET HELP TO Help.chm &&指定帮助文件
SET CONSOLE ON         &&将所有的结果输出到 Visual FoxPro 主窗口或活动的用户自定义窗口中
SET DATE ANSI          &&指定日期表达式的显示格式为yy.mm.dd
SET CENTURY ON         &&设定日期中的年为4位数
SET SAFETY OFF         &&指定在改写已有文件时不显示对话框
SET STATUS BAR ON      &&打开VFP状态栏
SET COLOR TO           &&设置颜色为默认状态
SET HOURS TO 24
SET SYSMENU OFF        &&关闭系统菜单
SET NOTIFY OFF 
*SET NOTIFY CURSOR OFF  &&不在状态栏中显示数据信息
CLEAR                  &&清除主窗口
CLEAR ALL              &&清除变量
WITH _Screen               &&设置VFP主表单为可见、最大化、标题、图标
    .Visible=.T.
    .Closable=.f.
    .ControlBox=.T.
    .MaxButton=.T.
    .MinButton=.T.
    .Movable=.T.
    .Top=0
    .Left=0
    .WindowState=2
    .Caption="检测管理系统 "
    .Icon='Salary.ico'
ENDWITH 
*cSQL="select * from ZsWebTable60"
*IF SQLEXEC(CON,cSQL,'zsw')<=0 
*　=MESSAGEBOX(' 执行失败 ',64,' 发送语句到 SQL Server 上去 ') 
*ELSE 
*　　=MESSAGEBOX(' 执行成功 ',64,' 发送语句到 SQL Server 上去 ') 
*ENDIF 
*?SQLEXEC(con,"select getdate() as serverdatetime","temp1")
*=sqlexec(con,"exec tj")
set safe off 
close data all 
use bb excl 
zap 
appe blank 
do form bb 
*read even