数据库系统与Visual-FoxPro第四章课件.ppt

《数据库系统与Visual-FoxPro第四章课件.ppt》由会员分享，可在线阅读，更多相关《数据库系统与Visual-FoxPro第四章课件.ppt（63页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、第四章第四章 程序设计基础程序设计基础1/11/20231第四章4.1程序的建立、修改和运行程序的建立、修改和运行一、程序文件的建立与修改一、程序文件的建立与修改 1.方法一方法一：用命令方式命令格式：MODIFYCOMMAND功能：打开文本编辑窗口，用来建立或修改程序文件。2.方法二方法二：用菜单方式1/11/20232第四章 二、程序的运行二、程序的运行 1.方法一方法一：用命令方式命令格式：DO功能：执行由表示的程序。2.方法二方法二：用菜单方式如要运行的程序没有打开，可单击主窗口中的“程序”菜单下的“运行”命令，弹出运行对话框，选择要运行的程序，单击“运行”按钮。1/11/20233第

2、四章4.2 结构化程序设计结构化程序设计4.2.1程序文件中的常用命令程序文件中的常用命令一、程序结尾的专用命令一、程序结尾的专用命令1.RETURN命令命令格式：RETURNTOMASTER功能：程序、过程或函数的末尾可放一条RETURN命令，它能使程序执行结束，并返回到调用它的上级程序继续执行，若无上级程序则返回到命令窗口。说明：表达式指定返回调用程序的表达式；TOMASTER将返回最高层次的调用程序。1/11/20234第四章2.CANCEL命令命令格式：CANCEL功能：CANCEL能使程序运行终止，清除程序的私有变量，并返回到命令窗口。3.QUIT命令命令格式：QUIT功能：该命令与

3、文件菜单的退出命令功能相同，使系统正常退出VisualFoxPro6.0，返回到Windows。1/11/20235第四章二、注释命令二、注释命令格式格式1：NOTE|*格式格式2：&说明：注释命令不做任何操作，只是注释标记，用于说明程序或命令的功能。NOTE或*用于整行注释，它必须写在每一个注释行的开头；而&用于注释一行的部分内容，它可以写在行中（命令的尾部）。1/11/20236第四章三、程序中两个常用命令三、程序中两个常用命令1.清屏命令清屏命令格式：CLEAR功能：清除屏幕上的显示内容。一般用于程序开头。2.SET TALK ON|OFF功能：用于设置一些非输出语句（如APPEND、S

4、ORT、GO等）是否显示命令的执行结果。ON为允许显示，OFF为不允许显示。一般在程序开始设置为OFF状态。1/11/20237第四章四、输入输出专用命令四、输入输出专用命令1.字符接收命令字符接收命令格式：ACCEPTTO功能：将从键盘上接收的字符串存入指定的内存变量中。说明：执行此语句时，先在屏幕上显示，光标紧跟其后，然后暂停程序运行，等待用户从键盘上输入信息。例：ACCEPT“请输入姓名：”TOXM1/11/20238第四章格式：INPUTTO功能：用于接收从键盘上输入的表达式，并将计算结果存入指定的内存变量中。说明：INPUT语句与ACCEPT语句的执行过程相同，功能相似。INPUT语

5、句与ACCEPT语句的区别是：ACCEPT命令只能接收字符串，而INPUT语句可以接收任意类型的数据；如果输入的是字符串，ACCEPT语句在接受数据时，不用使用字符型定界符；而INPUT接受字符型数据时，必须用定界符括起来。1/11/20239第四章3.输入一个字符语句输入一个字符语句格式：WAITTOWINDOWAT，NOWAITCLEAR|NOCLEARTIMEOUT功能：暂停程序的运行，直到用户输入一个字符。也可只用于输出一条提示信息。例：WAIT“请检查输人内容！”WINDOW1/11/202310第四章(二二)定位输入输出命令定位输入输出命令格式：SAYGETDEFAULT功能：在屏

6、幕的指定行列输出SAY子句的表达式值，并可修改GET子句的变量值。说明：（1）表示数据在窗口中显示的位置。（2）SAY子句用来输出数据，GET子句用来输入及编辑数据。1/11/202311第四章（3）GET子句中的变量必须具有初值，或用DEFAULT子句的指定初值。（4）GET子句的变量必须用READ命令来激活。例：3,10SAY姓名4,10SAY“成绩：”GETCJDEFAULT0READ1/11/202312第四章 4.2.2 程序的控制结构程序的控制结构1.顺序结构顺序结构在程序执行时，按程序中命令的书写顺序依次执行。2.分支结构分支结构能根据指定条件的不同当前值，在两条或多条程序路径中

7、选择一条执行。3.循环结构循环结构能使循环体中的语句（或命令）序列重复执行若干次。4.过程结构过程结构1/11/202313第四章4.2.3 顺序结构顺序结构例例4-1：从键盘随机输入某个表的文件名，要求打开并显示此表的内容。CLEARSETTALKOFFACCEPT“请输入表文件名”TOFILENAMEUSE（FILENAME）LISTUSE1/11/202314第四章例：圆的面积计算程序为SETTALKOFFCLEARINPUT“请输入圆半径：”TORS=3.1416*R*R？“圆面积=”，S上述3条命令的先后次序不能颠倒：只有执行INPUT后才能计算S，随后才能输出S，否则会因变量找不到

8、而无法继续下去。1/11/202315第四章4.2.4 分支结构分支结构一、简单的条件语句一、简单的条件语句语句格式：IFENDIF功能：首先计算的值，若其值为真，对IF与ENDIF之间的语句顺序执行，然后执行ENDIF后面的语句；若其值为假，直接执行ENDIF后面的语句。1/11/202316第四章 例例4-3：将商品销售表DBF中第一个单价在2500元以上的商品价格降低5%。USE商品销售表LOCATEFOR单价2500IFFOUND（）DISPLAY商品编号，单价REPLACE单价WITH单价*0.95DISPLAY商品编号，单价ENDIFUSERETURN1/11/202317第四章

9、二、带二、带ELSE的条件语句的条件语句语句格式：IFELSEENDIF功能：若值为真，先执行，然后再执行ENDIF后面的语句；若其值为假，先执行，然后再执行ENDIF后面的语句。1/11/202318第四章例例4-4：铁路托运行李，假设每张车票可按每千克0.5元托运50千克以内的行李，如果超过50千克时，超过部分每千克加价0.3元。计算公式和程序如下：0.5*W（W50)1/11/202319第四章SETTALKOFFINPUT“请输入行李的重量：”TOWIFW=50X=0.5*WELSEX=0.5*500.8*(W50)ENDIF？“行李重量为”STR（W，6，2）“千克，运费为”+STR

10、（X，6，2）“元”CANCEL1/11/202320第四章语句格式：IFELSEIFELSEENDIFENDIF1/11/202321第四章例例4-5：上例托运行李的计算公式改为：0.5*W(W=W50)0.5*500.8*501.0*(W100)(W100)1/11/202322第四章STETALKOFFINPUT“输入行李重量”TOWIFW=50X=0.5*WELSEIFW=100X=0.5*500.8*(W50)ELSEX=0.5*500.8*501.0*(W100)ENDIFENDIF?“行李运费为：”，XCANCEL1/11/202323第四章 三、多分支语句三、多分支语句DOCA

11、SECASECSAECASEOTHERWISEENDCASE1/11/202324第四章功能：执行多分支语句时，系统将依次判断逻辑表达式值是否为真，若某个逻辑表达式值为真，则执行该CASE段的语句序列，然后执行ENDCASE后面的语句。在各逻辑表达式值均为假的情况下，若有OTHERWISE子句，就执行，然后结束多分支语句，否则直接结束多分支语句。1/11/202325第四章我们用DOCASE语句来实现例4-5的计算，只要将IF语句的嵌套部分改为：DOCASECASEW=50X=0.5*WCASEW50X=0.5*500.8*(W50)CASEW100X=0.5*500.8*501.0*(W10

12、0)ENDCASE1/11/202326第四章例例4-6：显示当前季节程序CLEARYue=MONTH（DATE（）DOCASECASEINLIST（yue，3，4，5）JJ=“春”CASEINLIST（yue，6，7，8）JJ=“夏”CASEINLIST（yue，9，10，11）JJ=“秋”CASEINLIST（yue，12，1，2）JJ=“冬”ENDCASEWAITJJWINDOW1/11/202327第四章在构成分支结构时需注意：(1)条件语句中的IF和ENDIF必须配对出现；同样，多分支语句中的DOCASE和ENDCASE也须配对出现。(2)为使程序清晰易读，对分支、循环等结构应使用缩

