• 5155阅读
  • 4回复

Set 命令全集(从Foxpro 2.5到Visual Foxpro 9.0) [复制链接]

上一主题 下一主题
 

发帖
1079
浏览券
1418
威望
29
贡献值
0
下载币
1048
只看楼主 倒序阅读 使用道具 楼主  发表于: 2008-01-24


* Set DBKit-environment

SET STEP OFF
SET ECHO OFF
SET DEBUG OFF
SET ESCAPE OFF
SET TALK OFF

* Set DBKit-environment

#IF ROUND(VAL(CHRTRAN(UPPE(VERSION()),\"MICROSOFTVISUALFOXPRO\",\"\")),2)>=2.5
SET ALTERNATE TO
SET ALTERNATE OFF
SET ANSI OFF
SET AUTOSAVE OFF
SET BELL TO 512,2
SET BELL ON
SET BLINK ON
SET BLOCKSIZE TO 64
SET BORDER TO \"*\"
SET BORDER TO NONE
SET BRSTATUS OFF
SET CARRY OFF
SET CENTURY OFF
SET CLEAR ON
*SET CLOCK TO 0,69
SET CLOCK OFF
SET COLOR TO (IIF(!\"WINDOWS\"$UPPE(VERSION()),\"W/N,W/N,N\",IIF(\"WINDOWS\"$UPPE(VERSION()),\"RGB(0,0,0,192,192,192),RGB(0,0,0,192,192,192),RGB(0,0,0)\",\"\")))
SET COMPATIBLE OFF
SET CONFIRM OFF
SET CONSOLE ON
SET CURRENCY TO
SET CURSOR ON
SET DATE TO AMERICAN
SET DEBUG OFF
SET DECIMALS TO 2
*SET DEFAULT TO
SET DELETED OFF
SET DELIMITERS TO \"[]\"
SET DELIMITED ON
SET DEVELOPMENT OFF
SET DEVICE TO SCREEN
SET DOHISTORY OFF
SET ECHO OFF
SET ESCAPE OFF
SET EXACT OFF
SET FIELDS TO ALL
SET FIELDS OFF
SET FIXED OFF
SET FORMAT TO
SET FULLPATH ON
SET HEADING OFF
SET HELP OFF
SET HOURS TO 24
SET HISTORY TO 0
SET HISTORY OFF
SET INTENSITY ON
*SET LIBRARY TO
SET LOGERRORS OFF
SET MACKEY TO
SET MARGIN TO 0
SET MARK TO
SET MEMOWIDTH TO 50
SET MENU OFF
SET MESSAGE TO 0
SET MOUSE ON
SET NEAR OFF
SET NOTIFY OFF
SET ODOMETER TO 100
SET OPTIMIZE ON
SET PATH TO
SET POINT TO
SET PRINTER TO
SET PRINT OFF
SET PROCEDURE TO
SET RESOURCE OFF
SET SAFETY OFF
SET SCOREBOARD OFF
SET SEPARATOR TO
SET SHADOWS ON
SET SPACE ON
SET STATUS OFF
SET STATUS BAR OFF
SET STEP OFF
SET STICKY ON
SET SYSMENU TO DEFAULT
SET SYSMENU ON
SET TALK OFF
SET TEXTMERGE OFF
SET TRBETWEEN OFF
SET TYPEAHEAD TO 128
SET UDFPARMS TO VALUE
SET UNIQUE OFF
SET VIEW OFF
#ENDI

#IF \"WINDOWS\"$UPPE(VERSION())
SET DELIMITERS TO \"[]\"
SET DELIMITED OFF
#ENDI

#IF ROUND(VAL(CHRTRAN(UPPE(VERSION()),\"MICROSOFTVISUALFOXPRO\",\"\")),2)>=3.0
SET classlib TO
SET collate TO \"MACHINE\"
SET cpcompile TO
SET cpdialog OFF
SET DATABASE TO
SET datasession TO
SET fdow TO
SET fweek TO
SET null OFF
SET oleobject ON
SET palette OFF
SET PRINTER TO
SET PRINTER font \"宋体\",12
SET readborder OFF
SET SECONDS ON
SET sysformats OFF
#ENDI

#IF ROUND(VAL(CHRTRAN(UPPE(VERSION()),\"MICROSOFTVISUALFOXPRO\",\"\")),2)>=5.0
SET asserts OFF
SET coverage TO
SET debugout TO
SET eventlist TO
SET eventtracking TO
SET eventtracking OFF
SET nulldisplay TO
#ENDI

#IF ROUND(VAL(CHRTRAN(UPPE(VERSION()),\"MICROSOFTVISUALFOXPRO\",\"\")),2)>=6.0
SET browseime OFF
#ENDI

#IF ROUND(VAL(CHRTRAN(UPPE(VERSION()),\"MICROSOFTVISUALFOXPRO\",\"\")),2)>=8.0
SET enginebehavior 70
SET tablevalidate TO 0
#ENDI

#IF ROUND(VAL(CHRTRAN(UPPE(VERSION()),\"MICROSOFTVISUALFOXPRO\",\"\")),2)>=9.0
SET autoincerror ON
SET reportbehavior 80
SET sqlbuffering OFF
SET tableprompt OFF
SET varcharmapping OFF
#ENDI


* Multi-User

SET EXCLUSIVE OFF
SET LOCK OFF
SET MULTILOCKS ON
SET REFRESH TO 60,5
SET REPROCESS TO 0
#IF ROUND(VAL(CHRTRAN(UPPE(VERSION()),\"MICROSOFTVISUALFOXPRO\",\"\")),2)>=7.0
SET REPROCESS TO 0 SYSTEM
#ENDI


* Rollback All Transaction

#IF ROUND(VAL(CHRTRAN(UPPE(VERSION()),\"MICROSOFTVISUALFOXPRO\",\"\")),2)>=3.0
DO WHILE txnlevel()>0
ROLLBACK
ENDDO
#ENDI


* 2000年日期支持

SET DATE TO AMERICAN
SET CENTURY ON
#IF ROUND(VAL(CHRTRAN(UPPE(VERSION()),\"MICROSOFTVISUALFOXPRO\",\"\")),2)>=3.0
SET strictdate TO 1
#ENDI


* Disables Windows XP Themes

#IF ROUND(VAL(CHRTRAN(UPPE(VERSION()),\"MICROSOFTVISUALFOXPRO\",\"\")),2)>=8.0
=SYS(2700,0)
_screen.themes=.F.
#ENDI


* SYS() Functions

#IF ROUND(VAL(CHRTRAN(UPPE(VERSION()),\"MICROSOFTVISUALFOXPRO\",\"\")),2)>=3.0
=SYS(3050,1,INT(f_getmemory()*80/100)*1024*1024) && Set Foreground Buffer Memory Size
=SYS(3050,2,INT(f_getmemory()*20/100)*1024*1024) && Set Background Buffer Memory Size
=SYS(3051,333) && Set Lock Retry Interval
=SYS(3052,1,.F.) && Override Index File SET REPROCESS Locking
=SYS(3052,2,.F.) && Override Memo File SET REPROCESS Locking
#ENDI

#IF ROUND(VAL(CHRTRAN(UPPE(VERSION()),\"MICROSOFTVISUALFOXPRO\",\"\")),2)>=6.0
=SYS(3054,0) && Rushmore Query Optimization Level
=SYS(3055,8*(255-5)) && FOR and WHERE Clause Complexity
#ENDI

#IF ROUND(VAL(CHRTRAN(UPPE(VERSION()),\"MICROSOFTVISUALFOXPRO\",\"\")),2)>=8.0
=SYS(2700,0) && Disables Windows XP Themes
=SYS(3099,70) && SQL Data Engine Compatibility Mode
#ENDI

#IF ROUND(VAL(CHRTRAN(UPPE(VERSION()),\"MICROSOFTVISUALFOXPRO\",\"\")),2)>=9.0
=SYS(987,.F.) && Map Remote Data to ANSI
=SYS(2910,15) && List Display Count
=SYS(3008,1) && Enables hyperlink tooltips
=SYS(3009,0) && Disables bidirectional text justification for ToolTips
#ENDI


#IF ( .T..OR._debug)
SET DEVELOPMENT ON
SET LOGERRORS ON
#ELSE
SET DEVELOPMENT OFF
SET LOGERRORS OFF
#ENDI


CLEAR MACROS
SET FUNCTION 1 TO \"\"
SET FUNCTION 2 TO \"\"
SET FUNCTION 3 TO \"\"
SET FUNCTION 4 TO \"\"
SET FUNCTION 5 TO \"\"
SET FUNCTION 6 TO \"\"
SET FUNCTION 7 TO \"\"
SET FUNCTION 8 TO \"\"
SET FUNCTION 9 TO \"\"
SET FUNCTION 10 TO \"\"
SET FUNCTION 11 TO \"\"
SET FUNCTION 12 TO \"\"

* 系统内存变量

#IF ROUND(VAL(CHRTRAN(UPPE(VERSION()),\"MICROSOFTVISUALFOXPRO\",\"\")),2)>=2.5
_ALIGNMENT = \"\"
_BOX = .T.
_CALCMEM = 0.00
_CALCVALUE = 0.00
_CUROBJ = 0
_DBLCLICK = 0.50
_DIARYDATE = DATE()
_GENGRAPH = \"\"
_GENMENU = \"\"
_GENPD = \"\"
_GENSCRN = \"\"
_GENXTAB = \"\"
_INDENT = 0
_LMARGIN = 0
_MLINE = 0
_PADVANCE = \"\"
_PAGENO = 1
_PBPAGE = 1
_PCOLNO = 55
_PCOPIES = 1
_PDRIVER = \"\"
_PDSETUP = \"\"
_PECODE = \"\"
_PEJECT = \"\"
_PEPAGE = 32767
_PLENGTH = 66
_PLINENO = 36
_PLOFFSET = 0
_PPITCH = \"\"
_PQUALITY = .F.
_PRETEXT = \"\"
_PSCODE = \"\"
_PSPACING = 1
_PWAIT = .F.
_RMARGIN = 80
_startup = \"\"
_TABS = \"\"
_TALLY = 0
_TEXT = -1
_THROTTLE = 0.00
_transport = \"\"
_WRAP = .F.
#ENDI

#IF ROUND(VAL(CHRTRAN(UPPE(VERSION()),\"MICROSOFTVISUALFOXPRO\",\"\")),2)>=3.0
_asciicols = 80
_asciirows = 63
_assist = \"\"
#IF ( .T..OR._debug)
#ELSE
_beautify = \"\"
_browser = \"\"
_builder = \"\"
_converter = \"\"
_shell = \"\"
_spellchk = \"\"
_wizard = \"\"
#ENDI
#ENDI

#IF ROUND(VAL(CHRTRAN(UPPE(VERSION()),\"MICROSOFTVISUALFOXPRO\",\"\")),2)>=5.0
#IF ( .T..OR._debug)
#ELSE
_coverage = \"\"
_scctext = \"\"
#ENDI
#ENDI

#IF ROUND(VAL(CHRTRAN(UPPE(VERSION()),\"MICROSOFTVISUALFOXPRO\",\"\")),2)>=6.0
#IF ( .T..OR._debug)
#ELSE
_runactivedoc = \"\"
#ENDI
#ENDI

#IF ROUND(VAL(CHRTRAN(UPPE(VERSION()),\"MICROSOFTVISUALFOXPRO\",\"\")),2)>=7.0
#IF ( .T..OR._debug)
#ELSE
_codesense = \"\"
_foxcode = \"\"
_foxtask = \"\"
_objectbrowser = \"\"
_tasklist = \"\"
#ENDI
#ENDI

#IF ROUND(VAL(CHRTRAN(UPPE(VERSION()),\"MICROSOFTVISUALFOXPRO\",\"\")),2)>=8.0
#IF ( .T..OR._debug)
#ELSE
_taskpane = \"\"
_toolbox = \"\"
#ENDI
#ENDI

#IF ROUND(VAL(CHRTRAN(UPPE(VERSION()),\"MICROSOFTVISUALFOXPRO\",\"\")),2)>=9.0
#IF ( .T..OR._debug)
#ELSE
_reportbuilder = \"\"
_reportoutput = \"\"
_reportpreview = \"\"
#ENDI
#ENDI

#IF ROUND(VAL(CHRTRAN(UPPE(VERSION()),\"MICROSOFTVISUALFOXPRO\",\"\")),2)>=7.0
#IF ( .T..OR._debug)
#ELSE
_vfp.editoroptions=\"\"
_vfp.languageoptions=0
#ENDI
#ENDI

_foxdoc = \"\"
_foxgraph = \"\"

* _dos : FoxPro set
* _mac : FoxPro set
* _unix : FoxPro set
* _windows : FoxPro set


VFP C++编译软件 (VFP C++ Compiler): http://www.baiyujia.com/vfpcompiler

发帖
107
浏览券
173
威望
0
贡献值
7
下载币
1
只看该作者 沙发  发表于: 2015-09-11
Re:Set 命令全集(从Foxpro 2.5到Visual Foxpro 9.0)

发帖
926
浏览券
100472
威望
11
贡献值
31
下载币
9890
只看该作者 板凳  发表于: 2015-09-11
Re:Set 命令全集(从Foxpro 2.5到Visual Foxpro 9.0)
楼上的在考古呀

不过我是第一次读
不太理解楼主帖子的精华
估计很高深
可以写一些必要中文说明吗
楼主 848 整理出了 VFP Set 命令大全?
谢谢

其实 VFP 9 有很多未公开的文档
有很多

下面是 sys() 函数部分
还有未公开的的命令和其他函数

===========================

Function SYS(1270)
Function SYS(1002)
Function SYS(1003)
Function SYS(1004)
Function SYS(1005)
Function SYS(1006)
Function SYS(1007)
Function SYS(1008)
Function SYS(1009)
Function SYS(1010)
Function SYS(1011)
Function SYS(1012)
Function SYS(1013)
Function SYS(1014)
Function SYS(1015)
Function SYS(1016)
Function SYS(1017)
Function SYS(1018)
Function SYS(1020)
Function SYS(1021)
Function SYS(1022)
Function SYS(1029)
Function SYS(1030)
Function SYS(1039)
Function SYS(104)
Function SYS(1078)
Function SYS(1079)
Function SYS(1101)
Function SYS(1102)
Function SYS(1103)
Function SYS(1104)
Function SYS(1105)
Function SYS(2008)
Function SYS(2015)
Function SYS(2024)
Function SYS(2025)
Function SYS(2026)
Function SYS(2027)
Function SYS(2050)
Function SYS(2147483648)
Function SYS(2338)
Function SYS(2400)
Function SYS(2701)
Function SYS(2850)
Function SYS(2901)
Function SYS(3001)
Function SYS(3070)
Function SYS(3071)
Function SYS(3090)
Function SYS(3094)
Function SYS(3100)
Function SYS(3102)
Function SYS(4000)
Function SYS(4001)
Function SYS(4003)
Function SYS(4004)
Function SYS(4010)
Function SYS(4015)
Function SYS(4201)
Function SYS(4204)
Function SYS(4205)
Function SYS(8589934592)
Function SYS(986)
Function SYS(988)
Function SYS(989)
Function SYS(999)


发帖
926
浏览券
100472
威望
11
贡献值
31
下载币
9890
只看该作者 地板  发表于: 2015-09-11
Re:Set 命令全集(从Foxpro 2.5到Visual Foxpro 9.0)
*!*    Sys() : VFP 9 未公开的文档 (部分) 示例:

Clear

*!*    SYS(3001, N1, N2, N3) 函数 : VFP 9 不支持
? SYS(3001)        && 无参数:错误
? SYS(3001, 0)     && 有一个参数,但返回空值
? SYS(3001, 0, 0)  && 任何大于等于 2 个参数的,都返回错误


*!*    SYS(3070) 函数 : (VFP 7/8 or Beta 9),VFP 9 正式版淘汰了
Set Talk On
Set Status Bar On
? Sys(3070)  && 状态条 (Status bar) 上出现 "Icecap profiling turned on" 信息
Set Status Bar Off
? Sys(3070)  && "WAIT WINDOW" 命令窗口上出现 "Icecap profiling turned on" 信息
Wait Window "Hello......"


*!*    SYS(3071) 函数 : (VFP 7/8 or Beta 9),VFP 9 正式版淘汰了
Set Talk On
Set Status Bar On
? Sys(3071)  && 状态条 (Status bar) 上出现 "Icecap profiling turned off" 信息
Set Status Bar Off
? Sys(3071)  && "WAIT WINDOW" 命令窗口上出现 "Icecap profiling turned off" 信息
Wait Window "Hello......"


*!*    SYS(3090, N) 函数 : (VFP 6/9),只返回 0 或 1,N = 0 or 1
? "VFP 6 :"
? Sys(3090)    && 返回 0
? Sys(3090, 0) && 返回 0
*!*    再一次 ? SYS(3090)
? Sys(3090)    && 返回 1
? Sys(3090, 0) && 返回 1
*!*    再一次 ? SYS(3090)
? Sys(3090)    && 返回 0
? "VFP 9 :"
? Sys(3090)    && 返回 0
? Sys(3090, 1) && 返回 0
*!*    再一次 ? SYS(3090)
? Sys(3090)    && 返回 1
? Sys(3090, 1) && 返回 1
*!*    再一次 ? SYS(3090)
? Sys(3090)    && 返回 1


*!*    SYS(3094, oObject) 函数 : (VFP 9),可能和 SYS(3095) 函数功能相同。
? Sys(3094, oObject)


*!*    SYS(3100, N) 函数 : (VFP 9),N >= 0,无返回值,
*!*    是 VFP 9 新函数,处理 COM 代码页转换。也许与 Sys(3102) 有关?
? Sys(3100)
? Sys(3100, 1)


*!*    Sys(3102, Log) 函数 : (VFP 9),可能是逻辑值转逻辑值的反转函数
? Sys(3102)       && 返回 .F.
? Sys(3102, .T.)  && 返回 .F.
? Sys(3102)       && 返回 .T.
? Sys(3102, .F.)  && 返回 .T.
? Sys(3102)       && 返回 .F.


*!*    Sys(4010) / Sys(4010) / SYS(4003) / SYS(4001) / SYS(4000) 函数 : (FoxPro 2.6),VFP 后淘汰了
? Sys(4010)  && "Feature is not available"


*!*    Sys(4015) 函数 : (VFP 6),菜单的文字从右到左或从左到右的显示
*!*    可能和你的 OS 设置有关,如果是 1 : SET SYSMENU TO RTLJUSTIFY
? Sys(4015) = 0  && 菜单的文字从左到右的显示


*!*    Sys(4201) 函数 : (VFP 6),VFP 9 已经淘汰了
? Sys(4201)  && 返回一个空的日期时间函数: ( / / : : ) DateTime value


*!*    Sys(4205) 函数 : (VFP 6/7),可能是在变量名前增加或删除 M. 前缀,和代码块有关
? Sys(4205)


*!*    Sys(8589934592) 函数 : (VFP 5),其他版本不显示
*!*    相当于:SYS(0) / Id() 函数
? Sys(8589934592)  && 8589934592 = 2^33


*!*    Sys(986, N1, N2) 函数 : (VFP 9),可能是数值转逻辑的反转函数
? Sys(986)        && 无参数,返回 .F.
? Sys(986, 0)     && 任何 0-9 参数,返回 .T.
? Sys(986, 1, 1)  && 有第三个参数,返回 .F.


*!*    Sys(988, Log) 函数 : (VFP 9),可能是逻辑值转逻辑值的反转函数
? Sys(988)       && 返回 .F.
? Sys(988, .T.)  && 返回 .F.
? Sys(988, .F.)  && 返回 .T.


*!*    Sys(989, N) 函数 : (VFP 9),可能是数字 1/0 转数字的的反转函数
? Sys(989)     && 无参数,永远返回 0
? Sys(989)
? Sys(989)
? " "
? Sys(989, 1)  && 第一次运行,返回 0
? Sys(989, 1)  && 以后都返回 1
? Sys(989, 1)
? Sys(989, 1)
? " "
? Sys(989, 0)  && 第一次运行,返回 1
? Sys(989, 0)  && 以后都返回 0
? Sys(989, 0)
? Sys(989, 0)
? " "


*!*    Sys(999, N) 函数 : VFP 6-9),可能是 VFP UI 缩略图的 Help
*!*    弹出 VFP 对话框的位图图像,您可以使用向上和向下箭头键来浏览包含
*!*    在 VFP 中的所有对话。我敢打赌,你能找到一些你从来没有见过的画面。
*!*    在 Windows 2000 (2031) 上调用 Sys(999, 4507),则 VFP6.0 死锁。
*!*    当 N >= 5000 是出现错误。
*!*    ? Sys(999, 4507)  &&  VFP 6
*!*    ? SYS(999, 4412)  &&  VFP 7
*!*    Or
? Sys(999, 4311)  &&  VFP 8/9

发帖
6
浏览券
1
威望
0
贡献值
0
下载币
0
只看该作者 4楼 发表于: 2015-09-13
Re:Set 命令全集(从Foxpro 2.5到Visual Foxpro 9.0)
哇哇学习了
快速回复
限100 字节
如果您提交过一次失败了,可以用”恢复数据”来恢复帖子内容
 
上一个 下一个