其他行业

开发平台：
VFP

man.prg：源码内容
							_screen.visible=.f.
SET STEP ON 					&&为程序调试打开跟踪窗口并挂起程序
Clear All 						&&从内存中释放所有的内存变量和数组以及所有用户自定义菜单栏、菜单和窗口的定义。不释放系统内存变量，也不清除已编译程序的缓冲区。
Close All 						&&CLOSE ALL 也能关闭所有表，包括所有相关的索引、格式和备注文件，并且选择工作区 
Clear
Set Deleted ON 					&&使用范围子句处理记录(包括在相关表中的记录)的命令忽略标有删除标记的记录。 
Set Exclusive OFF				&&(私有数据工作期的默认方式)允许网络上的任何用户共享和修改网络上打开的表。！！这样会造成共享冲突！！
Set Talk ON 					&&决定 Visual FoxPro 是否显示命令结果。
Set Bell ON  					&&关掉或打开计算机铃声，并设置铃声属性。ON 为打开
Set Century ON 					&&指定在包含 10 个字符(包括日期分隔符)的日期格式中，用四位数字表示年。 
Set Date To Ansi SHORT 			&&指定日期表达式和日期时间表达式的显示格式。
Set Hours To 24 				&&将系统时间设置为 12-小时或 24-小时时间格式
Set Device To SCREEN 			&&将 @ ... SAY 的输出结果定向到 Visual FoxPro 主窗口或活动的用户自定义窗口中。 
Set Dohistory Off 				&&包含向后兼容性. 使用 “跟踪”窗口 代替。
Set Escape OFF 					&&决定是否可以通过按 ESC 键中断程序和命令的运行。
Set Keycomp To Windows			&&使用windows类型按钮的属性
Set Lock Off					&&使命令能以共享方式访问表
Set Multilocks On				&&锁定多条记录	
Set Optimize On					&&索引查询优化
Set Readborder Off				&&设定文本框是否带边框
Set Reprocess To 60 Seconds		&&初始记录锁定失败后尝试再次锁定记录或文件的时间间隔
Set Safety Off					&&改写文件提示对话框
Set Status Bar On				&&显示图形状态栏
Set Autosave On					&&自动保存激活
Set Exact On 					&&两字符串严格比较
*SET SYSMENU ON 
set procedure to prg.prg  		&&过程打开语句子用来指明该过程的位置
Public m.cqx,m.cname
_Screen.WindowState= 2			&&全屏显示
_Screen.Icon='D:CHAOFENGICOHOUSE.ICO'
_Screen.Picture='D:CHAOFENGICOBACK1.JPG'
Public date_path				&&定义共享路径
**********************************************************
	data_path='\fs08Dchaofengdata' 
 	Set Default To \fs08DchaofengData	&&指定默认的路径，文件夹，驱动器
	Open Database \fs08Dchaofengchaofeng.Dbc Shared		&&共享方式打开DBC
**********************************************************
**********************************************************
*	data_path='D:chaofengdata' 
*	Set Default To D:chaofengData
*	Open Database D:chaofengchaofeng.Dbc Shared
**********************************************************
_screen.Picture='D:CHAOFENGICOBACK1.JPG'
Do Form login
Set Classlib To ('martin_make')        	&&用tbs代替自定义工具栏kuf
tbs=Creat('martin_make')
tbs.Dock(0)          					&&0=顶部、1=右、2=左、3=底部
tbs.Show             					&&显示工具栏
On Shutdown Quit
Read Events

						