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

表单 菜单设计示例 菜单的设计步骤 选择 文件 菜单中的 新建 命令 在 新建 对话框中选择 菜单 然后单击 新建文件 按钮 使用命令MODIFYMENU 一 创建一个菜单文件文件扩展名为 mnx 无论使用哪种方法 均会出现 新建菜单 对话框 如图 a 所示 在该对话框中 单击 菜单 或 快捷菜单 按钮 都可以打开菜单设计器 分别创建下拉菜单和快捷菜单 如图 b 所示 a b 二 生成菜单程序 保存菜单 单击 保存 将新菜单保存为xxxxx mnx 生成菜单程序 选择 菜单 中的 生成 命令 将弹出如下图所示的 生成菜单 对话框 单击 生成 按钮 将生成 xxxx mpr 菜单程序 三 使用菜单 如何使菜单显示在顶层表单中 特别提示 1 表单的showwindow属性设置为22 用 菜单设计器 设计菜单后选择 显示 常规选项 在对话框中 选中 顶层表单 3 在表单的Init事件代码中添加调用该菜单的命令 DOWITHThis 菜单设计过程 要调用的表单名称 closeallcleareventsquitsetsysmenutodefault 要恢复系统菜单setsysmenutodefault modifywindowscreen 恢复VFP主窗口的标题 如何向vf表单中添加音乐 利用windowsmediaplay控件实现音乐的播放 Visible F URL 设置播放的文件名Close 关闭播放器的方法 选择播放音乐的代码publicff getpic thisform oll1 url f 应用系统集成 项目连编 1 将所有数据资源集中存放在指定的文件夹下 具体要求是 2 创建一个项目文件 3 将数据资源添加到项目中 4 创建一个主程序 设置主文件 主文件是一个项目中最重要的文件之一 利用它可以将整个程序有机地连接在一起 在程序运行前 它初始化程序的运行环境 在程序运行中 它调度程序的事件操作 在程序运行结束后 它还原系统环境 主文件作为应用程序执行的起始点 可以是程序 菜单 表单或查询 最好的方法是为应用程序建立一个主程序 主程序中系统初始化环境设置 set命令的获取方法 1 从 工具 菜单中 选择 选项 2 按下Shift键并选择 确定 在 命令 窗口中显示环境的SET命令 3 从 命令 窗口中 将需要修改默认值的SET命令复制并粘贴到程序中 settalkoffcloseallsetcenturyonsetdatetoymdSETSYSMENUoffsetdefaulttoc xsxx frmsetpathtoc xsxx data c xsxx chengxu c xsxx lei c xsxx mnudoform表单文件readevents 参考主程序1 1 设置默认路金径 setdefaultto2 设置搜索路径 setpathtosetpathtoc xsxt form1 c xsxt menu3 关闭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 xsxx frmsetpathtoc xsxx data c xsxx chengxu c xsxx mnudoformdlreadeventssetsysmenuonsetstatusbaron 参考主程序2 假设用户名为 xsglxt 密码为123456YHM UPPER thisform text1 value MM val thisform text2 value ifYHM XSGLXT IFMM 123456x MESSAGEBOX 是合法用户 可以进入系统 4 32 登录窗口 elsex MESSAGEBOX 密码错误 不可以进入系统 1 16 登录窗口 endifelsex MESSAGEBOX 用户名错误 不可以进入系统 1 16 登录窗口 endif 密码验证程序 ifx 6doformc xsxx frm XTBD scxACTIVATEWINDXTBDreadeventselseIFX 1thisform TEXT1 SETFOCUSthisform TEXT1 VALUE thisform TEXT2 VALUE ELSEcloseallcleareventsthisform releaseENDIFcloseallcle