功能全面开机界面设计.docVIP

功能全面的开机界面设计 下面是一个《学生档案管理系统》在VFP9.0下的开机界面，在此结合了许多foxpro的功能进行了详细的设计。列示了代码及界面。 *主程序:main,prg 代码如下 set talk off 对于主程序设计具有一定的通用性，一是对系统 set esca off 环境的设置；二是对自定义菜单和工具栏的设计， set exact on 以及启动画面或登录画面的设计。在左边列出的 set excl on 设定表为共享方式 这段程序是我编制的学生档案管理的主称 SET REPROCESS TO AUTOMATIC 设定数据加锁 *set help to myhelp.chm 设定帮助文件,可以不设. set cons on 激活从程序中向 Visual FoxPro 主窗口或活动的用户自定义窗口的输出。 set date ansi 设置日期格式 set score off 设定Num Lock、 Caps Lock 和 Insert 键状态 set safe off 关闭对话框 set stat bar off 打开状态栏 set cent on 设定日期格式年为4位数 set color to 设定配色方案 set sysmenu off 关闭系统主菜单 Set Sysmenu To SET CURSOR ON 打开光标控制 deactivate window 项目管理器 关闭项目管理器 RELEASE WINDOW 常用 关闭常用窗口 SET PATH TO data,progs,GRAPHICS,forms,libs 设置存取文件路径 DEACTIVATE WINDOW command 关闭命令窗口 clea 刷新屏幕 clear all 清除内存变量 SET PROCEDURE TO progs\_proc 设置过程文件的路径。 ON ERROR do err With Error(), Message(), Message(1), Program(), Lineno(1) 错误文件设置 with _screen *屏幕设定 .windowstate=1 * .visible=.f. * ENDWITH local ctitle 定义标题名称 ctitle=学生档案管理系统 标题名称 * 检查程序是否执行 Declare integer FindWindow in win32api string cClass,String cCaption if FindWindow(0,ctitle)#0 _screen.windowstate=2 _screen.caption=ctitle _screen.visible=.f. ??chr(7) =messagebox(ctitle.已经在运行中！,16,提示信息) on shutdown quit endif *检查程序是否运行结束。 ON KEY LABEL f1 do myhelp 定义F1键为帮助键。 DO FORM forms\about 运行开机界面。图1 READ events 激活和保持窗口 ON SHUTDOWN DO form forms\_quit 设置退出程序时的提示。 指定当试图退出程序时，要执行的命令，否则提示不能退出程序等信息。 PUBLIC menutf,xt_date,xt_xq,yhdwmc,czry,zccg xt_date=SUBSTR(DTOS(DATE()),1,4)+年+SUBSTR(DTOS(DATE()),5,2)+月+SUBSTR(DTOS(DATE()),7,2)+日 当今日期 xt_xq=[星期+SUBSTR(日一二三四五六,2*(DOW(DATE()))-1,2)+] 当今星期 menutf=0 with _screen 设定FoxPro主窗口属性 .visible=.t. 主窗口或见 .closable=.t. 关闭按钮可用 .co