VFP中系统菜单设计?

2024-11-16 17:39:31
推荐回答(2个)
回答(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 "班级成绩"

回答(2):

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