13、格书写方式，见上述例。（3）分支、循环的每种语句都不允许在一个命令行中输入完，必须按本书所示语句格式一行一个回车分行键人。由此可见，这些语句不能用于命令窗口中。1/11/202328第四章4.2.4 循环结构循环结构一、条件循环一、条件循环语句格式：DOWHILEENDDO功能：若DOWHILE子句的循环条件为假循环就结束，执行ENDDO子句后面的语句；条件为真则执行循环体，一旦遇到ENDDO就自动返回到DOWHILE重新判断循环条件是否成立，以决定是否继续循环。1/11/202329第四章说明：1.语句格式中的称为循环条件，称为循环体，循环体可以是一个语句或一组语句。2.ENDDO语句是循环

14、终止语句，表示循环以此语句为终点。但执行到ENDDO语句时并不是直接退出循环，而是转到DOWHILE语句去判断的值的真假。3.循环语句本身不会修改执行条件，因此循环体内一定要设置修改循环条件的语句。否则，可能出现死循环，无法退出循环。1/11/202330第四章例例4-7：试编一程序，显示商品销售表.DBF中所有单价超过2000元的商品编号。CLEARUSE商品销售表DOWHILE.NOT.EOF（）IF单价2000？商品编号ENDIFSKIPENDDOUSE1/11/202331第四章例4-8：STORE0TOK1，K2，K3ZS=1DOWHILEZS=200ACCEPT“请输入选票代号”T

15、OXPDOCASECASEXP=“1”K1=K11CASEXP=“2”K2=K2lCASEXP=“3”K3=K31ENDCASEZS=ZS1ENDDO？“甲得票数：”STR（K1）？“乙得票数：”STR（K2）？“丙得票数：”STR（K3）RETURN1/11/202332第四章二、步长循环二、步长循环语句格式：FOR=TOSETPENDFOR|NEXT说明：语句格式中的称为循环变量，、分别称为初值、终值、步长。步长的缺省时值为1。1/11/202333第四章功能：语句执行时，通过比较循环变量值与终值来决定是否执行。步长为正数时，若循环变量值不大于终值就执行循环体；步长为负数时，若循环变量值不

16、小于终值就执行循环体。执行一旦遇到ENDFOR或NEXT，循环变量值即加上步长，然后返回到FOR重新与终值比较。注意：循环体中不需要改变循环变量语句。因为，ENDFOR或NEXT语句会改变循环变量的值。这一点与DOWHILEENDDO语句不同。1/11/202334第四章例例4-9：编写计算S123100的程序。SETTALKOFFCLEARS=0&S为累加器，初值为0FORI=1TO100&I为计数器，初值为1S=S十I&累加NEXT？“S=”，SRETURN1/11/202335第四章三、扫描循环三、扫描循环语句格式：SCAN范围FOR逻辑表达式语句序列ENDSCAN功能：SCAN循环针对

17、当前表进行循环，范围子句表示记录范围，缺省值为ALL。语句执行时在范围中依次寻找满足FOR条件的记录，并对找到的记录执行语句序列。执行到ENDSCAN语句，指针就指向下一条满足条件的记录，继续执行循环体，直到所有的记录都执行完，就结束循环。1/11/202336第四章例例4-10：根据例4-7的要求，用扫描循环语句编程。CLEARUSE商品销售表SCANFOR单价2000？商品编号ENDSCANUSE1/11/202337第四章四、循环辅助语句四、循环辅助语句1.跳转语句跳转语句格式：LOOP功能：该语句能中断本次循环体的执行，回到循环开始处，重新对条件表达式进行判断。说明：LOOP语句一定放

18、在循环体内才有意义，2.出口语句出口语句格式：EXIT功能：终止正常循环，无条件地转到循环终止语句后去执行后续语句。1/11/202338第四章 例例4-11：SETTALKOFFCLEARSTORE0TOI，S，TDOWHILEI=100I=I+1S=S+I&累加I值IFINT（I2）=I2LOOPENDIFT=T+I&累加奇数ENDDO？“l23100=”，S？”1100奇数和为：”，TRETURN1/11/202339第四章例4-12：4，10SAY“请输入一自然数：”GETXDEFAULT0READN=0DOWHILEN=XIFINT（X/N）=X/NEXITENDIFN=N+1END

