汽配管理系统主程序.txt

这次设计的是一个汽配管理系统

[主程序]
clear screen
local lcsys16,lcprogram                 &&定义两个局部变量
lcsys16=sys(16)                         && sys(16)返回当前正在运行的程序名（包括路径）
lcprogram=substr(lcsys16,at(":",lcsys16)-1)
cd left(lcprogram,rat("\",lcprogram))   &&用CD命令进入系统所在目录
deactivate window "project manager"     &&关闭项目管理器
do setting                              &&设置系统环境配置
_screen.left=-10000                     &&程序运行时去掉Visual FoxPro的主窗口
do form form\main 
zoom windows screen max                 &&最大化窗口
_screen.caption='汽配管理系统'  &&设置主窗口标题
public purview                          &&定义全局变量
public pckdj,prkdj,pckth,prkth,pkccx,pkcpd,pckcx,prkcx,pckthcx,prkthcx,pckbb,prkbb,pkcbb,pspinfo,pyginfo,pkhinfo,pgysinfo,pczygl,pqxgl,psjbf,psjhf
store .f.to pckdj,prkdj,pckth,prkth,pkccx,pkcpd,pckcx,prkcx,pckthcx,prkthcx,pckbb,prkbb,pkcbb,pspinfo,pyginfo,pkhinfo,pgysinfo,pczygl,pqxgl,psjbf,psjhf
purview=5
define window ncover from 0,0 to 800,600 nozoom fill file images\qpdesk.jpg   &&定义一个窗口NCOVER，将它作为应用系统的背景图片。
activate window ncover bottom           &&激活窗口NCOVER
do menu\menumain.mpr                    &&调用程序主菜单
_screen.left=0 
On Shutdown do myquit
read events                             &&准备接收事件响应
do reset



[myquit]程序
CLEAR Event 
IF _SCREEN.FormCount>0 
  h=_screen.formcount
  DIME TmpForm(h)
  FOR i=1 TO h 
      TmpForm(i)=_SCREEN.Forms(i) 
  ENDFOR 
  FOR i=1 TO h
      TmpForm(i).Release 
  ENDFOR 
ENDIF 
QUIT  



[reset]程序
set sysmenu to default
set sysmenu on 
set talk on
set notify on set exclusive on
set safety on 
modify window screen
clear events



[setting]程序
set sysmenu off                   &&将系统菜单关闭
set sysmenu to
set status bar off                &&不显示图形状态框
set talk off                      &&指定在Visual FoxPro主窗口、系统信息窗口、图形状态栏或用户自定义窗口中不显示命令结果
set notify off
set clock status                  &&将时钟在指定的位置显示，而不放在图形状态栏中
set palette off                   &&用于确定是否使用Visual FoxPro的缺省调节器色板
set bell on                       &&打开计算机喇叭，使计算机在指定的时候发声
set safety off                    &&指定在覆盖已经存在的文件时，不显示对话框
set escape on                     &&指定按ESC键后，中断程序和命令的运行
set keycomp to windows
set carry on                      &&指定在创建新记录时，将当前记录所有字段的数据复制到新记录中
set confirm on          
set exact on                      &&设置字符精确比较
set near on
set ansi off
set lock on                       &&指定在执行某些需要只读访问一个表的命令时，具有自动锁定表的功能
set exclusive off
set multilocks on
set deleted on                    &&表示在命令中使用范围参数处理记录时，不访问标有删除标记的记录
set optimize on                   &&指定可以使用Rushmore优化技术
set refresh to 0,5                &&设定网络中表的刷新时间
set collate to 'stroke'           &&设定字符型字段的排列顺序
set default to sys(5)+curdir()    &&设置默认文件目录
set path to sys(5)+curdir()       &&设置查找文件目录
set sysformats off                &&指定当修改Windows系统设置时，不更新Visual FoxPro系统设置      
set seconds on
set century off
set currency to 'nt$'
set hours to 12
set date to USA
set decimals to 2
set fdow to 1
set fweek to 1
set mark to '.'
set separator to ','
set point to '.'