ng.bak

vfp环境下女工档案统计查询系统

set talk off                             
set esca off                              
set exact off                   
set cons on       
*激活从程序中向 Visual FoxPro 主窗口或活动的用户自定义窗口的输出。 
set date ansi     
*设置日期格式 
set score off     
*设定Num Lock、 Caps Lock 和 Insert 键状态 
set safe off      
*关闭对话框 
set stat bar on   
*打开状态栏 
set cent on       
*设定日期格式年为4位数 
set color to      
*设定配色方案 
set sysmenu off   
*关闭系统主菜单 
clea              
*刷新屏幕 
with _screen      
*设定FoxPro主窗口属性 
.visible=.f.     
 *设定主窗口不可见 
endwith 
do form d:\ngtj\bd\ld.scx  
   *执行启动画面（包括版权、版本、使用者等） 
read event        
*占用进程，启动事件处理 
do form d:\ngtj\bd\pa.scx
*执行登录表单，对用户进行身份验证 
read event       
 *占用进程 
with _screen     
 *对主窗口进行再次设定 
.visible=.t. 
.closable=.t. 
.controlbox=.t. 
.maxbutton=.t. 
.minbutton=.t. 
.movable=.t. 
.top=0 
.left=0 
.windowstate=2    
*将主窗口最大化 
.caption='探亲假查询系统' 
endwith