FoxPro+for+Windows程序设计第11章.ppt

11.1绘制矩形及清除屏幕区域11.2屏幕的格式输出、输入命令,第11章屏幕格式及打印格式的设计,返回主目录,11.1绘制矩形及清除屏幕区域,11.1.1绘制矩形框的命令在屏幕上绘制矩形的命令有两种，其命令格式和功能稍有不同。1.命令格式之一格式：起始行,起始列,终止行，终止列BOX该命令以指定的起始行、列作为矩形的左上角，指定的终止行、列作为矩形的右下角，在屏幕上画一个矩形框。例如：4,6,12,60BOX从屏幕的第4行到第12行，从第6列到第60列，画出以线段为边框的矩形，命令中指定的起止行、列被矩形的边框所占用。,2.命令格式之二格式：起始行，起始列TO终止行,终止列DOUBLE|PANELCOLORSCHEME调色盘号|COLOR颜色对表该命令按指定的起始行、列和终止行、列，在屏幕上画矩形框。命令中如果选择DOUBEL，则矩形边框为双线；如果选择PANEL，则画出带阴影的矩形。例如：4,4TO20,60PANEL由于命令中指定了PANEL，所以屏幕上显示出一个带阴影边框的矩形。,(1)在一条命令中，DOUBLE、PANEL两者只能选用一个。(2)如果选择COLORSCHEME调色盘号，则按指定的调色盘号配置矩形边框的颜色；如果选择颜色对表，则按指定的颜色对配置边框的颜色。但是，不同的显示器、不同的Windows版本，会使矩形边框的形状和颜色有所不同，用户应当通过调试，选择较适于所用系统的边框和颜色。FoxPro一共有24个调色盘，其中，第1324号调色盘系统未定义（可由用户定义）。每个调色盘由10个色对组成，不同的调色盘影响不同的窗口或菜单的颜色，系统定义的12个调色盘号与所影响的对象见表11.1。,(3)可以利用返回当前光标所在行、列的函数ROW()、COL()，指定命令中的行、列数。例如，分别执行下列命令，观察所画矩形边框及其矩形的颜色：4,6TOROW()+8,COL()+50DOUBLECOLOSCHEME84,6TO12,60PANELCOLORSCHEME4第一条命令中，因为ROW()的函数值是4，所以ROW()+8=12，同理COL()+50=56。因此，下面的两条命令是等价的：4,6TO12,56DOUBLECOLOSCHEME84,6TOROW()+8,COL()+50DOUBLECOLOSCHEME8,例11.1在数据库浏览命令中，可以通过选择调色盘号改变浏览窗口的颜色。请执行下面的程序，当改变调色盘号后，观察BROWS窗口颜色的变化情况。CLEARUSED:rshDOWHIL.T.INPUT请输入调色盘号(112,如果输入100则退出)TOclIFcl=100ERROR只能输入字符Y或N！,READ4)关于MESSAGE参数MESSAGE用于指定格式输入语句的操作提示等说明性信息。MESSAGE信息显示在屏幕的底行。如果程序中使用了SETMESSAGE命令，则MESSAGE信息显示在此命令指定的位置。SETMESSAGE命令的一般格式是SETMESSAGETO行号LEFT|RIGHT|CENTER此命令不仅可以指定显示MESSAGE信息的行号，还可以用关键字LEFT（左）、RIGHT（右）、CENTER（居中），指定在该行中的显示位置。请看下例：例11.5执行下面的程序，观察MESSAGE信息在屏幕上的显示位置。,SETMESSAGETO24CENTERMESSAGE请按月/日/年各两位数字的顺序输入！READdd=CTOD(dt)DISPMEMOLIKEddRETU可见，GET语句中用关键字MESSAGE指定的信息在屏幕的24行居中显示。,3.格式输入、输出语句综合应用举例例11.6这是一个工资管理系统程序的启动画面，它是这样设计的：设置程序运行环境和初始化变量;先将整个屏幕从上下两端向屏幕中间逐行画“圆圈”；清除一个矩形区域内写本程序系统的有关信息；设置并询问用户口令，若三次回答不对，则退出FoxPro。其程序如下：*程序开始，先进行运行环境的设置和变量的初始化：,SETEXACTON&设置精确比较SETSTATUSOFF&关闭FoxPro系统信息SETCOLORTOW+/NCLEARSETCOLORTOG/Bk=1r=0*下面的循环是为了从屏幕两端逐行画“圆圈”：DOWHILEk=18&暂时按一屏输出行ROW()+1,2SAY&结束页的表格底线WAITWINDOWS按任意键继续CLEAR5,4SAY单位：&mMC&使用绝对行、列号，相当换页,5,4SAY单位：&mMC&使用绝对行、列号，相当换页ROW()+1,2SAYROW()+1,2SAY|职工代码|职工姓名|基本工资|职称工资|地区补贴|实发工资|ROW()+1,2SAYSKIPLOOPELSE&不换页时：IFEOF()&但是如果当前工资库文件结束，输出表格底线,ROW()+1,2SAYWAITWINDOWS按任意键继续CLEAREXITELSE&继续输出当前库的职工数据ROW()+1,2SAYENDIFENDIF,NDDOSELE1&一个处级单位输出结束，为取下一个单位代码SKIPIFEOF()&如果所有单位输