19、DOIFN=X6，10SAYSTR（X）+“为素数”ELSE6，10SAYSTR（X）+“不为素数”ENDIF1/11/202340第四章例例4-13：编程修改商品表.DBF中的商品名称和生产单位，要求能修改多个商品。程序如下：CLEARUSE商品表DOWHILE.T.SPBH=SPACE(6)4，10SAY“请输入要修改的商品编号：”GETSPBHREADLOCATEFOR商品编号=SPBH1/11/202341第四章IFFOUND()6，10SAY“商品名称”GET商品名称7，10SAY“生产单位”GET生产单位READELSE6，10SAY“无此商品！”ENDIFWAIT“是否继续修改？

20、”TOXGIFUPPER(XG)=“Y”LOOPELSEEXITENDIFENDDORETURN1/11/202342第四章五、多重循环五、多重循环若一个循环语句的循环体内又包含其它循环，就构成了多重循环，也称为循环嵌套。较为复杂的问题往往要用多重循环来处理。例例4-14：编一程序在屏幕上显示九九乘法表。1/11/202343第四章CLEARA=1DOWHILEA=9B=1DOWHILEB=AC=A*B?LTRIM(STR(A，2)，“*”，LTRIM(STR(B，2)，“=”，LTRM(STR(C，2)，“”B=B+1ENDDO?A=A+1ENDDORETURN1/11/202344第四章4

21、.3 过程与函数过程与函数4.3.1子程序子程序一、调用与返回一、调用与返回对于两个具有调用关系的程序文件，常称调用程序为主程序，被调用程序为子程序。主程序执行时遇到DO命令，执行就转向子程序，称为调用子程序。子程序执行到RETURN语句（或缺省该语句），就会返回到主程序继续执行程序，称为从子程序返回，或简称返主。1/11/202345第四章二、带参数子程序的调用与返回二、带参数子程序的调用与返回DOWITHIN功能：带参数调用子程序。说明：（1）中的参数可以是常量、变量或表达式，但若为内存变量必须具有初值。（2）当是IN子句中的一个过程时，DO命令调用该过程，请参阅以下过程部分内容。1/11

22、/202346第四章调用子程序时参数表中的参数要传送给子程序，子程序中也必须设置相应的参数接收语句。PARAMETERS功能：指定内存变量以接收DO命令发送的参数值，返主时把内存变量值回送给调用程序中相应的内存变量。说明：（l）PARAMETERS必须是被调用程序的第一个语句。（2）命令中的参数被默认为私有变量，返主时回送参数值后即被清除。（3）命令中的参数依次与调用命令WITH子句中的参数相对应，故两者参数个数必须相同，类型必须匹配。1/11/202347第四章例例4-15：设计一个计算圆面积的子程序，并要求在主程序中带参数调用它。主程序：（文件名MAIN.PRG）CLEARYMJ=05，1

23、0SAY“请输人半径：”GETBJDEFAULT0READDOJSWITHBJ，YMJ？“YMJ=”，YMJ&显示圆面积RETURN1/11/202348第四章子程序：文件名为JS.PRGPARAMETERSR，SS=PI()*R*R&PI（）函数返回3.14RETURN&返主三、子程序嵌套三、子程序嵌套主程序与子程序的概念是相对的，子程序还可调用它自己的子程序，即子程序可以嵌套调用。RETURNTOMASTER|TO1/11/202349第四章4.3.2 过程过程一、过程文件及过程的概念一、过程文件及过程的概念VisualFoxPro6.0允许在一个.PRG文件中设置多个程序模块，将主程序以

24、外的每个模块定义为一个过程。这种包含多个过程的文件称为“过程文件”。“过程文件”实质仍是命令文件，仍使用.PRG为扩展名。其建立的方法与一般命令文件一样用命令：MODIFYCOMMAND1/11/202350第四章一个过程文件可包含128个过程。每个过程都有一个过程名进行标识。过程名的约定与内存变量名的约定一样。过程文件中的每一个过程结构如下：PROCEDURERETURN注意：每一个过程能完成某一独立的功能，像子程序一样被其它程序调用。但过程不是一个独立的.PRG文件，它只是一个过程文件中的一段程序。而每一个子程序是一个独立的命令文件。因此，过程与过程文件不是同一概念，不可混淆。1/11/2

25、02351第四章二、过程的调用：二、过程的调用：过程也用DO命令调用。1.过程可作为程序的一部分，列在程序的最后，例例4-16：SETDECIMALSTO2YMJ=05，10SAY“请输人半径：”GETBJDEFAULT0READDOJSWITHBJ，YMJ&调用过程JS？“YMJ=”，YMJRETURNPROCEDUREJS&过程JS开始语句PARAMETERSr，sS=PI()*R*RRETURN1/11/202352第四章2.过程有可能不在调用程序中，而是被包含在某一个过程文件中，在调用过程文件中的过程时，必须打开包含该过程的过程文件，再用DO命令调用。打开过程文件的命令如下：格式格式：

26、SETPROCEDURETO功能：打开指定的过程文件。过程文件使用完毕后，要关闭。过程文件关闭的命令是：格式一格式一：CLOSEPROCEDURE格式二格式二：SETPROCEDURETO功能：关闭当前打开的过程文件。1/11/202353第四章例例4-17：CLEARR=5MJ=0TJ=0SETPROCEDURETOQMJTJDOQMJ&调用过程QMJ？“球的表面积为：”，MJDOQTJ&调用过程QTJ？“球体积为：”，TJSETPROCEDURETO&关闭过程文件RETURN1/11/202354第四章*过程文件：文件名为QMJTJ.PRGPROCEDUREQMJMJ=4*PI()*R*R

27、RETURNPROCDUERQTJTJ=4*PI()*R*R*R/3RETURN1/11/202355第四章4.3.3 自定义函数自定义函数一、自定义函数的建立一、自定义函数的建立自定义函数的格式如下：FUNCTIONPARAMETERSRETURN功能：定义一个函数，供调用。1/11/202356第四章说明：(1)自定义函数的函数名不能和VisualFoxPro6.0系统函数同名，也不能和内存变量同名。（2）组成为函数体，用于进行各种处理；简单的函数其函数体也可为空。（3）RETURN语句用于返回函数值，其中的值就是函数值。若缺省该语句，则返回的函数值为.T.。（4）自定义函数与系统函数调用

28、方法相同，其形式为：函数名（）1/11/202357第四章例例4-18：设计一个自定义函数，用来求一元一次方程AXB=0的根。*rootprgCLEAR5，10SAY“一次项系数：”GETaDEFAULT17，10SAY“常数项：”GETbDEFAULT0READ？“x：”，root（a，b）&调用函数ROOTFUNCTIONROOTPARAMETERSu，vRETURNIIF（u=0，“无解”，vu）1/11/202358第四章4.3.4 变量的作用域变量的作用域 一、公共变量一、公共变量在任何模块中都可使用的变量称为公共变量，公共变量可用下述命令来建立。命令格式：PUBLIC功能：将指定的

29、变量设置为公共变量，并将这些变量的初值均赋以.F.。1/11/202359第四章说明：(1)若下层模块中建立的内存变量要供上层模块使用，或某模块中建立的内存变量要供并列模块使用，必须将这种变量说明成公共变量。（2）VisualFoxPro6.0默认命令窗口中定义的变量都是公共变量，但这样定义的变量不能在程序方式下利用。（3）程序终止执行时公共变量不会自动清除，而只能用命令来清除。前面提到过的RELEASE命令可用来清除公共变量。1/11/202360第四章 二、私有变量二、私有变量VisualFoxPro6.0默认程序中定义的变量是私有变量，也就是凡是未用PUBLIC定义过的变量都是私有变量。

30、私有变量仅在定义它的模块及其下层模块中有效，而在定义它的模块运行结束时自动清除。私有变量允许与上层模块的变量同名，但此时为分清两者是不同的变量，需要采用暂时屏蔽上级模块变量的办法。下述命令声明的私有变量就能起这样的作用。1/11/202361第四章命令格式：PRIVATEALLLIKE|EXCEPT功能：声明私有变量并隐藏上级模块的同名变量，直到声明它的程序、过程或自定义函数执行结束后，才恢复使用先前隐藏的变量。1/11/202362第四章三、本地变量三、本地变量本地变量只能在建立它的模块中使用，而且不能在高层或底层模块使用，该模块运行结束时本地变量就自动释放。命令格式：LOCAL功能：将指定的变量设置为本地变量，并将这些变量的初值均赋以.F.。注意：LOCAL与LOCATE前4个字母相同，故不可缩写。1/11/202363第四章