第10章子程序及基本菜单的使用方法 进入主控 显示主菜单 退 查询 登 算 查询菜单 退 按姓名查 按单位查 按楼层查 出 图103两层菜单框图
第10章子程序及基本菜单的使用方法 图10—3 两层菜单框图
第10章子程序及基本菜单的使用方法 2.多层次菜单的连接 从两层菜单我们可以引申到多层菜单。从图10-3 框图中可以看出,两层菜单和各模块之间都是通过主控 程序进行连接的,主控程序利用菜单的形式来进行程序 的分支处理,每个分支程序又可以通过继续设置菜单进 行下一层的分支处理 1031节例中主控程序所调用的子程序“ CXPRG” 程序清单如下
第10章子程序及基本菜单的使用方法 2. 多层次菜单的连接 从两层菜单我们可以引申到多层菜单。从图10—3 框图中可以看出,两层菜单和各模块之间都是通过主控 程序进行连接的,主控程序利用菜单的形式来进行程序 的分支处理,每个分支程序又可以通过继续设置菜单进 行下一层的分支处理。 10.3.1节例中主控程序所调用的子程序“CX.PRG”, 程序清单如下:
第10章子程序及基本菜单的使用方法 TYPE OⅩPRG SET TALK OFF DO WHILE.T CLEAR @3,10SAY请您输入查询方式” @4,10SAY0-退出查询” a5,10SAY1-按旅客姓名查询” a6,10SAY2-按旅客单位查询” @7,10SAY3-按旅客住的楼层查询” WAITI请选择0-3号菜单:〃TOB1
第10章子程序及基本菜单的使用方法 TYPE CX.PRG SET TALK OFF DO WHILE.T. CLEAR @3,10SAY“请您输入查询方式” @4,10SAY“0—退出查询” @5,10SAY“1—按旅客姓名查询” @6,10SAY“2—按旅客单位查询” @7，10SAY“3—按旅客住的楼层查询” WAIT“请选择0—3号菜单:”TOB1
第10章子程序及基本菜单的使用方法 DOCASE CASEBI=N0〃 EXIT CASEBI=N1〃 DOCXI CASEBI=w2〃 DOCX2 CASEBI=N3″ DO CX3 ENDCASE ENDDO RETURN
第10章子程序及基本菜单的使用方法 DOCASE CASEB1=“0” EXIT CASEB1=“1” DOCX1 CASEB1=“2” DOCX2 CASEB1=“3” DO CX3 ENDCASE ENDDO RETURN
第10章子程序及基本菜单的使用方法 用户如在主控菜单下选择了查询功能号1,主控程 序则调用子程序“ CX. PRG〃。系统执行“ CX.PRG〃后, 立刻又给用户在屏幕上显示出有关查询方式的菜单供 用户选择。屏幕显示菜单如下 请您输入查询方式 0-退出查询 1—按旅客姓名查询 2-按旅客单位查询 3-按旅客住的楼层查询 请选择03号菜单
第10章子程序及基本菜单的使用方法 用户如在主控菜单下选择了查询功能号1,主控程 序则调用子程序“CX.PRG” 。系统执行“CX.PRG”后, 立刻又给用户在屏幕上显示出有关查询方式的菜单,供 用户选择。屏幕显示菜单如下: 请您输入查询方式 0—退出查询 1—按旅客姓名查询 2—按旅客单位查询 3—按旅客住的楼层查询 请选择0—3号菜单: