Question

VFP中系统菜单设计?

菜单设计要求:文件 编辑 查询 统计显示 输出.文件菜单下拉(文件打开 文件关闭 退出系统),编辑菜单下拉(输入 修改 删除 退出),查询菜单下拉(学生成绩查询 全班成绩查询),统计菜单下拉(成绩计算 成绩显示),输出(显示某以学生成绩菜单和某班的成绩)谢

Answer 1

以下帮你做了个菜单框架示例，请根据你的实际需求进行修改之后，把这个保存到一个“MPR”文件中直接调用即可产生自己的系统主菜单了。至于每个子菜单调用什么命令，请你自己根据里面的示例进行修改吧（注意语句后带&&符号的，除了系统的QUIT，其余的示例“指令”不要直接使用，那只是个例子而已，请改成自己的有效的程序指令）：----------------------------------------------SET SYSMENU TO
SET SYSMENU AUTOMATICDEFINE PAD m_File OF _MSYSMENU PROMPT "文件" COLOR SCHEME 3
DEFINE PAD m_Edit OF _MSYSMENU PROMPT "编辑" COLOR SCHEME 3
DEFINE PAD m_SQL OF _MSYSMENU PROMPT "查询" COLOR SCHEME 3
DEFINE PAD m_Total OF _MSYSMENU PROMPT "统计" COLOR SCHEME 3
DEFINE PAD m_Output OF _MSYSMENU PROMPT "输出" COLOR SCHEME 3
ON PAD m_File OF _MSYSMENU ACTIVATE POPUP sub_File
ON PAD m_Edit OF _MSYSMENU ACTIVATE POPUP sub_Edit
ON PAD m_SQL OF _MSYSMENU ACTIVATE POPUP sub_SQL
ON PAD m_Total OF _MSYSMENU ACTIVATE POPUP sub_Total
ON PAD m_Output OF _MSYSMENU ACTIVATE POPUP sub_OutputDEFINE POPUP sub_File MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF sub_File PROMPT "文件打开"
DEFINE BAR 2 OF sub_File PROMPT "文件关闭"
DEFINE BAR 3 OF sub_File PROMPT "退出系统"
ON SELECTION BAR 3 OF sub_File QUIT && 示例：选择“退出系统”则执行命令“QUIT”DEFINE POPUP sub_Edit MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF sub_Edit PROMPT "输入"
DEFINE BAR 2 OF sub_Edit PROMPT "修改"
DEFINE BAR 3 OF sub_Edit PROMPT "删除"
DEFINE BAR 4 OF sub_Edit PROMPT "退出"
ON SELECTION BAR 2 OF sub_Edit EDIT && 示例：选择“修改”则执行命令“EDIT”
ON SELECTION BAR 3 OF sub_Edit DELETE && 示例：选择“删除”则执行命令“DELETE”
ON SELECTION BAR 4 OF sub_Edit EXIT && 示例：选择“退出”则执行命令“EXIT”DEFINE POPUP sub_SQL MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF sub_SQL PROMPT "学生成绩查询"
DEFINE BAR 2 OF sub_SQL PROMPT "全班成绩查询"DEFINE POPUP sub_Total MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF sub_Total PROMPT "成绩计算"
DEFINE BAR 2 OF sub_Total PROMPT "成绩显示"DEFINE POPUP sub_Output MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF sub_Output PROMPT "学生成绩"
DEFINE BAR 2 OF sub_Output PROMPT "班级成绩"

Answer 2

1最好是选用菜单设计器来做比较容易理解2。刚好相反除了“退出”使用命令以外，其他都是使用过程。3。READEVENTS写在菜单建立以后，退出有QUIT命令就可以忽略cleaeventsSETTALKON&&环境设置写在安装里*************************