main.prg

机器管理,登录,主界面,新增,修改,删除,打印

set talk off    &&关闭对话模式
set safe off    &&文件覆盖时不发出警告
set stat off    &&关闭字符型状态行
set dele on     &&不处理已删除的记录
set cent on     &&日期以完整的格式显示
set date to ansi  &&日期格式ansi
close all    &&关闭所有文件，并回到第一工作区.

RELEASE WINDOW 常用  &&不启动常用工具条
ZOOM WINDOW SCREEN Max   &&主窗口最大化
public cdows
**以下是计算今天是星期几,并转换成汉字.
cdowss=allt(cdow(date()))
do case
 case cdowss="Monday"
 cdows="星期一"
  case cdowss="Tuesday"
 cdows="星期二"
  case cdowss="Wednesday"
 cdows="星期三"
  case cdowss="Thursday"
 cdows="星期四"
  case cdowss="Friday"
 cdows="星期五"
  case cdowss="Saturday"
 cdows="星期六"
  case cdowss="Sunday"
 cdows="星期日"
  endcase 
***主窗口标题  

*_SCREEN.controlbox=.f.  &&去掉主窗口控制按钮
deactivate window "项目管理器"  &&关闭"项目管理器"窗口
_screen.visible=.f.  &&隐藏主窗口
_SCREEN.BACKCOLOR=RGB(233,240,208)
mypath=left(sys(16),rat("\",sys(16)))  &&确定当前路径
set defa to (mypath)  &&默认路径
set path to forms,datas,frxs,pic  &&可查找路径
*_SCREEN.picture=mypath+"CIBA2N.jpg"   &&主窗口背景图片
*_SCREEN.icon="..\pic\fd.ico"
public czz,yfd,kj,xfd,bt  &&定义全局变量

do form logo
*****
on shutdown quit  &&可以直接通过主窗口的关闭按钮关闭。
read events   &&启动所以已定义的控制并读取事件,如果没有此命令，程序将一闪而过.
quit  &&退出vfp,因有read events,暂时不执行quit命令,只有在执行clear event命令后才执行.