第五章顺序结构程序设计课件

第五章 顺序结构程序设计数据输入 在Foxpro中，向程序提供原始数据的方法有二种：一种是在编程时通过赋值命令实现，另外一种是在程序运行过程中通过键盘输入命令实现。Foxpro提供的基本数据输入命令有三条，即用于单个字符输入的WAIT命令、用于字符串输入的ACCEPT命令和用于数据输入的INPUT命令。这三条命令均为非格式化输入命令，因为它们无法控制输入的数据在屏幕上显示的起止位置，也无法限制输入数据的范围。字符输入命令WAIT 【格式】WAIT TO WINDOW NOWAIT TIMEOUT 字符串输入命令ACCEPT 【格式】ACCEPT TO 数据输入命令INPUT 【格式】INPUT TO 比较：1.WAIT 命令和 ACCEPT 命令只能用来输入字符型数据，而INPUT命令可以用来输入字符型、数值型、日期型和逻辑型多种类型的数据。2.WAIT 命令只能接收一个字符，因此常用于要求用户快速响应输入的场合。3.ACCEPT命令专门用于输入字符串，由于不需要输入字符串的定界符，所以使用起来比较方便。4.INPUT 命令可以输入多种类型的数据，使用起来比较灵活，但在输入时必须遵循每种类型数据的书写格式。对于字符串的输入必须用定界符括起来。对于日期型数据的输入，既可使用月/日/年 格式，也可以使用CTOD(月/日/年)格式。数据输出:1.?和?命令 【格式】?PICTURE FUNCTION AT FONT,STYLE ,.和命令 【格式】其中，可以使用任何字符或汉字。【功能】将一行文本直接输出到屏幕、文件或打印机。【说明】当需要输出表达式、函数及变量的值时，必须用“”将其括起来，同时还要先执行SET TEXTMERGE ON命令告诉Foxpro位于“”之间的内容要读取结果.TEXT.ENDTEXT命令 【格式】TEXT .ENDTEXT 【功能】输出位于TEXT和ENDTEXT之间的若干（一行或多行）文本行。【说明】如果在 中包含有要读取的表达式、函数及变量，必须先执行 SET TEXTMERGE ON命令，并用“”将这些表达式、函数及变量括起。格式化输出命令SAY 【格式】SAY FUNCTION PICTURE SIZE,FONT,STYLE COLOR SCHEME COLOR COLOR RGB(颜色值表)【功能】在指定的行、列位置输出的值。功能符和格式符 在SAY格式化输出命令中，数据的输出格式是由FUNCTION和PICTURE 后面的字符表达式（格式化符号）决定的。FUNCTION选项的格式化符号称为功能符，PICTURE 选项的格式化符号称为格式符。若在PICTURE选项中使用功能符，需在功能符前加上字符“”例如1(Prog5_1.prg)SET TALK OFF VA=-1850.35 VB=888 VC=1357.58 10,30 SAY VA PICTURE“X”&功能符 11,30 SAY VA FUNCTION X 12,30 SAY VB PICTURE C 13,30 SAY VB FUNCTION C 14,36 SAY VC PICTURE#,#.#RETURN例如2：SET TALK OFF 10,20 SAY foxpro2.5 programming.；PICTURE!11,20 SAY foxpro2.5 programming.”；FUNCTION!12,20 SAY foxpro2.5 programming.；PICTURE!13,20 SAY foxpro2.5 programming.”；PICTURE!RETURN 字体及字型控制 在Windows下的Foxpro中，允许在SAY命令中使用FONT和STYLE选项来指定字体、字型及字号。例如，采用 48 点阵大小的“宋体”字体，按照粗体、斜体和下划线格式输出“Foxpro 程序设计”可用如下命令：1,5 SAY Foxpro 程序设计 FONT；宋体,48 STYLE BIU 颜色控制 在SAY命令中，输出区域的颜色是通过COLOR SCHEME、COLOR或COLOR RGB选项来控制的。1.COLOR SCHEME选项允许选择Foxpro提供的24个调色板中的一个来定义 SAY命令输出区域的颜色。2.如果对Foxpro提供的调色板的颜色设置不满意，可以使用COLOR 选项重新定义1-10个颜色来定义输出区域的颜色。3.COLOR RGB 选项是设置颜色的 另外一种有效方法。2,10 SAY Foxpro 程序设计 COLOR SCHEME 4 3,10 SAY Foxpro 程序设计 COLOR GR+/BG 4,10 SAY Foxpro 程序设计 COLOR;RGB(255,255,255,0,0,128)5.2.2 格式化输入命令【格式】GET FUNCTION PICTURE FONT,STYLE DEFAULT ENABLEDISABLEMESSAGE OPENWINDOW RANGE,SIZE,VALID ERROR WHEN COLOR SCHEME COLOR COLOR RGB(颜色值表)【功能】在指定的行、列位置为变量输入数据。FUNCTION和PICTURE选项指定数据的输入格式。为变量JBGZ输入数值型数据 JBGZ=0.00 10,20 GET JBGZ PICTURE 999.99 READ 为变量ZKZH输入字符型数据 ZKZH=SPACE(12)10,20 GET ZKZH PICTURE!READ FONT选项指定编辑数据时所用的字体及大小，STYLE选项设置字体的样式。例:SUBJECT=Foxpro 程序设计 10,20 GET SUBJECT FONT 宋体,20;STYLE BIU READDEFAULT选项用来为事先没有赋初值的GET变量设置缺省值，如果变量已经赋过值，则DEFAULT将被忽略。假如事先没有建立GET变量，而且也没有使用DEFAULT，将出现错误信息“variable not found”。ENABLE和DISABLE选项分别用于允许和禁止用户修改GET域的内容。MESSAGE选项用于设置编辑GET域时的提示帮助。RANGE选项用来限定字符、日期及数值型变量输入值的范围。如果输入的数据不在限定的范围内，则提示用户重新输入。若在RANGE 中省略上限或下限（两者不可同时省略），则省略那半边的范围不做检查。VALID和WHEN选项的使用 VALID允许进行输入检查，若与用户自定义函数配合使用，可以完成比较复杂的功能。当对VALID后面的逻辑表达式进行检查时，若逻辑表达式结果为.T.，则认为输入数据是正确的，这时会自动进入下一个GET域的输入，否则提示用户重新输入数据。也可以使用ERROR选项来指定出错信息。使用COLOR SCHEME或COLOR或COLOR RGB选项，可以指定数据编辑区的颜色。SET TALK命令 【格式】SET TALK ONOFF 【功能】控制命令执行时的中间结果显示或不显示。取ON时，每条命令的执行结果均显示。取OFF时，命令执行的中间结果不显示。SET CONSOLE命令 【格式】SET CONSOLE ONOFF 【功能】控制非格式化输入输出命令的执行结果是否在屏幕上显示。取ON时，所有非格式化输入输出命令的执行结果均显示。取OFF 时所有非格式化输入输出命令的执行结果均不显示。系统缺省设置为ON。例:password.prg SET DEVICE命令【格式】SET DEVICE TO PRINTERPROMPTSCREENFILE【功能】控制格式化输出命令（SAY）输出结果的去向。取PRINTER时，输出结果送往打印机。取SCREEN时，输出结果送往显示器屏幕。取FILE时，输出结果送往指定的磁盘文件。系统缺省设置为SCREEN。SET PRINTER命令命令【格式】SET PRINTER ONPROMPTOFF【功能】控制非格式化输出命令（?、?、）的输出结果送往屏幕或打印机。取ON时，结果送往打印机。取OFF时，结果送往屏幕。系统缺省设置为OFF。【说明】该命令不能控制将格式化输出命令SAY的输出结果送往打印机。要想将 SAY命令的格式化输出送往打印机，必须采用SET DEVICE TO PRINTER命令。SET PRINTER TO命令命令 【格式】SET PRINTER TO ADDITIVELPT1LPT2LPT3COM1COM2 带选项，打印内容送往指定的磁盘文件。若带ADDITIVE选项，可将输出到打印机的数据追加到指定的文件中，否则将覆盖原来文件中的内容。若不指定文件的扩展名，则取缺省扩展名.PRN。取LPT1、LPT2、LPT3时，可将输出结果送往三个并行口。取COM1、COM2时，可将输出结果送往二个串行口。取时，可将输出结果送往其它DOS设备。系统缺省设置值为DOS PRN的通用程序设置。【功能】指定打印输出设备。SET MARGIN命令命令 【格式】SET MARGIN TO 【功能】设置打印报表时左边的空白列数。报表的缺省左边空白值为0。【说明】一旦执行该命令调整报表的左边空白值，此边界设置值便存入系统内存变量_PLOFFSET中。也可以采用对变量赋值的方法来修设置_PLOFFSET的值。打印机换页命令EJECT 【格式】EJECT 【功能】使打印机换页。【说明】执行该命令将会重新设置PROW()和PCOL()函数，打印头处于0行0列。在使用格式化输出命令时，若指定的行数小于打印头当前所在行数时，打印机将自动换页。SET TEXTMERGE命令【格式】SET TEXTMERGE ONOFF TO ADDITIVE WINDOW SHOWNOSHOW【功能】控制非格式化输出命令、和TEXTENDTEXT的执行情况。清除整个屏幕CLEAR 【格式】CLEAR 【功能】清除整个屏幕的内容。清除指定区域CLEAR 【格式】,CLEAR ,CLEAR TO,【功能】清除屏幕上指定的区域。使用第一条命令可以清除指定坐标的右下半部屏幕区域。使用第二条命令可以清除由左上角坐标和右下角坐标所围成的矩形区域。5.4.2 画框命令【格式】,TO,DOUBLEPANEL PATTERN PEN,STYLE COLOR SCHEME COLOR COLOR RGB(颜色值表)【功能】绘制矩形、圆角矩形、圆、椭圆等几何图形。使用DOUBLE选项，可画一双线框，但和PATTERN、PEN 或 STYLE 选项一起使用时，DOUBLE选项不起作用。使用PANEL选项，可画一实体粗线框，但和PATTERN、PEN或 STYLE 选项一起使用时，PANEL选项不起作用。使用选项，可按指定的边框字符画框，但和PATTERN、PEN或STYLE 选项一起使用时，选项不起作用。使用PATTERN选项，可以设置所画几何图形所围区域中的花纹样式。的取值范围为0到7，分别代表不同的花纹样式。使用PEN选项，可以指定边框的宽度及样式。表5-6列出了PEN 选项中数值表达式的取值范围及所代表的宽度和样式。使用STYLE选项，可以指定所画几何图形四个角的曲度。缺省为绘制矩形。若要绘制圆角矩形、椭圆及圆，可在中指定0到99的曲度值。0表示没有任何曲度而画一矩形，99表示使用最大的曲度而画一个圆或椭圆。若在中加入T，则表示建立一个“透明”（即不覆盖原有的图形）的几何图形。使用COLOR SCHEME或COLOR或COLOR RGB选项，可以指定所绘制几何图形的边框颜色。画一个矩形 5,20 TO 20,60 PATTERN 3 PEN6,2 COLOR RGB(255,0,0,0,255,0)画一个圆角矩形 5,10 TO 20,70 PATTERN 3 PEN 6,2 STYLE79 COLOR RGB(255,0,0,0,255,0)画一个椭圆 5,25 TO 20,65 PATTERN 3 PEN 6,2 STYLE 99 COLOR RGB(255,0,0,0,255,0)5.4.3 填充命令使用填充命令FILL TO可以用指定的颜色来填充一个矩形区域。【格式】,FILL TO,COLOR SCHEME COLOR COLOR RGB(颜色值表)【功能】用指定的颜色来填充一个矩形区域。程序举例例1：用交互的方式把xsqk.dbf中指定的姓名的记录列出来。（prog1.prg)例2：按性别和是否团员在xsqk.dbf中查询。（prog2.prg)例3.先建立通讯录数据库TXLK.DBF的库结构，然后编写程序采用格式化输入命令向该数据库追加一条记录(prog5_4.prg)TXLK.DBF的结构如下：Field Field Name Type Width Dec 1 姓名 Character 8 2 性别 Character 2 3 职务 Character 6 4 工作单位 Character 30 5 邮政编码 Character 6 6 通讯地址 Character 30 例4.输入三角形的三边长、，计算并输出三角形的面积。为简单起见，假设输入的三边长、能构成三角形。(prog5_3.prg)例5.输入三个数，输出其中最大的数。提示：使用Foxpro提供的MAX函数。例6.用格式化输入输出命令按学号查询。(prog3.prg)