设计菜单和项目连编.pptVIP

表单、菜单设计示例;眼乱廷算温而慌简严夕屹借柞鸥例诸邯嘿泛肢冯毁柯虑卜徊断环会烹率奸设计菜单和项目连编设计菜单和项目连编;菜单的设计步骤; 无论使用哪种方法，均会出现【新建菜单】对话框，如图（a）所示。在该对话框中，单击【菜单】或【快捷菜单】按钮，都可以打开菜单设计器，分别创建下拉菜单和快捷菜单，如图（b）所示。;二、生成菜单程序;三、使用菜单;菜单设计过程;要恢复系统菜单 set sysmenu to default;如何向vf表单中添加音乐 ;Visible--------.F. URL----设置播放的文件名 Close----关闭播放器的方法;应用系统集成—项目连编;2、创建一个项目文件;倡嫩扶喧离翰倍匀左孕脓挟货尔隆予羡艘苫氏伎烫硬凿弱椽拭储寄技婉萌设计菜单和项目连编设计菜单和项目连编;4、创建一个主程序，设置主文件;主程序中系统初始化环境设置：set命令的获取方法： （1）从工具菜单中，选择选项；(2)按下Shift键并选择确定，在命令窗口中显示环境的SET命令；(3)从命令窗口中，将需要修改默认值的SET命令复制并粘贴到程序中。;set talk off close all set century on set date to ymd SET SYSMENU off set default to c:\xsxx\frm set path to c:\xsxx\data;c:\xsxx\chengxu;c:\xsxx\lei;c:\xsxx\mnu do form 表单文件 read events;1）设置默认路金径---set default to 2）设置搜索路径--- set path to set path to c:\xsxt\form1;c:\xsxt\menu 3）关闭VF系统菜单----set sysmenu to 4) 恢复VF系统菜单--- set sysmenu to default 5) 控制事件循环----read events 6) 关闭事件循环----clear events;5、连编项目文件;连编应用程序：连接编译并生成.app应用程序，使之在Visual FoxPro控制下执行。相当于命令执行BUILD APP。 ;注意： 1、在每一个退出软件系统的语句中，都要有“Clear Events”这样的语句。 2、主画面表单的ShowWindow属性要设置为“2-作为顶层表单” 3 on shutdown do myquit， 而myquit.prg只需要有quit命令即可，这样可防止不能退出VFP。 4、每个表单的Name属性都要命名 ;set talk off close all _screen.windowstate=2 _screen.caption=学生信息管理系统1.0 _screen.closable=.F. _screen.maxbutton=.F. _screen.minbutton=.F. set century on set date to ymd set sysmenu off set status bar off set default to c:\xsxx\frm set path to c:\xsxx\data;c:\xsxx\chengxu;c:\xsxx\mnu do form dl read events set sysmenu on set status bar on ;*假设用户名为：xsglxt *密码为123456 YHM=UPPER(thisform.text1.value) MM=val(thisform.text2.value) if YHM=XSGLXT IF MM=123456 x=MESSAGEBOX(是合法用户，可以进入系统 ,4+32,登录窗口) else x=MESSAGEBOX(密码错误，不可以进入系统 ,1+16,登录窗口) endif else x=MESSAGEBOX(用户名错误，不可以进入系统 ,1+16,登录窗口) endif;if x=6 do form c:\xsxx\frm\XTBD.scx ACTIVATE WIND XTBD read events else IF X=1 thisform.TEXT1.SETFOCUS thisform.TEXT1.VALUE= thisform.TEXT2.VALUE= ELSE close all clear events thisform.release ENDIF