3菜单操作aP教材254

第1页共4页菜单操作P教材2541.菜单种类一般菜单快捷菜单2.菜单的创建第一级：主菜单（菜单栏）第一级以下：子菜单的创建（包括插入系统菜单、分割线）选择菜单→结果→子菜单→编辑→系统菜单：选择菜单→插入栏→分割线：\-（半角符号）3.设置：访问键（热键）、ALT+字母：（\首字母）快捷键、跳过（废止、不可用）（09秋（2）P历考100：）、信息（09秋（2）P历考100：）、注释：选择菜单→选项→快捷键:可以是CTRL+字母（不可CTRL+J）或ALT+字母或Fn09春（7）P历考94：设置跳过条件，若当前目录（文件夹）中不存在temp.dbf,则该菜单不可用（跳过）！USED(“temp.dbf”)引号不可丢09秋（2）P历考100：设置跳过条件，数据库JXSJ打开时才可操作！DBUSED(“JXSJ”)引号不可丢09秋（2）P历考100：为“退出菜单”设置提示信息“恢复系统菜单”选择菜单→选项→信息→“恢复系统菜单”4.设置菜单的位置显示→常规选项→位置→替换/追加/在……之前/在……之后第2页共4页5.菜单任务（结果）命令：只能输入一个行命令过程：可输入多条命令，每行输入一条命令，写不下可使用续行符“；”6.代码设置：常规选项：为整个菜单指定代码和进行一些相关的设置过程：创建菜单过程代码，选该菜单项（菜单栏）时执行该代码过程显示→常规选项→编辑→确定→过程→或：显示→常规选项→过程→□设置：首先执行(用于编辑初始化代码，菜单定义代码之前执行)显示→常规选项→菜单代码→选中：□设置→确定→设置→□清理：结束前执行（菜单定义代码之后执行）显示→常规选项→菜单代码→选中：□清理→确定→清理→菜单选项：为当前指定的菜单级设置过程代码功能：选择该菜单栏下的某个子菜单时执行的代码7.代码的优先顺序：由高到低P教材259顺序有误）菜单任务（子菜单、命令、过程）菜单选项常规选项8.生成文件创建时生成两文件（不是可运行的）：第3页共4页菜单文件(.mnx)、菜单备注文件(.mnt)运行必须菜单程序文件(.mpr)，方法：菜单设计器：菜单→生成→项目管理器：选择菜单文件→运行→（系统运行前自动生成菜单程序文件.mpr和编译后的菜单程序文件.mpx）9.相关命令P259SETSYSMTOON在程序执行期间，当vfp系统正在等待如BROWSE等命令的键盘输入时，启用VFP主菜单栏SETSYSMTOOFF在程序执行期间，废止vfp主菜单栏（OFF参数必须在一个程序.qpr中运行）SETSYSMTO废止vfp主菜单栏SETSYSMTODEFA恢复vfp主菜单（默认菜单）DO菜单文件名.MPR运行菜单文件10.菜单中常用到的命令/代码、函数运行查询：DO查询文件名.qpr运行表单：DOFORM表单名无条件废止：.T.工作区中表打开跳过：EMPTY(ALIAS())文件不存在跳过：NOTFILE(文件名)星期六、星期天废止：DOW(DATE())=1ORDOW(DATE())=7参见历届考题答案（不是每个年代都有答案的，可以选择有答案的入手，菜单的代码还是比较简单的）11.代码举例09春（1）P历76：首先清除屏幕，然后运行查询文件chaxun.qpr(一条命令站一行,查询文件必存在)CLEARDOchaxun.qpr09春（2）P历79：首先运行查询文件chaxun.qpr，然后利用MESSAGEBOX()函数（P教56，注意参数的缺省，个参数的含义）显示提示信息“结果保存在temp.txt文件中”（历届考题答案有误）DOchaxun.qprMESSAGEBOX(“结果保存在temp.txt文件中”)(笔试考过)09春（3）P历82：设置命令，预览报表文件rtest(P教材247)REPORTFORMrtestPREVIEW(笔试考过)09春（4）P历85：设置过程，首先关闭所有的表，然后将表XS表复制到T:盘根目录中（历届考题答案有误,盘符错了）CLOSETABLEALLCOPYFILEXS.*TOT:\*.*09春（4）P历88：为“按性别统计人数”菜单设置SELECT-SQL命令：查询并显示XS表中男女生人数，要求输出性别和人数（字段名分别为xb,rs）(可以借助查询设计器创建)SELECTXs.xb,count(*)asrsFROMjxsj!xsGROUPBYXs.xb09春（6）P历91：设置过程：首先清除事件循环，然后退出系统CLEAREVENT(笔试填空经常出现，P教材161)QUIT09春（7）P历94：设置SELECT-SQL命令，浏览demp.dbf表中的数据SELECT*FROMdemp(历届考题答案有误不是xs表)06年春（5）1.略2.为“删除记录”菜单项设置访问键，并为该菜单编写过程代码：选择xs表为当前表（若该表未第4页共4页打开，则先打开之），然后删除xh以“00”开头的记录操作：选“删除记录”子菜单项→设置访问键→命令→输入→DELETEFROMxsWHERELEFT(xh,2)='00'或IF!USED('xs')USExsELSESELECTxsENDIFDELETEFORLEFT(xh,2)='00'06年春（6）1.…为“创建新表”菜单编写CREAT-SQL命令，当执行该菜单项时，创建XX表，其结构为aa(c,8),bb(n,4),cc(d)操作：选“创建新表”子菜单项→命令→输入→CREATTABLEXX(aac(8)，bbn(4,0)，ccd)2.将下列代码加到菜单的适当位置，使菜单运行结束时执行之CLOSEALL操作：选“显示”主菜单→“常规选项”→选中“清理”→DELETEFROMxsWHERELEFT(xh,2)='00'