main.bak

用vfp语言设计的保健管理系统源码

public js(10),filename,str1
public jl(10,8),rs,n,m,qz1,qz2
store 0 to n,m,rs,jl,d1,d2
store '' to filename,str1,js
local ddd

local lcsys16,mypath
lcsys16=sys(16)
mypath=lower(alltrim(left(lcsys16,rat("\",lcsys16))))
set defa to (mypath)                                 &&路径设置
set sysmenu off
SET CARRY OFF 
SET CONFIRM OFF 
SET NULLDISPLAY TO ''
SET STATUS bar OFF 
set talk off
set notify off
set clock status
set bell on
set escape on
set keycomp to windows
set exact on
set exclusive off
set multilocks on
set century on
set message on
set safety off
set deleted on
set date ansi
set safe off
set cent on
on shutdown do quit
on error do err.prg


*with _screen      &&设定FoxPro主窗口属性
*	.visible=.f.      &&设定主窗口不可见
*endwith
&&执行启动画面（包括版权、版本、使用者等）

open database bj
DO FORM load

read event        &&占用进程