在弹出的对话框中，？选择Comment Options…，？可以设置设计者的注释信息，如姓名、
　　
　　单位、地址、邮编等，它们自动产生在菜单程序的开头。？最后，单击Generate ，生成菜单程序
　　
　　文件P7.SPR.
　　
　　⑥显示主菜单窗口？Do？P7.MPR
　　
　　主菜单显示如下：
　　
　　（五）数据管理模块程序设计
　　
　　1.按下列要求编制模块程序文件P8.PRG .
　　
　　①该模块的功能是在窗口中对数据库ST1统计数据。
　　
　　②窗口位置为（5，10）到（12，60），窗口名为WIN ，标题为“统计记录”。
　　
　　③将管理信息GLXX的成绩分为四档：
　　
　　优秀（GLXX≥85）？良好（70≤GLXX<85）？及格（60≤GLXX<70）？不及格（GLXX<60）
　　
　　统计各档成绩的人数，并在窗口中显示统计结果。
　　
　　「解答」
　　
　　在程序中用命令DIMENSION S（4）来定义一数组，存放统计GLXX四档成绩的人数。
　　
　　用命令MODIFY COMMAND P8？来建立程序文件P8.PRG .
　　
　　参考程序如下：
　　
　　SET TALK OFF
　　
　　CLEAR
　　
　　DEFINE WINDOW WIN FROM 5，10 TO 12，60 FONT 'T黑体'，11 TITLE '统计记录'
　　
　　DIMENSION S（4）
　　
　　STORE 0 TO S
　　
　　USE ST1
　　
　　DO WHILE .NOT.EOF（）
　　
　　DO CASE
　　
　　CASE GLXX>=85
　　
　　S（1）=S（1）+1
　　
　　CASE GLXX>=70 .AND. GLXX<85
　　
　　S（2）=S（2）+1
　　
　　CASE GLXX>=60 .AND. GLXX<70
　　
　　S（3）=S（3）+1
　　
　　CASE GLXX<60
　　
　　S（4）=S（4）+1
　　
　　ENDCASE
　　
　　SKIP
　　
　　ENDDO
　　
　　ACTIVATE WINDOW WIN
　　
　　@2，2 SAY '优秀：'+STR（S（1），3）+'人'
　　
　　@2，25 SAY '良好：'+STR（S（2），3）+'人'
　　
　　@4，2 SAY '及格：'+STR（S（3），3）+'人'
　　
　　@4，25 SAY '不及格：'+STR（S（4），3）+'人'
　　
　　WAIT WINDOW
　　
　　USE
　　
　　RELEASE WINDOW WIN
　　
　　SET TALK ON
　　
　　RETURN
　　
　　2.按下列要求编写程序文件P9.PRG .
　　
　　①屏幕提示“请输入密码”，输入时密码不显示，密码设为大写“GLXX”。
　　
　　②若密码正确，执行打开数据库ST1，显示记录命令。
　　
　　若密码不正确，显示“第几次密码错，请重新输入！”。
　　
　　③如果密码已连续错三次，第四次输入再错，则退至WINDOWS桌面。
　　
　　「解答」
　　
　　首先，定义一个名为MMW的窗口，标题为‘密码窗口’，然后激活它。在输入密码之前，用命令
　　
　　SET CONSOLE OFF
　　
　　来屏蔽显示，起到保密效果。？输入密码之后，再恢复屏蔽显示。
　　
　　密码保存在变量PSW中，函数UPPER（ALLTRIM（PSW））的作用，是将输入的密码，除去前后
　　
　　空格后转换成大写字符。
　　
　　输入密码的次数保存在变量N中。
　　
　　用命令MODIFY COMMAND P9？来建立程序文件P9.PRG .
　　
　　参考程序如下：
　　
　　SET TALK OFF
　　
　　CLEAR
　　
　　CLEAR ALL
　　
　　DEFINE WINDOW MMW FROM 10，5 TO 28，75 FONT 'T黑体'，11 TITLE '密码窗口'
　　
　　N=1
　　
　　DO WHILE .T.
　　
　　ACTIVATE WINDOW MMW
　　
　　@2，5 SAY '请输入密码******'
　　
　　SET CONSOLE OFF
　　
　　ACCEPT TO PSW
　　
　　SET CONSOLE ON
　　
　　IF UPPER（ALLTRIM（PSW））=='GLXX'
　　
　　CLEAR
　　
　　USE ST1
　　
　　LIST
　　
　　WAIT WIND
　　
　　USE
　　
　　EXIT
　　
　　ELSE
　　
　　IF N>=4
　　
　　CLEAR
　　
　　？'密码错误，退出！'
　　
　　WAIT WIND
　　
　　QUIT
　　
　　ELSE
　　
　　？
　　
　　？'第'+STR（N，1）+'次密码错，请重新输入！'
　　
　　WAIT WIND
　　
　　N=N+1
　　
　　ENDIF
　　
　　ENDIF
　　
　　ENDDO
　　
　　RELEASE WINDOW MMW
　　
　　SET TALK ON
　　
　　RETURN
　　
　　3.现已有（假设已存在）通讯信息数据库TX.DBF，其字段有：
　　
　　XM （姓名，字符型） ，？DH （电话，字符型） ，？DZ （地址，字符型）
　　
　　按下列要求编写程序文件P10.PRG .
　　
　　①用格式化输入语句接收一个用户姓名，在TX中进行查找记录。
　　
　　②若找到，则显示该用户记录，？找不到，则显示“查无此用户”。
　　
　　③重复上述过程，直到

上一页  [1] [2] [3] [4] [5] [6] [7] 下一页

文章转载请注明来源于：汕头自考网