设计菜单与项目连编ppt课件

.,表单、菜单设计示例,.,.,菜单的设计步骤,选择【文件】菜单中的【新建】命令，在【新建】对话框中选择“菜单”，然后单击【新建文件】按钮。使用命令MODIFYMENU。,一、创建一个菜单文件文件扩展名为：.mnx,.,无论使用哪种方法，均会出现【新建菜单】对话框，如图（a）所示。在该对话框中，单击【菜单】或【快捷菜单】按钮，都可以打开菜单设计器，分别创建下拉菜单和快捷菜单，如图（b）所示。,（a）,（b）,.,二、生成菜单程序,保存菜单：单击【保存】,将新菜单保存为xxxxx.mnx。生成菜单程序：选择【菜单】中的【生成】命令，将弹出如下图所示的【生成菜单】对话框。单击【生成】按钮，将生成“xxxx.mpr”菜单程序。,.,三、使用菜单,如何使菜单显示在顶层表单中,特别提示：1、表单的showwindow属性设置为22、用“菜单设计器”设计菜单后选择“显示-常规选项”，在对话框中，选中“顶层表单”3、在表单的Init事件代码中添加调用该菜单的命令：DOWITHThis,.,菜单设计过程,要调用的表单名称,closeallcleareventsquitsetsysmenutodefault,.,要恢复系统菜单setsysmenutodefault,modifywindowscreenc:xsxxchengxu;c:xsxxlei;c:xsxxmnudoform表单文件readevents,参考主程序1,.,1）设置默认路金径-setdefaultto2）设置搜索路径-setpathtosetpathtoc:xsxtform1;c:xsxtmenu3）关闭VF系统菜单-setsysmenuto4)恢复VF系统菜单-setsysmenutodefault5)控制事件循环-readevents6)关闭事件循环-clearevents,*系统主程序常用的一些命令*,控制事件循环应用程序的环境建立之后，将显示出初始的用户界面，这时，需要建立一个事件循环来等待用户的交互动作。若要控制事件循环执行，可以执行READEVENTS命令，该命令使VisualFoxPro开始处理例如鼠标单击、击键等用户事件。,.,5、连编项目文件,应用程序必须提供一种方法来结束事件循环。若要结束事件循环，可执行CLEAREVENTS命令。典型情况下，可以使用一个菜单项或表单上的按钮执行CLEAREVENTS命令。,重新连编项目：重新连编项目管理器中的所有项目，生成.pjx和.pjt文件，相当于执行BULIDPROJECT命令，用于测试项目。,.,连编应用程序：连接编译并生成.app应用程序，使之在VisualFoxPro控制下执行。相当于命令执行BUILDAPP。,连编可执行文件：创建一个.exe可执行文件，可独立于VisualFoxPro在Windows98或WindowsNT下执行。该选项相当于执行BUILDEXE命令。连编COMDLL：使用项目文件中的类信息，创建一个具有.DLL扩展名的动态连接库。,.,注意：1、在每一个退出软件系统的语句中，都要有“ClearEvents”这样的语句。2、主画面表单的ShowWindow属性要设置为“2-作为顶层表单”3onshutdowndomyquit，而myquit.prg只需要有quit命令即可，这样可防止不能退出VFP。4、每个表单的Name属性都要命名,5、主系统界面的UNLOAD事件中应包含以下代码setsysmenuonsetstatusbaroncloseallonshutdownquitreturn,.,settalkoffcloseall_screen.windowstate=2_screen.caption=学生信息管理系统1.0_screen.closable=.F._screen.maxbutton=.F._screen.minbutton=.F.setcenturyonsetdatetoymdsetsysmenuoffsetstatusbaroffsetdefaulttoc:xsxxfrmsetpathtoc:xsxxdata;c:xsxxchengxu;c:xsxxmnudoformdlreadeventssetsysmenuonsetstatusbaron,参考主程序2,.,*假设用户名为：xsglxt*密码为123456YHM=UPPER(thisform.text1.value)MM=val(thisform.text2.value)ifYHM=XSGLXTIFMM=123456x=MESSAGEBOX(是合法用户，可以进入系统,4+32,登录窗口)elsex=MESSAGEBOX(密码错误，不可以进入系统,1+16,登录窗口)endifelsex=MESSAGEBOX(用户名错误，不可以进入系统,1+16,登录窗口)endif,密码验证程序,.,ifx=6doformc:xsxxfrmXTBD.scxACTIVATEWINDXTBDreadeventselseIFX=1thisform.TEXT1.SETFOCUSthisform.TEXT1.VALUE=thisform.TEXT2.VALUE=ELSEcloseallcleareventsthisform.releaseENDIFcloseallcleareventsthisform.releaseendif,将该表单